[Openmcl-devel] Patch: ALLOC-LAP-OPERAND-VECTOR

James Bielman jamesjb at jamesjb.com
Mon Jul 11 09:33:48 UTC 2005


I needed more than 5 parsed LAP operands for ARM to handle various
special/fake operands (the condition code, shifter values, etc).

I looked around some to make sure nothing else depends on this 5
and didn't see anything...

Index: risc-lap.lisp
===================================================================
RCS file: /usr/local/tmpcvs/ccl-0.14-dev/ccl/compiler/risc-lap.lisp,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 risc-lap.lisp
--- risc-lap.lisp	19 Oct 2003 08:57:09 -0000	1.1.1.1
+++ risc-lap.lisp	11 Jul 2005 09:17:24 -0000
@@ -53,7 +53,7 @@
 
 (def-standard-initial-binding *operand-vector-freelist* (%cons-pool))
 
-(defun alloc-lap-operand-vector ()
+(defun alloc-lap-operand-vector (&optional (size 5))
   (without-interrupts 
    (let* ((v (pool.data *operand-vector-freelist*)))
      (if v
@@ -62,7 +62,7 @@
                (svref v 0))
 	 (%init-misc nil v)
          v)
-       (make-array 5 :initial-element nil)))))
+       (make-array size :initial-element nil)))))
 
 (defun free-lap-operand-vector (v)
   (without-interrupts 




More information about the Openmcl-devel mailing list