[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
RE: [Gcl-devel] ANSI Windows: in-package failure
From: |
Mike Thomas |
Subject: |
RE: [Gcl-devel] ANSI Windows: in-package failure |
Date: |
Tue, 3 Feb 2004 17:59:54 +1000 |
Hi Camm.
Thanks very much for your continuing generous support and help. This is a
messy email but there are basically three parts to it:
- a list of files with Windows specific code in them with an explanation
of the macros used to delimit the code,
- a debugger trace, and
- the grep output used to construct the list of Windows files.
These parts are labelled respectively PART 1, PART 2 and PART 3 so you can
search for them easily in your editor.
Best of luck!!
Mike Thomas.
| OK, this is very much Windows specific, i.e. does not occur on the
| Linux build. Great job in identifying a simple test case to chase
| down! I would suggest breaking at in_package, and stepping through
| each call in the error reporting function tree, printing out both the C
| argumens and the lisp stack at each step. Then I can do likewise and
| we can comppare. I.e., a C argument given as an object can be
| investigated in gdb via
|
| p <address>->d
| p <address>->c (if cons, etc.) or by
|
| p pp(address)
|
| The lisp stack can be examined via
|
| p vs_top-vs_base
|
| For each element between vs_top and vs_base, i.e. for i from 0 to
| vs_top-vs_base, do
|
| p vs_base[i]
| p vs_base[i]->d
| p vs_base[i]->c (if cons, etc.) or
|
| p pp(vs_base[i])
PART 1
At the very end of this email is a list of grep hits for winnt, WIN32 and
MINGW. A summary of the files with windows specific code is as follows:
.LSP .LISP
cmpnew/gcl_cmpmain.lsp
unixport/init_ansi_gcl.lsp
xgcl-2/init_xgcl.lsp
lsp/make.lisp
.C .H .D
gcl-tk/guis.c
gcl-tk/tkMain.c
o/file.c
o/firstfile.c
o/lastfile.c
o/main.c
o/mingfile.c
o/mingwin.c
o/rel_coff.c
o/run_process.c
o/sfasl.c
o/sgbc.c
o/sockets.c
o/unexnt.c
o/unixfsys.c
o/unixtime.c
o/usig.c
o/usig2.c
h/cmpinclude.h
h/config.h
h/mingw.h
h/protoize.h
h/usig.h
h/wincoff.h
o/file.d
One of the first clean up jobs I did was to rationalise the Windows compiler
and OS macros in such a way that MinGW32 gcc specific code was set out under
the normal MingW32 gcc compiler macro __MINGW32__. Likewise, those vestiges
of Cygwin gcc code go under __CYGWIN32__.
Code which is generic Windows and should compile under any conforming
Windows C compiler go under the normal MS API Win32 macro: _WIN32
PART 2
The following very long debugger trace gets lost a couple of times and has
to restart at deeper locations and finally gives up I'm sorry!
====================================================================
GCL (GNU Common Lisp) (2.7.0) Mon Feb 2 16:42:38 EAST 2004
Licensed under GNU Library General Public License
Dedicated to the memory of W. Schelter
Use (help) to get some basic information on how to use GCL.
Breakpoint 2, in_package (n=0x1012dee8, ns=0x64fa70, ul=0x64fa70, isize=0,
esize=0) at package.d:219
219 vs_mark;
(gdb) c
Continuing.
>(in-package 'WRONG)
Breakpoint 2, in_package (n=0x10414fc0, ns=0x64fa70, ul=0x103f2edc, isize=0,
esize=0) at package.d:219
219 vs_mark;
(gdb) p n->d
$10 = {t = 8 '\b', flag = 0 '\0', s = 0 '\0', m = 0 '\0'}
(gdb) p (enum type) n->d.t
$11 = t_symbol
(gdb) p n->s
$12 = {t = 8 '\b', flag = 0 '\0', s = 0 '\0', m = 0 '\0', s_dbind = 0x0,
s_sfdef = 0x64fa70 <Cnil_body>, st_self = 0x1382803c "WRONG", st_fillp =
5,
s_gfdef = 0x0, s_plist = 0x64fa70, s_hpack = 0x10103f70, s_stype = 0,
s_mflag = 0}
(gdb) p (enum type) ns->d.t
$13 = t_symbol
(gdb) p ns->s
$14 = {t = 8 '\b', flag = 0 '\0', s = 0 '\0', m = 0 '\0', s_dbind =
0x64fa70,
s_sfdef = 0x64fa70 <Cnil_body>, st_self = 0x623388 "NIL", st_fillp = 3,
s_gfdef = 0x0, s_plist = 0x64fa70, s_hpack = 0x10103fa4, s_stype = 1,
s_mflag = 0}
(gdb) p ul->d
$15 = {t = 0 '\0', flag = 0 '\0', s = 0 '\0', m = 0 '\0'}
(gdb) p (enum type) ul->d.t
$16 = t_cons
(gdb) p ul->c
$17 = {t = 0 '\0', flag = 0 '\0', s = 0 '\0', m = 0 '\0', c_cdr = 0x64fa70,
c_car = 0x10103fa4}
(gdb) p pp(n)
WRONG$18 = void
(gdb) p pp(ns)
NIL$19 = void
(gdb) p pp(ul)
(#<LISP package>)$20 = void
(gdb) p vs_top-vs_base
$22 = 9
(gdb) p vs_base[0]
$23 = 0x10414fc0
(gdb) p vs_base[0]->d
$24 = {t = 8 '\b', flag = 0 '\0', s = 0 '\0', m = 0 '\0'}
(gdb) p pp(vs_base[0])
WRONG$25 = void
(gdb) p pp(vs_base[1])
NIL$26 = void
(gdb) p pp(vs_base[2])
(#<LISP package>)$27 = void
(gdb) p pp(vs_base[3])
0$28 = void
(gdb) p pp(vs_base[4])
0$29 = void
(gdb) p pp(vs_base[5])
NIL$30 = void
(gdb) p pp(vs_base[6])
NIL$31 = void
(gdb) p pp(vs_base[7])
NIL$32 = void
(gdb) p pp(vs_base[8])
NIL$33 = void
(gdb) p pp(vs_base[9])
NIL$34 = void
214 object n, ns, ul;
215 int isize,esize;
216 {
217
218 object x, y;
219 vs_mark;
220
221 x = find_package(n);
222 if (x == Cnil) {
223 #ifdef ANSI_COMMON_LISP
(gdb) n
221 x = find_package(n);
(gdb) n
222 if (x == Cnil) {
(gdb) n
224 FEpackage_error(n,"No such package");
(gdb) s
FEpackage_error (obj=0x10414fc0, s=0x6297c0 "No such package") at
error.c:385
385 Icall_continue_error_handler(sKpackage_error,
(gdb) p obj->d
$38 = {t = 8 '\b', flag = 0 '\0', s = 0 '\0', m = 0 '\0'}
(gdb) p pp(obj)
WRONG$39 = void
(gdb) s
make_simple_string (s=0x6297c0 "No such package") at string.d:61
61 vs_mark;
(gdb) finish
Run till exit from #0 make_simple_string (s=0x6297c0 "No such package")
at string.d:67
0x0041b6e1 in FEpackage_error (obj=0x10414fc0, s=0x6297c0 "No such package")
at error.c:385
385 Icall_continue_error_handler(sKpackage_error,
Value returned is $40 = 0x10413fc0
(gdb) s
make_simple_string (s=0x6255a0 "A package error occurred on ~S: ~S.")
at string.d:61
61 vs_mark;
(gdb) finish
Run till exit from #0 make_simple_string (
s=0x6255a0 "A package error occurred on ~S: ~S.") at string.d:61
0x0041b6f7 in FEpackage_error (obj=0x10414fc0, s=0x6297c0 "No such package")
at error.c:385
385 Icall_continue_error_handler(sKpackage_error,
Value returned is $41 = 0x10413fa8
(gdb) s
Icall_continue_error_handler (error_name=0x1010c5e8,
error_format_string=0x10413fa8, nfmt_args=2) at error.c:145
145 b[0]= error_name;
(gdb) p error_name->d
$42 = {t = 8 '\b', flag = 0 '\0', s = 0 '\0', m = 0 '\0'}
(gdb) p pp(error_name)
PACKAGE-ERROR$43 = void
(gdb) p pp(error_format_string)
A package error occurred on ~S: ~S.$44 = void
(gdb) s
146 b[1]= Ct; /* continue format */
(gdb) n
147 b[2] = ihs_top_function_name(ihs_top);
(gdb) p vs_top-vs_base
$45 = 9
(gdb) p pp(vs_base[0])
WRONG$46 = void
(gdb) p pp(vs_base[1])
NIL$47 = void
(gdb) p pp(vs_base[2])
(#<LISP package>)$48 = void
(gdb) p pp(vs_base[3])
0$49 = void
(gdb) p pp(vs_base[4])
0$50 = void
(gdb) p pp(vs_base[5])
NIL$51 = void
(gdb) p pp(vs_base[6])
NIL$52 = void
(gdb) n
148 b[3] = null_string; /*continue format arg*/
(gdb) n
149 b[4] = error_format_string;
(gdb) n
150 {int i = 0;
(gdb) n
152 va_start(ap,nfmt_args);
(gdb) n
153 while (i++ < nfmt_args)
(gdb) n
154 { b[i+4]= va_arg(ap,object);
(gdb) n
153 while (i++ < nfmt_args)
(gdb) n
154 { b[i+4]= va_arg(ap,object);
(gdb) n
153 while (i++ < nfmt_args)
(gdb) n
158 return IapplyVector(sSuniversal_error_handler,nfmt_args+5,b);
(gdb) s
IapplyVector (fun=0x1010c774, nargs=7, base=0x22f7a0) at nfunlink.c:188
188 object *oldtop = vs_top;
(gdb) p pp(fun)
UNIVERSAL-ERROR-HANDLER$53 = void
(gdb) p fun->d
$54 = {t = 8 '\b', flag = 0 '\0', s = 0 '\0', m = 0 '\0'}
(gdb) p vs_top-vs_base
$55 = 9
(gdb) p vs_top
$56 = (object *) 0x6bf490
(gdb) n
192 { object *b = base;
(gdb) p vs_top
$57 = (object *) 0x6bf490
(gdb) p oldtop
$58 = (object *) 0x6bf490
(gdb) p base
$59 = (object *) 0x22f7a0
(gdb) n
193 int n = nargs;
(gdb) n
194 base = vs_top; vs_top +=n;
(gdb) n
195 while (--n>=0) { base[n] = b[n];}}
(gdb) n
196 vs_check;
(gdb) n
197 switch(type_of(fun)) {
(gdb) p vs_top-vs_base
$60 = 16
(gdb) p pp(vs_base[0])
WRONG$61 = void
(gdb) p pp(vs_base[1])
NIL$62 = void
(gdb) p pp(vs_base[2])
(#<LISP package>)$63 = void
(gdb) p pp(vs_base[3])
0$64 = void
(gdb) p pp(vs_base[4])
0$65 = void
(gdb) p pp(vs_base[5])
NIL$66 = void
(gdb) p pp(vs_base[6])
NIL$67 = void
(gdb) p pp(vs_base[7])
NIL$68 = void
(gdb) p pp(vs_base[8])
NIL$69 = void
(gdb) p pp(vs_base[9])
PACKAGE-ERROR$70 = void
(gdb) p pp(vs_base[10])
T$71 = void
(gdb) p pp(vs_base[11])
IN-PACKAGE$72 = void
(gdb) p pp(vs_base[12])
#<OBJNULL>$73 = void
(gdb) p pp(vs_base[13])
A package error occurred on ~S: ~S.$74 = void
(gdb) p pp(vs_base[14])
WRONG$75 = void
(gdb) p pp(vs_base[15])
No such package$76 = void
(gdb) p pp(vs_base[16])
#<OBJNULL>$77 = void
(gdb)
(gdb) n
238 vs_base = base;
(gdb) n
239 funcall(fun);
(gdb) s
funcall (fun=0x1010c774) at eval.c:169
169 if (fun == OBJNULL)
(gdb) p fun->d
$78 = {t = 8 '\b', flag = 0 '\0', s = 0 '\0', m = 0 '\0'}
(gdb) p pp(fun)
UNIVERSAL-ERROR-HANDLER$79 = void
(gdb) n
171 switch (type_of(fun)) {
(gdb) n
218 {object x = fun->s.s_gfdef;
(gdb) n
219 if (x) { fun = x; goto TOP;}
(gdb) p vs_top-vs_base
$80 = 7
(gdb) p pp(vs_base[0])
PACKAGE-ERROR$81 = void
(gdb) p pp(vs_base[1])
T$82 = void
(gdb) p pp(vs_base[2])
IN-PACKAGE$83 = void
(gdb) p pp(vs_base[3])
#<OBJNULL>$84 = void
(gdb) p pp(vs_base[4])
A package error occurred on ~S: ~S.$85 = void
(gdb) p pp(vs_base[5])
WRONG$86 = void
(gdb) p pp(vs_base[6])
No such package$87 = void
(gdb) p pp(vs_base[7])
#<OBJNULL>$88 = void
(gdb) n
169 if (fun == OBJNULL)
(gdb) n
171 switch (type_of(fun)) {
(gdb) n
173 MMcall(fun);
(gdb) s
L8 () at clcs_kcl_cond.c:120
120 {register object *VOL base=vs_base;
(gdb) p VOL
No symbol "VOL" in current context.
(gdb) info frame
Stack level 0, frame at 0x22f6e0:
eip = 0x49a50f in L8 (clcs_kcl_cond.c:120); saved eip 0x41d35a
called by frame at 0x22f730
source language c.
Arglist at 0x22f6d8, args:
Locals at 0x22f6d8, Previous frame's sp is 0x22f6e0
Saved registers:
ebx at 0x22f6cc, ebp at 0x22f6d8, esi at 0x22f6d0, edi at 0x22f6d4,
eip at 0x22f6dc
(gdb) p vs_top-vs_base
$89 = 7
(gdb) p pp(vs_base[0])
PACKAGE-ERROR$90 = void
(gdb) p pp(vs_base[1])
T$91 = void
(gdb) p pp(vs_base[2])
IN-PACKAGE$92 = void
(gdb) p pp(vs_base[3])
#<OBJNULL>$93 = void
(gdb) p pp(vs_base[4])
A package error occurred on ~S: ~S.$94 = void
(gdb) p pp(vs_base[5])
WRONG$95 = void
(gdb) p pp(vs_base[6])
No such package$96 = void
(gdb) p pp(vs_base[7])
#<OBJNULL>$97 = void
(gdb) n
121 register object *VOL sup=base+VM8; VC8
(gdb) n
122 vs_check;
(gdb) n
123 bds_check;
(gdb) n
128 V8=(base[0]);
(gdb) n
129 V9=(base[1]);
(gdb) n
130 V10=(base[2]);
(gdb) n
131 base[3]=MMcons(base[3],Cnil);
(gdb) n
132 V11=(base[4]);
(gdb) n
133 vs_base=vs_base+5;
(gdb) n
134 vs_top[0]=Cnil;
(gdb) n
135 {object *p=vs_top;
(gdb) p vs_top-vs_base
$98 = 2
(gdb) p pp(vs_base[0])
WRONG$99 = void
(gdb) p pp(vs_base[1])
No such package$100 = void
(gdb) p pp(vs_base[2])
NIL$101 = void
(gdb) n
136 for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
(gdb) p p
$102 = (object *) 0x6bf4ac
(gdb) p *p
$103 = 0x64fa70
(gdb) p vs_top
$104 = (object *) 0x6bf4ac
(gdb) p pp(vs_top)
Error in IN-PACKAGE [or a callee]: Caught fatal error [memory may be
damaged]
Fast links are on: do (use-fast-links nil) for debugging
Broken at CONDITIONS::CLCS-UNIVERSAL-ERROR-HANDLER. Type :H for Help.
1 (Continue) Return to top level.
dbl:>>
WOOPS....
Program exited normally.
The program being debugged stopped while in a function called from GDB.
When the function (pp) is done executing, GDB will silently
stop (instead of continuing to evaluate the expression containing
the function call).
(gdb) r
Starting program: c:\cvs\head\gcl\ansi-tests/../unixport/saved_ansi_gcl.exe
0x0064D830 BSS start in memory.
0x00b30000 BSS offset in saved executable.
0x00114e40 BSS size in bytes.
0x00114e40 bytes read.
0x10100000 Heap start in memory.
0x00730000 Heap offset in executable.
0x00400000 Heap size in bytes.
0x10100000 file base.
GCL (GNU Common Lisp) (2.7.0) Mon Feb 2 16:42:38 EAST 2004
Licensed under GNU Library General Public License
Dedicated to the memory of W. Schelter
Use (help) to get some basic information on how to use GCL.
Breakpoint 2, in_package (n=0x1012dee8, ns=0x64fa70, ul=0x64fa70, isize=0,
esize=0) at package.d:219
219 vs_mark;
(gdb) c
Continuing.
>(in-package 'WRONG)
Breakpoint 2, in_package (n=0x10414fc0, ns=0x64fa70, ul=0x103f2edc, isize=0,
esize=0) at package.d:219
219 vs_mark;
(gdb) break funcal
Function "funcal" not defined.
(gdb) break funcall
Breakpoint 3 at 0x41d27a: file eval.c, line 169.
(gdb) c
Continuing.
Breakpoint 3, funcall (fun=0x1010c774) at eval.c:169
169 if (fun == OBJNULL)
(gdb) bt
#0 funcall (fun=0x1010c774) at eval.c:169
#1 0x0044a5dc in IapplyVector (fun=0x1010c774, nargs=7, base=0x6bf490)
at nfunlink.c:239
#2 0x0041aeb2 in Icall_continue_error_handler (error_name=0x1010c5e8,
error_format_string=0x10413fa8, nfmt_args=2) at error.c:158
#3 0x0041b706 in FEpackage_error (obj=0x10414fc0,
s=0x6297c0 "No such package") at error.c:385
#4 0x00451d10 in in_package (n=0x10414fc0, ns=0x64fa70, ul=0x103f2edc,
isize=0, esize=0) at package.d:224
#5 0x004539d9 in Lin_package () at package.d:778
#6 0x0041f2f7 in eval (form=0x64fa70) at eval.c:1090
#7 0x0041f7f1 in fLeval (x0=0x103f2f18) at eval.c:1178
#8 0x00431c76 in c_apply_n (fn=0x41f795 <fLeval>, n=1, x=0x6bf458)
at funlink.c:363
#9 0x0044a49b in IapplyVector (fun=0x10107e4c, nargs=1, base=0x6bf458)
at nfunlink.c:229
#10 0x0041d427 in funcall (fun=0x10107e4c) at eval.c:190
#11 0x0041e3ef in symlispcall (sym=0x10109b1c, base=0x6bf454, narg=1)
at eval.c:507
#12 0x0060d77a in LI1 () at gcl_top.c:140
#13 0x0041c88c in quick_call_sfun (fun=0x10107050) at eval.c:117
#14 0x0041d3a3 in funcall (fun=0x10107050) at eval.c:178
#15 0x0044a5dc in IapplyVector (fun=0x10107050, nargs=0, base=0x6bf42c)
---Type <return> to continue, or q <return> to quit---q
at nfunlQuit (expect signal SIGINT when the program is resumed)
(gdb)
======================================================================
WOOPS
======================================================================
Breakpoint 2, funcall (fun=0x1010c774) at eval.c:169
169 if (fun == OBJNULL)
(gdb) delete 2
(gdb) delete 1
(gdb)
171 switch (type_of(fun)) {
(gdb) n
218 {object x = fun->s.s_gfdef;
(gdb) n
219 if (x) { fun = x; goto TOP;}
(gdb) n
169 if (fun == OBJNULL)
(gdb) n
171 switch (type_of(fun)) {
(gdb) n
173 MMcall(fun);
(gdb) s
L8 () at clcs_kcl_cond.c:120
120 {register object *VOL base=vs_base;
(gdb) n
121 register object *VOL sup=base+VM8; VC8
(gdb) p vs_top-vs_base
$1 = 7
(gdb) p pp(vs_base[0])
PACKAGE-ERROR$2 = void
(gdb) p pp(vs_base[1])
T$3 = void
(gdb) p pp(vs_base[2])
IN-PACKAGE$4 = void
(gdb) p pp(vs_base[3])
#<OBJNULL>$5 = void
(gdb) p pp(vs_base[4])
A package error occurred on ~S: ~S.$6 = void
(gdb) p pp(vs_base[5])
WRONG$7 = void
(gdb) p pp(vs_base[6])
No such package$8 = void
(gdb) p pp(vs_base[7])
#<OBJNULL>$9 = void
(gdb)
(gdb) n
122 vs_check;
(gdb) n
123 bds_check;
(gdb) n
128 V8=(base[0]);
(gdb) n
129 V9=(base[1]);
(gdb) n
130 V10=(base[2]);
(gdb) n
131 base[3]=MMcons(base[3],Cnil);
(gdb) n
132 V11=(base[4]);
(gdb) n
133 vs_base=vs_base+5;
(gdb) n
134 vs_top[0]=Cnil;
(gdb) n
135 {object *p=vs_top;
(gdb) n
136 for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
(gdb) n
137 base[5]=MMcons(base[5],base[3]);
(gdb) n
138 vs_top=sup;
(gdb) n
140 V12= list(5,(V8),(V9),(V10),(base[3]->c.c_car),(V11));
(gdb) n
141 if(!(equal((V12),(VV[5]->s.s_dbind)))){
(gdb) n
142 goto T18;}
(gdb) n
155
bds_bind(VV[5],list(5,(V8),(V9),(V10),(base[3]->c.c_car),(V11)))
;
(gdb) n
156 base[9]= make_cons((V8),Cnil);
(gdb) n
157 base[10]= (VV[0]->s.s_dbind);
(gdb) n
158 vs_top=(vs_base=base+9)+2;
(gdb) n
159 Lgethash();
(gdb) n
160 vs_top=sup;
(gdb) n
161 V13= vs_base[0];
(gdb) n
162 if(((V13))==Cnil){
(gdb) n
165 V14= CMPcar((V13));
(gdb) n
166 if(((V9))==Cnil){
(gdb) n
168 base[9]=MMcons(Cnil,base[5]);
(gdb) n
169 base[10]=alloc_frame_id();
(gdb) n
170 base[10]=MMcons(base[10],base[9]);
(gdb) n
171 frs_push(FRS_CATCH,(base[10]->c.c_car));
(gdb) n
172 if(nlj_active){
(gdb) n
177 V15=
(gdb) n
179 V16=
(gdb) n
181 V17=
(VFUN_NARGS=6,(*(LnkLI43))(VV[8],VV[9],VV[10],V15,VV[11],V1
6));
(gdb) s
LnkTLI43 (first=0x1010fbf4) at clcs_kcl_cond.c:830
830 static object LnkTLI43(object first,...){object V1;va_list
ap;va_start(
ap,first);V1=call_vproc_new(VV[43],(void **)(void
*)&LnkLI43,first,ap);va_end(ap
);return V1;} /* MAKE-RESTART */
(gdb)
(gdb) p vs_top-vs_base
$10 = 8
(gdb) p pp(vs_base[0])
(NIL
(WRONG
No such package)
#<OBJNULL>)$11 = void
(gdb) p pp(vs_base[1])
(#<@1030AFD8>
NIL
(WRONG
No such package)
#<OBJNULL>)$12 = void
(gdb) p pp(vs_base[2])
NIL$13 = void
(gdb) p pp(vs_base[3])
#<OBJNULL>$14 = void
(gdb) p pp(vs_base[4])
#<OBJNULL>$15 = void
(gdb) p pp(vs_base[5])
#<OBJNULL>$16 = void
(gdb) p pp(vs_base[6])
#<OBJNULL>$17 = void
(gdb) p pp(vs_base[7])
#<OBJNULL>$18 = void
(gdb) p pp(vs_base[8])
#<OBJNULL>$19 = void
(gdb)
(gdb) s
call_vproc_new (sym=0x1033db40, link=0x634db8, first=0x1010fbf4,
ll=0x22f664
"\030l\030\020+?\032\020@|?\020|+3\020_+?\020h-?\020-<?\020a?+wG
;?w\001") at funlink.c:960
960 {return call_proc_new(sym,link,VFUN_NARGS |
VFUN_NARG_BIT,first,ll);}
(gdb) p vs_top-vs_base
$20 = 8
(gdb) p sym->d
$21 = {t = 8 '\b', flag = 0 '\0', s = 0 '\0', m = 0 '\0'}
(gdb) p pp(sym->d)
Program received signal SIGSEGV, Segmentation fault.
0x0045f370 in princ (obj=0x8, strm=0x1010a4c8) at print.d:1879
1879 switch (type_of(obj)) {
The program being debugged was signaled while in a function called from GDB.
GDB remains in the frame where the signal was received.
To change this behavior use "set unwindonsignal on"
Evaluation of the expression containing the function (pp) will be abandoned.
(gdb)
(gdb) b call_vproc_new
Breakpoint 3 at 0x4371cf: file funlink.c, line 960.
(gdb) r
Starting program: c:\cvs\head\gcl\ansi-tests/../unixport/saved_ansi_gcl.exe
0x0064D830 BSS start in memory.
0x00b30000 BSS offset in saved executable.
0x00114e40 BSS size in bytes.
0x00114e40 bytes read.
0x10100000 Heap start in memory.
0x00730000 Heap offset in executable.
0x00400000 Heap size in bytes.
0x10100000 file base.
GCL (GNU Common Lisp) (2.7.0) Mon Feb 2 16:42:38 EAST 2004
Licensed under GNU Library General Public License
Dedicated to the memory of W. Schelter
Use (help) to get some basic information on how to use GCL.
>(in-package 'WRONG)
Breakpoint 3, call_vproc_new (sym=0x1033db40, link=0x634db8,
first=0x1010fbf4,
ll=0x22f664
"\030l\030\020+?\032\020@|?\020|+3\020_+?\020h-?\020-<?\020a?+wG
;?w\001") at funlink.c:960
960 {return call_proc_new(sym,link,VFUN_NARGS |
VFUN_NARG_BIT,first,ll);}
(gdb)(gdb) p pp(vs_base[0])
(NIL (WRONG No such package) #<OBJNULL>)$22 = void
(gdb) p pp(vs_base[1])
(#<@1030AFD8> NIL
(WRONG No such package)
#<OBJNULL>)$23 = void
(gdb) p pp(vs_base[2])
NIL$24 = void
(gdb) p pp(vs_base[3])
#<OBJNULL>$25 = void
(gdb) p pp(vs_base[4])
#<OBJNULL>$26 = void
(gdb) p pp(vs_base[5])
#<OBJNULL>$27 = void
(gdb) p vs_base
$28 = (object *) 0x6bf4b4
(gdb) p *vs_base
$29 = 0x103f2d74
(gdb) p vs_top
$30 = (object *) 0x6bf4d4
(gdb) p *vs_top
$31 = 0x0
(gdb) p vs_top-vs_base
$32 = 8
(gdb) s
call_proc_new (sym=0x1033db40, link=0x634db8, argd=2054, first=0x1010fbf4,
ll=0x22f664
"\030l\030\020+?\032\020@|?\020|+3\020_+?\020h-?\020-<?\020a?+wG
;?w\001") at funlink.c:829
829 check_type_symbol(&sym);
(gdb) p vs_top-vs_base
$33 = 8
(gdb)(gdb) p sym->d
$34 = {t = 8 '\b', flag = 0 '\0', s = 0 '\0', m = 0 '\0'}
(gdb) p link->d
Attempt to dereference a generic pointer.
(gdb) p first->d
$35 = {t = 8 '\b', flag = 0 '\0', s = 0 '\0', m = 0 '\0'}
(gdb) p pp(vs_base[0])
(NIL
(WRONG
No such package)
#<OBJNULL>)$36 = void
(gdb) p pp(vs_base[1])
(#<@1030AFD8>
NIL
(WRONG
No such package)
#<OBJNULL>)$37 = void
(gdb) p pp(vs_base[2])
NIL$38 = void
(gdb) p pp(vs_base[3])
#<OBJNULL>$39 = void
(gdb) p pp(vs_base[4])
#<OBJNULL>$40 = void
(gdb) p pp(vs_base[5])
#<OBJNULL>$41 = void
(gdb) p pp(vs_base[6])
#<OBJNULL>$42 = void
(gdb) p pp(vs_base[7])
#<OBJNULL>$43 = void
(gdb) p pp(vs_base[8])
#<OBJNULL>$44 = void
(gdb)
(gdb) n
830 fun=sym->s.s_gfdef;
(gdb) n
831 if (fun && (type_of(fun)==t_sfun
(gdb) n
836 fn = fun->sfn.sfn_self;
(gdb) n
837 if (type_of(fun)==t_vfun)
(gdb) n
839 nargs=SFUN_NARGS(argd);
(gdb) n
840 if (nargs < fun->vfn.vfn_minargs || nargs >
fun->vfn.vfn_maxargs
(gdb) n
843 if ((VFUN_NARG_BIT & argd) == 0)
(gdb) n
857 (void) vpush_extend(link,sLAlink_arrayA->s.s_dbind);
(gdb) n
858 (void) vpush_extend(*link,sLAlink_arrayA->s.s_dbind);
(gdb) n
859 *link = (void *)fn;
(gdb) n
862 if (nargs < 10)
(gdb) n
867 if (nargs-- > 0)
(gdb) n
869 x0=first;
(gdb) n
872 if (nargs-- > 0)
(gdb) n
873 x1=va_arg(ll,object);
(gdb) n
876 if (nargs-- > 0)
(gdb) n
877 x2=va_arg(ll,object);
(gdb) n
880 if (nargs-- > 0) x3=va_arg(ll,object);
(gdb) n
883 if (nargs-- > 0) x4=va_arg(ll,object);
(gdb) n
886 if (nargs-- > 0) x5=va_arg(ll,object);
(gdb) n
889 if (nargs-- > 0) x6=va_arg(ll,object);
(gdb) n
891 return(LCAST(fn)(x0,x1,x2,x3,x4,x5));
(gdb) s
LI20 (first=0x1010fbf4) at clcs_restart.c:589
589 int narg = VFUN_NARGS; VMB20 VMS20 VMV20
(gdb)
(gdb) p first->d
$45 = {t = 8 '\b', flag = 0 '\0', s = 0 '\0', m = 0 '\0'}
(gdb) p pp(first)
NAME$46 = void
(gdb) p vs_top-vs_base
$47 = 8
(gdb) p pp(vs_base[0])
(NIL
(WRONG
No such package)
#<OBJNULL>)$48 = void
(gdb) p pp(vs_base[1])
(#<@1030AFD8>
NIL
(WRONG
No such package)
#<OBJNULL>)$49 = void
(gdb) p pp(vs_base[2])
NIL$50 = void
(gdb) p pp(vs_base[3])
#<OBJNULL>$51 = void
(gdb) p pp(vs_base[4])
#<OBJNULL>$52 = void
(gdb)
(gdb) n
595 va_start(ap,first);
(gdb) n
598 parse_key_new_new(narg,Vcs +0,(struct key *)(void
*)&LI20key,fir
st,ap);
(gdb) n
599 V71=(Vcs[0]);
(gdb) n
600 V72=(Vcs[1]);
(gdb) n
601 V73=(Vcs[2]);
(gdb) n
602 V74=(Vcs[3]);
(gdb) n
603 if(Vcs[4]==0){
(gdb) n
604 V75= VV[101];
(gdb) n
607 base[0]= VV[12];
(gdb) n
608 base[1]= (V71);
(gdb) n
609 base[2]= (V72);
(gdb) n
610 base[3]= (V73);
(gdb) n
611 base[4]= (V74);
(gdb) n
612 base[5]= (V75);
(gdb) n
613 vs_top=(vs_base=base+0)+6;
(gdb) n
614 siLmake_structure();
(gdb) n
615 vs_top=sup;
(gdb) n
616 {object V76 = vs_base[0];
(gdb) n
617 VMR20(V76)}
(gdb) n
621 }}
(gdb) n
call_proc_new (sym=0x1033db40, link=0x634db8, argd=2054, first=0x1010fbf4,
ll=0x22f678 "h-?\020-<?\020a?+wG;?w\001") at funlink.c:956
956 }
(gdb)
(gdb) s
0x004371ec in call_vproc_new (sym=0x1033db40, link=0x634db8,
first=0x1010fbf4,
ll=0x22f664
"\030l\030\020+?\032\020@|?\020|+3\020_+?\020h-?\020-<?\020a?+wG
;?w\001") at funlink.c:960
960 {return call_proc_new(sym,link,VFUN_NARGS |
VFUN_NARG_BIT,first,ll);}
(gdb) s
0x0049c419 in LnkTLI43 (first=0x1010fbf4) at clcs_kcl_cond.c:830
830 static object LnkTLI43(object first,...){object V1;va_list
ap;va_start(
ap,first);V1=call_vproc_new(VV[43],(void **)(void
*)&LnkLI43,first,ap);va_end(ap
);return V1;} /* MAKE-RESTART */
(gdb) s
L8 () at clcs_kcl_cond.c:182
182 V18= make_cons(/* INLINE-ARGS */V17,Cnil);
(gdb) n
183 base[11]= make_cons(/* INLINE-ARGS
*/V18,(VV[7]->s.s_dbind));
(gdb) n
184 bds_bind(VV[7],base[11]);
(gdb) n
185 base[12]=VV[34]->s.s_gfdef;
(gdb) n
186 base[13]= (V14);
(gdb) n
187 base[14]= VV[13];
(gdb)
(gdb) n
188 base[15]= (V10);
(gdb) n
192 object V22= CMPcdr((V13));
(gdb) n
193 object V23= (base[5]->c.c_car);
(gdb) n
194 if(V22==Cnil||V23==Cnil){
(gdb) n
197 base[16]=V21=MMcons(Cnil,Cnil);
(gdb) n
200 (V21->c.c_cdr)= list(2,(V22->c.c_car),(V23->c.c_car));
(gdb) n
201 while(MMcdr(V21)!=Cnil)V21=MMcdr(V21);
(gdb) n
202 if((V22=MMcdr(V22))==Cnil||(V23=MMcdr(V23))==Cnil){
(gdb) n
200 (V21->c.c_cdr)= list(2,(V22->c.c_car),(V23->c.c_car));
(gdb) n
201 while(MMcdr(V21)!=Cnil)V21=MMcdr(V21);
(gdb) n
202 if((V22=MMcdr(V22))==Cnil||(V23=MMcdr(V23))==Cnil){
(gdb) n
203 base[16]=base[16]->c.c_cdr;
(gdb) n
204 V20= base[16];
(gdb) n
209 if(((*(LnkLI44))((V14)))==Cnil){
(gdb) n
Breakpoint 3, call_vproc_new (sym=0x10127948, link=0x648490,
first=0x10112834,
ll=0x22ee64 " j-\020?-\031\020p.d") at funlink.c:960
960 {return call_proc_new(sym,link,VFUN_NARGS |
VFUN_NARG_BIT,first,ll);}
(gdb) delete 3
(gdb) n
0x005e47db in LnkTLI50 (first=0x10112834) at gcl_seqlib.c:3835
3835 static object LnkTLI50(object first,...){object V1;va_list
ap;va_start(
ap,first);V1=call_vproc_new(VV[50],(void **)(void
*)&LnkLI50,first,ap);va_end(ap
);return V1;} /* COUNT */
(gdb) n
LI18 (V274=0x10112834, V273=0x102d6a20, first=0x10174ae0) at
gcl_seqlib.c:1322
1322 }}
(gdb) n
call_vfun (fun=0x101310dc) at eval.c:151
151 vs_top=(vs_base=base)+1;
(gdb) s
154 }
(gdb) n
funcall (fun=0x101310dc) at eval.c:184
184 ihs_pop();
(gdb) s
185 return;
(gdb) n
341 }}
(gdb) n
call_or_link (sym=0x10127924, link=0x63c2cc) at funlink.c:96
96 }
(gdb)
(gdb) c
Continuing.
Error in IN-PACKAGE [or a callee]: A package error occurred on WRONG: "No
such p
ackage".
Fast links are on: do (use-fast-links nil) for debugging
Broken at IN-PACKAGE. Type :H for Help.
1 (Continue)
Program received signal SIGSEGV, Segmentation fault.
0x00476f35 in check_type_string (p=0x22e3b4) at typespec.c:179
179 while (type_of(*p) != t_string)
(gdb) bt
#0 0x00476f35 in check_type_string (p=0x22e3b4) at typespec.c:179
#1 0x00430e24 in fLformat (strm=0x10414c84, control=0x0) at format.c:2217
#2 0x00431ceb in c_apply_n (fn=0x430d4d <fLformat>, n=4, x=0x22e400)
at funlink.c:366
#3 0x0044a841 in Iinvoke_c_function_from_value_stack (f=0x430d4d
<fLformat>,
fargd=32322) at nfunlink.c:293
#4 0x00430d48 in Lformat () at format.c:2194
#5 0x0049c15a in LC27 (base0=0x6bf5a4) at clcs_kcl_cond.c:790
#6 0x0041dd41 in funcall_no_event (fun=0x103fbfdc) at eval.c:369
#7 0x0041ebde in super_funcall_no_event (fun=0x103fbfdc) at eval.c:767
#8 0x004b4b8e in L29 () at clcs_restart.c:844
#9 0x004314ec in call_or_link (sym=0x1033d8b8, link=0x635e98) at
funlink.c:88
#10 0x004b6d71 in LnkT99 () at clcs_restart.c:1732
#11 0x004b4332 in L18 () at clcs_restart.c:551
#12 0x0041d35a in funcall (fun=0x1029e2f0) at eval.c:173
#13 0x0041eb05 in super_funcall (fun=0x1029e2f0) at eval.c:743
#14 0x0041fe80 in ifuncall3 (fun=0x1033db64, arg1=0x103f2d5c,
arg2=0x1010a4c8,
arg3=0x6b3f80) at eval.c:1335
#15 0x0045b17a in call_structure_print_function (x=0x103f2d5c, level=0)
at print.d:542
#16 0x0045d50b in write_object (x=0x103f2d5c, level=0) at print.d:1334
#17 0x0045f45d in princ (obj=0x103f2d5c, strm=0x1010a4c8) at print.d:1899
#18 0x0042b3b7 in fmt_ascii (colon=0, atsign=0) at format.c:616
#19 0x0042aab6 in format (fmt_stream0=0x1010a4c8, ctl_origin0=0, ctl_end0=2)
at format.c:378
#20 0x00431090 in fLformat (strm=0x1010a4c8, control=0x1024ebb8)
at format.c:2248
#21 0x00431cbe in c_apply_n (fn=0x430d4d <fLformat>, n=3, x=0x22f140)
at funlink.c:365
#22 0x0044a841 in Iinvoke_c_function_from_value_stack (f=0x430d4d
<fLformat>,
fargd=32322) at nfunlink.c:293
#23 0x00430d48 in Lformat () at format.c:2194
#24 0x004aedba in LI47 (first=0x10117ab0) at clcs_debugger.c:907
#25 0x00436c92 in call_proc_new (sym=0x1033b7bc, link=0x634be0, argd=2048,
---Type <return> to continue, or q <return> to quit---
first=0x10370d74, ll=0x22f4c4 "x?7\020F(\"") at funlink.c:871
#26 0x004371ec in call_vproc_new (sym=0x1033b7bc, link=0x634be0,
first=0x10370d74, ll=0x22f4c4 "x?7\020F(\"") at funlink.c:960
#27 0x0049a0d9 in LnkTLI69 (first=0x10370d74) at clcs_top_patches.c:774
#28 0x00499060 in LI6 (V9=0x103e2654, first=0x6b63e0) at
clcs_top_patches.c:315
#29 0x0041cfbc in call_vfun (fun=0x103facbc) at eval.c:150
#30 0x0041dd61 in funcall_no_event (fun=0x103facbc) at eval.c:378
#31 0x0041ebde in super_funcall_no_event (fun=0x103facbc) at eval.c:767
#32 0x004af1e4 in L54 () at clcs_debugger.c:1067
#33 0x004314ec in call_or_link (sym=0x10186b88, link=0x635ac8) at
funlink.c:88
#34 0x004b31d5 in LnkT77 () at clcs_handler.c:1007
#35 0x004b1166 in L10 () at clcs_handler.c:332
#36 0x004314ec in call_or_link (sym=0x1015a000, link=0x634db0) at
funlink.c:88
#37 0x0049c3c0 in LnkT34 () at clcs_kcl_cond.c:828
#38 0x0049ab53 in L8 () at clcs_kcl_cond.c:222
#39 0x0041d35a in funcall (fun=0x101ee100) at eval.c:173
#40 0x0044a5dc in IapplyVector (fun=0x1010c774, nargs=7, base=0x6bf490)
at nfunlink.c:239
#41 0x0041aeb2 in Icall_continue_error_handler (error_name=0x1010c5e8,
error_format_string=0x10413fa8, nfmt_args=2) at error.c:158
#42 0x0041b706 in FEpackage_error (obj=0x10414fc0,
s=0x6297c0 "No such package") at error.c:385
#43 0x00451d10 in in_package (n=0x10414fc0, ns=0x64fa70, ul=0x103f2edc,
isize=0, esize=0) at package.d:224
#44 0x004539d9 in Lin_package () at package.d:778
#45 0x0041f2f7 in eval (form=0x64fa70) at eval.c:1090
#46 0x0041f7f1 in fLeval (x0=0x103f2f18) at eval.c:1178
#47 0x00431c76 in c_apply_n (fn=0x41f795 <fLeval>, n=1, x=0x6bf458)
at funlink.c:363
#48 0x0044a49b in IapplyVector (fun=0x10107e4c, nargs=1, base=0x6bf458)
at nfunlink.c:229
#49 0x0041d427 in funcall (fun=0x10107e4c) at eval.c:190
#50 0x0041e3ef in symlispcall (sym=0x10109b1c, base=0x6bf454, narg=1)
at eval.c:507
---Type <return> to continue, or q <return> to quit---
#51 0x0060d77a in LI1 () at gcl_top.c:140
#52 0x0041c88c in quick_call_sfun (fun=0x10107050) at eval.c:117
#53 0x0041d3a3 in funcall (fun=0x10107050) at eval.c:178
#54 0x0044a5dc in IapplyVector (fun=0x10107050, nargs=0, base=0x6bf42c)
at nfunlink.c:239
#55 0x0041f573 in fLfuncall (fun=0x10107050) at eval.c:1140
#56 0x00431c76 in c_apply_n (fn=0x41f4e8 <fLfuncall>, n=1, x=0x6bf428)
at funlink.c:363
#57 0x0044a49b in IapplyVector (fun=0x10107e74, nargs=1, base=0x6bf428)
at nfunlink.c:229
#58 0x0041d427 in funcall (fun=0x10107e74) at eval.c:190
#59 0x0041dd71 in funcall_no_event (fun=0x10107e74) at eval.c:381
#60 0x0041f304 in eval (form=0x64fa70) at eval.c:1092
#61 0x0041dab7 in funcall (fun=0x1030afe0) at eval.c:327
#62 0x0041dd71 in funcall_no_event (fun=0x103f248c) at eval.c:381
#63 0x0041f304 in eval (form=0x64fa70) at eval.c:1092
#64 0x0041dab7 in funcall (fun=0x1030afe8) at eval.c:327
#65 0x0041eb05 in super_funcall (fun=0x103f2fb4) at eval.c:743
#66 0x00402c04 in main (argc=1, argv=0x3d2d08, envp=0x3d2fb0) at main.c:289
(gdb)
(gdb)
=======================================================
WOOPS
=======================================================
(gdb)
(gdb) r
Starting program: c:\cvs\head\gcl\ansi-tests/../unixport/saved_ansi_gcl.exe
0x0064D830 BSS start in memory.
0x00b30000 BSS offset in saved executable.
0x00114e40 BSS size in bytes.
0x00114e40 bytes read.
0x10100000 Heap start in memory.
0x00730000 Heap offset in executable.
0x00400000 Heap size in bytes.
0x10100000 file base.
GCL (GNU Common Lisp) (2.7.0) Mon Feb 2 16:42:38 EAST 2004
Licensed under GNU Library General Public License
Dedicated to the memory of W. Schelter
Use (help) to get some basic information on how to use GCL.
>(by)
Program exited normally.
(gdb) b lFormat
Function "lFormat" not defined.
(gdb) b Lformat
Breakpoint 4 at 0x430d36: file format.c, line 2194.
(gdb) r
Starting program: c:\cvs\head\gcl\ansi-tests/../unixport/saved_ansi_gcl.exe
0x0064D830 BSS start in memory.
0x00b30000 BSS offset in saved executable.
0x00114e40 BSS size in bytes.
0x00114e40 bytes read.
0x10100000 Heap start in memory.
0x00730000 Heap offset in executable.
0x00400000 Heap size in bytes.
0x10100000 file base.
GCL (GNU Common Lisp) (2.7.0) Mon Feb 2 16:42:38 EAST 2004
Licensed under GNU Library General Public License
Dedicated to the memory of W. Schelter
Use (help) to get some basic information on how to use GCL.
Breakpoint 4, Lformat () at format.c:2194
2194 ,2,F_ARG_LIMIT,NONE,OO,OO,OO,OO,void,Lformat,(object strm,
object
control,...),"")
(gdb) c
Continuing.
>(in-package 'wrong)
Breakpoint 4, Lformat () at format.c:2194
2194 ,2,F_ARG_LIMIT,NONE,OO,OO,OO,OO,void,Lformat,(object strm,
object
control,...),"")
(gdb)
(gdb) p vs_top-vs_base
$53 = 5
(gdb) p pp(vs_base[0])
NIL$54 = void
(gdb) p pp(vs_base[1])
MAKE-INSTANCE ~S ~S ~S$55 = void
(gdb) p pp(vs_base[2])
INTERNAL-PACKAGE-ERROR$56 = void
(gdb) p pp(vs_base[3])
(FUNCTION-NAME PACKAGE MESSAGE)$57 = void
(gdb) p pp(vs_base[4])
NIL$58 = void
(gdb) p pp(vs_base[5])
Breakpoint 4, Lformat () at format.c:2194
2194 ,2,F_ARG_LIMIT,NONE,OO,OO,OO,OO,void,Lformat,(object strm,
object
control,...),"")
The program being debugged stopped while in a function called from GDB.
When the function (pp) is done executing, GDB will silently
stop (instead of continuing to evaluate the expression containing
the function call).
(gdb) finish
Run till exit from #0 Lformat () at format.c:2194
(#<LI4 (V33=0x22dfd8, V32=0x420436, first=0x101fd910)
at /cvs/head/gcl/pcl/pcl_methods.c:113
113 if(((V37))==Cnil){
=========================================================================
PART 3
First the winnt symbols:
=========================================================================
cmpnew/gcl_cmpmain.lsp: #+(or dos winnt)
cmpnew/gcl_cmpmain.lsp: #-(or dos winnt)
cmpnew/gcl_cmpmain.lsp:#+winnt (defun prep-win-path-acc ( s acc)
cmpnew/gcl_cmpmain.lsp:#+winnt (defun prep-win-path ( s ) (prep-win-path-acc
s "
"))
cmpnew/gcl_cmpmain.lsp: #+winnt (prep-win-path (compiler-command c-pathname
o-p
athname ))
cmpnew/gcl_cmpmain.lsp: #-winnt (compiler-command c-pathname o-pathname)
unixport/init_ansi_gcl.lsp: #+(or dos winnt)
unixport/init_ansi_gcl.lsp: #-(or dos winnt)
unixport/init_ansi_gcl.lsp:#+winnt (defun prep-win-path-acc ( s acc)
unixport/init_ansi_gcl.lsp:#+winnt (defun prep-win-path ( s )
(prep-win-path-acc
s ""))
unixport/init_ansi_gcl.lsp: #+winnt (prep-win-path (compiler-command
c-path
name o-pathname ))
unixport/init_ansi_gcl.lsp: #-winnt (compiler-command c-pathname
o-pathname
)
xgcl-2/init_xgcl.lsp:#-winnt
xgcl-2/init_xgcl.lsp:#+winnt
lsp/make.lisp:#+winnt
=========================================================================
Now for WIN32
=========================================================================
gcl-tk/guis.c:#ifndef _WIN32
gcl-tk/guis.c:#ifndef _WIN32
gcl-tk/guis.c:#ifdef _WIN32
gcl-tk/guis.c:#ifdef _WIN32
gcl-tk/guis.c:#ifdef _WIN32
gcl-tk/guis.c:#else /* _WIN32 */
gcl-tk/guis.c:#endif /* _WIN32 */
o/firstfile.c:#ifdef _WIN32
o/lastfile.c:#ifdef _WIN32
o/main.c:#ifdef _WIN32
o/main.c:#ifdef _WIN32
o/main.c:#if defined ( _WIN32 ) && !defined ( AV )
o/main.c:#ifdef _WIN32
o/main.c:#if defined ( UNIX ) && !defined ( _WIN32 )
o/mingfile.c: { WIN32_FIND_DATA data;
o/mingwin.c: * max value allowed on each platform (Win32 and Win32s
may
be
o/rel_coff.c:#ifdef _WIN32
o/sfasl.c:#ifdef _WIN32
o/sfasl.c:#endif /* _WIN32 */
o/unexnt.c:#ifdef __CYGWIN32__
o/unexnt.c: cygwin_conv_to_full_win32_path(filename,in_filename);
o/unexnt.c: cygwin_conv_to_full_win32_path(filename,out_filename);
=========================================================================
clcs/cmpinclude.h:#if defined (__MINGW32__)
clcs/cmpinclude.h:#ifndef __MINGW32__
clcs/cmpinclude.h:#ifndef __MINGW32__
clcs/cmpinclude.h:#ifdef __MINGW32__
clcs/cmpinclude.h:#if !defined (__MINGW32__)
clcs/cmpinclude.h:#if defined (__MINGW32__)
gcl-tk/tkMain.c:/* #ifndef __MINGW32__ */
gcl-tk/tkMain.c:#ifndef __MINGW32__
gcl-tk/tkMain.c:#ifndef __MINGW32__
gcl-tk/tkMain.c:#ifndef __MINGW32__
gcl-tk/tkMain.c:#ifndef __MINGW32__
gcl-tk/tkMain.c:#ifndef __MINGW32__
h/cmpinclude.h:#if defined (__MINGW32__)
h/cmpinclude.h:#ifndef __MINGW32__
h/cmpinclude.h:#ifndef __MINGW32__
h/cmpinclude.h:#ifdef __MINGW32__
h/cmpinclude.h:#if !defined (__MINGW32__)
h/cmpinclude.h:#if defined (__MINGW32__)
h/config.h: ADD_FEATURE("MINGW32");
h/mingw.h: ADD_FEATURE("MINGW32");
h/protoize.h:#if defined (__MINGW32__)
h/protoize.h:#ifndef __MINGW32__
h/protoize.h:#ifndef __MINGW32__
h/protoize.h:#ifdef __MINGW32__
h/protoize.h:#if !defined (__MINGW32__)
h/protoize.h:#if defined (__MINGW32__)
h/usig.h:#ifdef __MINGW32__
h/wincoff.h:#ifdef __MINGW32__
o/cmpinclude.h:#if defined (__MINGW32__)
o/cmpinclude.h:#ifndef __MINGW32__
o/cmpinclude.h:#ifndef __MINGW32__
o/cmpinclude.h:#ifdef __MINGW32__
o/cmpinclude.h:#if !defined (__MINGW32__)
o/cmpinclude.h:#if defined (__MINGW32__)
o/file.c:#ifdef __MINGW32__
o/file.d:#ifdef __MINGW32__
o/main.c:#if defined ( UNIX ) || defined ( __MINGW32__ )
o/main.c:#endif /* defined ( UNIX ) || defined ( __MINGW32__ ) */
o/mingwin.c:/* The only signal REALLY handled somewhat under mingw is the
o/run_process.c:#ifdef __MINGW32__
o/run_process.c:#else /* __MINGW32__ */
o/run_process.c:#endif /* __MINGW32__ */
o/sfasl.c:#ifndef __MINGW32__
o/sgbc.c:#ifdef __MINGW32__
o/sockets.c:#ifndef __MINGW32__
o/sockets.c:#ifndef __MINGW32__
o/sockets.c:#ifdef __MINGW32__
o/sockets.c:#ifdef __MINGW32__
o/sockets.c:#ifdef __MINGW32__
o/sockets.c:#ifdef __MINGW32__
o/sockets.c:#ifdef __MINGW32__
o/sockets.c:#ifdef __MINGW32__
o/unexnt.c:#ifdef __MINGW32__
o/unixfsys.c:#ifdef __MINGW32__
o/unixtime.c:#if defined __MINGW32__ || !defined NO_SYSTEM_TIME_ZONE
o/unixtime.c:# ifdef __MINGW32__
o/unixtime.c:#endif /* __MINGW32__ or !defined NO_SYSTEM_TIME_ZONE */
o/unixtime.c:# ifdef __MINGW32__
o/unixtime.c:#ifdef __MINGW32__
o/unixtime.c:#ifdef __MINGW32__
o/unixtime.c:#if defined __MINGW32__ || !defined NO_SYSTEM_TIME_ZONE
o/unixtime.c:# if defined __MINGW32__
o/unixtime.c:#if defined __MINGW32__ || !defined NO_SYSTEM_TIME_ZONE
o/unixtime.c:#ifdef __MINGW32__
o/unixtime.c:/* At GCC 3.2, Mingw struct tm does not include tm_gmtoff so
avoid
this version */
o/unixtime.c:#if !defined ( NO_SYSTEM_TIME_ZONE ) && !defined (
__MINGW32__ )
o/unixtime.c:#if defined __MINGW32__ || !defined NO_SYSTEM_TIME_ZONE
o/unixtime.c:#endif /*__MINGW32__ or !defined NO_SYSTEM_TIME_ZONE */
o/usig.c:#ifdef __MINGW32__
o/usig2.c:#ifdef __MINGW32__
pcl/cmpinclude.h:#if defined (__MINGW32__)
pcl/cmpinclude.h:#ifndef __MINGW32__
pcl/cmpinclude.h:#ifndef __MINGW32__
pcl/cmpinclude.h:#ifdef __MINGW32__
pcl/cmpinclude.h:#if !defined (__MINGW32__)
pcl/cmpinclude.h:#if defined (__MINGW32__)
=========================================================================
- Re: [Gcl-devel] Window ansi crash debug output, Mike Thomas, 2004/02/01
- [Gcl-devel] ANSI Windows: in-package failure, Mike Thomas, 2004/02/01
- Re: [Gcl-devel] ANSI Windows: in-package failure, Camm Maguire, 2004/02/02
- RE: [Gcl-devel] ANSI Windows: in-package failure,
Mike Thomas <=
- Re: [Gcl-devel] ANSI Windows: in-package failure, Camm Maguire, 2004/02/03
- Re: [Gcl-devel] ANSI Windows: in-package failure, Mike Thomas, 2004/02/04
- Re: [Gcl-devel] ANSI Windows: in-package failure, Camm Maguire, 2004/02/04
- Re: [Gcl-devel] ANSI Windows: in-package failure, Mike Thomas, 2004/02/09
- Re: [Gcl-devel] ANSI Windows: in-package failure, Camm Maguire, 2004/02/11
- RE: [Gcl-devel] ANSI Windows: in-package failure, Mike Thomas, 2004/02/15
- Re: [Gcl-devel] ANSI Windows: in-package failure, Camm Maguire, 2004/02/16
- RE: [Gcl-devel] ANSI Windows: in-package failure, Mike Thomas, 2004/02/16
- Re: [Gcl-devel] ANSI Windows: in-package failure, Camm Maguire, 2004/02/17
- RE: [Gcl-devel] ANSI Windows: in-package failure, Mike Thomas, 2004/02/17