![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to engine.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / vmgen-ex|
Return to engine.c CVS log | Up to [gforth] / gforth / vmgen-ex |
| version 1.2, 2001/04/29 18:41:58 | version 1.3, 2001/05/01 10:20:55 |
|---|---|
| Line 30 | Line 30 |
| #define vm_Cell2a(x) ((char *)(x)) | #define vm_Cell2a(x) ((char *)(x)) |
| #define vm_a2Cell(x) ((Cell)(x)) | #define vm_a2Cell(x) ((Cell)(x)) |
| #define vm_Cell2Cell(x) ((Cell)(x)) | |
| #define USE_spTOS 1 | #define USE_spTOS 1 |
| #ifdef USE_spTOS | #ifdef USE_spTOS |
| Line 39 | Line 41 |
| #endif | #endif |
| #ifdef VM_DEBUG | #ifdef VM_DEBUG |
| #define NAME(_x) if (vm_debug) {fprintf(vm_out, "%lx: %-20s, ", (long)(ip-1), _x); fprintf(vm_out,"fp=%p, sp=%p", fp, sp);} | #define NAME(_x) if (vm_debug) {fprintf(vm_out, "%p: %-20s, ", ip-1, _x); fprintf(vm_out,"fp=%p, sp=%p", fp, sp);} |
| #else | #else |
| #define NAME(_x) | #define NAME(_x) |
| #endif | #endif |
| Line 177 Cell engine(Inst *ip0, Cell *sp, char *f | Line 179 Cell engine(Inst *ip0, Cell *sp, char *f |
| IF_spTOS(spTOS = sp[0]); | IF_spTOS(spTOS = sp[0]); |
| SET_IP(ip0); | SET_IP(ip0); |
| SUPER_END; /* count the BB starting at ip0 */ | |
| NEXT; | NEXT; |
| #include "mini-vm.i" | #include "mini-vm.i" |