gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

version 1.44, 2002/11/24 13:54:02	version 1.45, 2002/12/03 10:47:50
Line 381 is basic-block-end	Line 381 is basic-block-end
\ \ Strings 22feb93py	\ \ Strings 22feb93py

: S, ( addr u -- )	: S, ( addr u -- )
	\ allot string as counted string
here over char+ allot place align ;	here over char+ allot place align ;

	: mem, ( addr u -- )
	\ allot the memory block HERE (do alignment yourself)
	here over allot swap move ;

: ," ( "string"<"> -- )	: ," ( "string"<"> -- )
[char] " parse s, ;	[char] " parse s, ;