- Gpc - gnu.de

Re: gpc almost complied - now what?
by Tom Schneider 15 Apr '02

15 Apr '02

Russell: > As a guess, instead of > make > try > make bootstrap make all-recursive Making all in intl Making all in lib Making all in makeinfo Bootstrapping the compiler make: don't know how to make bootstrap. Stop *** Error code 2 Tom

2 1

Re: gpc ebuild for gentoo linux
by da Silva, Joe 11 Apr '02

11 Apr '02

OK, if I may ask a possibly silly question ... I installed Linux (Mandrake) almost two weeks ago now (having never used Linux before), so there's a LOT I don't yet understand. So, is there any difference between a GPC build for one flavour of Linux, versus another? Assuming it's based on the same GCC version (eg. 2.95.3), and the same PC architecture, of course. Joe. > -----Original Message----- > From: George Shapovalov [SMTP:georges@its.caltech.edu] > Sent: Thursday, April 11, 2002 3:30 PM > To: gpc(a)gnu.de > Subject: Re: gpc ebuild for gentoo linux > > I completed and tested ebuild for gpc-20020402 (rc5) for Gentoo Linux. > It has been commited and now is available. Frank, thanks for help! > > If there are any gentoo users I would appreciate some testing :). > The instructions are pretty standard: > 1. unmask the package by commenting out gpc entry in > /usr/portage/profiles/package.mask > (I will keep it masked for a few days until I am completely sure) > 2. emerge gpc > > to test it you can unpack gpc tarball and run testsuite (4 tests will be > skipped since librx is not installed). > > George > >

3 2

Error in gpc makefile AND HPUX bug resolved!
by S. Achterop IWI-120 3932 11 Apr '02

11 Apr '02

Hello again on the gpc mailing list. This is to inform you of 2 things. 1 ============ During the "make" of gpc the assembler often gives the following message: cc1: warning: -g is only supported when using GAS on this processor, cc1: warning: -g option disabled. In the HPUX this is the case with: GNU assembler version 2.9 (hppa1.1-hp-hpux10.20), using BFD version 2.9 That is no problem, but somehow the string gpc1: warning: -g is only supported when using GAS on this processor, gpc1: warning: -g option disabled. gets into the file gpc-build/gcc/p/rts/needed-options and make's the build to stop with an error. Using an empty file "needed-options" as a hack yields a complete and working gpc!! 2 ============= The known bug: # HP/UX: `unrecognizable insn' error in connection with conformant or const string parameters) <199809280741.JAA17719(a)rug105.cs.rug.nl> (sietse1.pas), <Pine.SOL.4.10.9908051751550.23095-100000(a)niflheim.rutgers.edu>, <396C3531.3A327722(a)cs.rug.nl> Seems to RESOLVED in the snapshot that I compiled! (gpc version 20020402, based on 2.95.2 19991024 (release)) Thanks ! Sietse Achterop

2 1

-pipe breaks gpc build
by George Shapovalov 11 Apr '02

11 Apr '02

