Waldek Hebisch wrote:
The following works for me:
I forgot to mention that I get a number of warnings:
[G4:~/gnu/testgpc/adriaan] adriaan% gpc -c -o hello.o hello.pas -gstabs+ [G4:~/gnu/testgpc/adriaan] adriaan% objdump hello.o -g >> /dev/null
hello.o: file format mach-o-be
Warning: changing type size from 1 to 4 Warning: changing type size from 4 to 1 Warning: changing type size from 1 to 2 Warning: changing type size from 2 to 4 Warning: changing type size from 4 to 8
Also, I experimented with a modified version of the testsuite (adding objdump a.out >> /dev/null). This reveals more stab problems, for example:
[G4:~/gnu/testgpc/adriaan] adriaan% gpc -o adam2 adam2.pas -gstabs+ --automake [G4:~/gnu/testgpc/adriaan] adriaan% objdump adam2 -g >> /dev/null Warning: changing type size from 1 to 4 Warning: changing type size from 4 to 1 Warning: changing type size from 1 to 2 Warning: changing type size from 2 to 4 Warning: changing type size from 4 to 8 Warning: changing type size from 8 to 1 Warning: changing type size from 1 to 4 Warning: changing type size from 4 to 1 Warning: changing type size from 1 to 2 Warning: changing type size from 2 to 4 Warning: changing type size from 4 to 8 bad mangled name `Mlist_Init' Last stabs entries before error: n_type n_desc n_value string LSYM 0 0000000000000000 Shortbool:t(0,58)=@s16;-16 LSYM 0 0000000000000000 Wordbool:t(0,59)=@s32;-16 LSYM 0 0000000000000000 Medbool:t(0,60)=@s32;-16 LSYM 0 0000000000000000 Longbool:t(0,61)=@s64;-16 LSYM 0 0000000000000000 Longestbool:t(0,62)=@s64;-16 LSYM 0 0000000000000000 Void:t(0,23) LSYM 0 0000000000000000 Pobjecttype:t(0,63)=*(0,64)=s16Size:(0,38),0,32;Negatedsize:(0,50),32,32 ;Parent:(0,63),64,32;Name:(0,65)=*(0,66)=k(0,67)=s12Capacity:(0,14),0,32 ;length:(0,14),32,32;_p_Schema_:(0,68)=ar(0,1);1;1;(0,2),64,8;;,96,32;; LSYM 0 0000000000000000 Cstring:t(0,69)=*(0,2) LSYM 0 0000000000000000 String:t(0,67) LSYM 0 0000000000000000 Integer:t(0,70)=r(0,70);-2147483648;2147483647; LSYM 0 0000000000000000 Real:t(0,71)=r(0,1);8;0; LSYM 0 0000000000000000 Boolean:t(0,5) LSYM 0 0000000000000000 Char:t(0,72)=@s8;-20 LSYM 0 0000000000000000 Text:t(0,73)=s16712_p_File_:(0,74)=ar(0,19);1;4178;(0,1),0,133696;; LSYM 0 0000000000000000 Anyfile:t(0,75)=s16712_p_File_:(0,76)=ar(0,19);1;4178;(0,1),0,133696;; LSYM 6 0000000000000000 Mlist:t(0,77)=s4vmt:(0,78)=*(0,79)=s16Size:(0,38),0,32;Negatedsize:(0,50 ),32,32;Parent:(0,63),64,32;Name:(0,65),96,32;;,0,32;Init::(0,80)=f(0,5) :Mlist_Init;2A?;;
Regards,
Adriaan van Os