From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 20 Oct 2018 03:18:08 +0000 (-0700)
Subject: Fix bug in LIARC code generator.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~205
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0e9b1cfb05d32ba52d0a19c636b2bcc9932c6f82;p=mit-scheme.git

Fix bug in LIARC code generator.
---

diff --git a/src/compiler/machines/C/rules1.scm b/src/compiler/machines/C/rules1.scm
index 03ab277f7..a8d40da61 100644
--- a/src/compiler/machines/C/rules1.scm
+++ b/src/compiler/machines/C/rules1.scm
@@ -53,7 +53,7 @@ USA.
 (define-rule statement
   (ASSIGN (REGISTER (? target))
 	  (CONS-NON-POINTER (REGISTER (? type)) (REGISTER (? datum))))
-  (let* ((datum (standard-source! datum 'SCHEME_OBJECT*))
+  (let* ((datum (standard-source! datum 'ULONG))
 	 (type (standard-source! type 'ULONG))
 	 (target (standard-target! target 'SCHEME_OBJECT)))
     (LAP ,(c:= target (c:make-object type datum)))))