steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

More stack effect fixes

release
slava 2006-09-04 01:10:43 +00:00
parent beca3e6ccd
commit 7ea2e9c591
2 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
TODO.FACTOR.txt
View File

@ -1,11 +1,6 @@
+ 0.84:
- signal 4 on datastack underflow on mac intel??
========================================================================
+ 0.85: + 0.85:
- signal 4 on datastack underflow on mac intel??
- why is a 'null' type inferred for the output of foo in - why is a 'null' type inferred for the output of foo in
: foo f ; : foo f ;
: bar foo 4 4 = and ; : bar foo 4 4 = and ;

6
contrib/space-invaders/cpu-8080.factor
View File

@ -1353,7 +1353,7 @@ SYMBOL: last-opcode
: opcode ( -- ) : opcode ( -- )
#! Set the opcode number for the last instruction that was defined. #! Set the opcode number for the last instruction that was defined.
last-instruction global hash unit scan 16 base> ( [word] opcode -- ) last-instruction global hash unit scan 16 base>
dup last-opcode global set-hash instructions set-nth ; parsing dup last-opcode global set-hash instructions set-nth ; parsing
INSTRUCTION: NOP ; opcode 00 cycles 04 INSTRUCTION: NOP ; opcode 00 cycles 04
@ -1613,8 +1613,8 @@ INSTRUCTION: RST 38H ; opcode FF cycles 11
"P3" print "P3" print
"256 224" print "256 224" print
"1" print "1" print
224 [ ( cpu h -- h ) 224 [
32 [ ( cpu h w -- w ) 32 [
over 32 * over + HEX: 2400 + ! cpu h w addr over 32 * over + HEX: 2400 + ! cpu h w addr
>r pick r> swap cpu-ram nth [ >r pick r> swap cpu-ram nth [
0 = [ 0 = [