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

[Mike Thomas]

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
|
|