6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-12-26 01:29:49 +00:00
Code Issues Projects Releases Wiki Activity

tmpheap: Rename ?heapmovetx to ?headmove-xt and tmpclear to tmp-clear

Browse Source 
as agreed with cstrotm
This commit is contained in:
Philip Zembrod 2021-04-06 22:32:04 +02:00
parent 972d78c986
commit 47abb48e9d
4 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
6502/C64/src/notmpheap.fth
View File

@ -8,4 +8,4 @@
' |on alias ||on
' |off alias ||off
' noop alias tmpclear
' noop alias tmp-clear

10
6502/C64/src/tmpheap.fth
View File

@ -31,11 +31,11 @@ reset-tmp-heap
tmpheap> @ over - ;
| : tmp-heapmove1x ( from size -- from offset )
tmp-heapmove ?heapmovetx off ;
tmp-heapmove ?headmove-xt off ;
: || ['] tmp-heapmove1x ?heapmovetx ! ;
: ||on ['] tmp-heapmove ?heapmovetx ! ;
: ||off ?heapmovetx off ;
: || ['] tmp-heapmove1x ?headmove-xt ! ;
: ||on ['] tmp-heapmove ?headmove-xt ! ;
: ||off ?headmove-xt off ;
| : remove-tmp-words-in-voc ( voc -- )
@ -51,7 +51,7 @@ reset-tmp-heap
voc-link BEGIN @ ?dup
WHILE dup 4 - remove-tmp-words-in-voc REPEAT ;
: tmpclear ( -- )
: tmp-clear ( -- )
remove-tmp-words
\ Uncomment the following line to help determine the ideal tmpheap
\ size for your project.

16
6502/C64/src/vf-cbm-core.fth
View File

@ -1650,7 +1650,7 @@ Label docreate
\ *** Block No. 76, Hexblock 4c
4c fthpage
\ warning ?heapmovetx | |on |off Create
\ warning ?headmove-xt | |on |off Create
Variable warning 0 warning !
@ -1660,18 +1660,18 @@ Variable warning 0 warning !
IF space last @ .name ." exists " ?cr
THEN ;
Variable ?heapmovetx 0 ?heapmovetx !
Variable ?headmove-xt 0 ?headmove-xt !
| : heapmove ( from size -- offset )
over >r dup hallot ( from size ) heap swap cmove ( )
heap r> - ;
| : heapmove1x ( from size -- offset )
heapmove ?heapmovetx off ;
heapmove ?headmove-xt off ;
: | ['] heapmove1x ?heapmovetx ! ;
: |on ['] heapmove ?heapmovetx ! ;
: |off ?heapmovetx off ;
: | ['] heapmove1x ?headmove-xt ! ;
: |on ['] heapmove ?headmove-xt ! ;
: |off ?headmove-xt off ;
: Create
here
@ -1679,10 +1679,10 @@ Variable ?heapmovetx 0 ?heapmovetx !
name c@
dup 1 $20 uwithin not Abort" invalid name"
here last ! 1+ allot exists?
?heapmovetx @
?headmove-xt @
IF dup 6502-align/1 , \ Pointer to code
dup here over -
?heapmovetx perform last +!
?headmove-xt perform last +!
$20 flag! 6502-align/1 dp !
ELSE 6502-align/2 drop
THEN reveal 0 ,

10
6502/C64/src/x16tmpheap.fth
View File

@ -29,11 +29,11 @@ User ]tmpheap
tmpheap> @ over - ;
| : tmp-heapmove1x ( from size -- from offset )
tmp-heapmove ?heapmovetx off ;
tmp-heapmove ?headmove-xt off ;
: || ['] tmp-heapmove1x ?heapmovetx ! ;
: ||on ['] tmp-heapmove ?heapmovetx ! ;
: ||off ?heapmovetx off ;
: || ['] tmp-heapmove1x ?headmove-xt ! ;
: ||on ['] tmp-heapmove ?headmove-xt ! ;
: ||off ?headmove-xt off ;
| : remove-tmp-words-in-voc ( voc -- )
@ -49,7 +49,7 @@ User ]tmpheap
voc-link BEGIN @ ?dup
WHILE dup 4 - remove-tmp-words-in-voc REPEAT ;
: tmpclear ( -- )
: tmp-clear ( -- )
remove-tmp-words
\ Uncomment the following line to help determine the ideal tmpheap
\ size for your project.