Changeset 528

Timestamp:

Feb 11, 2004, 7:16:27 PM (21 years ago)

Author:

Gary Byers

Message:

More portability stuff; still a ways to go.

File:

• trunk/ccl/lisp-kernel/macros.s (modified) (5 diffs)

trunk/ccl/lisp-kernel/macros.s

@@ -89 +89 @@
         tdllt $@
         ])
+        define([trlle],[
+        tdlle $@
+        ])
         define([treqi],[
         tdeqi $@
@@ -205 +208 @@
         ldr($1,misc_header_offset($2))])
 
+
+ifdef([PPC64],[
+define([extract_typecode],[
+        new_macro_labels()
+        extract_fulltag($1,$2)
+        cmpdi cr0,$1,fulltag_misc
+        extract_lisptag($1,$1)
+        bne cr0,macro_label(not_misc)
+        extract_subtag($1,$2)
+macro_label(not_misc):
+])],[   
 define([extract_typecode],[
         new_macro_labels()
@@ -211 +225 @@
         bne cr0,macro_label(not_misc)
         extract_subtag($1,$2)
-macro_label(not_misc):])
+macro_label(not_misc):
+])])
 
 define([box_fixnum],[
@@ -403 +418 @@
 ])
 
+ifdef([PPC64],[
+define([trap_unless_list],[
+        new_macro_labels()
+        cmpdi ifelse($3,$3,cr0),$1,nil_value
+        extract_fulltag($2,$1)
+        beq ifelse($3,$3,cr0),macro_label(is_list)
+        twnei $2,fulltag_cons
+macro_label(is_list):   
+
+])],[   
+define([trap_unless_list],[
+        trap_unless_lisptag_equal($1,tag_list,$2)
+])
+])
+
 define([trap_unless_fulltag_equal],[
         extract_fulltag($3,$1)
@@ -442 +472 @@
 define([do_funcall],[
         new_macro_labels()
-        extract_lisptag(imm0,temp0)
-        cmpri(imm0,tag_misc)
+        extract_fulltag(imm0,temp0)
+        cmpri(imm0,fulltag_misc)
         mr nfn,temp0
         bne- macro_label(bad)