#define BLKSIZ 80
#define STKSIZ 1000

typedef union{
   char *link;
   char data[BLKSIZ];
}BLOCK;

static BLOCK *btm_of_heap;
static BLOCK *top_of_heap;
static BLOCK *heap;

void Init_Heap(){
   BLOCK *ptr;
   int blk;
   heap=(BLOCK *)malloc(BLKSIZ);
   btm_of_heap=heap;
   ptr=heap;
   for(blk=0; blk<49; blk++){
      ptr->link=(BLOCK *)malloc(BLKSIZ);
      ptr=ptr->link;
   }
   ptr->link=NULL;
   top_of_heap=ptr;
}

void My_Free(BLOCK *ptr){
   if(ptr>=btm_of_heap){
      if(ptr<top_of_heap){ /*Block is from my heap*/
         ptr->link=heap;
         heap=ptr;
         return;
      } else if(free(ptr)){ /*Block is from C-Ware's heap*/
         return;
      }
   }
   puts("\nAttempt to free unallocated block!\n\7");
   exit(1);
}

BLOCK *Allocate(int bytes){
   BLOCK *ptr;
   if(bytes<=BLKSIZ){ /* 要求的内存块大小小于链表维护的内存块大小 */
      if(heap!=0){ /* 有空闲块 */
         ptr=heap;
         heap=heap->link;
         return ptr;
      }
   }
   if(ptr=(BLOCK *)malloc(bytes)){ /* 要求的内存块大小大于链表维护的内存块大小或者没有空闲块 */
      return ptr;
   }
   puts("Insufficient memory:malloc()\n\7");
   exit(1);
}

void main()
{
   BLOCK *main_ptr
   Init_Heap();
   main_ptr=Allocate(80);
   My_Free(main_ptr);
}

补充：错误提示截图：

请高手帮忙看看吧，小弟实在改正不了。

ptr>=btm_of_heap？？？？？

他们的指针能够比较大小吗？

他们的地址是系统随即分配的 好像不能比较大小的，个人意见哈

大都是类型转换引起的警告和错误
假设 #define BLKSIZ 80 为第一行
后面依次改为：
行20：ptr->link=(char *)malloc(BLKSIZ);
行21：ptr=(BLOCK *)ptr->link;
行30：ptr->link=(char*)heap;
行33： } else { /*Block is from C-Ware's heap*/
行34：   free(ptr);return;
行46：heap=(BLOCK *)heap->link;
行59：BLOCK *main_ptr;  (少一个分号)

谢谢楼上大哥的帮忙，程序中还有一个警告，再请帮忙看看：

老哥你还在线苦等呢啊，我也是个新手，也看不太懂。

没办法，自己搞不清楚这个问题究竟是出在哪里啊，虽然经过5楼的大哥改正后，程序能够通过编译了，但还存在这么一个警告，不知为何？