--- gforth/prim	2003/01/08 10:45:39	1.118
+++ gforth/prim	2003/01/25 13:44:54	1.124
@@ -1404,13 +1404,6 @@ while(a_addr != NULL)
 	rdrop r>
  REPEAT nip nip ;
 
-(hashkey)	( c_addr u1 -- u2 )		gforth	paren_hashkey
-u2=0;
-while(u1--)
-   u2+=(Cell)toupper(*c_addr++);
-:
- 0 -rot bounds ?DO  I c@ toupper +  LOOP ;
-
 (hashkey1)	( c_addr u ubits -- ukey )		gforth	paren_hashkey1
 ""ukey is the hash key for the string c_addr u fitting in ubits bits""
 /* this hash function rotates the key at every step by rot bits within
@@ -1475,13 +1468,6 @@ f_addr = (Float *)((((Cell)c_addr)+(size
 
 \ threading stuff is currently only interesting if we have a compiler
 \fhas? standardthreading has? compiler and [IF]
-does-handler!	( a_addr -- )	gforth	does_handler_store
-""Create a @code{DOES>}-handler at address @i{a-addr}. Normally,
-@i{a-addr} points just behind a @code{DOES>}.""
-MAKE_DOES_HANDLER(a_addr);
-:
-    drop ;
-
 threading-method	( -- n )	gforth	threading_method
 ""0 if the engine is direct threaded. Note that this may change during
 the lifetime of an image.""
@@ -2018,13 +2004,18 @@ else
 
 represent	( r c_addr u -- n f1 f2 )	float
 char *sig;
+size_t siglen;
 int flag;
 int decpt;
 sig=ecvt(r, u, &decpt, &flag);
-n=(r==0 ? 1 : decpt);
+n=(r==0. ? 1 : decpt);
 f1=FLAG(flag!=0);
 f2=FLAG(isdigit((unsigned)(sig[0]))!=0);
-memmove(c_addr,sig,u);
+siglen=strlen(sig);
+if (siglen>u) /* happens in glibc-2.1.3 if 999.. is rounded up */
+  siglen=u;
+memcpy(c_addr,sig,siglen);
+memset(c_addr+siglen,f2?'0':' ',u-siglen);
 
 >float	( c_addr u -- flag )	float	to_float
 ""Actual stack effect: ( c_addr u -- r t | f ).  Attempt to convert the
@@ -2393,24 +2384,22 @@ IF_fpTOS(fpTOS=fp[0]);
 
 \g peephole
 
-primtable	( -- wprimtable )	new
-""wprimtable is a table containing the xts of the primitives indexed
-by sequence-number in prim (for use in prepare-peephole-table).""
-wprimtable = (Cell)primtable(symbols+DOESJUMP+1,MAX_SYMBOLS-DOESJUMP-1);
-
-prepare-peephole-table	( wprimtable -- wpeeptable ) new prepare_peephole_opt
-""wpeeptable is a data structure used by @code{peephole-opt}; it is
-constructed by combining a primitives table with a simple peephole
-optimization table.""
-wpeeptable = prepare_peephole_table((Xt *)wprimtable);
-
-peephole-opt	( xt1 xt2 wpeeptable -- xt )	new	peephole_opt
-""xt is the combination of xt1 and xt2 (according to wpeeptable); if
-they cannot be combined, xt is 0.""
-xt = peephole_opt(xt1, xt2, wpeeptable);
+compile-prim1 ( a_prim -- ) gforth compile_prim1
+""compile prim (incl. immargs) at @var{a_prim}""
+compile_prim1(a_prim);
 
-compile-prim ( xt1 -- xt2 )	obsolete	compile_prim
-xt2 = (Xt)compile_prim((Label)xt1);
+finish-code ( -- ) gforth finish_code
+""Perform delayed steps in code generation (branch resolution, I-cache
+flushing).""
+finish_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
+compile_prim1ed to a_code""
+a_prim = (Cell *)decompile_code((Label)a_code);
 
 \ set-next-code and call2 do not appear in images and can be
 \ renumbered arbitrarily
@@ -2429,23 +2418,6 @@ JUMP(a_callee);
 assert(0);
 #endif
 
-compile-prim1 ( a_prim -- ) gforth compile_prim1
-""compile prim (incl. immargs) at @var{a_prim}""
-compile_prim1(a_prim);
-
-finish-code ( -- ) gforth finish_code
-""Perform delayed steps in code generation (branch resolution, I-cache
-flushing).""
-finish_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
-compile_prim1ed to a_code""
-a_prim = (Label)decompile_code((Label)a_code);
-
 \+
 
 include(peeprules.vmg)