#include <stdio.h>
#include <stdlib.h>

#include <string.h>
long int a[1];//保存待删除的指针的全局变量
long int d;//只是为了gcc编译时不报warning，d就是a[0]的地址
//下面就是unlink宏
#define unlink(P,BK,FD){\
/*FD = P->fd;\
BK = P->bk;\ */\
d=(long int)a;\
FD=(struct s*)(d-0x18);\
BK=(struct s*)(d-0x10);\
    if (__builtin_expect (FD->bk != P || BK->fd != P, 0))\
      printf ("corrupted double-linked list\n");\
    else {\
        FD->bk = BK;\
/**d=d-0x18;即a[0]=a-0x18 */\
        BK->fd = FD;\
}\
}

struct s
{
  long int b;
  long int c;
  struct s *fd;
  struct s *bk;
};
main ()
{
  struct s *FD;
  struct s *BK;
  struct s *p1 = malloc (sizeof (struct s));
  p1->b = 1;
  struct s *p2 = malloc (sizeof (struct s));
  p2->b = 2;
  struct s *p3 = malloc (sizeof (struct s));
  p3->b = 3;
  a[0] = (long int)p3;
  struct s *p4 = malloc (sizeof (struct s));
  p4->b = 4;
  struct s *p5 = malloc (sizeof (struct s));
  p5->b = 5;
  p1->fd = p2;
  p2->fd = p3;
  p3->fd = p4;
  p4->fd = p5;
  p5->bk = p4;
  p4->bk = p3;
  p3->bk = p2;
  p2->bk = p1;
  struct s *p;
  p = p1;
  while (p != NULL)
    {
      printf ("%d->", p->b);
      p = p->fd;
    }
  printf ("\n");
//输出unlink前全局变量的值
printf("[1]:%x\n",a[0]);
  unlink (p3, FD, BK);
//输出unlink后全局变量的值
printf("[2]:%x\n",a[0]);
printf("[3]:%x\n",p3);
//既然unlink执行后，*d=d-0x18，即*a=a-0x18，我们是不是就可以更改p3的值，从而更改a[0]的值？ 此处是比划exp写的，其实并不理解
char m[]="AAAABBBBCCCCDDDDEEEEFFFFGGGGHHHH";
memcpy(p3,m,32);
printf("[4]:%x\n",a[0]);
  p = p1;
  while (p != NULL)
    {
      printf ("%d->", p->b);
      p = p->fd;
    }
  free (p1);
  free (p2);
  free (p3);
  free (p4);
  free (p5);
}