Miroirs/fcl
1
0
Fork 0
mirror of https://github.com/zeroflag/fcl.git synced 2025-01-11 20:01:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

temp lookup words are no longer inlined but compiled to a temp scratch area

Browse source
This commit is contained in:
zeroflag 2021-07-04 21:09:47 +02:00
parent 36449eff35
commit feeec2952c
2 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/main/java/com/vectron/fcl/Fcl.java
View file

@ -384,6 +384,7 @@ public class Fcl {
addPrimitive("false", () -> stack.push(Bool.FALSE));
addPrimitive("nil", () -> stack.push(Nil.INSTANCE));
addPrimitive("here", () -> stack.push(new Num(dp)));
addPrimitive("dp!", () -> dp = stack.pop().intValue() );
addPrimitive("interpret", () -> mode = Mode.INTERPRET);
addPrimitive("trace", () -> trace = stack.pop().boolValue());
addPrimitive("lit", () -> stack.push((Obj)heap[ip++]));

13
src/main/res/raw/locals.forth
View file

@ -17,12 +17,17 @@ var: psp ( top of the parameter stack, each allocation ad
var: qpsp ( parameter stack pointer used by quotations )
var: frame.allocated ( compile time variable for checking if a frame was already allocated )
var: q.count ( compile time counter for quotations, nested into each other )
var: ldp
6 val: look-word-size ( compiled size of one lookup word )
8 val: max#loc ( maximum number of local variables per word )
1024 val: ps.size ( max pstack size )
ps.size allot val: pstack ( parameter stack for storing the locals )
max#loc allot val: names ( names of the local variables )
max#loc look-word-size *
allot val: scratch ( scratch area for compiling temporary lookup words )
0 q.count !
false frame.allocated !
@ -68,19 +73,23 @@ false frame.allocated !
frame.allocated @ not if ( is this the first local? )
true frame.allocated !
['] frame.alloc , ( alloc new stack frame for max#loc )
scratch ldp !
then
(frame.top)
['] lit , #loc @ , ( local index )
['] - , ['] ! , ( move local to from data stack to the stack frame )
['] jmp , (dummy) ( bypass the lookup word )
here ( save this dp and restore it after the lookup word is compiled to the scratch area )
word dup >names ( store lookup word name )
ldp @ dp! ( set dp to scratch area )
create postpone: immediate ( compile immediate lookup word )
['] lit , swap , ( type 1=val 0=var )
['] lit , #loc @ , ( local index within the frame )
['] lookup ,
['] exit ,
here ldp @ - look-word-size != if 'Invalid lookup word size' abort then
#loc inc
resolve ;
here ldp !
dp! ;
: -> immediate 1 local ;
: => immediate 0 local ;