[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
RE: FW: [Gcl-devel] pcl/pcl_braid does not load after compilationonmingw
From: |
Mike Thomas |
Subject: |
RE: FW: [Gcl-devel] pcl/pcl_braid does not load after compilationonmingw32 |
Date: |
Mon, 6 Oct 2003 12:05:02 +1000 |
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
|
|
- FW: [Gcl-devel] pcl/pcl_braid does not load after compilation on mingw32, Mike Thomas, 2003/10/02
- Re: FW: [Gcl-devel] pcl/pcl_braid does not load after compilation on mingw32, Camm Maguire, 2003/10/02
- RE: FW: [Gcl-devel] pcl/pcl_braid does not load after compilation onmingw32, Mike Thomas, 2003/10/02
- Re: FW: [Gcl-devel] pcl/pcl_braid does not load after compilation onmingw32, Camm Maguire, 2003/10/03
- RE: FW: [Gcl-devel] pcl/pcl_braid does not load after compilationonmingw32,
Mike Thomas <=
- Re: FW: [Gcl-devel] pcl/pcl_braid does not load after compilationonmingw32, Camm Maguire, 2003/10/10
- RE: FW: [Gcl-devel] pcl/pcl_braid does not load aftercompilationonmingw32, Mike Thomas, 2003/10/11
- [Gcl-devel] windows binary, Camm Maguire, 2003/10/14
- [Gcl-devel] RE: windows binary, Mike Thomas, 2003/10/14
- [Gcl-devel] PCL/KCL: #+new-kcl-wrapper, Camm Maguire, 2003/10/03