[OpenBIOS] ANSI
Stefan Reinauer
stepan at suse.de
Mon Jun 17 18:07:08 CEST 2002
Hi,..
I played a bit with the paflof sources and made them compile
cleanly using gcc -ansi. I had to remove the C99 specific
*restricted stuff (which did not change performance at all)
Second issue was to replace C++ style comments as they are
not allowed in ANSI C. The patch changes any occurence to
either #ifdefs if it's code or C style comments in case of
real comments. I checked it against the hayes test and
got the same output as with mainstream paflof.
I strongly suggest to apply this patch - this would allow a lot
more people to use paflof and probably get this compiled on
almost any host system.
Please comment on the patch. If there is no good reason against
it, this is definitely the way to go.
Best regards,
Stefan Reinauer
--
The x86 isn't all that complex - it just doesn't make a lot of
sense. -- Mike Johnson, Leader of 80x86 Design at AMD
Microprocessor Report (1994)
-------------- next part --------------
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 <stdio.h>
#include <stdlib.h>
+#define __USE_XOPEN_EXTENDED
#include <unistd.h>
-#include <string.h>
+#define __USE_MISC
#include <sys/mman.h>
+#include <string.h>
#include <termios.h>
+#define __USE_POSIX
+#define __USE_POSIX199309
#include <signal.h>
#include <fcntl.h>
#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 <stdint.h>
-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))
More information about the openbios
mailing list