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

Fix 64-bit port

db4
Slava Pestov 2008-02-09 23:13:55 -08:00
parent b02f42e0d3
commit 4231bdb558
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/cpu/x86/64/64.factor
View File

@ -4,7 +4,8 @@ USING: alien.c-types arrays cpu.x86.assembler
cpu.x86.architecture cpu.x86.intrinsics cpu.x86.sse2 cpu.x86.architecture cpu.x86.intrinsics cpu.x86.sse2
cpu.x86.allot cpu.architecture kernel kernel.private math cpu.x86.allot cpu.architecture kernel kernel.private math
namespaces sequences generator.registers generator.fixup system namespaces sequences generator.registers generator.fixup system
alien alien.compiler alien.structs slots splitting assocs ; alien alien.accessors alien.compiler alien.structs slots
splitting assocs ;
IN: cpu.x86.64 IN: cpu.x86.64
PREDICATE: x86-backend amd64-backend PREDICATE: x86-backend amd64-backend

2
core/cpu/x86/architecture/architecture.factor
View File

@ -96,7 +96,7 @@ M: x86-backend %dispatch ( -- )
"n" operand "offset" operand ADD "n" operand "offset" operand ADD
"n" operand HEX: 7f [+] JMP "n" operand HEX: 7f [+] JMP
! Fix up the displacement above ! Fix up the displacement above
code-alignment dup bootstrap-cell 8 = 14 9 ? + code-alignment dup bootstrap-cell 8 = 15 9 ? +
building get dup pop* push building get dup pop* push
align-code align-code
] H{ ] H{