Re: FW: [Gcl-devel] pcl/pcl_braid does not load after compilation onmingw32

[Camm Maguire]

Hi Mike!  OK try adding this:

--- pcl_braid.lisp      2003-02-26 22:21:38.000000000 +0000
+++ /tmp/fg.lisp        2003-10-03 16:43:09.000000000 +0000
@@ -39,14 +39,25 @@
 (defun allocate-standard-instance (wrapper &optional (slots-init nil 
slots-init-p))
   #-new-kcl-wrapper (declare (special *slot-unbound*))
   #-new-kcl-wrapper
-  (let ((instance (%%allocate-instance--class)))
-    (setf (std-instance-wrapper instance) wrapper)
-    (setf (std-instance-slots instance) 
-         (if slots-init-p
-             (copy-slots slots-init)
-             (make-array (wrapper-no-of-instance-slots wrapper)
-                         :initial-element *slot-unbound*)))
-    instance)
+  (progn (format t "About to allocate a standard instance~%")
+        (let ((instance (%%allocate-instance--class)))
+          (format t "Got instance ~S~%" instance)
+          (format t "Got instance wrapper ~S~%" (std-instance-wrapper instance)
+          (format t "Got instance slots ~S~%" (std-instance-slots instance))
+          (setf (std-instance-wrapper instance) wrapper)
+          (format t "Set instance wrapper to ~S~%" (std-instance-wrapper 
instance)
+          (setf (std-instance-slots instance) 
+                (if slots-init-p
+                    (progn 
+                      (format t "Slot-init provided, copying, ~S~%" slots-init)
+                      (copy-slots slots-init))
+                  (progn
+                    (format t "Slot-init not provided, making array~%")
+                    (format t "wrapper no is ~S~%" 
(wrapper-no-of-instance-slots wrapper))
+                    (make-array (wrapper-no-of-instance-slots wrapper)
+                              :initial-element *slot-unbound*))))
+          (format t "Set instance slots ~S~%" (std-instance-slots instance))
+          instance))
   #+new-kcl-wrapper
   (apply #'si:make-structure wrapper
         (if slots-init-p


Take care,

"Mike Thomas" <address@hidden> writes:

> Hi Camm.
> 
> Thanks for looking into this.
> 
> | Great Mike, this looks like progress!  Please rerun with this change
> | to pcl_braid.lisp:
> |
> 
> Loading binary of PCL_FAST_INIT...
> Compiling PCL_BRAID...
> Compiling c:/cvs/stable/gcl-2.6.1.ansi/unixport/../pcl/pcl_braid.lisp.
> End of Pass 1.
> End of Pass 2.
> OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3
> Finished compiling c:/cvs/stable/gcl-2.6.1.ansi/unixport/../pcl/pcl_braid.o.
> Loading binary of PCL_BRAID...
> built-in-class #<STANDARD-CLASS BUILT-IN-CLASS 2013422560>
> built-in-class-wrapper #(89863196 117638290 3544800 47280742 115751940
>                          109718554 82435208 94654126 T
>                          (TYPE SOURCE PLIST NAME CLASS-EQ-SPECIALIZER
>                                DIRECT-SUPERCLASSES DIRECT-SUBCLASSES
>                                DIRECT-METHODS PREDICATE-NAME
>                                CLASS-PRECEDENCE-LIST CAN-PRECEDE-LIST
>                                INCOMPATIBLE-SUPERCLASS-LIST WRAPPER
>                                PROTOTYPE)
>                          NIL
>                          #<STANDARD-CLASS BUILT-IN-CLASS 2013422560>
>                          14)
> *built-in-classes ((NUMBER (T) (COMPLEX FLOAT RATIONAL) (T))
>                    (COMPLEX (NUMBER) NIL (NUMBER T) #C(1 1))
>                    (FLOAT (NUMBER) NIL (NUMBER T) 1.0)
>                    (RATIONAL (NUMBER) (INTEGER RATIO) (NUMBER T))
>                    (INTEGER (RATIONAL) NIL (RATIONAL NUMBER T) 1)
>                    (RATIO (RATIONAL) NIL (RATIONAL NUMBER T) 1/2)
>                    (SEQUENCE (T) (LIST VECTOR) (T))
>                    (LIST (SEQUENCE) (CONS NULL) (SEQUENCE T))
>                    (CONS (LIST) NIL (LIST SEQUENCE T) (NIL))
>                    (ARRAY (T) (VECTOR) (T) #2A((NIL)))
>                    (VECTOR (ARRAY SEQUENCE) (STRING BIT-VECTOR)
>                            (ARRAY SEQUENCE T) #())
>                    (STRING (VECTOR) NIL (VECTOR ARRAY SEQUENCE T) "")
>                    (BIT-VECTOR (VECTOR) NIL (VECTOR ARRAY SEQUENCE T)
>                        #*1)
>                    (CHARACTER (T) NIL (T) #\c)
>                    (SYMBOL (T) (NULL) (T) SYMBOL)
>                    (NULL (SYMBOL LIST) NIL (SYMBOL LIST SEQUENCE T)
>                          NIL))
> e (NUMBER (T) (COMPLEX FLOAT RATIONAL) (T))
> 
> Error: Caught fatal error [memory may be damaged]
> Fast links are on: do (si::use-fast-links nil) for debugging
> Error signalled by LOAD.
> Broken at BOOTSTRAP-BUILT-IN-CLASSES.  Type :H for Help.
> PCL>>for i in gazonk* ; do j=$(echo $i | sed 's,\..*$,,1');\
>         cat $i | sed "s,$j,pcl_$j,g" >pcl_$i && rm $i; done
> sh: pcl_gazonk*: No such file or directory
> cat: gazonk*: No such file or directory
> make: *** [pcl_boot.c] Error 1
> 
> 
> Cheers
> 
> Mike Thomas
> 
> 
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah