Mercurial > hg > CbC > old > device
comparison mc.h @ 731:1f6e34c4dbbf
INTEL64 (start)
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 29 Oct 2010 16:14:00 +0900 |
parents | 21f770a3b298 |
children | a177c65f3e37 |
comparison
equal
deleted
inserted
replaced
730:9bad72e27174 | 731:1f6e34c4dbbf |
---|---|
590 // mc-tree.c | 590 // mc-tree.c |
591 | 591 |
592 extern void print_expr(int e, FILE *vout); | 592 extern void print_expr(int e, FILE *vout); |
593 | 593 |
594 | 594 |
595 #if 1 | 595 // #if 1 |
596 extern int heapsize; | 596 //extern int heapsize; |
597 #define CHECK_HEAP(b) ({int _k=(int)(b);if(_k>heapsize||_k<=0)error(-1);_k;}) | 597 // #define CHECK_HEAP1(b) ({int _k=(int)(b);if(_k>heapsize||_k<=0)error(-1);_k;}) |
598 #else | 598 //#else |
599 #define CHECK_HEAP(b) (b) | 599 #define CHECK_HEAP(b) (b) |
600 #endif | 600 //#endif |
601 | 601 |
602 #define car(e) (heap[(int)(CHECK_HEAP(e))]) | 602 #define car(e) (heap[(int)(CHECK_HEAP(e))]) |
603 | 603 |
604 #define cadr(e) (heap[((int)(CHECK_HEAP(e)))+1]) | 604 #define cadr(e) (heap[((int)(CHECK_HEAP(e)))+1]) |
605 | 605 |