version 1.177, 2011/11/11 18:29:09
|
version 1.178, 2011/11/11 18:39:37
|
Line 2968 DO: abort" Not in cross mode" ;DO
|
Line 2968 DO: abort" Not in cross mode" ;DO
|
|
|
\ Mini-OOF |
\ Mini-OOF |
|
|
\ Builder method |
Builder method |
\ Build: ( m v -- m' v ) over T , swap cell+ swap H ;Build |
Build: ( m v -- m' v ) over T , swap cell+ swap H ;Build |
\ DO: abort" Not in cross mode" ;DO |
DO: abort" Not in cross mode" ;DO |
|
|
\ Builder var |
Builder var |
\ Build: ( m v size -- m v+size ) over T , H + ;Build |
Build: ( m v size -- m v+size ) over T , H + ;Build |
\ DO: ( o -- addr ) T @ H + ;DO |
DO: ( o -- addr ) T @ H + ;DO |
|
|
\ Builder end-class |
Builder end-class |
\ Build: ( addr m v -- ) |
Build: ( addr m v -- ) |
\ T here >r , dup , 2 cells H ?DO T ['] noop , 1 cells H +LOOP |
T here >r , dup , 2 cells H ?DO T ['] noop , 1 cells H +LOOP |
\ T cell+ dup cell+ r> rot @ 2 cells /string move H ;Build |
T cell+ dup cell+ r> rot @ 2 cells /string move H ;Build |
\ by: Variable |
by Create |
|
|
\ : defines ( xt class -- ) T ' >body @ + ! H ; |
: class ( class -- class methods vars ) dup T 2@ H ; |
|
: defines ( xt class -- ) T ' >body @ + ! H ; |
|
|
\ Peephole optimization 05sep01jaw |
\ Peephole optimization 05sep01jaw |
|
|