version 1.36, 1998/10/10 10:28:34
|
version 1.37, 1998/10/14 22:23:12
|
Line 129 require float.fs
|
Line 129 require float.fs
|
slowvoc @ |
slowvoc @ |
slowvoc on \ we want a linked list for the vocabulary locals |
slowvoc on \ we want a linked list for the vocabulary locals |
vocabulary locals \ this contains the local variables |
vocabulary locals \ this contains the local variables |
' locals >body ' locals-list >body ! |
' locals >body wordlist-id ' locals-list >body ! |
slowvoc ! |
slowvoc ! |
|
|
create locals-buffer 1000 allot \ !! limited and unsafe |
create locals-buffer 1000 allot \ !! limited and unsafe |
Line 195 variable locals-dp \ so here's the speci
|
Line 195 variable locals-dp \ so here's the speci
|
faligned nip ; |
faligned nip ; |
|
|
: set-locals-size-list ( list -- ) |
: set-locals-size-list ( list -- ) |
dup locals-list wordlist-id ! |
dup locals-list ! |
list-size locals-size ! ; |
list-size locals-size ! ; |
|
|
: check-begin ( list -- ) |
: check-begin ( list -- ) |
\ warn if list is not a sublist of locals-list |
\ warn if list is not a sublist of locals-list |
locals-list wordlist-id @ sub-list? 0= if |
locals-list @ sub-list? 0= if |
\ !! print current position |
\ !! print current position |
." compiler was overly optimistic about locals at a BEGIN" cr |
." compiler was overly optimistic about locals at a BEGIN" cr |
\ !! print assumption and reality |
\ !! print assumption and reality |
Line 356 locals-types definitions
|
Line 356 locals-types definitions
|
locals-size @ alignlp-f locals-size ! \ the strictest alignment |
locals-size @ alignlp-f locals-size ! \ the strictest alignment |
previous previous |
previous previous |
set-current lastcfa ! |
set-current lastcfa ! |
locals-list TO locals-wordlist ; |
locals-list 0 wordlist-id - TO locals-wordlist ; |
|
|
: -- ( addr wid 0 ... -- ) \ gforth dash-dash |
: -- ( addr wid 0 ... -- ) \ gforth dash-dash |
} |
} |
Line 460 forth definitions
|
Line 460 forth definitions
|
cs-push-part scopestart ; immediate |
cs-push-part scopestart ; immediate |
|
|
: adjust-locals-list ( wid -- ) |
: adjust-locals-list ( wid -- ) |
locals-list wordlist-id @ common-list |
locals-list @ common-list |
dup list-size adjust-locals-size |
dup list-size adjust-locals-size |
locals-list wordlist-id ! ; |
locals-list ! ; |
|
|
: endscope ( compilation scope -- ; run-time -- ) \ gforth |
: endscope ( compilation scope -- ; run-time -- ) \ gforth |
scope? |
scope? |
Line 477 forth definitions
|
Line 477 forth definitions
|
clear-leave-stack |
clear-leave-stack |
0 locals-size ! |
0 locals-size ! |
locals-buffer locals-dp ! |
locals-buffer locals-dp ! |
0 locals-list wordlist-id ! |
0 locals-list ! |
dead-code off |
dead-code off |
defstart ; |
defstart ; |
|
|