November 2001 - Gpc

gpc-test-suite+rhide problems
by Per Persson 16 Nov '01

16 Nov '01

Hi! I have two problems, that might be related: 1. When I run the test suite after installation of the gpc-20010924 with the gcc-core-2.95.2 according to the instructions (I have Red Hat Linux 6.2, kernel 2.2.16-3 ) I get failure for 5 cases (out of 1763 ) I get error messsages something like this: PC="gpc" PFLAGS="--autobuild -g -O3 -Wall -Werror " SRCDIR="." "./test_run" "*.pas" | "./test_sum" TEST crttest.pas: /usr/local/lib/gcc-lib/i686-pc-linux-gnu/2.95.2/units/crtc.c:122: warning: #warning The CRT unit needs ncurses version 5.0 or newer because older As I understand this, the problem seems to be the version of ncurses. But according to the KDE package manager I have ncurses 5.0-11 already installed. Do I need another version? 2. I have tried to install rhide in the the binary version rhide-1.4.7.8.linux.bin.tar.bz2 When I try to use this it seems to work, but when I compile a larger project I get error messages of the type: filtest.pas Error: Internal compiler error in 'scope_die_for' at dwarf2out.c:7794 then I compile the program using gpc at the command prompt it works. What can be the problem? Can it be related to the problem 1 above? Should I instead try to compile rhide from the sources? Thanks! Per _________________________________________________________________ HÃ¤mta MSN Explorer kostnadsfritt pÃ¥ http://explorer.msn.se

2 1

Re: GPC bug?: Boolean expression that doesn;t compile
by Maurice Lombardi 15 Nov '01

15 Nov '01

Mirsad Todorovac wrote: > Can you please point me to a complete stnadard somewhere on the net, so I > don't embarass myself again? Also extracted from the list [Joe da Silva] Yes, there are actually two ISO Pascal standards : 1. ISO 7185 - Non-extended (aka Classic) Pascal 2. ISO 10206 - Extended Pascal (superset) You can obtain a free copy of ISO 10206, in either A4 or US-Legal document size, at : http://ftp.digital.com/pub/Digital/Pascal/iso10206_a4.ps.gz http://ftp.digital.com/pub/Digital/Pascal/iso10206.ps.gz You can also find an easy-to-read introduction to Extended Pascal (by Prospero Software) at : http://www.prosperosoftware.com/epintro.html 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

1 0

New tests [that try to reveal 64 bit arch sets problem]
by Mirsad Todorovac 15 Nov '01

15 Nov '01

Hi, This test I've tried to tweak to isolate the set on Alpha problem. I hope they might give some help with finding bug (altough I'm aware that there are many other important things to do with GPC). New tests are in attachment (submitted for approval). I hope that it's not a problem - it may be harder to read on some email clients, but on the other hand it's easier to save them ... Results on SOlaris: all OK. Results on Alpha: mirsad06: Failed: extra: 31 IN [0..255]-[31..31] miss: 32 NOT IN [0..255]-[0..0] mirsad07: OK mirsad08: Failed: 32 not set but IN [0..255] mirsad09: Failed: 32 not set but IN [0..255] mirsad10: Failed: 31 set but not IN [32..95] mirsad11: Failed: 32 not set but IN [0..32] mirsad12: Failed: 31 set but not IN [32..32] I was surprized for mirsad07 passed OK, since I've designed it to fail on Alpha (you might say maliciously). It uses something like ``IF (i IN [start..endr]) THEN'' test which compiled correctly. This leas me to produce assembly, and I was surprized to see that it didn't call _p_set_in fucntion from RTS (p/rts/sets.pas, as Frank said). On the other hand, ``FOR i IN [start..endr] DO'' use _p_set_in and do fail. Once Frank has time, I hope this might help a step in the rigth direction. mirsad -- This message has been made up using recycled ideas and language constructs. No plant or animal has been injured in process of making this message.

2 1

ANNOUNCEMENT: pas2po
by Eike Lange 15 Nov '01

15 Nov '01

