Changeset 10428

Timestamp:

08/03/04 00:12:28 (4 years ago)

Author:

rtoy

Message:

Fix bug where things like (truncate x 0) were getting converted into a
left shift of 1 because deftransforms were not checking for the case
of a 0 arg.

Files:

• trunk/src/compiler/aliencomp.lisp (modified) (2 diffs)

trunk/src/compiler/aliencomp.lisp

@@ -366 +366 @@
       (abort-transform "Unknown size: ~S" (unparse-alien-type alien-type)))
     (if (local-alien-info-force-to-memory-p info)
-        (if (backend-featurep :x86)
+        (if (or (backend-featurep :x86) (backend-featurep :amd64))
             `(truly-the system-area-pointer
                         (%primitive alloc-alien-stack-space
@@ -447 +447 @@
          (alien-type (local-alien-info-type info)))
     (if (local-alien-info-force-to-memory-p info)
-        (if (backend-featurep :x86)
+        (if (or (backend-featurep :x86) (backend-featurep :amd64))
             `(%primitive dealloc-alien-stack-space
                          ,(ceiling (alien-type-bits alien-type)