From 375d9813fbe56ccda5258df7ccf52af5fc59e62b Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 18 Oct 2011 19:15:09 -0700 Subject: [PATCH] cpu.8080: fix stack effects. --- extra/cpu/8080/emulator/emulator.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/cpu/8080/emulator/emulator.factor b/extra/cpu/8080/emulator/emulator.factor index 6207b51d8c..f828486690 100644 --- a/extra/cpu/8080/emulator/emulator.factor +++ b/extra/cpu/8080/emulator/emulator.factor @@ -1395,11 +1395,11 @@ SYMBOL: last-opcode SYNTAX: INSTRUCTION: ";" parse-tokens parse-instructions ; -SYNTAX: cycles +SYNTAX: cycles #! Set the number of cycles for the last instruction that was defined. scan-token string>number last-opcode get-global instruction-cycles set-nth ; -SYNTAX: opcode ( -- ) +SYNTAX: opcode #! Set the opcode number for the last instruction that was defined. last-instruction get-global 1quotation scan-token hex> dup last-opcode set-global set-instruction ;