Hi Folks! I finished writing a tool, similar to `xgettext' named `pas2po'. This program extracts all translatable strings out of a GNU Pascal source file and creates a po file, similar to xgettext. Missing is the timezone information. The output is not sorted, but there are no duplicate entries. Like xgettext output, you have to edit the file by hand to include the missing informations. (Later on, you can process this po file with `msgfmt' to create a mo file) You can download the actual sources via ftp from: agnes.dida.physik.uni-essen.de/pub/home/lange/pas2po-0.2.tar.gz See, that this is _completely_ different from that in inter-unit (tools), but shares the same name. I'll remove the one in inter-unit. Eike

1 0

Bug Report: SET OF BYTE not working properly!!!
by Mirsad Todorovac 15 Nov '01

15 Nov '01

Dear Sirs, Following program (implementing sieve of Eratosthenes) doesn't work as expected: after adding [i] to SET it doesn't appear to be in it!!! This is for i in [32..63,96..127,160..191,224-255]. Numbers 95 and 195 _couldn't_be_removed_ from SET sieve. > gpc --version 2.95.3 20010315 (release) > uname -a OSF1 domac.alu.hr V4.0b 564 alpha --marvin01.pas-------------------------------------------------------------- PROGRAM sieveprogram(input,output); {Sieve of Eratosthenes for finding prime numbers} CONST maxN = 255; VAR i,j,k: CARDINAL; sieve: SET OF Byte; BEGIN FOR i:= 1 TO maxN DO {initialize sieve} BEGIN sieve := sieve + [i]; IF (NOT (i IN sieve)) THEN writeln('Error: ', i, ' not in SET after adding!'); END; FOR i:= 2 TO maxN DO BEGIN IF (i IN sieve) THEN FOR k := i+1 TO maxN DO IF ((k MOD i = 0) AND (k IN sieve)) THEN BEGIN sieve := sieve - [k]; IF (k IN sieve) THEN writeln('Error: ', k, ' in SET after deletion!'); END END; FOR i:= 2 TO maxN DO IF (i IN sieve) THEN BEGIN writeln('Checking if really prime: ', i); FOR j:= 2 TO i-1 DO IF (i MOD j = 0) THEN writeln('Error: ', i,' % ', j, ' = 0.'); END END. -------------------------------------------------------------------------- Program compiles with warnings: > gpc marvin01.pas marvin01.pas: In main program: marvin01.pas:12: warning: constructing limited integer set `0..511' marvin01.pas:23: warning: constructing limited integer set `0..511' > -------------------------------------------------------------------------- Program output (unexpected errors): -------------------------------------------------------------------------- > ./a.out Error: 32 not in SET after adding! Error: 33 not in SET after adding! . . . Error: 63 not in SET after adding! Error: 96 not in SET after adding! Error: 97 not in SET after adding! Error: 98 not in SET after adding! . . . Error: 127 not in SET after adding! Error: 160 not in SET after adding! Error: 161 not in SET after adding! Error: 162 not in SET after adding! . . . Error: 191 not in SET after adding! Error: 224 not in SET after adding! Error: 225 not in SET after adding! Error: 226 not in SET after adding! . . . Error: 255 not in SET after adding! Error: 159 in SET after deletion! Error: 95 in SET after deletion! Error: 95 in SET after deletion! Checking: 2 Checking: 3 Checking: 5 Checking: 7 Checking: 11 Checking: 13 Checking: 17 Checking: 19 Checking: 23 Checking: 29 Checking: 31 Checking: 67 Checking: 71 Checking: 73 Checking: 79 Checking: 83 Checking: 89 Checking: 95 Error: 95 % 5 = 0. Error: 95 % 19 = 0. Checking: 131 Checking: 137 Checking: 139 Checking: 149 Checking: 151 Checking: 157 Checking: 159 Error: 159 % 3 = 0. Error: 159 % 53 = 0. Checking: 193 Checking: 197 Checking: 199 Checking: 211 Checking: 223 > ------------------------------------------------------------------------- Thank you for reading this far. Best regards, Marvin -- This message has been made up using recycled ideas and language constructs. No plant or animal has been injured in process of making this message.

4 11

Q: Availability of GPC + GTK+ worldwide?
by Mirsad Todorovac 13 Nov '01

13 Nov '01

Hi, I just had a crazy idea of developing an application in GNU Pascal - yet it struck me: if I distribute in source code, how many (in %) sites will be able to install it? This lead me to another thought: when will GPC be stable enough to include it in main gcc-3.0.x (or later) distribution? (I guess this might help the compiler be more wide spread, as happened wiht g77 ...) mirsad -- This message has been made up using recycled ideas and language constructs. No plant or animal has been injured in process of making this message.

3 3

Problems building GPC when host!=build
by Andris Pavenis 13 Nov '01

13 Nov '01

Configuring in p/rts fails when host!=build (for example when building native compiler for DJGPP or MINGW under Linux) as newly built xgcc and xgpc cannot be run on build system. In this case we should run corresponding cross-compiler instead. Included patch is tested only for --build=i686-pc-linux-gnu, --host=i586-mingw32msvc --target=i586-mingw32msvc Andris --- gpc-20010924/p/Make-lang.in~1 Mon Sep 24 19:59:48 2001 +++ gpc-20010924/p/Make-lang.in Tue Oct 30 17:57:24 2001 @@ -154,8 +154,12 @@ ADD_RTS_PARENT_DIR = sed -e 's,-B$[^/][^:]$,-B../../\1,g;s,^$[^/][^:]$,../../\1,' # The ' ' is there so, e.g., `-B.' will be replaced by ADD_RTS_PARENT_DIR -RTS_COMPILERS = CC="`echo $(GCC_FOR_TARGET)' ' | $(ADD_RTS_PARENT_DIR)`" \ - PC="`echo $(GPC_FOR_TARGET)' ' | $(ADD_RTS_PARENT_DIR)`" +RTS_COMPILERS = CC="`if test \"$(build_canonical)\" = \"$(host_canonical)\" ; then \ + echo $(GCC_FOR_TARGET)' ' | $(ADD_RTS_PARENT_DIR); \ + else echo $(GCC_FOR_TARGET); fi`" \ + PC="`if test \"$(build_canonical)\" = \"$(host_canonical)\" ; then \ + echo $(GPC_FOR_TARGET)' ' | $(ADD_RTS_PARENT_DIR);\ + else echo $(GPC_FOR_TARGET); fi`" GPC_GENERATED_SRC = \ $(srcdir)/p/parse.c \

