collapseos/265 at 6b07296d302e214c9da7c8b4f8c5dac20f24c9de - collapseos - SKS Gitea

izaya/collapseos

mirror of https://github.com/hsoft/collapseos.git synced 2024-11-14 14:48:08 +11:00

Virgil Dupras 3d2dc041fb Make word routines into word types

Instead of having wordref point to core word routines, I made them
into word 4 word types. It liberates space into the stable ABI and
should make porting to other arches easier.

I'm also thinking of combining word type with the namelen field
for precious bytes saving, but not now...

2020-06-17 21:41:01 -04:00

17 lines

328 B

Plaintext

Raw Blame History

 : X:
     (xentry) 1 ( compiled ) C,
     BEGIN WORD
     XCURRENT @ SWAP ( xcur w ) _find ( a f )
     IF   ( a )
         DUP IMMED? IF ABORT THEN
         _xapply ,
     ELSE ( w )
 x02 RAM+ @ SWAP ( cur w ) _find ( a f )
         IF DUP IMMED? NOT IF ABORT THEN EXECUTE
         ELSE (parse) LITN THEN
     THEN
     AGAIN
 ;