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

[Camm Maguire]

OK, Mike, here is another diff for pcl_braid.lisp:

--- pcl_braid.lisp      2003-02-26 22:21:38.000000000 +0000
+++ /tmp/g.lisp 2003-10-10 18:25:02.000000000 +0000
@@ -39,13 +39,30 @@
 (defun allocate-standard-instance (wrapper &optional (slots-init nil 
slots-init-p))
   #-new-kcl-wrapper (declare (special *slot-unbound*))
   #-new-kcl-wrapper
+  (format t "About to allocate an instance~%")
+  #-new-kcl-wrapper
   (let ((instance (%%allocate-instance--class)))
+    (format t "instance made~%")
     (setf (std-instance-wrapper instance) wrapper)
+    (format t "wrapper set~%")
+    (format t "wrapper is ~S~%" (std-instance-wrapper instance))
     (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*)))
+             (let (tslots)
+               (format t "about to copy slots~%")
+               (setq tslots (copy-slots slots-init))
+               (format t "slots copied~%")
+               (format t "slots are ~S ~S~%" slots-init tslots)
+               tslots)
+           (let (tslots)
+             (format t "about to make array~%")
+             (setq tslots (make-array (wrapper-no-of-instance-slots wrapper)
+                                      :initial-element *slot-unbound*))
+             (format t "array made~%")
+             (format t "slots are ~S~%" tslots)
+             tslots)))
+    (format t "slots set~%")
+    (format t "slots are ~S~%" (std-instance-slots instance))
     instance)
   #+new-kcl-wrapper
   (apply #'si:make-structure wrapper


Take care,

"Mike Thomas" <address@hidden> writes:

> Thanks again Camm.
> 
> ....
> 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_fast_init.o.
> 
> 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...
> About to allocate a standard instance
> Got instance #<
> Error: Caught fatal error [memory may be damaged]
> Fast links are on: do (si::use-fast-links nil) for debugging
> Error signalled by BOOTSTRAP-META-BRAID.
> Broken at PRINT-STD-INSTANCE.  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_compat.c] Error 1
> ....
> 
> Cheers
> 
> Mike Thomas.
> 
> 
> | -----Original Message-----
> | From: address@hidden
> | [mailto:address@hidden
> | Behalf Of Camm Maguire
> | Sent: Saturday, October 04, 2003 2:44 AM
> | To: Mike Thomas
> | Cc: address@hidden
> | Subject: Re: FW: [Gcl-devel] pcl/pcl_braid does not load after
> | compilationonmingw32
> |
> |
> | 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
> |
> |
> | _______________________________________________
> | Gcl-devel mailing list
> | address@hidden
> | http://mail.gnu.org/mailman/listinfo/gcl-devel
> |
> |
> 
> 
> 
> 
> _______________________________________________
> Gcl-devel mailing list
> address@hidden
> http://mail.gnu.org/mailman/listinfo/gcl-devel
> 
> 
> 

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