Index: Makefile =================================================================== RCS file: /srv/cvs/openbios/paflof/Makefile,v retrieving revision 1.3 diff -u -r1.3 Makefile --- Makefile 2002/06/15 15:48:06 1.3 +++ Makefile 2002/06/17 14:07:34 @@ -1,4 +1,4 @@ -CFLAGS = -Wall -W -std=gnu9x -g -O2 # -pg +CFLAGS = -Wall -W -ansi -g -O2 # -pg LDFLAGS = -g # -pg DICT = prim.in engine.in tests.in Index: engine.in =================================================================== RCS file: /srv/cvs/openbios/paflof/engine.in,v retrieving revision 1.42 diff -u -r1.42 engine.in --- engine.in 2002/06/16 06:24:25 1.42 +++ engine.in 2002/06/17 14:07:34 @@ -1,4 +1,4 @@ -// some common constant numbers +/* some common constant numbers */ con(-1 -1) con(0 0) con(1 1) @@ -11,30 +11,30 @@ con(H#FFFF 0xffff) con(D#10 0x0a) -// 1.1 +/* 1.1 */ col(TUCK SWAP OVER) col(2DUP OVER OVER) col(3DUP 2 PICK 2 PICK 2 PICK) col(2OVER 3 PICK 3 PICK) -// 1.2 +/* 1.2 */ col(2DROP DROP DROP) col(3DROP DROP DROP DROP) col(NIP SWAP DROP) col(CLEAR 0 DEPTH!) -// 1.3 +/* 1.3 */ col(ROT >R SWAP R> SWAP) col(-ROT SWAP >R SWAP R>) col(2SWAP >R -ROT R> -ROT) col(2ROT >R >R 2SWAP R> R> 2SWAP) col(ROLL DUP ?DUP ?BRANCH(6) ROT >R 1 - BRANCH(-9) ?DUP ?BRANCH(6) R> -ROT 1 - BRANCH(-9)) -// 7 +/* 7 */ con(TRUE -1) con(FALSE 0) -// 6 +/* 6 */ col(<= > NOT) col(<> = NOT) col(>= < NOT) @@ -49,7 +49,7 @@ col(U<= U> NOT) col(U>= U< NOT) -// 2.1 +/* 2.1 */ col(NEGATE 0 SWAP -) col(ABS DUP 0< ?BRANCH(1) NEGATE) col(MAX 2DUP < ?BRANCH(1) SWAP DROP) @@ -62,14 +62,14 @@ col(EVEN 1+ -1 AND) col(BOUNDS OVER + SWAP) -// 2.2 +/* 2.2 */ col(2* 1 <<) col(U2/ 1 >>) col(2/ 1 >>A) col(LSHIFT <<) col(RSHIFT >>) -// 2.3 +/* 2.3 */ col(S>D DUP 0< ?BRANCH(2) -1 EXIT 0) col(DNEGATE 0 0 2SWAP D-) col(DABS DUP 0< ?BRANCH(1) DNEGATE) @@ -77,14 +77,14 @@ col(SM/REM OVER >R >R DABS R@ ABS UM/MOD R> 0< ?BRANCH(1) NEGATE R> 0< ?BRANCH(4) NEGATE SWAP NEGATE SWAP) col(FM/MOD DUP >R 2DUP XOR 0< >R SM/REM OVER 0<> R> AND ?BRANCH(6) 1- SWAP R> + SWAP EXIT R> DROP) -// 2.1 +/* 2.1 */ col(/MOD >R S>D R> FM/MOD) col(/ /MOD NIP) col(MOD /MOD DROP) col(*/MOD >R M* R> FM/MOD) col(*/ */MOD NIP) -// 2.4 +/* 2.4 */ col(WBSPLIT DUP H#FF AND SWAP 8 >>) col(LWSPLIT DUP H#FFFF AND SWAP H#10 >>) col(LBSPLIT LWSPLIT SWAP WBSPLIT ROT WBSPLIT) @@ -95,7 +95,7 @@ col(LWFLIP LWSPLIT SWAP WLJOIN) col(LBFLIP LBSPLIT SWAP 2SWAP SWAP BLJOIN) -// 2.5 +/* 2.5 */ con(/C 1) con(/W 2) con(/L 4) @@ -118,7 +118,7 @@ col(CELLS /N*) col(ALIGNED /N 1- + /N NEGATE AND) -// 3.1 +/* 3.1 */ col(+! TUCK @ + SWAP !) col(COMP 0 DO?DO(27) OVER I + C@ OVER I + C@ 2DUP < ?BRANCH(6) 2DROP UNLOOP 2DROP LIT(-1) EXIT > ?BRANCH(4) UNLOOP 2DROP 1 EXIT DOLOOP(-27) 2DROP 0) col(OFF FALSE SWAP !) @@ -136,14 +136,14 @@ col(BLANK LIT(0x20) FILL) col(ERASE LIT(0x00) FILL) -// 8.6 +/* 8.6 */ var(CATCHER 0) var(ABORT"-STR 0) col(CATCH DEPTH >R CATCHER @ >R RDEPTH CATCHER ! EXECUTE R> CATCHER ! R> DROP 0) col(THROW ?DUP ?BRANCH(12) CATCHER @ RDEPTH! R> CATCHER ! R> SWAP >R DEPTH! DROP R>) col(ABORT -1 THROW) -// 4.1 +/* 4.1 */ var(#TIB TIBSIZE) val(IB 0) var(#IB 0) @@ -152,45 +152,45 @@ var(>IN 0) col(TERMINAL TIB DOTO IB #TIB @ #IB ! 0 DOTO SOURCE-ID) -// 4.3 +/* 4.3 */ con(BL 0x20) con(BELL 7) con(BS 8) con(CARRET 0x0d) con(LINEFEED 0x0a) -// 4.4 +/* 4.4 */ dfr(EMIT) col(TYPE BOUNDS DO?DO(5) I C@ EMIT DOLOOP(-5)) -// 4.5 +/* 4.5 */ col(CR LINEFEED EMIT) col(SPACE BL EMIT) col(SPACES 0 DO?DO(3) SPACE DOLOOP(-3)) -// 4.8 +/* 4.8 */ col(COUNT DUP 1 + SWAP C@) col(UPC DUP LIT('a') LIT('z') BETWEEN ?BRANCH(3) LIT(0x20) - ) col(LCC DUP LIT('A') LIT('Z') BETWEEN ?BRANCH(3) LIT(0x20) + ) -// 4.2 +/* 4.2 */ dfr(KEY) col(ACCEPT TUCK 0 DO?DO(21) KEY DUP LINEFEED = ?BRANCH(7) SPACE DROP DROP DROP I UNLOOP EXIT DUP EMIT OVER C! 1 + DOLOOP(-21) DROP KEY LINEFEED = ?BRANCH(-5) CR) var(SPAN 0) col(EXPECT ACCEPT SPAN !) col(REFILL SOURCE-ID 0= ?BRANCH(7) SOURCE EXPECT 0 >IN ! TRUE EXIT SOURCE-ID -1 = ?BRANCH(2) FALSE EXIT LIT(0x6502) THROW) -// 5.1 +/* 5.1 */ var(BASE 16) col(DECIMAL D#10 BASE !) col(HEX H#10 BASE !) col(OCTAL 8 BASE !) -// for constructing pictures +/* for constructing pictures */ col(PAD HERE LIT(256) +) col(TODIGIT DUP LIT(9) > ?BRANCH(3) LIT(0x27) + LIT(0x30) +) -// 5.4 +/* 5.4 */ col(<# PAD DUP !) col(HOLD PAD DUP @ 1- TUCK SWAP ! C!) col(SIGN 0< ?BRANCH(3) LIT('-') HOLD) @@ -203,7 +203,7 @@ col(U#> DROP PAD DUP @ TUCK -) col((U.) <# U#S U#>) -// 5.3 +/* 5.3 */ col(. (.) TYPE SPACE) col(S. .) col(U. (U.) TYPE SPACE) @@ -214,12 +214,12 @@ col(.S DEPTH 0 DO?DO(8) DEPTH I - 1- PICK . DOLOOP(-8)) col(? @ .) -// 5.2 +/* 5.2 */ col(DIGIT OVER UPC DUP LIT('A') LIT('Z') BETWEEN ?BRANCH(3) LIT(7) - LIT(0x30) - DUP ROT 0 SWAP WITHIN ?BRANCH(4) NIP TRUE BRANCH(2) DROP FALSE) col(>NUMBER DUP 0= ?BRANCH(1) EXIT OVER C@ BASE @ DIGIT ?BRANCH(23) SWAP >R SWAP >R >R BASE @ U* SWAP BASE @ UM* ROT + R> 0 D+ R> CHAR+ R> 1- BRANCH(-35) DROP) col($NUMBER DUP 0= ?BRANCH(4) DROP DROP TRUE EXIT >R DUP >R C@ LIT('-') = DUP ?BRANCH(15) R> CHAR+ R> 1- DUP 0= ?BRANCH(5) DROP DROP DROP TRUE EXIT >R >R 0 0 R> R> >NUMBER NIP 0= ?BRANCH(7) DROP SWAP ?BRANCH(1) NEGATE FALSE EXIT DROP DROP DROP TRUE) -// 9.2.1 +/* 9.2.1 */ col(ALLOT HERE + HERE!) col(, HERE ! /N ALLOT) col(C, HERE C! /C ALLOT) @@ -227,7 +227,7 @@ col(L, HERE L! /L ALLOT) col(ALIGN HERE /N 1- AND ?BRANCH(4) 0 C, BRANCH(-10)) -// for dictionary +/* for dictionary */ var(LATEST 0) var(LAST 0) @@ -258,7 +258,7 @@ col(CHAR PARSE-WORD DROP C@) imm(( LIT(')') PARSE 2DROP) -//imm(\ SPAN @ >IN !) +/* imm(\ SPAN @ >IN !) */ imm(\ LINEFEED PARSE 2DROP) var(STATE 0) @@ -270,31 +270,31 @@ col(:NONAME ALIGN HERE DOTICK DOCOL COMPILE, ]) com(; DOTICK EXIT COMPILE, REVEAL [) -// 4.3 +/* 4.3 */ com([CHAR] PARSE-WORD DROP C@ DOTICK DOLIT COMPILE, COMPILE,) -// 4.7 +/* 4.7 */ com(C" LIT('"') PARSE DOTICK SLITERAL COMPILE, DUP C, BOUNDS DO?DO(5) I C@ C, DOLOOP(-5) ALIGN) imm(S" STATE? ?BRANCH(5) C" DOTICK COUNT COMPILE, EXIT POCKET LIT('"') PARSE SWAP 2 PICK 2 PICK MOVE) -// 4.4 +/* 4.4 */ com(." S" DOTICK TYPE COMPILE,) com(.( LIT(')') PARSE TYPE) -// 8.1 +/* 8.1 */ com(RESOLVE-ORIG HERE OVER CELL+ - SWAP !) com(AHEAD DOTICK DOBRANCH COMPILE, HERE 0 COMPILE,) com(IF DOTICK DO?BRANCH COMPILE, HERE 0 COMPILE,) com(THEN RESOLVE-ORIG) com(ELSE DOTICK DOBRANCH COMPILE, HERE 0 COMPILE, SWAP RESOLVE-ORIG) -// 8.2 +/* 8.2 */ com(CASE 0) com(ENDCASE DOTICK DROP COMPILE, ?DUP ?BRANCH(5) 1- SWAP THEN BRANCH(-8)) com(OF 1+ >R DOTICK OVER COMPILE, DOTICK = COMPILE, IF DOTICK DROP COMPILE, R>) com(ENDOF >R ELSE R>) -// 8.3 +/* 8.3 */ com(RESOLVE-DEST HERE CELL+ - COMPILE,) com(BEGIN HERE) com(AGAIN DOTICK DOBRANCH COMPILE, RESOLVE-DEST) @@ -302,7 +302,7 @@ com(WHILE IF SWAP) com(REPEAT AGAIN THEN) -// 8.4 +/* 8.4 */ var(LEAVES 0) com(RESOLVE-LOOP LEAVES @ ?DUP ?BRANCH(10) DUP @ SWAP HERE OVER - SWAP ! BRANCH(-13) HERE - COMPILE, LEAVES !) com(DO LEAVES @ HERE DOTICK DODO COMPILE, 0 LEAVES !) @@ -312,7 +312,7 @@ com(LEAVE DOTICK DODOLEAVE COMPILE, LEAVES @ HERE LEAVES ! COMPILE,) com(?LEAVE DOTICK DODO?LEAVE COMPILE, LEAVES @ HERE LEAVES ! COMPILE,) -// 8.5 +/* 8.5 */ col(SAVE-SOURCE R> IB >R #IB @ >R SOURCE-ID >R SPAN @ >R >IN @ >R >R) col(RESTORE-SOURCE R> R> >IN ! R> SPAN ! R> DOTO SOURCE-ID R> #IB ! R> DOTO IB >R) @@ -328,7 +328,7 @@ col(EVALUATE SAVE-SOURCE -1 DOTO SOURCE-ID DUP #IB ! SPAN ! DOTO IB INTERPRET RESTORE-SOURCE) col(EVAL EVALUATE) -// 8.6 +/* 8.6 */ col(DOABORT" SWAP ?BRANCH(5) ABORT"-STR ! LIT(-2) THROW DROP) com(ABORT" C" DOTICK DOABORT" COMPILE,) @@ -341,16 +341,16 @@ dfr(UNMAP-FILE) col(INCLUDED MAP-FILE 2DUP >R >R BOUNDS DO?DO(21) R> R@ SWAP >R R@ - R@ SWAP 2DUP LINEFEED FINDCHAR ?BRANCH(1) NIP DUP >R EVALUATE R> 1+ DO+LOOP(-21) R> R> UNMAP-FILE) -// 9.2.4 +/* 9.2.4 */ col(NOOP) -// 9.1 +/* 9.1 */ col($CREATE HEADER DOTICK DODOES COMPILE, DOTICK NOOP CELL+ COMPILE, REVEAL) col(CREATE PARSE-WORD $CREATE) col(DODOES> R> CELL+ LATEST @ >XCODE CELL+ !) imm(DOES> DOTICK DODOES> COMPILE,) -// 9.1 +/* 9.1 */ col(CONSTANT PARSE-WORD HEADER DOTICK DOCON COMPILE, COMPILE, REVEAL) col(VALUE PARSE-WORD HEADER DOTICK DOVAL COMPILE, COMPILE, REVEAL) col(VARIABLE PARSE-WORD HEADER DOTICK DOVAR COMPILE, 0 COMPILE, REVEAL) @@ -360,17 +360,17 @@ col(STRUCT 0) col(FIELD PARSE-WORD HEADER DOTICK DOFIELD COMPILE, OVER COMPILE, + REVEAL) -// 9.2.2 +/* 9.2.2 */ com(LITERAL DOTICK DOLIT COMPILE, COMPILE,) col(COMPILE R> CELL+ DUP @ COMPILE, >R) com([COMPILE] ' COMPILE,) com(POSTPONE PARSE-WORD $FIND 0= DOTICK UNDEFINED-STR DOABORT" IMMEDIATE? NOT ?BRANCH(6) DOTICK DOTICK COMPILE, COMPILE, DOTICK COMPILE, COMPILE,) -// 9.2.3 +/* 9.2.3 */ com(['] ' DOTICK DOTICK COMPILE, COMPILE,) col(FIND DUP COUNT $FIND ?BRANCH(9) ROT DROP TRUE SWAP IMMEDIATE? ?BRANCH(1) NEGATE EXIT FALSE EXIT) -// 9.2.4 +/* 9.2.4 */ imm(TO ' STATE? ?BRANCH(5) DOTICK DOTO COMPILE, COMPILE, EXIT CELL+ !) col(BEHAVIOR CELL+ @) col(>BODY 2 CELLS +) Index: paflof.c =================================================================== RCS file: /srv/cvs/openbios/paflof/paflof.c,v retrieving revision 1.14 diff -u -r1.14 paflof.c --- paflof.c 2002/06/16 06:51:59 1.14 +++ paflof.c 2002/06/17 14:07:34 @@ -1,17 +1,22 @@ -//#define DEBUG_STACKS - #include #include +#define __USE_XOPEN_EXTENDED #include -#include +#define __USE_MISC #include +#include #include +#define __USE_POSIX +#define __USE_POSIX199309 #include #include #include "types.h" +/* #define DEBUG_STACKS */ +/* #define HANDLE_SEGV */ + #define DATA_STACK_SIZE 1024 #define RETURN_STACK_SIZE 256 #define TIBSIZE 256 @@ -20,11 +25,11 @@ struct interpreter { - cell *restrict data_stack; - cell *restrict return_stack; - cell *restrict dictionary; - char *restrict tib; - char *restrict pockets; + cell *data_stack; + cell *return_stack; + cell *dictionary; + char *tib; + char *pockets; void *here; }; @@ -94,12 +99,12 @@ hole(); i->return_stack = data(RETURN_STACK_SIZE * CELLSIZE); hole(); - i->dictionary = data(CELLSIZE); // fake size; it'll take all it can get + i->dictionary = data(CELLSIZE); /* fake size; it'll take all it can get */ mem = (void *)(((type_n)end - 1) & -page_size); hole(); - i->tib = malloc(TIBSIZE); // this should be pure forth - i->pockets = malloc(POCKETSIZE * 2); // this should be pure forth + i->tib = malloc(TIBSIZE); /* this should be pure forth */ + i->pockets = malloc(POCKETSIZE * 2); /* this should be pure forth */ i->here = i->dictionary; return i; @@ -108,9 +113,11 @@ static void fini_engine(struct interpreter *i) { -// free(i->data_stack); -// free(i->return_stack); -// free(i->dictionary); +#if 0 + free(i->data_stack); + free(i->return_stack); + free(i->dictionary); +#endif free(i->tib); free(i->pockets); } @@ -172,9 +179,11 @@ init_terminal(); interpreter = init_engine(); - -// init_signals(); +#ifdef HANDLE_SEGV + init_signals(); +#endif + for (i = 0; i < 1; i++) run_engine(interpreter); { cell *p; for (p = interpreter->dictionary; (void *)p < interpreter->here; p++) fprintf(stderr, "%p: 0x%0*lx\n", p, (int)(2 * CELLSIZE), (long)p->n); Index: prim.code =================================================================== RCS file: /srv/cvs/openbios/paflof/prim.code,v retrieving revision 1.27 diff -u -r1.27 prim.code --- prim.code 2002/06/16 06:24:25 1.27 +++ prim.code 2002/06/17 14:07:34 @@ -26,7 +26,7 @@ - // start interpreting + /* start interpreting */ NEXT0; @@ -34,7 +34,7 @@ -// debugging stuff +/* debugging stuff */ code__X2e_STACKS: { debug_stacks(); @@ -46,7 +46,7 @@ -// temporary; should be in their own file +/* temporary; should be in their own file */ code_BYE: { return; @@ -89,13 +89,13 @@ -// for terminal input; should be a BUFFER: +/* for terminal input; should be a BUFFER: */ code_TIB: { (++dp)->a = interpreter->tib; NEXT; } -// for pockets; should be a BUFFER: +/* for pockets; should be a BUFFER: */ code_POCKETS: { (++dp)->a = interpreter->pockets; @@ -107,7 +107,7 @@ -// codefields +/* codefields */ code_DOCOL: { (++rp)->a = ip; @@ -150,7 +150,7 @@ -// literals +/* literals */ code_LIT: code_DOTICK: { @@ -176,7 +176,7 @@ -// branching +/* branching */ code_BRANCH: { type_n dis = (++ip)->n; @@ -196,7 +196,7 @@ -// 1.1 +/* 1.1 */ code_DUP: { cell x = *dp; @@ -227,7 +227,7 @@ -// 1.2 +/* 1.2 */ code_DROP: { --dp; @@ -239,7 +239,7 @@ -// 1.3 +/* 1.3 */ code_SWAP: { cell a = *(dp - 1); @@ -253,7 +253,7 @@ -// 1.4 +/* 1.4 */ code__X3e_R: { *++rp = *dp--; @@ -275,7 +275,7 @@ -// 1.5 +/* 1.5 */ code_DEPTH: { dp++; @@ -303,7 +303,7 @@ -// 2.1 +/* 2.1 */ code__X2b: { (dp - 1)->n += dp->n; @@ -334,7 +334,7 @@ -// 2.2 +/* 2.2 */ code__X3c_X3c: { (dp - 1)->u <<= dp->n; @@ -383,7 +383,7 @@ -// 2.3 +/* 2.3 */ #define d_to_stack(d, s) do { \ (s)->u = (d); \ @@ -451,7 +451,7 @@ -// 3.1 +/* 3.1 */ code__X40: { dp->u = *(type_u *)(dp->a); @@ -506,7 +506,7 @@ -// 6 +/* 6 */ code__X3c: { cell a = *--dp; @@ -548,7 +548,7 @@ -// 8.4 +/* 8.4 */ code_DODO: { cell i = *dp--; @@ -637,7 +637,7 @@ -// 8.5 +/* 8.5 */ code_EXIT: { ip = (rp--)->a; @@ -654,7 +654,7 @@ -// 9.2.1 +/* 9.2.1 */ code_HERE: { (++dp)->a = interpreter->here; Index: prim.in =================================================================== RCS file: /srv/cvs/openbios/paflof/prim.in,v retrieving revision 1.23 diff -u -r1.23 prim.in --- prim.in 2002/06/16 06:24:25 1.23 +++ prim.in 2002/06/17 14:07:34 @@ -1,29 +1,29 @@ -// debugging stuff +/* debugging stuff */ cod(.STACKS) -// temporary; should be in their own file +/* temporary; should be in their own file */ cod(BYE) cod(UNIX-KEY) cod(UNIX-EMIT) cod(UNIX-MAP-FILE) cod(UNIX-UNMAP-FILE) -// for terminal input; should be a BUFFER: +/* for terminal input; should be a BUFFER: */ cod(TIB) -// for pockets; should be a BUFFER: +/* for pockets; should be a BUFFER: */ cod(POCKETS) -// literals implementation +/* literals implementation */ cod(LIT) _ADDING _N cod(DOTICK) cod(SLITERAL) cod(DOTO) -// branching implementation +/* branching implementation */ cod(BRANCH) _ADDING _O cod(?BRANCH) _ADDING _O @@ -31,36 +31,36 @@ -// 1.1 +/* 1.1 */ cod(DUP) cod(OVER) cod(?DUP) cod(PICK) -// 1.2 +/* 1.2 */ cod(DROP) -// 1.3 +/* 1.3 */ cod(SWAP) -// 1.4 +/* 1.4 */ cod(>R) cod(R>) cod(R@) -// 1.5 +/* 1.5 */ cod(DEPTH) cod(DEPTH!) cod(RDEPTH) cod(RDEPTH!) -// 2.1 +/* 2.1 */ cod(+) cod(-) cod(*) cod(U*) -// 2.2 +/* 2.2 */ cod(<<) cod(>>) cod(>>A) @@ -70,15 +70,15 @@ cod(INVERT) cod(NOT) -// 2.3 +/* 2.3 */ cod(D+) cod(D-) cod(UM*) cod(M*) -// for building some divs +/* for building some divs */ cod(MU/MOD) -// 3.1 +/* 3.1 */ cod(@) cod(!) cod(C@) @@ -88,14 +88,14 @@ cod(L@) cod(L!) -// 6 +/* 6 */ cod(<) cod(>) cod(=) cod(U<) cod(U>) -// 8.4 +/* 8.4 */ cod(DODO) cod(DO?DO) _ADDING _O cod(DOLOOP) _ADDING _O @@ -106,10 +106,10 @@ cod(I) cod(J) -// 8.5 +/* 8.5 */ cod(EXIT) cod(EXECUTE) -// 9.2.1 +/* 9.2.1 */ cod(HERE) cod(HERE!) Index: tests.in =================================================================== RCS file: /srv/cvs/openbios/paflof/tests.in,v retrieving revision 1.12 diff -u -r1.12 tests.in --- tests.in 2002/06/16 06:24:25 1.12 +++ tests.in 2002/06/17 14:07:34 @@ -48,7 +48,7 @@ col(TEST23 SOURCE ACCEPT DUP . CR TIB SWAP TYPE CR) col(TEST23B SOURCE EXPECT SPAN @ . CR TIB SPAN @ TYPE CR) -//col(TEST24 DOTICK _A(xt_TEST24) DUP LATEST ! . CR WORDS CR) +/* col(TEST24 DOTICK _A(xt_TEST24) DUP LATEST ! . CR WORDS CR) */ col(TEST24 LATEST . CR WORDS CR) str(TEST25S1 "WOORDJE1") @@ -70,5 +70,5 @@ col(UNIXSTART DOTICK UNIX-KEY DOTO KEY DOTICK UNIX-EMIT DOTO EMIT DOTICK UNIX-MAP-FILE DOTO MAP-FILE DOTICK UNIX-UNMAP-FILE DOTO UNMAP-FILE) col(DICTSTART DOLIT _A(xt_DICTSTART) LATEST ! REVEAL) -//static cell xt_START_PAFLOF[] = { START TEST_X5f_ALL QUIT }; +/* static cell xt_START_PAFLOF[] = { START TEST_X5f_ALL QUIT }; */ static cell xt_START_PAFLOF[] = { DICTSTART UNIXSTART QUIT }; Index: types.h =================================================================== RCS file: /srv/cvs/openbios/paflof/types.h,v retrieving revision 1.1 diff -u -r1.1 types.h --- types.h 2002/06/06 16:34:12 1.1 +++ types.h 2002/06/17 14:07:34 @@ -1,21 +1,21 @@ #if 1 #include -typedef uint8_t type_c; // 1 byte -typedef uint16_t type_w; // 2 bytes -typedef uint32_t type_l; // 4 bytes -typedef intptr_t type_n; // cell size -typedef uintptr_t type_u; // cell size -typedef intmax_t type_d; // 2 * cell size -typedef uintmax_t type_du; // 2 * cell size +typedef uint8_t type_c; /* 1 byte */ +typedef uint16_t type_w; /* 2 bytes */ +typedef uint32_t type_l; /* 4 bytes */ +typedef intptr_t type_n; /* cell size */ +typedef uintptr_t type_u; /* cell size */ +typedef intmax_t type_d; /* 2 * cell size */ +typedef uintmax_t type_du; /* 2 * cell size */ #else -typedef unsigned char type_c; // 1 byte -typedef short type_w; // 2 bytes -typedef int type_l; // 4 bytes -typedef long type_n; // cell size -typedef unsigned long type_u; // cell size -typedef long long type_d; // 2 * cell size -typedef unsigned long long type_du;// 2 * cell size +typedef unsigned char type_c; /* 1 byte */ +typedef short type_w; /* 2 bytes */ +typedef int type_l; /* 4 bytes */ +typedef long type_n; /* cell size */ +typedef unsigned long type_u; /* cell size */ +typedef long long type_d; /* 2 * cell size */ +typedef unsigned long long type_du;/* 2 * cell size */ #endif #define CELLSIZE (sizeof(type_u) / sizeof(type_c))