gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.50, 2001/12/29 20:40:49	version 1.51, 2002/01/02 15:15:53
Line 126 int gforth_memcmp(const char * s1, const	Line 126 int gforth_memcmp(const char * s1, const
* If the word =CF(DODOES), it's a DOES> CFA	* If the word =CF(DODOES), it's a DOES> CFA
* If the word =CF(DOESJUMP), it's a DOES JUMP (2 Cells after DOES>,	* If the word =CF(DOESJUMP), it's a DOES JUMP (2 Cells after DOES>,
* possibly containing a jump to dodoes)	* possibly containing a jump to dodoes)
* If the word is <CF(DOESJUMP), it's a primitive	* If the word is <CF(DOESJUMP) and bit 14 is set, it's the xt of a primitive
	* If the word is <CF(DOESJUMP) and bit 14 is clear,
	* it's the threaded code of a primitive
*/	*/

void relocate(Cell image, const char bitstring,	void relocate(Cell image, const char bitstring,
Line 175 void relocate(Cell image, const char b	Line 177 void relocate(Cell image, const char b
default :	default :
/* printf("Code field generation image[%x]:=CA(%x)\n",	/* printf("Code field generation image[%x]:=CA(%x)\n",
i, CF(image[i])); */	i, CF(image[i])); */
	token \|= 0x4000; /* only meaningful for hybrid engines */
if (CF(token)<max_symbols)	if (CF(token)<max_symbols)
image[i]=(Cell)CA(CF(token));	image[i]=(Cell)CA(CF(token));
else	else