February 2003 - Gpc

GPC 20030209 - Mingw binary release for gcc-3.2.2
by Prof. A Olowofoyeku (The African Chief) 15 Feb '03

15 Feb '03

Hi all You can obtain the binary of the Mingw version of GPC 20030209 (based on the "Mingw special" gcc-3.2.2 sources) from the Mingw web site: If you want a link, here it is (it overlows the line, so you will need to join it all together manually): http://prdownloads.sourceforge.net/mingw/gpc-20030209.i386-pc-mingw32- 1.tar.gz?download PS: the sources are also there (inclusive of the gcc-3.2.2 patch that I used). Best regards, The Chief --------- Prof. Abimbola Olowofoyeku (The African Chief) Web: http://www.bigfoot.com/~african_chief/

4 7

New bug in gpc-20030209
by Maurice Lombardi 15 Feb '03

15 Feb '03

Hi all When trying to recompile an old program with the new alpha, I found a new bug: name conflict between an object initializer in a program and an object initializer with same name in the IMPLEMENTATION part of an unit it calls, which should be invisible to him. The bug is displayed by the two files ---------------------- bug.pas ---------------------------------- program bug; uses u; type t = object constructor init; end; constructor t.init; begin end; begin writeln('OK'); end. ----------------------- u.pas ---------------------------------- unit u; INTERFACE IMPLEMENTATION type t = object constructor init; end; constructor t.init; begin end; end. ------------------------------------------------------------------- Error message: c:\djgpp\tmp\cc39phrP.o: In function `T_Init': c:/lombardi/djgpp/gpc/bug7/bug.pas:10: multiple definition of `T_Init' c:/lombardi/djgpp/o/u.o:c:/lombardi/djgpp/gpc/bug7/u.pas:13: first defined here collect2: ld returned 1 exit status gpc -v Reading specs from c:/djgpp/lib/gcc-lib/djgpp/2.953/specs gpc version 20030209, based on gcc-2.95.3 20010315/djgpp (release) Maurice -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 63 54 95 mailto:Maurice.Lombardi@ujf-grenoble.fr

2 1

Debugging adventure on OS X
by Adriaan van Os 15 Feb '03

15 Feb '03

