[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: |
Mike Thomas |
Subject: |
RE: [Gcl-devel] memory damaged at (system:STRING-MATCH:anykey:verbose) - PS |
Date: |
Thu, 8 Jul 2004 14:08:31 +1000 |
Hi again.
| | 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.
|
| (gdb) p heap_end
| $20 = 0x1aeda000 ""
| (gdb) p core_end
| $21 = 0x1f52a000 <Address 0x1f52a000 out of bounds>
| (gdb) p vs_limit
| $22 = (object *) 0x7c64d0
|
|
| | I'd then do a disassemble from within gdb
|
| Below.
|
| | and inspect instruction 500f, pertinent regs, etc.
|
| Sorry but I don't understand this bit.
Woops I see what you mean - 0x1a89500f
---Type <return> to continue, or q <return> to quit---
0x1a894fe9 <L44+863>: mov 0xffffffc4(%ebp),%edx
0x1a894fec <L44+866>: mov 0xc(%edx),%edx
0x1a894fef <L44+869>: mov %edx,0xffffff74(%ebp)
0x1a894ff5 <L44+875>: mov 0xffffff74(%ebp),%ecx
0x1a894ffb <L44+881>: cmpl $0x5,(%ecx)
0x1a894ffe <L44+884>: ja 0x1a8955a1 <L44+2327>
0x1a895004 <L44+890>: mov 0xffffff74(%ebp),%esi
0x1a89500a <L44+896>: mov (%esi),%eax
0x1a89500c <L44+898>: shl $0x2,%eax
0x1a89500f <L44+901>: mov 0x0(%eax),%eax
0x1a895015 <L44+907>: jmp *%eax
0x1a895017 <L44+909>: mov 0xffffffc4(%ebp),%edx
0x1a89501a <L44+912>: mov 0xc(%edx),%eax
0x1a89501d <L44+915>: add $0x4,%eax
0x1a895020 <L44+918>: mov (%eax),%eax
0x1a895022 <L44+920>: mov %eax,0x6d6a40
0x1a895027 <L44+925>: add $0x400,%eax
0x1a89502c <L44+930>: and $0xfffff800,%eax
0x1a895031 <L44+935>: test %eax,%eax
0x1a895033 <L44+937>: jne 0x1a895047 <L44+957>
0x1a895035 <L44+939>: mov 0x6d6a40,%eax
0x1a89503a <L44+944>: shl $0x3,%eax
0x1a89503d <L44+947>: add $0x73b040,%eax
(gdb) info registers
eax 0x4 4
ecx 0x1e0e25b8 504243640
edx 0x1e0e25b8 504243640
ebx 0x22cb40 2280256
esp 0x22b200 0x22b200
ebp 0x22b2a8 0x22b2a8
esi 0x1e0e25b8 504243640
edi 0x22cb40 2280256
eip 0x1a89500f 0x1a89500f
eflags 0x10202 66050
cs 0x1b 27
ss 0x23 35
ds 0x23 35
es 0x23 35
fs 0x38 56
gs 0x0 0
(gdb) info frame
Stack level 0, frame at 0x22b2b0:
eip = 0x1a89500f in L44 (c:binary-gcl/clmacs.c:1990); saved eip 0x4303e4
called by frame at 0x22b2c0
source language c.
Arglist at 0x22b2a8, args:
Locals at 0x22b2a8, Previous frame's sp is 0x22b2b0
Saved registers:
ebx at 0x22b2a0, ebp at 0x22b2a8, esi at 0x22b2a4, eip at 0x22b2ac
(gdb) up
#1 0x004303e4 in call_or_link (sym=0x1a709024, link=0x1a896da4)
at funlink.c:88
88 ( *(void (*)()) (fun->cf.cf_self)) ();
(gdb) info frame
Stack level 1, frame at 0x22b2c0:
eip = 0x4303e4 in call_or_link (funlink.c:88); saved eip 0x1a89697a
called by frame at 0x22b2e0, caller of frame at 0x22b2b0
source language c.
Arglist at 0x22b2b8, args: sym=0x1a709024, link=0x1a896da4
Locals at 0x22b2b8, Previous frame's sp is 0x22b2c0
Saved registers:
ebx at 0x22b2a0, ebp at 0x22b2b8, esi at 0x22b2a4, eip at 0x22b2bc
(gdb) info registers
eax 0x4 4
ecx 0x1e0e25b8 504243640
edx 0x1e0e25b8 504243640
ebx 0x22cb40 2280256
esp 0x22b2b0 0x22b2b0
ebp 0x22b2b8 0x22b2b8
esi 0x22cb40 2280256
edi 0x22cb40 2280256
eip 0x4303e4 0x4303e4
eflags 0x10202 66050
cs 0x1b 27
ss 0x23 35
ds 0x23 35
es 0x23 35
fs 0x38 56
gs 0x0 0
(gdb)
|
| Cheers
|
| Mike Thomas.
|
| (gdb) disassemble
| Dump of assembler code for function L44:
| 0x1a894c8a <L44+0>: push %ebp
| 0x1a894c8b <L44+1>: mov %esp,%ebp
| 0x1a894c8d <L44+3>: push %esi
| 0x1a894c8e <L44+4>: push %ebx
| 0x1a894c8f <L44+5>: sub $0xa0,%esp
| 0x1a894c95 <L44+11>: mov 0x746440,%eax
| 0x1a894c9a <L44+16>: mov %eax,0xffffffd4(%ebp)
| 0x1a894c9d <L44+19>: mov 0xffffffd4(%ebp),%edx
| 0x1a894ca0 <L44+22>: add $0x24,%edx
| 0x1a894ca3 <L44+25>: mov %edx,0xffffffd0(%ebp)
| 0x1a894ca6 <L44+28>: mov 0x73d090,%eax
| 0x1a894cab <L44+33>: cmp 0x73d670,%eax
| 0x1a894cb1 <L44+39>: jb 0x1a894cb8 <L44+46>
| 0x1a894cb3 <L44+41>: call 0x402fa5 <vs_overflow>
| 0x1a894cb8 <L44+46>: mov 0xffffffd4(%ebp),%ecx
| 0x1a894cbb <L44+49>: mov (%ecx),%ecx
| 0x1a894cbd <L44+51>: mov %ecx,0xffffffcc(%ebp)
| 0x1a894cc0 <L44+54>: mov 0xffffffd4(%ebp),%esi
| 0x1a894cc3 <L44+57>: mov 0x4(%esi),%esi
| 0x1a894cc6 <L44+60>: mov %esi,0xffffffc8(%ebp)
| 0x1a894cc9 <L44+63>: mov 0xffffffd0(%ebp),%eax
| 0x1a894ccc <L44+66>: mov %eax,0x73d090
| ---Type <return> to continue, or q <return> to quit---
| 0x1a894cd1 <L44+71>: mov 0x1a896cb8,%eax
| 0x1a894cd6 <L44+76>: mov 0x4(%eax),%eax
| 0x1a894cd9 <L44+79>: mov %eax,0xffffffc4(%ebp)
| 0x1a894cdc <L44+82>: mov 0xffffffd4(%ebp),%edx
| 0x1a894cdf <L44+85>: movl $0x73d4a0,0x8(%edx)
| 0x1a894ce6 <L44+92>: mov 0x1a896cd0,%eax
| 0x1a894ceb <L44+97>: mov 0xffffffd4(%ebp),%ecx
| 0x1a894cee <L44+100>: mov %eax,0xc(%ecx)
| 0x1a894cf1 <L44+103>: mov 0xffffffc4(%ebp),%eax
| 0x1a894cf4 <L44+106>: mov 0xffffffd4(%ebp),%esi
| 0x1a894cf7 <L44+109>: mov %eax,0x10(%esi)
| 0x1a894cfa <L44+112>: mov 0xffffffc8(%ebp),%ecx
| 0x1a894cfd <L44+115>: mov 0xffffffd4(%ebp),%edx
| 0x1a894d00 <L44+118>: mov %ecx,0x14(%edx)
| 0x1a894d03 <L44+121>: mov 0xffffffcc(%ebp),%eax
| 0x1a894d06 <L44+124>: mov 0xffffffd4(%ebp),%esi
| 0x1a894d09 <L44+127>: mov %eax,0x18(%esi)
| 0x1a894d0c <L44+130>: mov 0xffffffd4(%ebp),%eax
| 0x1a894d0f <L44+133>: add $0x8,%eax
| 0x1a894d12 <L44+136>: mov %eax,0x746440
| 0x1a894d17 <L44+141>: mov 0x746440,%eax
| 0x1a894d1c <L44+146>: add $0x14,%eax
| 0x1a894d1f <L44+149>: mov %eax,0x73d090
| ---Type <return> to continue, or q <return> to quit---
| 0x1a894d24 <L44+154>: call 0x42fbec <Lformat>
| 0x1a894d29 <L44+159>: mov 0xffffffd0(%ebp),%edx
| 0x1a894d2c <L44+162>: mov %edx,0x73d090
| 0x1a894d32 <L44+168>: mov 0xffffffd4(%ebp),%ecx
| 0x1a894d35 <L44+171>: movl $0x73d4a0,0x8(%ecx)
| 0x1a894d3c <L44+178>: mov 0x1a896cd4,%eax
| 0x1a894d41 <L44+183>: mov 0xffffffd4(%ebp),%esi
| 0x1a894d44 <L44+186>: mov %eax,0xc(%esi)
| 0x1a894d47 <L44+189>: mov 0xffffffc4(%ebp),%edx
| 0x1a894d4a <L44+192>: mov 0xc(%edx),%eax
| 0x1a894d4d <L44+195>: mov (%eax),%eax
| 0x1a894d4f <L44+197>: mov %eax,0x6d6a40
| 0x1a894d54 <L44+202>: add $0x400,%eax
| 0x1a894d59 <L44+207>: and $0xfffff800,%eax
| 0x1a894d5e <L44+212>: test %eax,%eax
| 0x1a894d60 <L44+214>: jne 0x1a894d74 <L44+234>
| 0x1a894d62 <L44+216>: mov 0x6d6a40,%eax
| 0x1a894d67 <L44+221>: shl $0x3,%eax
| 0x1a894d6a <L44+224>: add $0x73b040,%eax
| 0x1a894d6f <L44+229>: mov %eax,0xffffffc0(%ebp)
| 0x1a894d72 <L44+232>: jmp 0x1a894d88 <L44+254>
| 0x1a894d74 <L44+234>: sub $0xc,%esp
| 0x1a894d77 <L44+237>: pushl 0x6d6a40
| ---Type <return> to continue, or q <return> to quit---
| 0x1a894d7d <L44+243>: call 0x44f450 <make_fixnum1>
| 0x1a894d82 <L44+248>: add $0x10,%esp
| 0x1a894d85 <L44+251>: mov %eax,0xffffffc0(%ebp)
| 0x1a894d88 <L44+254>: mov 0xffffffc0(%ebp),%esi
| 0x1a894d8b <L44+257>: mov 0xffffffd4(%ebp),%ecx
| 0x1a894d8e <L44+260>: mov %esi,0x10(%ecx)
| 0x1a894d91 <L44+263>: mov 0xffffffd4(%ebp),%eax
| 0x1a894d94 <L44+266>: add $0x8,%eax
| 0x1a894d97 <L44+269>: mov %eax,0x746440
| 0x1a894d9c <L44+274>: mov 0x746440,%eax
| 0x1a894da1 <L44+279>: add $0xc,%eax
| 0x1a894da4 <L44+282>: mov %eax,0x73d090
| 0x1a894da9 <L44+287>: call 0x42fbec <Lformat>
| 0x1a894dae <L44+292>: mov 0xffffffd0(%ebp),%eax
| 0x1a894db1 <L44+295>: mov %eax,0x73d090
| 0x1a894db6 <L44+300>: mov 0xffffffd4(%ebp),%edx
| 0x1a894db9 <L44+303>: movl $0x73d4a0,0x8(%edx)
| 0x1a894dc0 <L44+310>: mov 0x1a896cd8,%eax
| 0x1a894dc5 <L44+315>: mov 0xffffffd4(%ebp),%ecx
| 0x1a894dc8 <L44+318>: mov %eax,0xc(%ecx)
| 0x1a894dcb <L44+321>: mov 0xffffffc4(%ebp),%esi
| 0x1a894dce <L44+324>: mov 0xc(%esi),%eax
| 0x1a894dd1 <L44+327>: add $0x4,%eax
| ---Type <return> to continue, or q <return> to quit---
| 0x1a894dd4 <L44+330>: mov (%eax),%eax
| 0x1a894dd6 <L44+332>: mov %eax,0x6d6a40
| 0x1a894ddb <L44+337>: add $0x400,%eax
| 0x1a894de0 <L44+342>: and $0xfffff800,%eax
| 0x1a894de5 <L44+347>: test %eax,%eax
| 0x1a894de7 <L44+349>: jne 0x1a894dfb <L44+369>
| 0x1a894de9 <L44+351>: mov 0x6d6a40,%eax
| 0x1a894dee <L44+356>: shl $0x3,%eax
| 0x1a894df1 <L44+359>: add $0x73b040,%eax
| 0x1a894df6 <L44+364>: mov %eax,0xffffffbc(%ebp)
| 0x1a894df9 <L44+367>: jmp 0x1a894e0f <L44+389>
| 0x1a894dfb <L44+369>: sub $0xc,%esp
| 0x1a894dfe <L44+372>: pushl 0x6d6a40
| 0x1a894e04 <L44+378>: call 0x44f450 <make_fixnum1>
| 0x1a894e09 <L44+383>: add $0x10,%esp
| 0x1a894e0c <L44+386>: mov %eax,0xffffffbc(%ebp)
| 0x1a894e0f <L44+389>: mov 0xffffffbc(%ebp),%edx
| 0x1a894e12 <L44+392>: mov 0xffffffd4(%ebp),%eax
| 0x1a894e15 <L44+395>: mov %edx,0x10(%eax)
| 0x1a894e18 <L44+398>: mov 0xffffffd4(%ebp),%eax
| 0x1a894e1b <L44+401>: add $0x8,%eax
| 0x1a894e1e <L44+404>: mov %eax,0x746440
| 0x1a894e23 <L44+409>: mov 0x746440,%eax
| ---Type <return> to continue, or q <return> to quit---
| 0x1a894e28 <L44+414>: add $0xc,%eax
| 0x1a894e2b <L44+417>: mov %eax,0x73d090
| 0x1a894e30 <L44+422>: call 0x42fbec <Lformat>
| 0x1a894e35 <L44+427>: mov 0xffffffd0(%ebp),%ecx
| 0x1a894e38 <L44+430>: mov %ecx,0x73d090
| 0x1a894e3e <L44+436>: mov 0xffffffd4(%ebp),%esi
| 0x1a894e41 <L44+439>: movl $0x73d4a0,0x8(%esi)
| 0x1a894e48 <L44+446>: mov 0x1a896cdc,%eax
| 0x1a894e4d <L44+451>: mov 0xffffffd4(%ebp),%edx
| 0x1a894e50 <L44+454>: mov %eax,0xc(%edx)
| 0x1a894e53 <L44+457>: sub $0x8,%esp
| 0x1a894e56 <L44+460>: pushl 0x73b044
| 0x1a894e5c <L44+466>: pushl 0xffffffcc(%ebp)
| 0x1a894e5f <L44+469>: call 0x4075e4 <fLrow_major_aref>
| 0x1a894e64 <L44+474>: add $0x10,%esp
| 0x1a894e67 <L44+477>: mov 0xffffffd4(%ebp),%ecx
| 0x1a894e6a <L44+480>: mov %eax,0x10(%ecx)
| 0x1a894e6d <L44+483>: mov 0xffffffd4(%ebp),%eax
| 0x1a894e70 <L44+486>: add $0x8,%eax
| 0x1a894e73 <L44+489>: mov %eax,0x746440
| 0x1a894e78 <L44+494>: mov 0x746440,%eax
| 0x1a894e7d <L44+499>: add $0xc,%eax
| 0x1a894e80 <L44+502>: mov %eax,0x73d090
| ---Type <return> to continue, or q <return> to quit---
| 0x1a894e85 <L44+507>: call 0x42fbec <Lformat>
| 0x1a894e8a <L44+512>: mov 0xffffffd0(%ebp),%esi
| 0x1a894e8d <L44+515>: mov %esi,0x73d090
| 0x1a894e93 <L44+521>: mov 0xffffffd4(%ebp),%eax
| 0x1a894e96 <L44+524>: movl $0x73d4a0,0x8(%eax)
| 0x1a894e9d <L44+531>: mov 0x1a896ce0,%eax
| 0x1a894ea2 <L44+536>: mov 0xffffffd4(%ebp),%edx
| 0x1a894ea5 <L44+539>: mov %eax,0xc(%edx)
| 0x1a894ea8 <L44+542>: sub $0x8,%esp
| 0x1a894eab <L44+545>: pushl 0x73b04c
| 0x1a894eb1 <L44+551>: pushl 0xffffffcc(%ebp)
| 0x1a894eb4 <L44+554>: call 0x4075e4 <fLrow_major_aref>
| 0x1a894eb9 <L44+559>: add $0x10,%esp
| 0x1a894ebc <L44+562>: mov 0xffffffd4(%ebp),%ecx
| 0x1a894ebf <L44+565>: mov %eax,0x10(%ecx)
| 0x1a894ec2 <L44+568>: mov 0xffffffd4(%ebp),%eax
| 0x1a894ec5 <L44+571>: add $0x8,%eax
| 0x1a894ec8 <L44+574>: mov %eax,0x746440
| 0x1a894ecd <L44+579>: mov 0x746440,%eax
| 0x1a894ed2 <L44+584>: add $0xc,%eax
| 0x1a894ed5 <L44+587>: mov %eax,0x73d090
| 0x1a894eda <L44+592>: call 0x42fbec <Lformat>
| 0x1a894edf <L44+597>: mov 0xffffffd0(%ebp),%esi
| ---Type <return> to continue, or q <return> to quit---
| 0x1a894ee2 <L44+600>: mov %esi,0x73d090
| 0x1a894ee8 <L44+606>: sub $0x4,%esp
| 0x1a894eeb <L44+609>: pushl 0x1a896ce4
| 0x1a894ef1 <L44+615>: pushl 0x73b044
| 0x1a894ef7 <L44+621>: pushl 0xffffffcc(%ebp)
| 0x1a894efa <L44+624>: call 0x40799e <aset1>
| 0x1a894eff <L44+629>: add $0x10,%esp
| 0x1a894f02 <L44+632>: mov 0xffffffd4(%ebp),%eax
| 0x1a894f05 <L44+635>: movl $0x73d4a0,0x8(%eax)
| 0x1a894f0c <L44+642>: mov 0x1a896ce8,%eax
| 0x1a894f11 <L44+647>: mov 0xffffffd4(%ebp),%edx
| 0x1a894f14 <L44+650>: mov %eax,0xc(%edx)
| 0x1a894f17 <L44+653>: mov 0xffffffcc(%ebp),%esi
| 0x1a894f1a <L44+656>: mov 0xffffffd4(%ebp),%ecx
| 0x1a894f1d <L44+659>: mov %esi,0x10(%ecx)
| 0x1a894f20 <L44+662>: mov 0xffffffd4(%ebp),%eax
| 0x1a894f23 <L44+665>: add $0x8,%eax
| 0x1a894f26 <L44+668>: mov %eax,0x746440
| 0x1a894f2b <L44+673>: mov 0x746440,%eax
| 0x1a894f30 <L44+678>: add $0xc,%eax
| 0x1a894f33 <L44+681>: mov %eax,0x73d090
| 0x1a894f38 <L44+686>: call 0x42fbec <Lformat>
| 0x1a894f3d <L44+691>: mov 0xffffffd0(%ebp),%eax
| ---Type <return> to continue, or q <return> to quit---
| 0x1a894f40 <L44+694>: mov %eax,0x73d090
| 0x1a894f45 <L44+699>: mov 0xffffffc4(%ebp),%edx
| 0x1a894f48 <L44+702>: mov 0xc(%edx),%eax
| 0x1a894f4b <L44+705>: add $0x4,%eax
| 0x1a894f4e <L44+708>: mov (%eax),%eax
| 0x1a894f50 <L44+710>: mov %eax,0x6d6a40
| 0x1a894f55 <L44+715>: add $0x400,%eax
| 0x1a894f5a <L44+720>: and $0xfffff800,%eax
| 0x1a894f5f <L44+725>: test %eax,%eax
| 0x1a894f61 <L44+727>: jne 0x1a894f75 <L44+747>
| 0x1a894f63 <L44+729>: mov 0x6d6a40,%eax
| 0x1a894f68 <L44+734>: shl $0x3,%eax
| 0x1a894f6b <L44+737>: add $0x73b040,%eax
| 0x1a894f70 <L44+742>: mov %eax,0xffffffb8(%ebp)
| 0x1a894f73 <L44+745>: jmp 0x1a894f89 <L44+767>
| 0x1a894f75 <L44+747>: sub $0xc,%esp
| 0x1a894f78 <L44+750>: pushl 0x6d6a40
| 0x1a894f7e <L44+756>: call 0x44f450 <make_fixnum1>
| 0x1a894f83 <L44+761>: add $0x10,%esp
| 0x1a894f86 <L44+764>: mov %eax,0xffffffb8(%ebp)
| 0x1a894f89 <L44+767>: mov 0xffffffb8(%ebp),%ecx
| 0x1a894f8c <L44+770>: mov %ecx,0xffffffe0(%ebp)
| 0x1a894f8f <L44+773>: sub $0x4,%esp
| ---Type <return> to continue, or q <return> to quit---
| 0x1a894f92 <L44+776>: pushl 0xffffffc8(%ebp)
| 0x1a894f95 <L44+779>: mov 0xffffffe0(%ebp),%eax
| 0x1a894f98 <L44+782>: pushl 0x4(%eax)
| 0x1a894f9b <L44+785>: pushl 0xffffffcc(%ebp)
| 0x1a894f9e <L44+788>: call 0x40799e <aset1>
| 0x1a894fa3 <L44+793>: add $0x10,%esp
| 0x1a894fa6 <L44+796>: mov 0xffffffd4(%ebp),%esi
| 0x1a894fa9 <L44+799>: movl $0x73d4a0,0x8(%esi)
| 0x1a894fb0 <L44+806>: mov 0x1a896cec,%eax
| 0x1a894fb5 <L44+811>: mov 0xffffffd4(%ebp),%edx
| 0x1a894fb8 <L44+814>: mov %eax,0xc(%edx)
| 0x1a894fbb <L44+817>: mov 0xffffffcc(%ebp),%esi
| 0x1a894fbe <L44+820>: mov 0xffffffd4(%ebp),%ecx
| 0x1a894fc1 <L44+823>: mov %esi,0x10(%ecx)
| 0x1a894fc4 <L44+826>: mov 0xffffffd4(%ebp),%eax
| 0x1a894fc7 <L44+829>: add $0x8,%eax
| 0x1a894fca <L44+832>: mov %eax,0x746440
| 0x1a894fcf <L44+837>: mov 0x746440,%eax
| 0x1a894fd4 <L44+842>: add $0xc,%eax
| 0x1a894fd7 <L44+845>: mov %eax,0x73d090
| 0x1a894fdc <L44+850>: call 0x42fbec <Lformat>
| 0x1a894fe1 <L44+855>: mov 0xffffffd0(%ebp),%eax
| 0x1a894fe4 <L44+858>: mov %eax,0x73d090
| ---Type <return> to continue, or q <return> to quit---
| 0x1a894fe9 <L44+863>: mov 0xffffffc4(%ebp),%edx
| 0x1a894fec <L44+866>: mov 0xc(%edx),%edx
| 0x1a894fef <L44+869>: mov %edx,0xffffff74(%ebp)
| 0x1a894ff5 <L44+875>: mov 0xffffff74(%ebp),%ecx
| 0x1a894ffb <L44+881>: cmpl $0x5,(%ecx)
| 0x1a894ffe <L44+884>: ja 0x1a8955a1 <L44+2327>
| 0x1a895004 <L44+890>: mov 0xffffff74(%ebp),%esi
| 0x1a89500a <L44+896>: mov (%esi),%eax
| 0x1a89500c <L44+898>: shl $0x2,%eax
| 0x1a89500f <L44+901>: mov 0x0(%eax),%eax
| 0x1a895015 <L44+907>: jmp *%eax
| 0x1a895017 <L44+909>: mov 0xffffffc4(%ebp),%edx
| 0x1a89501a <L44+912>: mov 0xc(%edx),%eax
| 0x1a89501d <L44+915>: add $0x4,%eax
| 0x1a895020 <L44+918>: mov (%eax),%eax
| 0x1a895022 <L44+920>: mov %eax,0x6d6a40
| 0x1a895027 <L44+925>: add $0x400,%eax
| 0x1a89502c <L44+930>: and $0xfffff800,%eax
| 0x1a895031 <L44+935>: test %eax,%eax
| 0x1a895033 <L44+937>: jne 0x1a895047 <L44+957>
| 0x1a895035 <L44+939>: mov 0x6d6a40,%eax
| 0x1a89503a <L44+944>: shl $0x3,%eax
| 0x1a89503d <L44+947>: add $0x73b040,%eax
| ---Type <return> to continue, or q <return> to quit---
| 0x1a895042 <L44+952>: mov %eax,0xffffffb4(%ebp)
| 0x1a895045 <L44+955>: jmp 0x1a89505b <L44+977>
| 0x1a895047 <L44+957>: sub $0xc,%esp
| 0x1a89504a <L44+960>: pushl 0x6d6a40
| 0x1a895050 <L44+966>: call 0x44f450 <make_fixnum1>
| 0x1a895055 <L44+971>: add $0x10,%esp
| 0x1a895058 <L44+974>: mov %eax,0xffffffb4(%ebp)
| 0x1a89505b <L44+977>: mov 0xffffffb4(%ebp),%ecx
| 0x1a89505e <L44+980>: mov %ecx,0xffffffe4(%ebp)
| 0x1a895061 <L44+983>: sub $0x4,%esp
| 0x1a895064 <L44+986>: pushl 0xffffffc8(%ebp)
| 0x1a895067 <L44+989>: mov 0xffffffe4(%ebp),%eax
| 0x1a89506a <L44+992>: pushl 0x4(%eax)
| 0x1a89506d <L44+995>: pushl 0xffffffcc(%ebp)
| 0x1a895070 <L44+998>: call 0x40799e <aset1>
| 0x1a895075 <L44+1003>: add $0x10,%esp
| 0x1a895078 <L44+1006>: jmp 0x1a895630 <L44+2470>
| 0x1a89507d <L44+1011>: mov 0xffffffc4(%ebp),%esi
| 0x1a895080 <L44+1014>: mov 0xc(%esi),%eax
| 0x1a895083 <L44+1017>: add $0x4,%eax
| 0x1a895086 <L44+1020>: mov (%eax),%eax
| 0x1a895088 <L44+1022>: mov %eax,0x6d6a40
| 0x1a89508d <L44+1027>: add $0x400,%eax
| ---Type <return> to continue, or q <return> to quit---
| 0x1a895092 <L44+1032>: and $0xfffff800,%eax
| 0x1a895097 <L44+1037>: test %eax,%eax
| 0x1a895099 <L44+1039>: jne 0x1a8950ad <L44+1059>
| 0x1a89509b <L44+1041>: mov 0x6d6a40,%eax
| 0x1a8950a0 <L44+1046>: shl $0x3,%eax
| 0x1a8950a3 <L44+1049>: add $0x73b040,%eax
| 0x1a8950a8 <L44+1054>: mov %eax,0xffffffb0(%ebp)
| 0x1a8950ab <L44+1057>: jmp 0x1a8950c1 <L44+1079>
| 0x1a8950ad <L44+1059>: sub $0xc,%esp
| 0x1a8950b0 <L44+1062>: pushl 0x6d6a40
| 0x1a8950b6 <L44+1068>: call 0x44f450 <make_fixnum1>
| 0x1a8950bb <L44+1073>: add $0x10,%esp
| 0x1a8950be <L44+1076>: mov %eax,0xffffffb0(%ebp)
| 0x1a8950c1 <L44+1079>: mov 0xffffffb0(%ebp),%eax
| 0x1a8950c4 <L44+1082>: mov %eax,0xffffffe8(%ebp)
| 0x1a8950c7 <L44+1085>: mov 0xffffffc4(%ebp),%edx
| 0x1a8950ca <L44+1088>: mov 0xc(%edx),%eax
| 0x1a8950cd <L44+1091>: add $0x8,%eax
| 0x1a8950d0 <L44+1094>: mov (%eax),%eax
| 0x1a8950d2 <L44+1096>: mov %eax,0x6d6a40
| 0x1a8950d7 <L44+1101>: add $0x400,%eax
| 0x1a8950dc <L44+1106>: and $0xfffff800,%eax
| 0x1a8950e1 <L44+1111>: test %eax,%eax
| ---Type <return> to continue, or q <return> to quit---
| 0x1a8950e3 <L44+1113>: jne 0x1a8950f7 <L44+1133>
| 0x1a8950e5 <L44+1115>: mov 0x6d6a40,%eax
| 0x1a8950ea <L44+1120>: shl $0x3,%eax
| 0x1a8950ed <L44+1123>: add $0x73b040,%eax
| 0x1a8950f2 <L44+1128>: mov %eax,0xffffffac(%ebp)
| 0x1a8950f5 <L44+1131>: jmp 0x1a89510b <L44+1153>
| 0x1a8950f7 <L44+1133>: sub $0xc,%esp
| 0x1a8950fa <L44+1136>: pushl 0x6d6a40
| 0x1a895100 <L44+1142>: call 0x44f450 <make_fixnum1>
| 0x1a895105 <L44+1147>: add $0x10,%esp
| 0x1a895108 <L44+1150>: mov %eax,0xffffffac(%ebp)
| 0x1a89510b <L44+1153>: mov 0xffffffac(%ebp),%ecx
| 0x1a89510e <L44+1156>: mov %ecx,0xffffffec(%ebp)
| 0x1a895111 <L44+1159>: sub $0x4,%esp
| 0x1a895114 <L44+1162>: pushl 0xffffffc8(%ebp)
| 0x1a895117 <L44+1165>: mov 0xffffffe8(%ebp),%eax
| 0x1a89511a <L44+1168>: mov 0xffffffcc(%ebp),%esi
| 0x1a89511d <L44+1171>: mov 0x18(%esi),%edx
| 0x1a895120 <L44+1174>: add $0x4,%edx
| 0x1a895123 <L44+1177>: mov 0x4(%eax),%eax
| 0x1a895126 <L44+1180>: imul (%edx),%eax
| 0x1a895129 <L44+1183>: mov %eax,%edx
| 0x1a89512b <L44+1185>: mov 0xffffffec(%ebp),%eax
| ---Type <return> to continue, or q <return> to quit---
| 0x1a89512e <L44+1188>: mov 0x4(%eax),%ecx
| 0x1a895131 <L44+1191>: lea (%edx,%ecx,1),%eax
| 0x1a895134 <L44+1194>: push %eax
| 0x1a895135 <L44+1195>: pushl 0xffffffcc(%ebp)
| 0x1a895138 <L44+1198>: call 0x40799e <aset1>
| 0x1a89513d <L44+1203>: add $0x10,%esp
| 0x1a895140 <L44+1206>: jmp 0x1a895630 <L44+2470>
| 0x1a895145 <L44+1211>: mov 0xffffffcc(%ebp),%eax
| 0x1a895148 <L44+1214>: mov 0xffffffd4(%ebp),%esi
| 0x1a89514b <L44+1217>: mov %eax,0x8(%esi)
| 0x1a89514e <L44+1220>: mov 0xffffffc4(%ebp),%edx
| 0x1a895151 <L44+1223>: mov 0xc(%edx),%eax
| 0x1a895154 <L44+1226>: add $0x4,%eax
| 0x1a895157 <L44+1229>: mov (%eax),%eax
| 0x1a895159 <L44+1231>: mov %eax,0x6d6a40
| 0x1a89515e <L44+1236>: add $0x400,%eax
| 0x1a895163 <L44+1241>: and $0xfffff800,%eax
| 0x1a895168 <L44+1246>: test %eax,%eax
| 0x1a89516a <L44+1248>: jne 0x1a89517e <L44+1268>
| 0x1a89516c <L44+1250>: mov 0x6d6a40,%eax
| 0x1a895171 <L44+1255>: shl $0x3,%eax
| 0x1a895174 <L44+1258>: add $0x73b040,%eax
| 0x1a895179 <L44+1263>: mov %eax,0xffffffa8(%ebp)
| ---Type <return> to continue, or q <return> to quit---
| ---Type <return> to continue, or q <return> to quit---
| 0x1a89517c <L44+1266>: jmp 0x1a895192 <L44+1288>
| 0x1a89517e <L44+1268>: sub $0xc,%esp
| 0x1a895181 <L44+1271>: pushl 0x6d6a40
| 0x1a895187 <L44+1277>: call 0x44f450 <make_fixnum1>
| 0x1a89518c <L44+1282>: add $0x10,%esp
| 0x1a89518f <L44+1285>: mov %eax,0xffffffa8(%ebp)
| 0x1a895192 <L44+1288>: mov 0xffffffa8(%ebp),%esi
| 0x1a895195 <L44+1291>: mov 0xffffffd4(%ebp),%ecx
| 0x1a895198 <L44+1294>: mov %esi,0xc(%ecx)
| 0x1a89519b <L44+1297>: mov 0xffffffc4(%ebp),%edx
| 0x1a89519e <L44+1300>: mov 0xc(%edx),%eax
| 0x1a8951a1 <L44+1303>: add $0x8,%eax
| 0x1a8951a4 <L44+1306>: mov (%eax),%eax
| 0x1a8951a6 <L44+1308>: mov %eax,0x6d6a40
| 0x1a8951ab <L44+1313>: add $0x400,%eax
| 0x1a8951b0 <L44+1318>: and $0xfffff800,%eax
| 0x1a8951b5 <L44+1323>: test %eax,%eax
| 0x1a8951b7 <L44+1325>: jne 0x1a8951cb <L44+1345>
| 0x1a8951b9 <L44+1327>: mov 0x6d6a40,%eax
| 0x1a8951be <L44+1332>: shl $0x3,%eax
| 0x1a8951c1 <L44+1335>: add $0x73b040,%eax
| 0x1a8951c6 <L44+1340>: mov %eax,0xffffffa4(%ebp)
| 0x1a8951c9 <L44+1343>: jmp 0x1a8951df <L44+1365>
| ---Type <return> to continue, or q <return> to quit---
| 0x1a8951cb <L44+1345>: sub $0xc,%esp
| 0x1a8951ce <L44+1348>: pushl 0x6d6a40
| 0x1a8951d4 <L44+1354>: call 0x44f450 <make_fixnum1>
| 0x1a8951d9 <L44+1359>: add $0x10,%esp
| 0x1a8951dc <L44+1362>: mov %eax,0xffffffa4(%ebp)
| 0x1a8951df <L44+1365>: mov 0xffffffa4(%ebp),%esi
| 0x1a8951e2 <L44+1368>: mov 0xffffffd4(%ebp),%ecx
| 0x1a8951e5 <L44+1371>: mov %esi,0x10(%ecx)
| 0x1a8951e8 <L44+1374>: mov 0xffffffc4(%ebp),%edx
| 0x1a8951eb <L44+1377>: mov 0xc(%edx),%eax
| 0x1a8951ee <L44+1380>: add $0xc,%eax
| 0x1a8951f1 <L44+1383>: mov (%eax),%eax
| 0x1a8951f3 <L44+1385>: mov %eax,0x6d6a40
| 0x1a8951f8 <L44+1390>: add $0x400,%eax
| 0x1a8951fd <L44+1395>: and $0xfffff800,%eax
| 0x1a895202 <L44+1400>: test %eax,%eax
| 0x1a895204 <L44+1402>: jne 0x1a895218 <L44+1422>
| 0x1a895206 <L44+1404>: mov 0x6d6a40,%eax
| 0x1a89520b <L44+1409>: shl $0x3,%eax
| 0x1a89520e <L44+1412>: add $0x73b040,%eax
| 0x1a895213 <L44+1417>: mov %eax,0xffffffa0(%ebp)
| 0x1a895216 <L44+1420>: jmp 0x1a89522c <L44+1442>
| 0x1a895218 <L44+1422>: sub $0xc,%esp
| ---Type <return> to continue, or q <return> to quit---
| 0x1a89521b <L44+1425>: pushl 0x6d6a40
| 0x1a895221 <L44+1431>: call 0x44f450 <make_fixnum1>
| 0x1a895226 <L44+1436>: add $0x10,%esp
| 0x1a895229 <L44+1439>: mov %eax,0xffffffa0(%ebp)
| 0x1a89522c <L44+1442>: mov 0xffffffa0(%ebp),%esi
| 0x1a89522f <L44+1445>: mov 0xffffffd4(%ebp),%ecx
| 0x1a895232 <L44+1448>: mov %esi,0x14(%ecx)
| 0x1a895235 <L44+1451>: mov 0xffffffc8(%ebp),%edx
| 0x1a895238 <L44+1454>: mov 0xffffffd4(%ebp),%eax
| 0x1a89523b <L44+1457>: mov %edx,0x18(%eax)
| 0x1a89523e <L44+1460>: mov 0xffffffd4(%ebp),%eax
| 0x1a895241 <L44+1463>: add $0x8,%eax
| 0x1a895244 <L44+1466>: mov %eax,0x746440
| 0x1a895249 <L44+1471>: mov 0x746440,%eax
| 0x1a89524e <L44+1476>: add $0x14,%eax
| 0x1a895251 <L44+1479>: mov %eax,0x73d090
| 0x1a895256 <L44+1484>: call 0x407e2f <siLaset>
| 0x1a89525b <L44+1489>: mov 0xffffffd0(%ebp),%ecx
| 0x1a89525e <L44+1492>: mov %ecx,0x73d090
| 0x1a895264 <L44+1498>: jmp 0x1a895630 <L44+2470>
| 0x1a895269 <L44+1503>: mov 0xffffffcc(%ebp),%eax
| 0x1a89526c <L44+1506>: mov 0xffffffd4(%ebp),%esi
| 0x1a89526f <L44+1509>: mov %eax,0x8(%esi)
| ---Type <return> to continue, or q <return> to quit---
| 0x1a895272 <L44+1512>: mov 0xffffffc4(%ebp),%edx
| 0x1a895275 <L44+1515>: mov 0xc(%edx),%eax
| 0x1a895278 <L44+1518>: add $0x4,%eax
| 0x1a89527b <L44+1521>: mov (%eax),%eax
| 0x1a89527d <L44+1523>: mov %eax,0x6d6a40
| 0x1a895282 <L44+1528>: add $0x400,%eax
| 0x1a895287 <L44+1533>: and $0xfffff800,%eax
| 0x1a89528c <L44+1538>: test %eax,%eax
| 0x1a89528e <L44+1540>: jne 0x1a8952a2 <L44+1560>
| 0x1a895290 <L44+1542>: mov 0x6d6a40,%eax
| 0x1a895295 <L44+1547>: shl $0x3,%eax
| 0x1a895298 <L44+1550>: add $0x73b040,%eax
| 0x1a89529d <L44+1555>: mov %eax,0xffffff9c(%ebp)
| 0x1a8952a0 <L44+1558>: jmp 0x1a8952b6 <L44+1580>
| 0x1a8952a2 <L44+1560>: sub $0xc,%esp
| 0x1a8952a5 <L44+1563>: pushl 0x6d6a40
| 0x1a8952ab <L44+1569>: call 0x44f450 <make_fixnum1>
| 0x1a8952b0 <L44+1574>: add $0x10,%esp
| 0x1a8952b3 <L44+1577>: mov %eax,0xffffff9c(%ebp)
| 0x1a8952b6 <L44+1580>: mov 0xffffff9c(%ebp),%esi
| 0x1a8952b9 <L44+1583>: mov 0xffffffd4(%ebp),%ecx
| 0x1a8952bc <L44+1586>: mov %esi,0xc(%ecx)
| 0x1a8952bf <L44+1589>: mov 0xffffffc4(%ebp),%edx
| ---Type <return> to continue, or q <return> to quit---
| 0x1a8952c2 <L44+1592>: mov 0xc(%edx),%eax
| 0x1a8952c5 <L44+1595>: add $0x8,%eax
| 0x1a8952c8 <L44+1598>: mov (%eax),%eax
| 0x1a8952ca <L44+1600>: mov %eax,0x6d6a40
| 0x1a8952cf <L44+1605>: add $0x400,%eax
| 0x1a8952d4 <L44+1610>: and $0xfffff800,%eax
| 0x1a8952d9 <L44+1615>: test %eax,%eax
| 0x1a8952db <L44+1617>: jne 0x1a8952ef <L44+1637>
| 0x1a8952dd <L44+1619>: mov 0x6d6a40,%eax
| 0x1a8952e2 <L44+1624>: shl $0x3,%eax
| 0x1a8952e5 <L44+1627>: add $0x73b040,%eax
| 0x1a8952ea <L44+1632>: mov %eax,0xffffff98(%ebp)
| 0x1a8952ed <L44+1635>: jmp 0x1a895303 <L44+1657>
| 0x1a8952ef <L44+1637>: sub $0xc,%esp
| 0x1a8952f2 <L44+1640>: pushl 0x6d6a40
| 0x1a8952f8 <L44+1646>: call 0x44f450 <make_fixnum1>
| 0x1a8952fd <L44+1651>: add $0x10,%esp
| 0x1a895300 <L44+1654>: mov %eax,0xffffff98(%ebp)
| 0x1a895303 <L44+1657>: mov 0xffffff98(%ebp),%esi
| 0x1a895306 <L44+1660>: mov 0xffffffd4(%ebp),%ecx
| 0x1a895309 <L44+1663>: mov %esi,0x10(%ecx)
| 0x1a89530c <L44+1666>: mov 0xffffffc4(%ebp),%edx
| 0x1a89530f <L44+1669>: mov 0xc(%edx),%eax
| ---Type <return> to continue, or q <return> to quit---
| 0x1a895312 <L44+1672>: add $0xc,%eax
| 0x1a895315 <L44+1675>: mov (%eax),%eax
| 0x1a895317 <L44+1677>: mov %eax,0x6d6a40
| 0x1a89531c <L44+1682>: add $0x400,%eax
| 0x1a895321 <L44+1687>: and $0xfffff800,%eax
| 0x1a895326 <L44+1692>: test %eax,%eax
| 0x1a895328 <L44+1694>: jne 0x1a89533c <L44+1714>
| 0x1a89532a <L44+1696>: mov 0x6d6a40,%eax
| 0x1a89532f <L44+1701>: shl $0x3,%eax
| 0x1a895332 <L44+1704>: add $0x73b040,%eax
| 0x1a895337 <L44+1709>: mov %eax,0xffffff94(%ebp)
| 0x1a89533a <L44+1712>: jmp 0x1a895350 <L44+1734>
| 0x1a89533c <L44+1714>: sub $0xc,%esp
| 0x1a89533f <L44+1717>: pushl 0x6d6a40
| 0x1a895345 <L44+1723>: call 0x44f450 <make_fixnum1>
| 0x1a89534a <L44+1728>: add $0x10,%esp
| 0x1a89534d <L44+1731>: mov %eax,0xffffff94(%ebp)
| 0x1a895350 <L44+1734>: mov 0xffffff94(%ebp),%esi
| 0x1a895353 <L44+1737>: mov 0xffffffd4(%ebp),%ecx
| 0x1a895356 <L44+1740>: mov %esi,0x14(%ecx)
| 0x1a895359 <L44+1743>: mov 0xffffffc4(%ebp),%edx
| 0x1a89535c <L44+1746>: mov 0xc(%edx),%eax
| 0x1a89535f <L44+1749>: add $0x10,%eax
| ---Type <return> to continue, or q <return> to quit---
| 0x1a895362 <L44+1752>: mov (%eax),%eax
| 0x1a895364 <L44+1754>: mov %eax,0x6d6a40
| 0x1a895369 <L44+1759>: add $0x400,%eax
| 0x1a89536e <L44+1764>: and $0xfffff800,%eax
| 0x1a895373 <L44+1769>: test %eax,%eax
| 0x1a895375 <L44+1771>: jne 0x1a895389 <L44+1791>
| 0x1a895377 <L44+1773>: mov 0x6d6a40,%eax
| 0x1a89537c <L44+1778>: shl $0x3,%eax
| 0x1a89537f <L44+1781>: add $0x73b040,%eax
| 0x1a895384 <L44+1786>: mov %eax,0xffffff90(%ebp)
| 0x1a895387 <L44+1789>: jmp 0x1a89539d <L44+1811>
| 0x1a895389 <L44+1791>: sub $0xc,%esp
| 0x1a89538c <L44+1794>: pushl 0x6d6a40
| 0x1a895392 <L44+1800>: call 0x44f450 <make_fixnum1>
| 0x1a895397 <L44+1805>: add $0x10,%esp
| 0x1a89539a <L44+1808>: mov %eax,0xffffff90(%ebp)
| 0x1a89539d <L44+1811>: mov 0xffffff90(%ebp),%esi
| 0x1a8953a0 <L44+1814>: mov 0xffffffd4(%ebp),%ecx
| 0x1a8953a3 <L44+1817>: mov %esi,0x18(%ecx)
| 0x1a8953a6 <L44+1820>: mov 0xffffffc8(%ebp),%edx
| 0x1a8953a9 <L44+1823>: mov 0xffffffd4(%ebp),%eax
| 0x1a8953ac <L44+1826>: mov %edx,0x1c(%eax)
| 0x1a8953af <L44+1829>: mov 0xffffffd4(%ebp),%eax
| ---Type <return> to continue, or q <return> to quit---
| 0x1a8953b2 <L44+1832>: add $0x8,%eax
| 0x1a8953b5 <L44+1835>: mov %eax,0x746440
| 0x1a8953ba <L44+1840>: mov 0x746440,%eax
| 0x1a8953bf <L44+1845>: add $0x18,%eax
| 0x1a8953c2 <L44+1848>: mov %eax,0x73d090
| 0x1a8953c7 <L44+1853>: call 0x407e2f <siLaset>
| 0x1a8953cc <L44+1858>: mov 0xffffffd0(%ebp),%ecx
| 0x1a8953cf <L44+1861>: mov %ecx,0x73d090
| 0x1a8953d5 <L44+1867>: jmp 0x1a895630 <L44+2470>
| 0x1a8953da <L44+1872>: mov 0xffffffcc(%ebp),%eax
| 0x1a8953dd <L44+1875>: mov 0xffffffd4(%ebp),%esi
| 0x1a8953e0 <L44+1878>: mov %eax,0x8(%esi)
| 0x1a8953e3 <L44+1881>: mov 0xffffffc4(%ebp),%edx
| 0x1a8953e6 <L44+1884>: mov 0xc(%edx),%eax
| 0x1a8953e9 <L44+1887>: add $0x4,%eax
| 0x1a8953ec <L44+1890>: mov (%eax),%eax
| 0x1a8953ee <L44+1892>: mov %eax,0x6d6a40
| 0x1a8953f3 <L44+1897>: add $0x400,%eax
| 0x1a8953f8 <L44+1902>: and $0xfffff800,%eax
| 0x1a8953fd <L44+1907>: test %eax,%eax
| 0x1a8953ff <L44+1909>: jne 0x1a895413 <L44+1929>
| 0x1a895401 <L44+1911>: mov 0x6d6a40,%eax
| 0x1a895406 <L44+1916>: shl $0x3,%eax
| ---Type <return> to continue, or q <return> to quit---
| ---Type <return> to continue, or q <return> to quit---
| 0x1a895409 <L44+1919>: add $0x73b040,%eax
| 0x1a89540e <L44+1924>: mov %eax,0xffffff8c(%ebp)
| 0x1a895411 <L44+1927>: jmp 0x1a895427 <L44+1949>
| 0x1a895413 <L44+1929>: sub $0xc,%esp
| 0x1a895416 <L44+1932>: pushl 0x6d6a40
| 0x1a89541c <L44+1938>: call 0x44f450 <make_fixnum1>
| 0x1a895421 <L44+1943>: add $0x10,%esp
| 0x1a895424 <L44+1946>: mov %eax,0xffffff8c(%ebp)
| 0x1a895427 <L44+1949>: mov 0xffffff8c(%ebp),%esi
| 0x1a89542a <L44+1952>: mov 0xffffffd4(%ebp),%ecx
| 0x1a89542d <L44+1955>: mov %esi,0xc(%ecx)
| 0x1a895430 <L44+1958>: mov 0xffffffc4(%ebp),%edx
| 0x1a895433 <L44+1961>: mov 0xc(%edx),%eax
| 0x1a895436 <L44+1964>: add $0x8,%eax
| 0x1a895439 <L44+1967>: mov (%eax),%eax
| 0x1a89543b <L44+1969>: mov %eax,0x6d6a40
| 0x1a895440 <L44+1974>: add $0x400,%eax
| 0x1a895445 <L44+1979>: and $0xfffff800,%eax
| 0x1a89544a <L44+1984>: test %eax,%eax
| 0x1a89544c <L44+1986>: jne 0x1a895460 <L44+2006>
| 0x1a89544e <L44+1988>: mov 0x6d6a40,%eax
| 0x1a895453 <L44+1993>: shl $0x3,%eax
| 0x1a895456 <L44+1996>: add $0x73b040,%eax
| ---Type <return> to continue, or q <return> to quit---
| 0x1a89545b <L44+2001>: mov %eax,0xffffff88(%ebp)
| 0x1a89545e <L44+2004>: jmp 0x1a895474 <L44+2026>
| 0x1a895460 <L44+2006>: sub $0xc,%esp
| 0x1a895463 <L44+2009>: pushl 0x6d6a40
| 0x1a895469 <L44+2015>: call 0x44f450 <make_fixnum1>
| 0x1a89546e <L44+2020>: add $0x10,%esp
| 0x1a895471 <L44+2023>: mov %eax,0xffffff88(%ebp)
| 0x1a895474 <L44+2026>: mov 0xffffff88(%ebp),%esi
| 0x1a895477 <L44+2029>: mov 0xffffffd4(%ebp),%ecx
| 0x1a89547a <L44+2032>: mov %esi,0x10(%ecx)
| 0x1a89547d <L44+2035>: mov 0xffffffc4(%ebp),%edx
| 0x1a895480 <L44+2038>: mov 0xc(%edx),%eax
| 0x1a895483 <L44+2041>: add $0xc,%eax
| 0x1a895486 <L44+2044>: mov (%eax),%eax
| 0x1a895488 <L44+2046>: mov %eax,0x6d6a40
| 0x1a89548d <L44+2051>: add $0x400,%eax
| 0x1a895492 <L44+2056>: and $0xfffff800,%eax
| 0x1a895497 <L44+2061>: test %eax,%eax
| 0x1a895499 <L44+2063>: jne 0x1a8954ad <L44+2083>
| 0x1a89549b <L44+2065>: mov 0x6d6a40,%eax
| 0x1a8954a0 <L44+2070>: shl $0x3,%eax
| 0x1a8954a3 <L44+2073>: add $0x73b040,%eax
| 0x1a8954a8 <L44+2078>: mov %eax,0xffffff84(%ebp)
| ---Type <return> to continue, or q <return> to quit---
| 0x1a8954ab <L44+2081>: jmp 0x1a8954c1 <L44+2103>
| 0x1a8954ad <L44+2083>: sub $0xc,%esp
| 0x1a8954b0 <L44+2086>: pushl 0x6d6a40
| 0x1a8954b6 <L44+2092>: call 0x44f450 <make_fixnum1>
| 0x1a8954bb <L44+2097>: add $0x10,%esp
| 0x1a8954be <L44+2100>: mov %eax,0xffffff84(%ebp)
| 0x1a8954c1 <L44+2103>: mov 0xffffff84(%ebp),%esi
| 0x1a8954c4 <L44+2106>: mov 0xffffffd4(%ebp),%ecx
| 0x1a8954c7 <L44+2109>: mov %esi,0x14(%ecx)
| 0x1a8954ca <L44+2112>: mov 0xffffffc4(%ebp),%edx
| 0x1a8954cd <L44+2115>: mov 0xc(%edx),%eax
| 0x1a8954d0 <L44+2118>: add $0x10,%eax
| 0x1a8954d3 <L44+2121>: mov (%eax),%eax
| 0x1a8954d5 <L44+2123>: mov %eax,0x6d6a40
| 0x1a8954da <L44+2128>: add $0x400,%eax
| 0x1a8954df <L44+2133>: and $0xfffff800,%eax
| 0x1a8954e4 <L44+2138>: test %eax,%eax
| 0x1a8954e6 <L44+2140>: jne 0x1a8954fa <L44+2160>
| 0x1a8954e8 <L44+2142>: mov 0x6d6a40,%eax
| 0x1a8954ed <L44+2147>: shl $0x3,%eax
| 0x1a8954f0 <L44+2150>: add $0x73b040,%eax
| 0x1a8954f5 <L44+2155>: mov %eax,0xffffff80(%ebp)
| 0x1a8954f8 <L44+2158>: jmp 0x1a89550e <L44+2180>
| ---Type <return> to continue, or q <return> to quit---
| 0x1a8954fa <L44+2160>: sub $0xc,%esp
| 0x1a8954fd <L44+2163>: pushl 0x6d6a40
| 0x1a895503 <L44+2169>: call 0x44f450 <make_fixnum1>
| 0x1a895508 <L44+2174>: add $0x10,%esp
| 0x1a89550b <L44+2177>: mov %eax,0xffffff80(%ebp)
| 0x1a89550e <L44+2180>: mov 0xffffff80(%ebp),%esi
| 0x1a895511 <L44+2183>: mov 0xffffffd4(%ebp),%ecx
| 0x1a895514 <L44+2186>: mov %esi,0x18(%ecx)
| 0x1a895517 <L44+2189>: mov 0xffffffc4(%ebp),%edx
| 0x1a89551a <L44+2192>: mov 0xc(%edx),%eax
| 0x1a89551d <L44+2195>: add $0x14,%eax
| 0x1a895520 <L44+2198>: mov (%eax),%eax
| 0x1a895522 <L44+2200>: mov %eax,0x6d6a40
| 0x1a895527 <L44+2205>: add $0x400,%eax
| 0x1a89552c <L44+2210>: and $0xfffff800,%eax
| 0x1a895531 <L44+2215>: test %eax,%eax
| 0x1a895533 <L44+2217>: jne 0x1a89554a <L44+2240>
| 0x1a895535 <L44+2219>: mov 0x6d6a40,%eax
| 0x1a89553a <L44+2224>: shl $0x3,%eax
| 0x1a89553d <L44+2227>: add $0x73b040,%eax
| 0x1a895542 <L44+2232>: mov %eax,0xffffff7c(%ebp)
| 0x1a895548 <L44+2238>: jmp 0x1a895561 <L44+2263>
| 0x1a89554a <L44+2240>: sub $0xc,%esp
| ---Type <return> to continue, or q <return> to quit---
| 0x1a89554d <L44+2243>: pushl 0x6d6a40
| 0x1a895553 <L44+2249>: call 0x44f450 <make_fixnum1>
| 0x1a895558 <L44+2254>: add $0x10,%esp
| 0x1a89555b <L44+2257>: mov %eax,0xffffff7c(%ebp)
| 0x1a895561 <L44+2263>: mov 0xffffff7c(%ebp),%esi
| 0x1a895567 <L44+2269>: mov 0xffffffd4(%ebp),%ecx
| 0x1a89556a <L44+2272>: mov %esi,0x1c(%ecx)
| 0x1a89556d <L44+2275>: mov 0xffffffc8(%ebp),%edx
| 0x1a895570 <L44+2278>: mov 0xffffffd4(%ebp),%eax
| 0x1a895573 <L44+2281>: mov %edx,0x20(%eax)
| 0x1a895576 <L44+2284>: mov 0xffffffd4(%ebp),%eax
| 0x1a895579 <L44+2287>: add $0x8,%eax
| 0x1a89557c <L44+2290>: mov %eax,0x746440
| 0x1a895581 <L44+2295>: mov 0x746440,%eax
| 0x1a895586 <L44+2300>: add $0x1c,%eax
| 0x1a895589 <L44+2303>: mov %eax,0x73d090
| 0x1a89558e <L44+2308>: call 0x407e2f <siLaset>
| 0x1a895593 <L44+2313>: mov 0xffffffd0(%ebp),%ecx
| 0x1a895596 <L44+2316>: mov %ecx,0x73d090
| 0x1a89559c <L44+2322>: jmp 0x1a895630 <L44+2470>
| 0x1a8955a1 <L44+2327>: mov 0x1a896cf0,%eax
| 0x1a8955a6 <L44+2332>: mov 0xffffffd4(%ebp),%esi
| 0x1a8955a9 <L44+2335>: mov %eax,0x8(%esi)
| ---Type <return> to continue, or q <return> to quit---
| 0x1a8955ac <L44+2338>: mov 0xffffffc4(%ebp),%edx
| 0x1a8955af <L44+2341>: mov 0xc(%edx),%eax
| 0x1a8955b2 <L44+2344>: mov (%eax),%eax
| 0x1a8955b4 <L44+2346>: mov %eax,0x6d6a40
| 0x1a8955b9 <L44+2351>: add $0x400,%eax
| 0x1a8955be <L44+2356>: and $0xfffff800,%eax
| 0x1a8955c3 <L44+2361>: test %eax,%eax
| 0x1a8955c5 <L44+2363>: jne 0x1a8955dc <L44+2386>
| 0x1a8955c7 <L44+2365>: mov 0x6d6a40,%eax
| 0x1a8955cc <L44+2370>: shl $0x3,%eax
| 0x1a8955cf <L44+2373>: add $0x73b040,%eax
| 0x1a8955d4 <L44+2378>: mov %eax,0xffffff78(%ebp)
| 0x1a8955da <L44+2384>: jmp 0x1a8955f3 <L44+2409>
| 0x1a8955dc <L44+2386>: sub $0xc,%esp
| 0x1a8955df <L44+2389>: pushl 0x6d6a40
| 0x1a8955e5 <L44+2395>: call 0x44f450 <make_fixnum1>
| 0x1a8955ea <L44+2400>: add $0x10,%esp
| 0x1a8955ed <L44+2403>: mov %eax,0xffffff78(%ebp)
| 0x1a8955f3 <L44+2409>: mov 0xffffff78(%ebp),%esi
| 0x1a8955f9 <L44+2415>: mov 0xffffffd4(%ebp),%ecx
| 0x1a8955fc <L44+2418>: mov %esi,0xc(%ecx)
| 0x1a8955ff <L44+2421>: mov 0x1a896cf4,%eax
| 0x1a895604 <L44+2426>: mov 0xffffffd4(%ebp),%edx
| ---Type <return> to continue, or q <return> to quit---
| 0x1a895607 <L44+2429>: mov %eax,0x10(%edx)
| 0x1a89560a <L44+2432>: mov 0xffffffd4(%ebp),%eax
| 0x1a89560d <L44+2435>: add $0x8,%eax
| 0x1a895610 <L44+2438>: mov %eax,0x746440
| 0x1a895615 <L44+2443>: mov 0x746440,%eax
| 0x1a89561a <L44+2448>: add $0xc,%eax
| 0x1a89561d <L44+2451>: mov %eax,0x73d090
| 0x1a895622 <L44+2456>: call 0x41ab49 <Lerror>
| 0x1a895627 <L44+2461>: mov 0xffffffd0(%ebp),%ecx
| 0x1a89562a <L44+2464>: mov %ecx,0x73d090
| 0x1a895630 <L44+2470>: mov 0xffffffd4(%ebp),%esi
| 0x1a895633 <L44+2473>: movl $0x73d4a0,0x8(%esi)
| 0x1a89563a <L44+2480>: mov 0x1a896cf8,%eax
| 0x1a89563f <L44+2485>: mov 0xffffffd4(%ebp),%edx
| 0x1a895642 <L44+2488>: mov %eax,0xc(%edx)
| 0x1a895645 <L44+2491>: mov 0xffffffcc(%ebp),%esi
| 0x1a895648 <L44+2494>: mov 0xffffffd4(%ebp),%ecx
| 0x1a89564b <L44+2497>: mov %esi,0x10(%ecx)
| 0x1a89564e <L44+2500>: mov 0xffffffd4(%ebp),%eax
| 0x1a895651 <L44+2503>: add $0x8,%eax
| 0x1a895654 <L44+2506>: mov %eax,0x746440
| 0x1a895659 <L44+2511>: mov 0x746440,%eax
| 0x1a89565e <L44+2516>: add $0xc,%eax
| ---Type <return> to continue, or q <return> to quit---
| 0x1a895661 <L44+2519>: mov %eax,0x73d090
| 0x1a895666 <L44+2524>: call 0x42fbec <Lformat>
| 0x1a89566b <L44+2529>: mov 0xffffffd0(%ebp),%eax
| 0x1a89566e <L44+2532>: mov %eax,0x73d090
| 0x1a895673 <L44+2537>: mov 0xffffffc4(%ebp),%edx
| 0x1a895676 <L44+2540>: mov 0xc(%edx),%eax
| 0x1a895679 <L44+2543>: mov (%eax),%eax
| 0x1a89567b <L44+2545>: mov %eax,0x6d6a40
| 0x1a895680 <L44+2550>: add $0x400,%eax
| 0x1a895685 <L44+2555>: and $0xfffff800,%eax
| 0x1a89568a <L44+2560>: test %eax,%eax
| 0x1a89568c <L44+2562>: jne 0x1a8956a3 <L44+2585>
| 0x1a89568e <L44+2564>: mov 0x6d6a40,%eax
| 0x1a895693 <L44+2569>: shl $0x3,%eax
| 0x1a895696 <L44+2572>: add $0x73b040,%eax
| 0x1a89569b <L44+2577>: mov %eax,0xffffff6c(%ebp)
| 0x1a8956a1 <L44+2583>: jmp 0x1a8956ba <L44+2608>
| 0x1a8956a3 <L44+2585>: sub $0xc,%esp
| 0x1a8956a6 <L44+2588>: pushl 0x6d6a40
| 0x1a8956ac <L44+2594>: call 0x44f450 <make_fixnum1>
| 0x1a8956b1 <L44+2599>: add $0x10,%esp
| 0x1a8956b4 <L44+2602>: mov %eax,0xffffff6c(%ebp)
| 0x1a8956ba <L44+2608>: mov 0xffffff6c(%ebp),%ecx
| ---Type <return> to continue, or q <return> to quit---
| 0x1a8956c0 <L44+2614>: mov %ecx,0xffffffdc(%ebp)
| 0x1a8956c3 <L44+2617>: mov 0xffffffdc(%ebp),%eax
| 0x1a8956c6 <L44+2620>: cmpb $0x1,(%eax)
| 0x1a8956c9 <L44+2623>: jne 0x1a8956d7 <L44+2637>
| 0x1a8956cb <L44+2625>: movl $0x73d4a0,0xffffff68(%ebp)
| 0x1a8956d5 <L44+2635>: jmp 0x1a8956e1 <L44+2647>
| 0x1a8956d7 <L44+2637>: movl $0x6d6ab0,0xffffff68(%ebp)
| 0x1a8956e1 <L44+2647>: mov 0xffffff68(%ebp),%esi
| 0x1a8956e7 <L44+2653>: mov %esi,0xffffffd8(%ebp)
| 0x1a8956ea <L44+2656>: cmpl $0x6d6ab0,0xffffffd8(%ebp)
| 0x1a8956f1 <L44+2663>: jne 0x1a89570c <L44+2690>
| 0x1a8956f3 <L44+2665>: mov 0x73d090,%eax
| 0x1a8956f8 <L44+2670>: mov %eax,0x746440
| 0x1a8956fd <L44+2675>: mov 0x1a896dd8,%eax
| 0x1a895702 <L44+2680>: call *%eax
| 0x1a895704 <L44+2682>: mov 0xffffffd0(%ebp),%eax
| 0x1a895707 <L44+2685>: mov %eax,0x73d090
| 0x1a89570c <L44+2690>: mov 0xffffffdc(%ebp),%eax
| 0x1a89570f <L44+2693>: mov 0x4(%eax),%eax
| 0x1a895712 <L44+2696>: mov %eax,0xffffff70(%ebp)
| 0x1a895718 <L44+2702>: mov 0xffffff70(%ebp),%eax
| 0x1a89571e <L44+2708>: lea 0x0(,%eax,4),%edx
| 0x1a895725 <L44+2715>: mov 0xffffffc4(%ebp),%ecx
| ---Type <return> to continue, or q <return> to quit---
| 0x1a895728 <L44+2718>: mov 0xc(%ecx),%eax
| 0x1a89572b <L44+2721>: mov (%edx,%eax,1),%eax
| 0x1a89572e <L44+2724>: mov %eax,0xffffffd8(%ebp)
| 0x1a895731 <L44+2727>: mov 0xffffff70(%ebp),%eax
| 0x1a895737 <L44+2733>: mov %eax,0x6d6a40
| 0x1a89573c <L44+2738>: add $0x400,%eax
| 0x1a895741 <L44+2743>: and $0xfffff800,%eax
| 0x1a895746 <L44+2748>: test %eax,%eax
| 0x1a895748 <L44+2750>: jne 0x1a89575f <L44+2773>
| 0x1a89574a <L44+2752>: mov 0x6d6a40,%eax
| 0x1a89574f <L44+2757>: shl $0x3,%eax
| 0x1a895752 <L44+2760>: add $0x73b040,%eax
| 0x1a895757 <L44+2765>: mov %eax,0xffffff64(%ebp)
| 0x1a89575d <L44+2771>: jmp 0x1a895776 <L44+2796>
| 0x1a89575f <L44+2773>: sub $0xc,%esp
| 0x1a895762 <L44+2776>: pushl 0x6d6a40
| 0x1a895768 <L44+2782>: call 0x44f450 <make_fixnum1>
| 0x1a89576d <L44+2787>: add $0x10,%esp
| 0x1a895770 <L44+2790>: mov %eax,0xffffff64(%ebp)
| 0x1a895776 <L44+2796>: mov 0xffffff64(%ebp),%esi
| 0x1a89577c <L44+2802>: mov %esi,0xfffffff0(%ebp)
| 0x1a89577f <L44+2805>: sub $0x8,%esp
| 0x1a895782 <L44+2808>: pushl 0xfffffff0(%ebp)
| ---Type <return> to continue, or q <return> to quit---
| 0x1a895785 <L44+2811>: push $0x73b068
| 0x1a89578a <L44+2816>: call 0x449850 <number_plus>
| 0x1a89578f <L44+2821>: add $0x10,%esp
| 0x1a895792 <L44+2824>: mov %eax,0xfffffff4(%ebp)
| 0x1a895795 <L44+2827>: sub $0x8,%esp
| 0x1a895798 <L44+2830>: mov 0xfffffff4(%ebp),%eax
| 0x1a89579b <L44+2833>: pushl 0x4(%eax)
| 0x1a89579e <L44+2836>: pushl 0xffffffc4(%ebp)
| 0x1a8957a1 <L44+2839>: call 0x4075e4 <fLrow_major_aref>
| 0x1a8957a6 <L44+2844>: add $0x10,%esp
| 0x1a8957a9 <L44+2847>: mov 0x4(%eax),%eax
| 0x1a8957ac <L44+2850>: mov %eax,0xffffffdc(%ebp)
| 0x1a8957af <L44+2853>: mov 0xffffffd8(%ebp),%eax
| 0x1a8957b2 <L44+2856>: cmp 0xffffffdc(%ebp),%eax
| 0x1a8957b5 <L44+2859>: jl 0x1a8957b9 <L44+2863>
| 0x1a8957b7 <L44+2861>: jmp 0x1a89580a <L44+2944>
| 0x1a8957b9 <L44+2863>: mov 0xffffff70(%ebp),%eax
| 0x1a8957bf <L44+2869>: lea 0x0(,%eax,4),%ebx
| 0x1a8957c6 <L44+2876>: mov 0xffffffc4(%ebp),%eax
| 0x1a8957c9 <L44+2879>: mov 0xc(%eax),%ecx
| 0x1a8957cc <L44+2882>: mov 0xffffff70(%ebp),%eax
| 0x1a8957d2 <L44+2888>: lea 0x0(,%eax,4),%edx
| 0x1a8957d9 <L44+2895>: mov 0xffffffc4(%ebp),%esi
| ---Type <return> to continue, or q <return> to quit---
| 0x1a8957dc <L44+2898>: mov 0xc(%esi),%eax
| 0x1a8957df <L44+2901>: mov (%edx,%eax,1),%eax
| 0x1a8957e2 <L44+2904>: inc %eax
| 0x1a8957e3 <L44+2905>: mov %eax,(%ebx,%ecx,1)
| 0x1a8957e6 <L44+2908>: mov 0xffffffd4(%ebp),%eax
| 0x1a8957e9 <L44+2911>: movl $0x73d4a0,0x8(%eax)
| 0x1a8957f0 <L44+2918>: mov 0xffffffd4(%ebp),%eax
| 0x1a8957f3 <L44+2921>: add $0x8,%eax
| 0x1a8957f6 <L44+2924>: mov %eax,0x746440
| 0x1a8957fb <L44+2929>: mov 0x746440,%eax
| 0x1a895800 <L44+2934>: add $0x4,%eax
| 0x1a895803 <L44+2937>: mov %eax,0x73d090
| 0x1a895808 <L44+2942>: jmp 0x1a895883 <L44+3065>
| 0x1a89580a <L44+2944>: mov 0xffffff70(%ebp),%eax
| 0x1a895810 <L44+2950>: lea 0x0(,%eax,4),%edx
| 0x1a895817 <L44+2957>: mov 0xffffffc4(%ebp),%ecx
| 0x1a89581a <L44+2960>: mov 0xc(%ecx),%eax
| 0x1a89581d <L44+2963>: movl $0x0,(%edx,%eax,1)
| 0x1a895824 <L44+2970>: cmpl $0x0,0xffffff70(%ebp)
| 0x1a89582b <L44+2977>: je 0x1a89582f <L44+2981>
| 0x1a89582d <L44+2979>: jmp 0x1a895853 <L44+3017>
| 0x1a89582f <L44+2981>: mov 0xffffffd4(%ebp),%esi
| 0x1a895832 <L44+2984>: movl $0x6d6ab0,0x8(%esi)
| ---Type <return> to continue, or q <return> to quit---
| 0x1a895839 <L44+2991>: mov 0xffffffd4(%ebp),%eax
| 0x1a89583c <L44+2994>: add $0x8,%eax
| 0x1a89583f <L44+2997>: mov %eax,0x746440
| 0x1a895844 <L44+3002>: mov 0x746440,%eax
| 0x1a895849 <L44+3007>: add $0x4,%eax
| 0x1a89584c <L44+3010>: mov %eax,0x73d090
| 0x1a895851 <L44+3015>: jmp 0x1a895883 <L44+3065>
| 0x1a895853 <L44+3017>: cmpl $0x80000001,0xffffff70(%ebp)
| 0x1a89585d <L44+3027>: jg 0x1a895878 <L44+3054>
| 0x1a89585f <L44+3029>: mov 0x73d090,%eax
| 0x1a895864 <L44+3034>: mov %eax,0x746440
| 0x1a895869 <L44+3039>: mov 0x1a896dd8,%eax
| 0x1a89586e <L44+3044>: call *%eax
| 0x1a895870 <L44+3046>: mov 0xffffffd0(%ebp),%eax
| 0x1a895873 <L44+3049>: mov %eax,0x73d090
| 0x1a895878 <L44+3054>: decl 0xffffff70(%ebp)
| 0x1a89587e <L44+3060>: jmp 0x1a895718 <L44+2702>
| 0x1a895883 <L44+3065>: lea 0xfffffff8(%ebp),%esp
| 0x1a895886 <L44+3068>: pop %ebx
| 0x1a895887 <L44+3069>: pop %esi
| 0x1a895888 <L44+3070>: leave
| 0x1a895889 <L44+3071>: ret
| End of assembler dump.
| (gdb)
| (gdb)
| (gdb)
|
|
|
|
| |
| | 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
| |
| |
| | _______________________________________________
| | Gcl-devel mailing list
| | address@hidden
| | http://lists.gnu.org/mailman/listinfo/gcl-devel
| |
| |
- 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, 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) - PS,
Mike Thomas <=
- 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