Return to blocks.fs CVS log | Up to [gforth] / gforth |
version 1.42, 2003/10/30 14:18:41 | version 1.45, 2006/10/11 19:18:51 |
---|---|
Line 64 User block-offset ( -- addr ) \ gforth | Line 64 User block-offset ( -- addr ) \ gforth |
buffer-struct buffers * %alloc dup block-buffers ! ( addr ) | buffer-struct buffers * %alloc dup block-buffers ! ( addr ) |
buffer-struct %size buffers * erase ; | buffer-struct %size buffers * erase ; |
' block-cold INIT8 chained | :noname ( -- ) |
defers 'cold | |
block-cold | |
; is 'cold | |
block-cold | block-cold |