As part of the OS X port, I try to make GPC part of Apple's ProjectBuilder, a GUI integrated development enviroment running on top of tools like JAM, GCC and GDB. There is a screen shot of how it will look at <www.microbizz.nl/gpcscreen01.png>. I had expected debugging GNU Pascal programs (with Project Builder) to work, bit it didn't. After a late night session I found that stepping and breaking actually do (!) work. It was just that the Pascal source on the screen and the current-line indicator didn't reflect it .... Stephen Bespalko (from the Mac OS X Ada team) advised me to try the GDB command line, so (in another late night session) I found: (gdb) info source Current source file is /SourceCache/Csu/Csu-45/crt.c [instead of pentomino.pas] Compilation directory is /SourceCache/Csu/Csu-45/ Source language is c. Compiled with stabs debugging format. Does not include preprocessor macro info. (gdb) info sources Source files for which symbols have been read in: /Users/adriaan/gnu/gpc-3.2.1-patch/gcc/p/rts/init.pas, <implicit code>, /Users/adriaan/gnu/gpc-3.2.1-patch/gcc/p/rts/numtodec.pas, ../../gpc-3.2.1-patch/gcc/libgcc2.c, /Users/adriaan/gnu/gpc-3.2.1-patch/gcc/p/rts/sets.pas, /Users/adriaan/gnu/gpc-3.2.1-patch/gcc/p/rts/move.pas, /Users/adriaan/gnu/gpc-3.2.1-patch/gcc/p/rts/file.c, /Users/adriaan/gnu/gpc-3.2.1-patch/gcc/p/rts/rts-va.c, ../../include/stdarg.h, start.s, /SourceCache/Csu/Csu-45/crt.c, tconfig.h, ...<snip>... /Users/adriaan/gnu/gpc-3.2.1-patch/gcc/p/rts/rts.c, /SourceCache/Csu/Csu-45/crt.c So, the problem seems to be that GDB sees /SourceCache/Csu/Csu-45/crt.c as the source code instead of ./pentomino.pas. The promising point is that debugging Pascal code in listed runtime units (like init.pas) seemed to work perfectly. So, I started playing with the linker: [G4:~/pb/pentomino] adriaan% gpc -g -c -o pentomino.o pentomino.pas [G4:~/pb/pentomino] adriaan% set libpath = /Developer/Pascal/gpc321d8/lib/gcc-lib/powerpc-apple-darwin6.3/3.2.1/ [G4:~/pb/pentomino] adriaan% ld /usr/lib/crt1.o pentomino.o -L$libpath -lgpc -lgcc -lSystem [G4:~/pb/pentomino] adriaan% gdb pentmino GNU gdb 5.3-20021014 (Apple version gdb-250) (Sat Dec 7 02:14:27 GMT 2002) (gdb) info source Current source file is pentomino.pas Compilation directory is /Users/adriaan/pb/pentomino/ Located in /Users/adriaan/pb/pentomino/pentomino.pas Contains 254 lines. Source language is pascal. Compiled with stabs debugging format. Does not include preprocessor macro info. Suddenly, the problem had gone..... So, somehow, the source-file name "pentomino.pas" gets lost when typing one of these: [G4:~/pb/pentomino] adriaan% gpc -g -o pentomino pentomino.pas [G4:~/pb/pentomino] adriaan% gpc -g -o pentomino.o --automake pentomino.pas What can that be ???? Here is what it does (-v) [G4:~/pb/pentomino] adriaan% gpc -o pentomino -v pentomino.pas Reading specs from /Developer/Pascal/gpc321d8/lib/gcc-lib/powerpc-apple-darwin6.3/3.2.1/ specs Configured with: ../gpc-20030209/configure --enable-languages=pascal,c --prefix=/Developer/Pascal/gpc321d8 --enable-threads=posix Thread model: posix gpc version 20030209, based on gcc-3.2.1 /Developer/Pascal/gpc321d8/lib/gcc-lib/powerpc-apple-darwin6.3/3.2.1/ gpcpp -D__BITS_BIG_ENDIAN__=1 -D__BYTES_BIG_ENDIAN__=1 -D__WORDS_BIG_ENDIAN__=1 -D__NEED_NO_ALIGNMENT__=1 -v -iprefix /usr/bin/../lib/gcc-lib/powerpc-apple-darwin6.3/3.2.1/ -D__GNUC__=3 -D__GNUC_MINOR__=2 -D__GNUC_PATCHLEVEL__=1 -D__GXX_ABI_VERSION=102 -D__ppc__ -D__POWERPC__ -D__NATURAL_ALIGNMENT__ -D__MACH__ -D__BIG_ENDIAN__ -D__APPLE__ -D__ppc__ -D__POWERPC__ -D__NATURAL_ALIGNMENT__ -D__MACH__ -D__BIG_ENDIAN__ -D__APPLE__ -D__NO_INLINE__ -D__STDC_HOSTED__=1 -D__APPLE_CC__=999 -D__DYNAMIC__ pentomino.pas -famtmpfile=/var/tmp//ccMIljqO.gpa /var/tmp//ccknfExA.i GNU Pascal Compiler PreProcessor version 20030209, based on gcc-3.2.1 (Darwin/PowerPC) /Developer/Pascal/gpc321d8/lib/gcc-lib/powerpc-apple-darwin6.3/3.2.1/ gpc1 /var/tmp//ccknfExA.i -fPIC -quiet -dumpbase pentomino.pas -version -famtmpfile=/var/tmp//ccMIljqO.gpa -o /var/tmp//cc6VO6Cd.s GNU Pascal version 3.2.1 (powerpc-apple-darwin6.3) compiled by GNU C version 3.2.1. GNU Pascal version is actually 20030209, based on gcc-3.2.1 as -o /var/tmp//ccm7Qu4a.o /var/tmp//cc6VO6Cd.s /Developer/Pascal/gpc321d8/lib/gcc-lib/powerpc-apple-darwin6.3/3.2.1/ collect2 -o pentomino -lcrt1.o -L/usr/bin/../lib/gcc-lib -L/Developer/Pascal/gpc321d8/lib/gcc-lib/powerpc-apple-darwin6.3/3.2.1 -L/Developer/Pascal/gpc321d8/lib/gcc-lib/powerpc-apple-darwin6.3/3.2.1/ ../../.. /var/tmp//ccm7Qu4a.o -lgpc -lgcc -lSystem -lgcc Regards, Adriaan van Os

2 2

about pascal
by Mehdi Khaldi 15 Feb '03

15 Feb '03

Hi, Can I include files .h with "include" keyword in a pascal program? How does gpc process this keyword? Thanks

2 1

Re: Range Checking
by Adriaan van Os 14 Feb '03

14 Feb '03

I am forwarding a message by Francois Schoubben: > From: Francois Schoubben <fsc(a)info.fundp.ac.be> > Date: vri feb 14, 2003 17:20:31 Europe/Amsterdam > To: Adriaan van Os <gpc(a)microbizz.nl> > Subject: Re: Range Checking > > Le ven 14/02/2003 à 17:16, Adriaan van Os a écrit : >> Francois Schoubben wrote: >> >>> I would be interested in helping too, but leaving for a week just >>> this >>> starurday. When i'll come back, and if it's still usefull, i'll be >>> able >>> to write test, especially for >>> - for loops >>> - array indexing >>> - strings maybe ? >> >> I will be pleased if you write the tests, as I am actually quite busy >> with the OS X port (not to mention other work). > > Ok, i put it on my todo list for the week i'll come back... > >> I guess Frank (Heckenbach) will appreciate any help (after you had >> time >> to understand gpc internals). > It might take time, i've just look at it and ... wow :-) > > -- > Francois

1 0

gpc with gcc-3.2
by samir namér 14 Feb '03

