gforth/kernel/quotes.fs - diff

Return to quotes.fs CVS log

Up to [gforth] / gforth / kernel

version 1.6, 2002/11/24 13:54:02	version 1.7, 2002/12/03 10:47:50
Line 23	Line 23
require ./vars.fs	require ./vars.fs

: CLiteral ( Compilation c-addr1 u ; run-time -- c-addr )	: CLiteral ( Compilation c-addr1 u ; run-time -- c-addr )
here 4 cells + postpone literal	2>r postpone ahead here 2r> s, >r postpone then
2>r postpone ahead 2r> s, postpone then ; immediate restrict	r> postpone literal ; immediate restrict

: SLiteral ( Compilation c-addr1 u ; run-time -- c-addr2 u ) \ string	: SLiteral ( Compilation c-addr1 u ; run-time -- c-addr2 u ) \ string
\G Compilation: compile the string specified by @i{c-addr1},	\G Compilation: compile the string specified by @i{c-addr1},
\G @i{u} into the current definition. Run-time: return	\G @i{u} into the current definition. Run-time: return
\G @i{c-addr2 u} describing the address and length of the	\G @i{c-addr2 u} describing the address and length of the
\G string.	\G string.
\ !! limited to 255 chars	tuck 2>r postpone ahead here 2r> chars mem, align >r postpone then
postpone cliteral postpone count ; immediate restrict	r> postpone literal postpone literal ; immediate restrict

\ \ abort" 22feb93py	\ \ abort" 22feb93py