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, ; |
|
|