gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

-version 1.43, 2002/09/14 08:20:21
+version 1.44, 2002/11/24 13:54:02
  Line 380  is basic-block-end
  \ \ Strings                                                     22feb93py
- : ," ( "string"<"> -- ) [char] " parse
+ : S, ( addr u -- )
-   here over char+ allot  place align ;
+     here over char+ allot  place align ;
- : SLiteral ( Compilation c-addr1 u ; run-time -- c-addr2 u ) \ string
+ : ," ( "string"<"> -- )
-     \G Compilation: compile the string specified by @i{c-addr1},
+     [char] " parse s, ;
-     \G @i{u} into the current definition. Run-time: return
-     \G @i{c-addr2 u} describing the address and length of the
-     \G string.
-     postpone (S") here over char+ allot  place align ;
-                                              immediate restrict
- \ \ abort"                                                      22feb93py
- : abort" ( compilation 'ccc"' -- ; run-time f -- ) \ core,exception-ext abort-quote
-     \G If any bit of @i{f} is non-zero, perform the function of @code{-2 throw},
-     \G displaying the string @i{ccc} if there is no exception frame on the
-     \G exception stack.
-     postpone (abort") ," ;        immediate restrict
  \ \ Header states                                               23feb93py