14 Feb '03

i wonder if anyone knows how to compile gpc with gcc-3.2 (or if it even works?), since i've had some trouble trying to find out myself. //enemix

1 0

[Fwd: Re: String Question]
by Richard D. Jackson 13 Feb '03

13 Feb '03

forgot to copy the list :) -----Forwarded Message----- > From: Richard D. Jackson <richardj(a)1gig.net> > To: Frank Heckenbach <frank(a)g-n-u.de> > Subject: Re: String Question > Date: 13 Feb 2003 10:14:20 -0600 > > On Thu, 2003-02-13 at 01:27, Frank Heckenbach wrote: > > <snip> > > > In this case what gpc does is truncate the return value to fit into > > > myStr. Other words this does not cause a compiler error so the compiler > > > sees these two strings as being equivlant even though that is not the > > > case. > > > > My previous reply to Chuck's mail should have made this clear. > > > Did not get that one until after I wrote my reply. > > > <snip> > > > What is interesting is that. > > > Given > > > > > > var > > > buff : String (255); > > > > > > I can stuff 30925 chars into it after that majic number I get a > > > segfault. > > > > I can't. The following stops at 255. > > > > program Foo; > > > > var > > buff : String (255); > counter : Integer; > > > > begin > > buff := ''; > counter := 1; > > repeat > > buff := buff + ' '; > > WriteLn (Length (buff)) > WriteLn ( counter ); > counter := counter + 1; > > until False > > end. > > > Here even though the Length of buff will stay 255 after the 255th > iteration counter will go to 30951 before the segfault. Which means the > sting buffer is going out of bounds. > > > If what you mean is treating the string as an array of char and > > indexing out of range, this would be a matter of range-checking(*) > > -- I'm not sure if you mean this, that's why it's always a good idea > > to include some example code! > > > Here is what I used but note it is slopy as I was trying out other > things as well. NOTE: You can replace Str255 with TString and get the > same result. Also I'm still using gpc-20021128 based on gcc-3.2.1 > > program stringtest( Input, Output); > > uses GPC; > > type > Str255 = String (255); > > var > testout : String (100); > > function foobar: Str255; > var > counter : Integer; > buff : String (255); > > begin > buff := 'B'; > for counter := 1 to 30923 do > if counter = 99 then > buff := Concat( buff, 'E' ) > else > buff := Concat( buff, '1' ); > buff := Concat(buff, 'D'); > writeln( buff ); > foobar := buff; > end; > > begin > testout := foobar; > writeln( testout ); > end. > > > > (*) which GPC is currently lacking. I wrote a mail about it on > > 2002-12-14, but there doesn't seem to be much interested from > > the users. > > > > > If I suround a string with other > > > vars they are not getting overwriten wich is a good thing but I still > > > wonder why it did not segfault at 256. I guess it is something I will > > > have to look into when I have more time to dig into it with gdb. > > > > Programming languages have more or less implementation-defined > > behaviour, but I don't think any language would guarantee a segfault > > in a certain situation. ;-) > > > True I don't expect the language to guarantee a segfault under certain > situations. I was mustly just testing if I could create a buffer over > run. Now how a Hacker would exploit that I don't know. But it does mean > that when using strings for input I will have to make sure it does not > happen. Mostlikly I will have to use LibC functions to protect against > this. > > Richard

2 1

pascal and other languages
by Mehdi Khaldi 13 Feb '03

13 Feb '03

Hi, Could I include cpp files in a pascal program? How to do? I tried with c file and it works. But I would like to know the problems about name mangling. Actually, what happens if in my cpp file, I have 2 functions with the same name? What are their declarations to use them in my pascal programs? thanks

2 1

String Question
by Richard D. Jackson 13 Feb '03

13 Feb '03

When using a plain String I'm getting this warning warning: missing string capacity -- assuming 255 Getting rid of this warning for Var's is not a problem as I just do: mystring : String (some number); But how do you get rid of the warning when a function returns a string such as this: function foobar( test : Integer): String; I have tried to add a capacity argument to String but then I get this error: parse error before '(' So the question is how can you assign the capacity to a String type when you are returning it from a function? I would prefer to not have to make a type for this if possible. Also while on the subject of strings are gpc strings protected against buffer overruns? Thanks Richard Jackson

4 9

Re: String Question
by Prof. A Olowofoyeku (The African Chief) 13 Feb '03

13 Feb '03

Richard D. Jackson wrote: >What is interesting is that. >Given > >var > buff : String (255); > >I can stuff 30925 chars into it after that majic number I get a >segfault. So what is happening here? If I suround a string with >other vars they are not getting overwriten wich is a good thing but >I still wonder why it did not segfault at 256. That is just chance. Take the same program to another PC running the same OS (or compile for another OS) and you might well get the segfault in a different place. I also don't think that you can rely on other variables not being overwritten. Something is being overwritten. Best regards, The Chief --------- Prof. Abimbola Olowofoyeku (The African Chief) Web: http://www.bigfoot.com/~african_chief/

1 0