Changeset 159

Timestamp:

Dec 31, 2003, 3:01:06 AM (21 years ago)

Author:

Gary Byers

Message:

MACPTR->STACK zeroes domain, type fields.

File:

• trunk/ccl/compiler/PPC/ppc-vinsns.lisp (modified) (2 diffs)

trunk/ccl/compiler/PPC/ppc-vinsns.lisp

@@ -2243 +2243 @@
   (mr dest ppc32::allocptr)
   (clrrwi ppc32::allocptr ppc32::allocptr ppc32::ntagbits)
+  ;; It's not necessary to zero out the domain/type fields, since newly
+  ;; heap-allocated memory's guaranteed to be 0-filled.
   (stw address ppc32::macptr.address dest))
 
@@ -2253 +2255 @@
   (stw header (+ 8 ppc32::fulltag-misc ppc32::macptr.header) ppc32::tsp)
   (stw address (+ 8 ppc32::fulltag-misc ppc32::macptr.address) ppc32::tsp)
+  ;; It -is- necessary to zero out the domain/type fields here, since
+  ;; stack-allocated memory isn't guaranteed to be 0-filled.
+  (stfd ppc32::fp-zero (+ 8 ppc32::fulltag-misc ppc32::macptr.domain) ppc32::tsp)
   (la dest (+ 8 ppc32::fulltag-misc) ppc32::tsp))