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

fixes

cvs
Slava Pestov 2005-09-12 01:57:21 +00:00
parent 5953497dae
commit b856b6294b
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -391,7 +391,7 @@ M: cpu write-port ( value port cpu -- )
: instruction-cycles ( -- vector )
#! Return a 256 element vector containing the cycles for
#! each opcode in the 8080 instruction set.
{
@{
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f
@ -399,12 +399,12 @@ M: cpu write-port ( value port cpu -- )
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f } ;
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f }@ ;
: instructions ( -- vector )
#! Return a 256 element vector containing the emulation words for
#! each opcode in the 8080 instruction set.
{
@{
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f
@ -412,7 +412,7 @@ M: cpu write-port ( value port cpu -- )
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f } ; inline
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f }@ ; inline
M: cpu reset ( cpu -- )
#! Reset the CPU to its poweron state

6
library/unix/io.factor
View File

@ -1,9 +1,9 @@
! Copyright (C) 2004, 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license.
IN: io-internals
USING: alien compiler-backend errors generic hashtables io
kernel kernel-internals lists math parser sequences
sequences-internals strings threads unix-internals vectors ;
USING: alien arrays compiler-backend errors generic hashtables
io kernel kernel-internals lists math parser sequences
strings threads unix-internals vectors ;
! We want namespaces::bind to shadow the bind system call from
! unix-internals