Thanks for a great compiler to everybody involved! I would like to inform you that I am writing an ebuild script to make gpc available in Gentoo Linux distribution. (http://www.gentoo.org) In process I found the issue in the subject, thought it might be interesting. If I have "-pipe" in my CFLAGS when compiling gpc the compilation breaks when gpcpp is processing string.pas (removal of -pipe gets rid of the problem). Listing is included at the end of message. Also, INSTALL instructions say that I might need PDCurses under Linux to compile some crt programs. Is this a build-time dependency (when I compile gpc) or runtime (when I use gpc to compile some programs)? I guess the question is: should I have PDCurses installed when I compile gpc in order to be able to compile crt programs for use under X? Or will gpc pick the library up later when it is installed? What about ncurses, am I limited to terminal-only programs under X then? Thanks. George make[2]: Entering directory `/var/tmp/portage/gpc-20020402/work/gcc-2.95.3/gcc/p/rts' ../.././xgpc -B../.././ -c -I. -W -Wall -Wpointer-arith -Wwrite-strings -Wmissing-prototypes -Wmissing-declarations -march=i686 -O2 -pipe -fforce-addr -fomit-frame-pointer -funroll-loops -frerun-loop-opt -malign-functions=4 -DRTS_RELEASE_STRING="'`cat /var/tmp/portage/gpc-20020402/work/gcc-2.95.3/gcc/p/rts/rts-version`'" --unit-path=/var/tmp/portage/gpc-20020402/work/gcc-2.95.3/gcc/p/rts --automake `cat needed-options` string.pas xgpc: gpcpp:: No such file or directory xgpc: output: No such file or directory xgpc: pipe: No such file or directory xgpc: has: No such file or directory xgpc: been: No such file or directory xgpc: closed: No such file or directory xgpc: gpcpp:: No such file or directory xgpc: output: No such file or directory xgpc: pipe: No such file or directory xgpc: has: No such file or directory xgpc: been: No such file or directory xgpc: closed: No such file or directory gpc1: ../.././xgpc exited with status 1 gpcpp: output pipe has been closed make[2]: *** [string.o] Error 1 make[2]: Leaving directory `/var/tmp/portage/gpc-20020402/work/gcc-2.95.3/gcc/p/rts' make[1]: *** [pascal.rts] Error 2 make[1]: Leaving directory `/var/tmp/portage/gpc-20020402/work/gcc-2.95.3/gcc' make: *** [all-gcc] Error 2

2 4

help request with Pexecute compile problem
by Tam Pikey 10 Apr '02

10 Apr '02

Hi I'm hoping someone out there has some suggestions for how to go about fixing this. I've got gpc & gcc installed on an Ultra 10 running Solaris 2.7. The program is simply suppose to invoke the system sort command but as you can see we're not getting it to compile. The compile error is: ------------------------ [09:44:46] sdis:~/sdis >gpc sort.pas sort.pas: In function `program_Sort': sort.pas:11: undeclared identifier `Pexecute' (first use this function) sort.pas:11: (Each undeclared identifier is reported only once sort.pas:11: for each function it appears in.) sort.pas:12: undeclared identifier `Pexecute_one' (first use this function) sort.pas:12: undeclared identifier `Pexecute_search' (first use this function) sort.pas:12: undeclared identifier `Pexecute_verbose' (first use this function) [09:44:55] sdis:~/sdis > The code consists of: ------------------------ program Sort (Input, Output); uses GPC, Pipe; var Status: Integer; Command: TString; Message: TString; Argument: array [0 .. 1] of CString = (nil, nil); begin Command := 'Sort -k .9,.10 test.txt'; Status := PExecute (Command, PCStrings (@Argument), Message, PExecute_One or PExecute_Search or PExecute_Verbose); if Status < 0 then WriteLn ('PExecute (Sort) : ', Message) else WriteLn ('PID ', Status) end. My compiler versions are: ------------------------ [09:23:29] root:~ >gpc -v Reading specs from /usr/local/lib/gcc-lib/sparc-sun-solaris2.7/2.8.1/specs gpc version 19990118, based on gcc-2.8.1 [09:23:32] root:~ >gcc -v Reading specs from /usr/local/lib/gcc-lib/sparc-sun-solaris2.7/2.95.2/specs gcc version 2.95.2 19991024 (release) [09:23:39] root:~ > tam (axtlp(a)uaa.alaska.edu)

3 2

Integer constants
by Emil Jerabek 10 Apr '02

10 Apr '02

Hi all, this looks like a bug: non-negative integer constants are treated as LongestCard, i.e. an unsigned type. [pas]% gpc -v Reading specs from /usr/local/lib/gcc-lib/i586-pc-linux-gnu/2.95.2/specs gpc version 20020402, based on 2.95.2 19991024 (release) [pas]% cat sign.pas program Foo (Output); const Two = 2; begin if (0 < Two - 23) or (3 < 13 - 42) then WriteLn ('failed: ', Two - 23, ', ', 13 - 42) else WriteLn ('OK') end. [pas]% gpc sign.pas [pas]% ./a.out failed: 18446744073709551595, 18446744073709551587 And an unrelated one: a schema discriminant is not initialized in the situation below. [pas]% cat schema.pas program Foo (Output); type A (N: Integer) = Integer; B (N: Integer) = array [1 .. N] of A (N); var C : B (7); begin if (C.N = 7) and (C[3].N = 7) then WriteLn ('OK') else WriteLn ('failed: ', C.N, ' ', C[3].N) end. [pas]% gpc schema.pas [pas]% ./a.out failed: 7 0 Emil Jerabek

2 1

GPC 2.1 RC 5 released and moved
by Frank Heckenbach 10 Apr '02

10 Apr '02

Hi everyone, GPC version 20020402, the release candidate #5 for GPC 2.1, has been uploaded to http://www.gnu-pascal.de/current/gpc-20020402.tar.gz A diff against RC 4 can be found at http://www.gnu-pascal.de/current/gpc-20020318-20020402.diff.gz The home page of GPC is now http://www.gnu-pascal.de/ The download area has moved to the same URL. All the downloads are now offered via HTTP rather than FTP. Apart from the move, the changes since RC 4 are quite minor, so there is some real hope that this is the final RC. Frank -- Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/, 7977168E GPC To-Do list, latest features, fixed bugs: http://www.gnu-pascal.de/todo.html

2 4

MPI
by Silvio a Beccara 10 Apr '02

10 Apr '02

Hello, has anyone experienced problems in using the MPI function MPI_Type_vector with dynamic arrays in GPC? Everytime it "eats" away the second element of the array, and I don't know why. Thanks, best regards Silvio a Beccara

2 1

Re: Memory leak in stringutils.pas?
by da Silva, Joe 09 Apr '02

09 Apr '02

OK, just speculating here ... <G> I'd think that "known problem with some string operations (especially concatenation) in a loop" means "writeln(os1+' '+os2+os3+os4+os5+os6)" is the problem, since this is string concatenation and is within a "while" loop ... Joe. > -----Original Message----- > From: Preben Mikael Bohn [SMTP:preben_bohn@yahoo.com] > Sent: Tuesday, April 09, 2002 6:06 PM > To: gpc(a)gnu.de > Subject: Re: Memory leak in stringutils.pas? > > I don't know if I understand you the right way (I probably don't). > I just tried to move tokenize+dispose into a subroutine (but still > in the loop) like the following, but it still has a memory leak... > > program test1; > > uses > GPC, > stringutils; > > function split( > var inStr : string; > var os1,os2,os3,os4,os5,os6 : string; > var c : charset ) : integer; > var > tokens : PPStrings; > begin > tokens := TokenizeString (inStr, c); > os1 := tokens^[1]^; > os2 := tokens^[2]^; > os3 := tokens^[3]^; > os4 := tokens^[4]^; > os5 := tokens^[5]^; > os6 := tokens^[6]^; > split := tokens^.count; > DisposePPStrings (tokens); > end; > > var > line,os1,os2,os3,os4,os5,os6 : string; > lineNumber, count : integer; > c : charset; > > begin > c := ['¤']; > lineNumber := 0; > while lineNumber < 1000000 do > begin > line := 'string1¤string2¤string3¤string4¤string5¤string6'; > inc(lineNumber); > count := split(line, os1,os2,os3,os4,os5,os6,c); > if (linenumber mod 10) = 0 then > begin > writeln('Line number : ', lineNumber); > writeln(os1+' '+os2+os3+os4+os5+os6); > end; > end; > end. > > Best regards > > Preben Bohn > > > --- Frank Heckenbach <frank(a)g-n-u.de> wrote: > > =?iso-8859-1?q?Preben=20Mikael=20Bohn?= wrote: > > > > > After sucessfully installing GPC I tried the following > > (basically a > > > loop around the stringutils test-program). However it seems to > > have > > > a memoryleak, after a while (~14%MEM on my machine) it comes > > out > > > with a segmentation fault (and with top you can see that the > > memory > > > usage grows)... > > > > The memory leak is not in the unit, but in GPC itself. It's a > > known > > problem with some string operations (especially concatenation) in > > a > > loop. (If you can read /proc/n/maps, you'll see that it's the > > stack, > > not the heap that grows.) Moving the thing out of the loop > > (syntactically, e.g. in a subroutine) is a work-around. > > > > Frank > > > > -- > > Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/, 7977168E > > GPC To-Do list, latest features, fixed bugs: > > http://www.gnu-pascal.de/todo.html > > > > ===== > > > __________________________________________________ > Do You Yahoo!? > Everything you'll ever need on one web page > from News and Sport to Email and Music Charts > http://uk.my.yahoo.com

3 2

Memory leak in stringutils.pas?
by Preben Mikael Bohn 09 Apr '02

09 Apr '02

Hi all After sucessfully installing GPC I tried the following (basically a loop around the stringutils test-program). However it seems to have a memoryleak, after a while (~14%MEM on my machine) it comes out with a segmentation fault (and with top you can see that the memory usage grows)... What am I doing wrong? Best regards Preben Bohn program test1; uses GPC, stringutils; var tokens : PPStrings; line : string; lineNumber : integer; c : charset; begin c := ['Â¤']; lineNumber := 0; while lineNumber < 1000000 do begin line := 'string1Â¤string2Â¤string3Â¤string4Â¤string5Â¤string6'; inc(lineNumber); tokens := TokenizeString (line, c); if (linenumber mod 10) = 0 then begin writeln('Line number : ', lineNumber); writeln(tokens^[1]^ + ' ' + tokens^[2]^+ ' ' + tokens^[3]^+ ' ' + tokens^[4]^+ ' ' + tokens^[5]^+ ' ' + tokens^[6]^); end; DisposePPStrings (tokens); end; end. ===== __________________________________________________ Do You Yahoo!? Everything you'll ever need on one web page from News and Sport to Email and Music Charts http://uk.my.yahoo.com

2 2