[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 compilation onming
From: |
Camm Maguire |
Subject: |
Re: FW: [Gcl-devel] pcl/pcl_braid does not load after compilation onmingw32 |
Date: |
03 Oct 2003 12:44:01 -0400 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 |
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
- 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 <=
- RE: FW: [Gcl-devel] pcl/pcl_braid does not load after compilationonmingw32, Mike Thomas, 2003/10/05
- 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