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

space-invaders: fix incorrect stack effects

darcs
chris.double 2006-10-08 11:09:50 +00:00
parent 705b9b69f2
commit 0c3a25fd4d
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -465,7 +465,7 @@ M: cpu reset ( cpu -- )
[ HEX: 10 swap set-cpu-last-interrupt ] keep
0 swap set-cpu-cycles ;
C: cpu ( cpu -- cpu )
C: cpu ( -- cpu )
[ reset ] keep ;
: (load-rom) ( n ram -- )
@ -573,7 +573,7 @@ C: cpu ( cpu -- cpu )
: test-n ( n -- )
test-cpu swap [ test-step ] times ;
: run-n ( cpu n -- )
: run-n ( cpu n -- cpu )
[ dup step ] times ;
: register-lookup ( string -- vector )

2
contrib/space-invaders/space-invaders.factor
View File

@ -59,7 +59,7 @@ TUPLE: space-invaders port1 port2i port2o port3o port4lo port4hi port5o bitmap ;
[ [ 1 + ] dip uchar-nth ] 2keep
[ 2 + ] dip uchar-nth 3array ;
C: space-invaders ( cpu -- cpu )
C: space-invaders ( -- cpu )
[ <cpu> swap set-delegate ] keep
[ make-opengl-bitmap swap set-space-invaders-bitmap ] keep
[ reset ] keep ;