--- gforth/prim	2002/12/13 15:49:53	1.104
+++ gforth/prim	2002/12/28 17:18:27	1.110
@@ -105,6 +105,7 @@
 \E 
 \E set-current
 \E store-optimization on
+\E ' noop tail-nextp2 ! \ now INST_TAIL just stores, but does not jump
 
 \ 
 \ 
@@ -817,6 +818,8 @@ lshift	( u1 n -- u2 )		core	l_shift
 :
     0 ?DO 2* LOOP ;
 
+\g compare
+
 \ comparisons(prefix, args, prefix, arg1, arg2, wordsets...)
 define(comparisons,
 $1=	( $2 -- f )		$6	$3equals
@@ -938,8 +941,6 @@ f = FLAG(u1-u2 < u3-u2);
 :
  over - >r - r> u< ;
 
-\g internal
-
 sp@	( -- a_addr )		gforth		sp_fetch
 a_addr = sp+1;
 
@@ -1090,6 +1091,8 @@ w = sp[u+1];
 
 \ toggle is high-level: 0.11/0.42%
 
+\g memory
+
 @	( a_addr -- w )		core	fetch
 ""@i{w} is the cell stored at @i{a_addr}.""
 w = *a_addr;
@@ -1211,6 +1214,8 @@ c_addr2 = c_addr1+1;
 :
  dup 1+ swap c@ ;
 
+\g compiler
+
 (f83find)	( c_addr u f83name1 -- f83name2 )	new	paren_f83find
 for (; f83name1 != NULL; f83name1 = (struct F83Name *)(f83name1->next))
   if ((UCell)F83NAME_COUNT(f83name1)==u &&
@@ -1288,7 +1293,8 @@ while(u1--)
    ASCII strings (larger if ubits is large), and should share no
    divisors with ubits.
 */
-unsigned rot = ((char []){5,0,1,2,3,4,5,5,5,5,3,5,5,5,5,7,5,5,5,5,7,5,5,5,5,6,5,5,5,5,7,5,5})[ubits];
+static char rot_values[] = {5,0,1,2,3,4,5,5,5,5,3,5,5,5,5,7,5,5,5,5,7,5,5,5,5,6,5,5,5,5,7,5,5};
+unsigned rot = rot_values[ubits];
 Char *cp = c_addr;
 for (ukey=0; cp<c_addr+u; cp++)
     ukey = ((((ukey<<rot) | (ukey>>(ubits-rot))) 
@@ -1604,19 +1610,19 @@ wior = IOR(rename(tilde_cstr(c_addr1, u1
 
 file-position	( wfileid -- ud wior )	file	file_position
 /* !! use tell and lseek? */
-ud = LONG2UD(ftell((FILE *)wfileid));
-wior = IOR(UD2LONG(ud)==-1);
+ud = OFF2UD(ftello((FILE *)wfileid));
+wior = IOR(UD2OFF(ud)==-1);
 
 reposition-file	( ud wfileid -- wior )	file	reposition_file
-wior = IOR(fseek((FILE *)wfileid, UD2LONG(ud), SEEK_SET)==-1);
+wior = IOR(fseeko((FILE *)wfileid, UD2OFF(ud), SEEK_SET)==-1);
 
 file-size	( wfileid -- ud wior )	file	file_size
 struct stat buf;
 wior = IOR(fstat(fileno((FILE *)wfileid), &buf)==-1);
-ud = LONG2UD(buf.st_size);
+ud = OFF2UD(buf.st_size);
 
 resize-file	( ud wfileid -- wior )	file	resize_file
-wior = IOR(ftruncate(fileno((FILE *)wfileid), UD2LONG(ud))==-1);
+wior = IOR(ftruncate(fileno((FILE *)wfileid), UD2OFF(ud))==-1);
 
 read-file	( c_addr u1 wfileid -- u2 wior )	file	read_file
 /* !! fread does not guarantee enough */
@@ -1808,16 +1814,9 @@ floor	( r1 -- r2 )	float
 /* !! unclear wording */
 r2 = floor(r1);
 
-(fround)	( r1 -- r2 )	gforth	paren_f_round
-""Round to the nearest integral value.  Primitive variant (unused)""
-/* !! eliminate this as primitive? */
-/* !! unclear wording */
-#ifdef HAVE_RINT
+fround	( r1 -- r2 )	gforth	f_round
+""Round to the nearest integral value.""
 r2 = rint(r1);
-#else
-r2 = floor(r1+0.5);
-/* !! This is not quite true to the rounding rules given in the standard */
-#endif
 
 fmax	( r1 r2 -- r3 )	float	f_max
 if (r1<r2)
@@ -2028,6 +2027,8 @@ df_addr = (DFloat *)((((Cell)c_addr)+(si
 \+
 \+glocals
 
+\g locals
+
 @local#	( #noffset -- w )	gforth	fetch_local_number
 w = *(Cell *)(lp+noffset);
 
@@ -2099,6 +2100,8 @@ r = fp[u+1]; /* +1, because update of fp
 
 \+OS
 
+\g syslib
+
 define(`uploop',
        `pushdef(`$1', `$2')_uploop(`$1', `$2', `$3', `$4', `$5')`'popdef(`$1')')
 define(`_uploop',
@@ -2435,7 +2438,7 @@ SET_IP((Xt *)a_callee);
 useraddr	( #u -- a_addr )	new
 a_addr = (Cell *)(up+u);
 
-compile-prim ( xt1 -- xt2 )	new	compile_prim
+compile-prim ( xt1 -- xt2 )	obsolete	compile_prim
 xt2 = (Xt)compile_prim((Label)xt1);
 
 \ lit@ / lit_fetch = lit @
@@ -2776,8 +2779,8 @@ finish-code ( -- ) gforth finish_code
 flushing).""
 finish_code();
 
-forget-dyncode ( a_code -- f ) gforth-internal forget_dyncode
-f = forget_dyncode(a_code);
+forget-dyncode ( c_code -- f ) gforth-internal forget_dyncode
+f = forget_dyncode(c_code);
 
 decompile-prim ( a_code -- a_prim ) gforth-internal decompile_prim
 ""a_prim is the code address of the primitive that has been
@@ -2788,4 +2791,6 @@ a_prim = decompile_code(a_code);
 
 include(peeprules.vmg)
 
+\g end
+
 \+