3 10

Re: Support for PowerMax OS
by da Silva, Joe 13 Nov '01

13 Nov '01

Well, I have no idea what PowerMax OS is, but AFAIK, if GCC is available for PowerMax (preferably V2.95.3 ;-), it should also be possible to build GPC (if a binary does not already exist). So, you should perhaps also check "http://gcc.gnu.org/install/specific.html" to see if this is listed by another name (I couldn't find the words "Concurrent" or "PowerMax" on the page). Joe. > -----Original Message----- > From: Sven Jauring [SMTP:sven.jauring@hiq.se] > Sent: Friday, November 09, 2001 11:56 PM > To: gpc(a)gnu.de > Subject: Support for PowerMax OS > > Hi all > > Is it possible to use GPC for (Concurrent's) PowerMax operating system? > > I looked through the GPC distribution (20010924), but didn't find > anything about PowerMax. > > Best Regards > Sven Jauring << File: Card for Sven Jauring >>

1 0

win32 GPC blues
by Pierre Muller 11 Nov '01

11 Nov '01

Trying to get strings output for GPC to work, I needed a win32 gpc binary to check my changes to GDB. But I have problems both with the latest cygwin binary port ftp://agnes.dida.physik.uni-essen.de/home/chief/win32/cygwin/2.95.3/gpc-2001 0924.i686-pc-cygwin.tar.gz With the latest cygwin tools (uploaded using cygwin setup program) I get a problem that seems related to the fact that the assembler is called without any argument. $ gpc -v test.p Reading specs from /usr/local/lib/gcc-lib/i686-pc-cygwin/2.95.3/specs gpc version 20010924, based on 2.95.3 20010315 (release) /usr/local/lib/gcc-lib/i686-pc-cygwin/2.95.3/gpcpp.exe -lang-pascal -v -iprefix /usr/lib/gcc-lib/i686-pc-cygwin/2.95.3-5/specsi686-pc-cygwin/2.95.3/ -famtmpfil e=/cygdrive/c/DOCUME~1/ADMINI~1/LOCALS~1/Temp/cc000288 -fdelphi-comments -D__GNU _PASCAL__ -undef -D__GNUC__=2 -D__GNUC_MINOR__=95 -D__GPC__=2 -D__GPC_MINOR__=0 -D__GPC_RELEASE__=20010924 -D__BITS_LITTLE_ENDIAN__=1 -D__BYTES_LITTLE_ENDIAN__= 1 -D__WORDS_LITTLE_ENDIAN__=1 -Di386 -D_WIN32 -DWINNT -D_X86_=1 -D__STDC__=1 -D_ _stdcall=__attribute__((__stdcall__)) -D__cdecl=__attribute__((__cdecl__)) -D__d eclspec(x)=__attribute__((x)) -D__OS_DOS__=1 -D__i386__ -D_WIN32 -D__WINNT__ -D_ X86_=1 -D__STDC__=1 -D__stdcall=__attribute__((__stdcall__)) -D__cdecl=__attribu te__((__cdecl__)) -D__declspec(x)=__attribute__((x)) -D__OS_DOS__=1 -D__i386 -D_ _WINNT -Asystem(winnt) -Acpu(i386) -Amachine(i386) -remap -D__CYGWIN32__ -D__CYG WIN__ test.p /cygdrive/c/DOCUME~1/ADMINI~1/LOCALS~1/Temp/cca00288 GNU Pascal Compiler PreProcessor version 20010924, based on gcc-2.95.3 20010315 (release) (80386, BSD syntax) #include "..." search starts here: #include <...> search starts here: /usr/lib/gcc-lib/i686-pc-cygwin/2.95.3-5/specsi686-pc-cygwin/2.95.3/include /usr/local/include /include /usr/local/lib/gcc-lib/i686-pc-cygwin/2.95.3/include /usr/include End of search list. /usr/local/lib/gcc-lib/i686-pc-cygwin/2.95.3/gpc1.exe /cygdrive/c/DOCUME~1/ADMI NI~1/LOCALS~1/Temp/cca00288 -quiet -dumpbase test.pas -version -famtmpfile=/cygd rive/c/DOCUME~1/ADMINI~1/LOCALS~1/Temp/cc000288 -o /cygdrive/c/DOCUME~1/ADMINI~1 /LOCALS~1/Temp/ccb00288 GNU Pascal version 2.95.3 20010315 (release) (i686-pc-cygwin) compiled by GNU C version 3.0.1. GNU Pascal version is actually 20010924, based on gcc-2.95.3 20010315 (release) test.p:1: warning: missing program header test.p:2: warning: missing string capacity - assuming 255 as Assembler messages: for reading open : No such file or directory Administrateur@LAOCOON /home/muller Remebering that mingw32 is the prefered win32 version, I tried to download the latest gpc for mingw32, but here again, I had problems. F:\pas\cvs100\ide>gpc -v Reading specs from f:\mingw32\usr\local\lib\gcc-lib\i386-mingw32msvc\2.95.3\spec s gpc version 20010623, based on 2.95.3 20010315 (release) F:\pas\cvs100\ide>gcc -v Reading specs from f:/mingw32/bin/../lib/gcc-lib/mingw32/2.95.3-5/specs gcc version 2.95.3-5 (mingw special) F:\pas\cvs100\ide>gpc -v --automake hello.pp Reading specs from f:\mingw32\usr\local\lib\gcc-lib\i386-mingw32msvc\2.95.3\spec s gpc version 20010623, based on 2.95.3 20010315 (release) f:\mingw32\usr\local\lib\gcc-lib\i386-mingw32msvc\2.95.3\gpcpp.exe -lang-pascal -v -iprefix f:/mingw32/usr/local/lib/gcc-lib/i386-mingw32msvc/2.95.3/i386-mingw 32msvc\2.95.3\ -famtmpfile=C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\cca01008 -fautomak e -fdelphi-comments -D__GNU_PASCAL__ -undef -D__GNUC__=2 -D__GNUC_MINOR__=95 -D_ _GPC__=2 -D__GPC_MINOR__=0 -D__GPC_RELEASE__=20010623 -D__BITS_LITTLE_ENDIAN__=1 -D__BYTES_LITTLE_ENDIAN__=1 -D__WORDS_LITTLE_ENDIAN__=1 -Di386 -D_WIN32 -DWIN32 -D__WIN32__ -D__MINGW32__=0.2 -D__MSVCRT__ -DWINNT -D_X86_=1 -D__STDC__=1 -D__s tdcall=__attribute__((__stdcall__)) -D_stdcall=__attribute__((__stdcall__)) -D__ cdecl=__attribute__((__cdecl__)) -D__declspec(x)=__attribute__((x)) -D__OS_DOS__ =1 -D__i386__ -D_WIN32 -D__WIN32__ -D__WIN32__ -D__MINGW32__=0.2 -D__MSVCRT__ -D __WINNT__ -D_X86_=1 -D__STDC__=1 -D__stdcall=__attribute__((__stdcall__)) -D___s tdcall__=__attribute__((__stdcall__)) -D__cdecl=__attribute__((__cdecl__)) -D__d eclspec(x)=__attribute__((x)) -D__OS_DOS__=1 -D__i386 -D__WIN32 -D__WINNT -D___s tdcall=__attribute__((__stdcall__)) -Asystem(winnt) -Acpu(i386) -Amachine(i386) -remap -Acpu(i386) -Amachine(i386) -Di386 -D__i386 -D__i386__ hello.pp C:\DOCUME ~1\ADMINI~1\LOCALS~1\Temp\ccb01008 GNU Pascal Compiler PreProcessor version 20010623, based on gcc-2.95.3 20010315 (release) (80386, BSD syntax) #include "..." search starts here: #include <...> search starts here: f:/mingw32/usr/local/lib/gcc-lib/i386-mingw32msvc/2.95.3/i386-mingw32msvc\ f:/mingw32/usr/local/lib/gcc-lib/i386-mingw32msvc/2.95.3/i386-mingw32msvc\2.95. 3\include /usr/local/include /include /usr/local/lib/gcc-lib/i386-mingw32msvc/2.95.3/include /usr/local/i386-mingw32/include End of search list. f:\mingw32\usr\local\lib\gcc-lib\i386-mingw32msvc\2.95.3\gpc1.exe C:\DOCUME~1\A DMINI~1\LOCALS~1\Temp\ccb01008 -quiet -dumpbase hello.pas -version -famtmpfile=C :\DOCUME~1\ADMINI~1\LOCALS~1\Temp\cca01008 -fautomake -o C:\DOCUME~1\ADMINI~1\LO CALS~1\Temp\ccc01008 GNU Pascal version 2.95.3 20010315 (release) (i386-mingw32msvc) compiled by GNU C version 3.0. GNU Pascal version is actually 20010623, based on gcc-2.95.3 20010315 (release) hello.pp:1: warning: missing program header as -o C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\ccd01008 C:\DOCUME~1\ADMINI~1\LOCALS~1 \Temp\ccc01008 collect2 crt2.o -Lf:\mingw32\usr\local\lib\gcc-lib\i386-mingw32msvc\2.95.3 C:\D OCUME~1\ADMINI~1\LOCALS~1\Temp\ccd01008 -lgpc -lmingw32 -lgcc -lmoldname -lmsvcr t -luser32 -lkernel32 -ladvapi32 -lshell32 -lmingw32 -lgcc -lmoldname -lmsvcrt gpc: installation problem, cannot exec `collect2': No such file or directory I have the correct gcc installed, but gpc needs collect2, where should I find that binary ? Pierre Muller Institut Charles Sadron 6,rue Boussingault F 67083 STRASBOURG CEDEX (France) mailto:muller@ics.u-strasbg.fr Phone : (33)-3-88-41-40-07 Fax : (33)-3-88-41-40-99

6 35

GPC bug?
by Shafiek Rasdien 11 Nov '01

11 Nov '01

In my attempt to compile the p4 interpreter, I came across the following. The program ################################# program pcode; label 1; begin end. ################################### yields ******************************* test.p: In function `program_Pcode': test.p:2: label `1' used but not defined ******************************* causing a compile time error. Should this not be a warning. that says "Unused label `1'". Also #################################### program pcode (output); label 1; procedure asm; begin 1: end; { asm } begin 1: end. ###################################### Should say "Multiple label `1' instances" but gives ******************************************************** pc: Internal compiler error: program gpc1 got fatal signal 11 ********************************************************* Shafiek Rasdien Internet Solutions Tel: +27 11 283 5500 Fax: +27 11 283 5401

3 2