Changeset 170

Timestamp:

Jan 3, 2004, 2:49:52 AM (21 years ago)

Author:

Gary Byers

Message:

Zero the domain/type fields when making a stack-block.

File:

• trunk/ccl/lisp-kernel/spentry.s (modified) (2 diffs)

trunk/ccl/lisp-kernel/spentry.s

@@ -1835 +1835 @@
         __(str(imm0,tsp_frame.data_offset(tsp)))
         __(la arg_z,tsp_frame.data_offset+fulltag_misc(tsp))
-        __(str(imm1,macptr.address(arg_z))) 
+        __(str(imm1,macptr.address(arg_z)))
+        __(stfd fp_zero,macptr.domain(arg_z))
         __(blr)
 
@@ -1858 +1859 @@
         __(la arg_z,tsp_frame.data_offset+fulltag_misc(tsp))
         __(str(imm1,macptr.address(arg_z))) /* makestackblock0 expects the address to be in imm1 */
+        __(stfd fp_zero,macptr.domain(arg_z))
         __(blr)