[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Gcl-devel] memory damaged at (system:STRING-MATCH:anykey:verbose)
From: |
Camm Maguire |
Subject: |
Re: [Gcl-devel] memory damaged at (system:STRING-MATCH:anykey:verbose) |
Date: |
07 Jul 2004 23:29:16 -0400 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 |
Greetings, and thanks!
OK, a bit clearer now. From what I can tell, the specfntest.lisp is
broken as it is missing the (eval-when (compile ...) ...) around the
def-op macro forms which is in maxima's specfn.l. I will revert the
eval-when-defaults which were correct before, and under which
specfntest.lisp should always fail on first compile. The reason it
succeeds later is that the macro for f+/f- is in place after the
aborted load. So in short, specfntest.lisp is not trapping your
maxima problems. I'm being short here, but I hope you get the drift.
As far as maxima goes, I would definitely check heap_end and core_end
vis a vis (V166))->fixa.fixa_self at the site of the fault, and
vs_limit for humors sake. I'd then do a disassemble from within gdb
and inspect instruction 500f, pertinent regs, etc.
Please keep us posted. We might be close to closing this one.
Take care,
"Mike Thomas" <address@hidden> writes:
> Hi Camm.
>
> There are three parts to this email - the first regarding the test program,
> the second regarding the Maxima specfn crash, the third the result of your
> eval-when and funlink patches.
>
> I haven't successfully separated them due to lack of time, but I hope you
> can follow relatively easily.
>
> | OK, Mike, I don't think this one is Windows' fault.
> |
> | Please apply the following to hopefully fix:
> |
>
> Thanks. The patch goes wrong in PCL as shown at the end of the email.
>
> I therefore swapped the *eval-when-defaults* setting back while retaining
> the extra checks in "funlink.c" to see whether it improved the test program
> and indeed that no longer segfaults, returning instead an appropriate Lisp
> error message without crashing - so that is a positive result.
>
> Repeating the compile and load without restarting GCL results in a
> successful load.
>
> I redeclared *acursor* per your suggestion but still can't reproduce the
> Maxima specfn.o crash with the test file. I'll look more closely to see
> what else is different later.
>
> Unfortunately the Maxima "specfn.o" load still cranks out a memory damaged
> error in aset-by-cursor (see gdb output and segment of C file further down).
> Looking at the alleged offending line in the debugger I can't see a problem
> with the array and pointer dereferences.
>
>
> ---------------TEST PROGRAM------------------------------------------------
> >(compile-file "specfntest.lsp")(load "specfntest.o")
>
> Compiling specfntest.lsp.
> ; (IMPORT 'SLOOP:SLOOP) is being compiled.
> ;; Warning: The package operation (IMPORT 'SLOOP:SLOOP) was in a bad place.
> End of Pass 1.
> End of Pass 2.
> `-mcpu=' is deprecated. Use `-mtune=' or '-march=' instead.
> OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
> Finished compiling specfntest.lsp.
> #p"specfntest.o"
>
> >
> Loading specfntest.o
> Error in FILLARRAY [or a callee]: F- is not of type FUNCTION.
>
> Fast links are on: do (use-fast-links nil) for debugging
> Broken at FILLARRAY. Type :H for Help.
> 1 (Continue) Retry loading file "specfntest.o".
> 2 Return to top level.
> dbl:>>2
>
> Top level.
> >(compile-file "specfntest.lsp")(load "specfntest.o")
>
> Compiling specfntest.lsp.
> ; (IMPORT 'SLOOP) is being compiled.
> ;; Warning: The package operation (IMPORT 'SLOOP) was in a bad place.
> End of Pass 1.
> End of Pass 2.
> `-mcpu=' is deprecated. Use `-mtune=' or '-march=' instead.
> OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
> Finished compiling specfntest.lsp.
> #p"specfntest.o"
>
> >
> Loading specfntest.o
> start address -T 1a6f4000 Finished loading specfntest.o
> 5504
>
> >
> ---------------MAXIMA SPECFN-----------------------------------------------
> (gdb) add-symbol-file binary-gcl/specfn.o 0x1aed1000
> add symbol table from file "binary-gcl/specfn.o" at
> .text_addr = 0x1aed1000
> Reading symbols from binary-gcl/specfn.o...done.
> (gdb) n
> 328 {bds_bind(sSPinit,fasl_vec);
> (gdb) n
> 329 bds_bind(sSPmemory,memory);
> (gdb) n
> 333 (*at)();
> (gdb) s
> init_specfn () at c:binary-gcl/specfn.c:4
> 4 void init_specfn(){do_init(VV);}
> (gdb) n
> fillarray: x = (14.0 1.9350643000000001 0.16607303300000001
> 0.0248793229 0.0046863619600000005
> 0.0010016274999999999 2.3200219600000001E-4
> 5.6817822700000005E-5 1.4496300600000003E-5
> 3.8163294599999999E-6 1.0299042599999999E-6
> 2.8357538499999994E-7 7.9387055000000009E-8
> 2.2536705000000001E-8 6.4743380000000008E-9)
> set-up-cursor: lis (15)
> set-up-cursor: 1 *acursor* #(1 0 0 0 0 0 0 0 0 0 0)
> set-up-cursor: 2 *acursor* #(1 0 0 0 0 0 14 0 0 0 0)
> set-up-cursor: 3 *acursor* #(1 0 0 0 0 0 14 0 0 0 0)
> fillarray: Setting by cursor ar #(0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
> 0.0 0.0 0.0 0.0 0.0 0.0)
> fillarray: Just printed ar, calling aset-by-cursor ar = #(0.0 0.0 0.0
> 0.0 0.0 0.0
> 0.0 0.0 0.0
> 0.0 0.0 0.0
> 0.0 0.0 0.0), (car
> x)
> = 14.0
> aset-by-cursor: curs #(1 0 0 0 0 0 14 0 0 0 0)
> val 14.0
> ar #(0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0)
> aset-by-cursor: (aref curs 0) 1
> aset-by-cursor: (aref curs 1) 0
> aset-by-cursor: (aref ar 0) 0.0
> aset-by-cursor: (aref ar 1) 0.0
> aset-by-cursor: ar #(1.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
> 0.0 0.0 0.0)
> aset-by-cursor: ar #(14.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
> 0.0 0.0 0.0)
>
> Program received signal SIGSEGV, Segmentation fault.
> 0x1a89500f in L44 () at c:binary-gcl/clmacs.c:1990
> 1990 vs_top=sup;switch((long)((V166))->fixa.fixa_self[(long)0]){
> (gdb) bt
> #0 0x1a89500f in L44 () at c:binary-gcl/clmacs.c:1990
> #1 0x004303e4 in call_or_link (sym=0x1a709024, link=0x1a896da4)
> at funlink.c:88
> #2 0x1a89697a in LnkT99 () at c:binary-gcl/clmacs.c:2654
> #3 0x1a895c9e in L45 () at c:binary-gcl/clmacs.c:2245
> #4 0x0041ee26 in eval (form=0x6d6ab0) at eval.c:1090
> #5 0x00418efb in do_init (statVV=0x1aed9150) at cmpaux.c:409
> #6 0x1aed1013 in init_specfn () at c:binary-gcl/specfn.c:4
> #7 0x00418d63 in call_init (init_address=0, memory=0x1a453bb8,
> fasl_vec=0x1aed0428, fptr=0) at cmpaux.c:333
> #8 0x0046d5b0 in fasload (faslfile=0x1aecba8c) at sfasl.c:465
> #9 0x00427f21 in Lload () at file.d:1842
> #10 0x00495782 in L13 () at clcs_install.c:569
> #11 0x0041cec9 in funcall (fun=0x1a402240) at eval.c:173
> #12 0x0044901b in IapplyVector (fun=0x1a402240, nargs=1, base=0x746790)
> at nfunlink.c:239
> #13 0x0041f09e in fLfuncall (fun=0x1a402240) at eval.c:1140
> #14 0x00430a8f in c_apply_n (fn=0x41f015 <fLfuncall>, n=2, x=0x746788)
> at funlink.c:364
> #15 0x00448ed8 in IapplyVector (fun=0x1a007e4c, nargs=2, base=0x746788)
> at nfunlink.c:229
> #16 0x0041cf96 in funcall (fun=0x1a007e4c) at eval.c:190
> #17 0x0041d8bb in funcall_no_event (fun=0x1a007e4c) at eval.c:381
> ---Type <return> to continue, or q <return> to quit---
> #18 0x0041ee33 in eval (form=0x6d6ab0) at eval.c:1092
> #19 0x0045f51f in Fprogn (body=0x1a460cf0) at prog.c:248
> #20 0x0041ebbb in eval (form=0x1a460d38) at eval.c:1037
> #21 0x00458365 in For (args=0x1a460c84) at predicate.c:762
> #22 0x0041ebbb in eval (form=0x1a460d50) at eval.c:1037
> #23 0x0045f51f in Fprogn (body=0x1a8164d4) at prog.c:248
> #24 0x0041ebbb in eval (form=0x1a8164bc) at eval.c:1037
> #25 0x00419691 in Fcond (args=0x1a460c54) at conditional.c:79
> #26 0x0041ebbb in eval (form=0x1a4612ac) at eval.c:1037
> #27 0x00419d2f in Fwhen (form=0x1a460ae0) at conditional.c:161
> #28 0x0041ebbb in eval (form=0x1a461360) at eval.c:1037
> #29 0x0045f51f in Fprogn (body=0x1a460ad4) at prog.c:248
> #30 0x0043cbf4 in FletA (form=0x1a461438) at let.c:110
> #31 0x0041ebbb in eval (form=0x1a461c00) at eval.c:1037
> #32 0x0041d620 in funcall (fun=0x1a43c9b0) at eval.c:327
> #33 0x0041d8bb in funcall_no_event (fun=0x1a460abc) at eval.c:381
> #34 0x0041ee33 in eval (form=0x6d6ab0) at eval.c:1092
> #35 0x0045813f in Fand (args=0x1a46ae28) at predicate.c:728
> #36 0x0041ebbb in eval (form=0x1a46ae58) at eval.c:1037
> #37 0x00419415 in Fif (form=0x1a46ae70) at conditional.c:50
> #38 0x0041ebbb in eval (form=0x1a46af0c) at eval.c:1037
> #39 0x0045f51f in Fprogn (body=0x1a46adec) at prog.c:248
> #40 0x0043ca55 in Flet (form=0x1a46af18) at let.c:82
> ---Type <return> to continue, or q <return> to quit---
> #41 0x0041ebbb in eval (form=0x1a46af84) at eval.c:1037
> #42 0x0041d620 in funcall (fun=0x1a7b28d0) at eval.c:327
> #43 0x0044901b in IapplyVector (fun=0x1a283cf0, nargs=2, base=0x746724)
> at nfunlink.c:239
> #44 0x0041f09e in fLfuncall (fun=0x1a283cf0) at eval.c:1140
> #45 0x00430ab7 in c_apply_n (fn=0x41f015 <fLfuncall>, n=3, x=0x746718)
> at funlink.c:365
> #46 0x00448ed8 in IapplyVector (fun=0x1a007e4c, nargs=3, base=0x746718)
> at nfunlink.c:229
> #47 0x0041cf96 in funcall (fun=0x1a007e4c) at eval.c:190
> #48 0x0041d8bb in funcall_no_event (fun=0x1a007e4c) at eval.c:381
> #49 0x0041ee33 in eval (form=0x6d6ab0) at eval.c:1092
> #50 0x00419aad in Fcase (arg=0x1a4cace4) at conditional.c:135
> #51 0x0041ebbb in eval (form=0x1a4cad74) at eval.c:1037
> #52 0x0041e72c in Ieval (form=0x1a4cad74) at eval.c:928
> #53 0x0040d143 in Fsetq (form=0x1a4cad80) at assignment.c:100
> #54 0x0041ebbb in eval (form=0x1a4cad8c) at eval.c:1037
> #55 0x0045f51f in Fprogn (body=0x1a4cabac) at prog.c:248
> #56 0x0041ebbb in eval (form=0x1a4d1f9c) at eval.c:1037
> #57 0x00414e57 in Funwind_protect (args=0x1a4c8588) at catch.c:120
> #58 0x0041ebbb in eval (form=0x1a4d1fa8) at eval.c:1037
> #59 0x0045f51f in Fprogn (body=0x1a4c8528) at prog.c:248
> #60 0x0043ca55 in Flet (form=0x1a4d1fb4) at let.c:82
> ---Type <return> to continue, or q <return> to quit---
> #61 0x0041ebbb in eval (form=0x1a4d3048) at eval.c:1037
> #62 0x0041d620 in funcall (fun=0x1a7b28e0) at eval.c:327
> #63 0x0041d8bb in funcall_no_event (fun=0x1a4c8360) at eval.c:381
> #64 0x0041ee33 in eval (form=0x6d6ab0) at eval.c:1092
> #65 0x00419c1e in Fwhen (form=0x1a4c7474) at conditional.c:149
> #66 0x0041ebbb in eval (form=0x1a4c7714) at eval.c:1037
> #67 0x0045e936 in Ftagbody (body=0x1a4c7438) at prog.c:95
> #68 0x0043bd86 in Fdolist (arg=0x1a4c7720) at iteration.c:357
> #69 0x0041ebbb in eval (form=0x1a4c775c) at eval.c:1037
> #70 0x00419433 in Fif (form=0x1a4c7768) at conditional.c:54
> #71 0x0041ebbb in eval (form=0x1a4c778c) at eval.c:1037
> #72 0x0045f51f in Fprogn (body=0x1aa0ac9c) at prog.c:248
> #73 0x0041ebbb in eval (form=0x1aa0ac84) at eval.c:1037
> #74 0x0041d620 in funcall (fun=0x1a7b2928) at eval.c:327
> #75 0x0041d8bb in funcall_no_event (fun=0x1a4c7300) at eval.c:381
> #76 0x0041ee33 in eval (form=0x6d6ab0) at eval.c:1092
> #77 0x00419aad in Fcase (arg=0x1a4cabc4) at conditional.c:135
> #78 0x0041ebbb in eval (form=0x1a4cad74) at eval.c:1037
> #79 0x0041e72c in Ieval (form=0x1a4cad74) at eval.c:928
> #80 0x0040d143 in Fsetq (form=0x1a4cad80) at assignment.c:100
> #81 0x0041ebbb in eval (form=0x1a4cad8c) at eval.c:1037
> #82 0x0045f51f in Fprogn (body=0x1a4cabac) at prog.c:248
> #83 0x0041ebbb in eval (form=0x1a4d1f9c) at eval.c:1037
> ---Type <return> to continue, or q <return> to quit---
> #84 0x00414e57 in Funwind_protect (args=0x1a4c8588) at catch.c:120
> #85 0x0041ebbb in eval (form=0x1a4d1fa8) at eval.c:1037
> #86 0x0045f51f in Fprogn (body=0x1a4c8528) at prog.c:248
> #87 0x0043ca55 in Flet (form=0x1a4d1fb4) at let.c:82
> #88 0x0041ebbb in eval (form=0x1a4d3048) at eval.c:1037
> #89 0x0041d620 in funcall (fun=0x1a7b2938) at eval.c:327
> #90 0x0041d8bb in funcall_no_event (fun=0x1a4c8360) at eval.c:381
> #91 0x0041ee33 in eval (form=0x6d6ab0) at eval.c:1092
> #92 0x00419c1e in Fwhen (form=0x1a4c7474) at conditional.c:149
> #93 0x0041ebbb in eval (form=0x1a4c7714) at eval.c:1037
> #94 0x0045e936 in Ftagbody (body=0x1a4c7438) at prog.c:95
> #95 0x0043bd86 in Fdolist (arg=0x1a4c7720) at iteration.c:357
> #96 0x0041ebbb in eval (form=0x1a4c775c) at eval.c:1037
> #97 0x00419433 in Fif (form=0x1a4c7768) at conditional.c:54
> #98 0x0041ebbb in eval (form=0x1a4c778c) at eval.c:1037
> #99 0x0045f51f in Fprogn (body=0x1a747fa8) at prog.c:248
> #100 0x0041ebbb in eval (form=0x1a747f90) at eval.c:1037
> #101 0x0041d620 in funcall (fun=0x1a43c918) at eval.c:327
> #102 0x0041d8bb in funcall_no_event (fun=0x1a4c7300) at eval.c:381
> #103 0x0041ee33 in eval (form=0x6d6ab0) at eval.c:1092
> #104 0x00419aad in Fcase (arg=0x1a4cabc4) at conditional.c:135
> #105 0x0041ebbb in eval (form=0x1a4cad74) at eval.c:1037
> #106 0x0041e72c in Ieval (form=0x1a4cad74) at eval.c:928
> ---Type <return> to continue, or q <return> to quit---q
> Quit (expect signal SIGINT when the program is resumed)
> (gdb)
>
> (gdb) p sup
> $3 = (object *) 0x746834
> (gdb) p vs_top
> $4 = (object *) 0x746834
> (gdb) p V166
> $5 = 0x1a88f070
> (gdb) p (long)((V166))->fixa
> $6 = 12
> (gdb) p (long)((V166))->fixa.fixa_self
> $7 = 504243640
> (gdb) p (object)((V166))->fixa.fixa_self
> $8 = (union lispunion *) 0x1e0e25b8
> (gdb) p (object)((V166))->fixa.fixa_self[(long)0]
> $9 = (union lispunion *) 0x1
> (gdb) p (object)((V166))->fixa
> $10 = (union lispunion *) 0xc
> (gdb) p (object)((V166))
> $11 = 0x1a88f070
> (gdb) p (object)((V166))->d.t
> $12 = (union lispunion *) 0xc
> (gdb) p (long)((V166))->d.t
> $13 = 12
> (gdb) p (enum type)((V166))->d.t
> $14 = t_vector
> (gdb) p (long)((V166))->fixa.fixa_self[(long)0]
> $15 = 1
> (gdb) p sup->d.t
> $16 = 7 '\a'
> (gdb) p sup->d
> $17 = {t = 7 '\a', flag = 0 '\0', s = 0 '\0', m = 0 '\0'}
> (gdb) p (enum type) sup->d.t
> $18 = t_character
> (gdb) p (long)((V166))->fixa.fixa_self[(long)1]
> $19 = 0
> ============== ASET-BY-CURSOR C CODE ===================
>
> /* function definition for ASET-BY-CURSOR */
>
> static void L44()
> {register object *base=vs_base;
> register object *sup=base+VM44; VC44
> vs_check;
> {register object V164;
> register object V165;
> V164=(base[0]);
> V165=(base[1]);
> vs_top=sup;
> goto TTL;
> TTL:;
> {register object V166;
> V166= (VV[46]->s.s_dbind);
> base[2]= Ct;
> base[3]= VV[52];
> base[4]= (V166);
> base[5]= (V165);
> base[6]= (V164);
> vs_top=(vs_base=base+2)+5;
> Lformat();
> vs_top=sup;
> base[2]= Ct;
> base[3]= VV[53];
> base[4]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)0]);
> vs_top=(vs_base=base+2)+3;
> Lformat();
> vs_top=sup;
> base[2]= Ct;
> base[3]= VV[54];
> base[4]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)1]);
> vs_top=(vs_base=base+2)+3;
> Lformat();
> vs_top=sup;
> base[2]= Ct;
> base[3]= VV[55];
> base[4]= aref1((V164),fix(small_fixnum(0)));
> vs_top=(vs_base=base+2)+3;
> Lformat();
> vs_top=sup;
> base[2]= Ct;
> base[3]= VV[56];
> base[4]= aref1((V164),fix(small_fixnum(1)));
> vs_top=(vs_base=base+2)+3;
> Lformat();
> vs_top=sup;
> (void)(aset1((V164),fix(small_fixnum(0)),VV[57]));
> base[2]= Ct;
> base[3]= VV[58];
> base[4]= (V164);
> vs_top=(vs_base=base+2)+3;
> Lformat();
> vs_top=sup;
> V167 = CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)1]);
> (void)(aset1((V164),fix(V167),(V165)));
> base[2]= Ct;
> base[3]= VV[59];
> base[4]= (V164);
> vs_top=(vs_base=base+2)+3;
> Lformat();
> vs_top=sup;switch((long)((V166))->fixa.fixa_self[(long)0]){
> case 1:
> goto T579;
> T579:;
> V168 = CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)1]);
> (void)(aset1((V164),fix(V168),(V165)));
> goto T577;
> case 2:
> goto T580;
> T580:;
> V169 = CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)1]);
> V170 = CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)2]);
> (void)(aset((V164),fix(V169)*((V164))->a.a_dims[1]+fix(V170),(V165)));
> goto T577;
> case 3:
> goto T581;
> T581:;
> base[2]= (V164);
> base[3]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)1]);
> base[4]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)2]);
> base[5]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)3]);
> base[6]= (V165);
> vs_top=(vs_base=base+2)+5;
> siLaset();
> vs_top=sup;
> goto T577;
> case 4:
> goto T582;
> T582:;
> base[2]= (V164);
> base[3]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)1]);
> base[4]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)2]);
> base[5]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)3]);
> base[6]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)4]);
> base[7]= (V165);
> vs_top=(vs_base=base+2)+6;
> siLaset();
> vs_top=sup;
> goto T577;
> case 5:
> goto T583;
> T583:;
> base[2]= (V164);
> base[3]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)1]);
> base[4]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)2]);
> base[5]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)3]);
> base[6]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)4]);
> base[7]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)5]);
> base[8]= (V165);
> vs_top=(vs_base=base+2)+7;
> siLaset();
> vs_top=sup;
> goto T577;
> default:
> goto T584;
> T584:;
> base[2]= VV[60];
> base[3]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)0]);
> base[4]= VV[61];
> vs_top=(vs_base=base+2)+3;
> Lerror();
> vs_top=sup;
> goto T577;}
> goto T577;
> T577:;
> base[2]= Ct;
> base[3]= VV[62];
> base[4]= (V164);
> vs_top=(vs_base=base+2)+3;
> Lformat();
> vs_top=sup;
> {register long V171;
> {object V172;
> V172= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)0]);{object
> V173;
> V173= (type_of((V172))==t_fixnum?Ct:Cnil);
> if(V173==Cnil)goto T614;
> goto T613;
> goto T614;
> T614:;}
> vs_base=vs_top;
> (void) (*Lnk83)();
> vs_top=sup;
> goto T613;
> T613:;
> V171= fix((V172));}
> goto T617;
> T617:;
> {long V174= (long)((V166))->fixa.fixa_self[V171];
> V175 = CMPmake_fixnum(V171);
> V176= number_plus(small_fixnum(5),V175);
> {long V177= fix(aref1((V166),fix(/* INLINE-ARGS */V176)));
> if(!((/* INLINE-ARGS */V174)<(/* INLINE-ARGS */V177))){
> goto T620;}}}
> (void)(((V166))->fixa.fixa_self[V171]=
> ((long)((long)((V166))->fixa.fixa_self[V171])+((long)1)));
> base[2]= Ct;
> vs_top=(vs_base=base+2)+1;
> return;
> goto T620;
> T620:;
> (void)(((V166))->fixa.fixa_self[V171]= ((long)0));
> if(!((V171)==((long)0))){
> goto T623;}
> base[2]= Cnil;
> vs_top=(vs_base=base+2)+1;
> return;
> goto T623;
> T623:;
> if(!((V171)>((long)-2147483647))){
> goto T627;}
> goto T626;
> goto T627;
> T627:;
> vs_base=vs_top;
> (void) (*Lnk83)();
> vs_top=sup;
> goto T626;
> T626:;
> V171= (long)(V171)-((long)1);
> goto T617;
> base[2]= Cnil;
> vs_top=(vs_base=base+2)+1;
> return;
> base[2]= Cnil;
> vs_top=(vs_base=base+2)+1;
> return;}}
> }
> }
> ==================================================================
>
> Cheers
>
> Mike Thomas
>
>
>
> ====================PCL EVAL-WHEN PROBLEM===============================
> ....
> Compiling PCL_GENERIC_FUNCTIONS...
> Compiling c:/cvs/head/gcl/unixport/../pcl/pcl_generic_functions.lisp.
>
> Error: The function LEGAL-LAMBDA-LIST-P is undefined.
> Fast links are on: do (si::use-fast-links nil) for debugging
> Error signalled by FUNCTION.
> Backtrace: compiler::t1expr > system:error-set > eval > eval > FUNCTION
> ; #'LEGAL-LAMBDA-LIST-P is being compiled.
> ;;; The form #'LEGAL-LAMBDA-LIST-P was not evaluated successfully.
> ;;; You are recommended to compile again.
>
> Error: The function SHORT-METHOD-COMBINATION-P is undefined.
> Fast links are on: do (si::use-fast-links nil) for debugging
> Error signalled by FUNCTION.
> Backtrace: compiler::t1expr > system:error-set > eval > eval > FUNCTION
> ; #'SHORT-METHOD-COMBINATION-P is being compiled.
> ;;; The form #'SHORT-METHOD-COMBINATION-P was not evaluated successfully.
> ;;; You are recommended to compile again.
>
> ....
>
> ========================================================================
>
> Large numbers of similar messages then follow.
>
>
>
>
>
--
Camm Maguire address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah
- RE: [Gcl-devel] memory damaged at (system:STRING-MATCH :anykey :verbose), Mike Thomas, 2004/07/05
- Re: [Gcl-devel] memory damaged in Maxima, Michael Koehne, 2004/07/05
- Re: [Gcl-devel] memory damaged at (system:STRING-MATCH :anykey :verbose), Camm Maguire, 2004/07/06
- RE: [Gcl-devel] memory damaged at (system:STRING-MATCH :anykey:verbose), Mike Thomas, 2004/07/07
- Re: [Gcl-devel] memory damaged at (system:STRING-MATCH :anykey:verbose), Camm Maguire, 2004/07/07
- RE: [Gcl-devel] memory damaged at (system:STRING-MATCH:anykey:verbose), Mike Thomas, 2004/07/07
- Re: [Gcl-devel] memory damaged at (system:STRING-MATCH:anykey:verbose),
Camm Maguire <=
- RE: [Gcl-devel] memory damaged at (system:STRING-MATCH:anykey:verbose), Mike Thomas, 2004/07/07
- RE: [Gcl-devel] memory damaged at (system:STRING-MATCH:anykey:verbose) - PS, Mike Thomas, 2004/07/08
- Re: [Gcl-devel] memory damaged at (system:STRING-MATCH:anykey:verbose) - PS, Camm Maguire, 2004/07/08
- RE: [Gcl-devel] memory damaged at(system:STRING-MATCH:anykey:verbose) - PS, Mike Thomas, 2004/07/09
- Re: [Gcl-devel] memory damaged at(system:STRING-MATCH:anykey:verbose) - PS, Camm Maguire, 2004/07/12
- RE: [Gcl-devel] memory damaged at(system:STRING-MATCH:anykey:verbose) - PS, Mike Thomas, 2004/07/12