From d8d3645d725a6250f237a028f2231e7fe2045c8f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 13 Oct 2008 12:49:20 -0500
Subject: [PATCH] Fixing more codegen bugs
---
basis/compiler/tree/finalization/finalization.factor | 4 ++--
basis/cpu/architecture/architecture.factor | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/basis/compiler/tree/finalization/finalization.factor b/basis/compiler/tree/finalization/finalization.factor
index c9d9f7df01..5b09cfab63 100644
--- a/basis/compiler/tree/finalization/finalization.factor
+++ b/basis/compiler/tree/finalization/finalization.factor
@@ -107,13 +107,13 @@ MEMO: <byte-array>-expansion ( n -- quot )
first-literal <byte-array>-expansion ;
MEMO: <ratio>-expansion ( -- quot )
- [ (ratio) [ 1 set-slot ] keep [ 2 set-slot ] keep ] splice-final ;
+ [ (ratio) [ 2 set-slot ] keep [ 1 set-slot ] keep ] splice-final ;
: expand-<ratio> ( #call -- nodes )
drop <ratio>-expansion ;
MEMO: <complex>-expansion ( -- quot )
- [ (complex) [ 1 set-slot ] keep [ 2 set-slot ] keep ] splice-final ;
+ [ (complex) [ 2 set-slot ] keep [ 1 set-slot ] keep ] splice-final ;
: expand-<complex> ( #call -- nodes )
drop <complex>-expansion ;
diff --git a/basis/cpu/architecture/architecture.factor b/basis/cpu/architecture/architecture.factor
index 31cd979025..1931187779 100644
--- a/basis/cpu/architecture/architecture.factor
+++ b/basis/cpu/architecture/architecture.factor
@@ -188,7 +188,7 @@ HOOK: %unbox-f cpu ( dst src -- )
HOOK: %unbox-any-c-ptr cpu ( dst src -- )
-HOOK: %box-alien cpu ( dst src temp1 temp2 -- )
+HOOK: %box-alien cpu ( dst src temp -- )
! Allocation
HOOK: %allot cpu ( dst size type tag temp -- )