Gpc September 2003

gpc@gnu.de

31 participants
37 discussions

Re: Linking On OSX
by Kevan Hashemi 16 Sep '03

16 Sep '03

Dear Peter, > In GPC, Integer is equivalent to int in C. > > Have you tried it that way? > Peter. I thought I had, but I tried again by using integer in Pascal and int in C, and now it works perfectly. I am so pleased, I won't even bother to be ashamed. Thank you for your help. Yours, Kevan Hashemi

1 0

Just a little gripe about syntax changes
by Wood David 16 Sep '03

16 Sep '03

Hi, A while back, when Frank released gpc-20030507, he noted that there were a few changes that we wouldn't like, especially regarding external function references. Well ok, the first release forced me to add 'name' to all my external Pascal routines since the default was now all lowercase (even though Pascal routines are defined with an initial uppercase letter - a strange mismatch it seems). Although a nuisance, I accepted this was just a case of getting over the bit I wouldn't like. Of course, 'name' isn't in gpc-2.1, so everyone else running our software had to upgrade to 20030507 too. Having now done the upgrade to 20030830, I started getting errors due to duplicated unit declarations in the INTERFACE and IMPLEMENTATION blocks (for what reason?). Anyway, I deleted the duplication, only to discover that 20030507 required the duplication, so again, all of our machines had to be upgraded to 20030830. Whilst I'm getting very good at rebuilding gpc, I would hope future gpc releases will focus on bug-fixes and ensuring backward compiler compatibility, thus removing the need to match our software to a precise compiler version. Sorry for the moan, we're all always busy - keep up the good work (especially if you can fix the module global string declaration bug!!). Regards David Wood QinetiQ Farnborough The Information contained in this E-Mail and any subsequent correspondence is private and is intended solely for the intended recipient(s). For those other than the recipient any disclosure, copying, distribution, or any action taken or omitted to be taken in reliance on such information is prohibited and may be unlawful. Emails and other electronic communication with QinetiQ may be monitored. Calls to our Customer Contact Centre may be recorded for quality control, regulatory and monitoring purposes.

3 2

Demo program for elusive error in GPC
by Frank D. Engel, Jr. 15 Sep '03

15 Sep '03

Several weeks (perhaps even a month?) ago, I posted a note about a problem I was having with GPC, under MacOS X, and repeatable under IRIX. The compiled program was incorrectly giving me a bus error, but inserting an extra WRITELN somewhere would sometimes solve the problem. I have finaly put together an archive which consistantly demonstrates the problem. Since I have not yet decided firmly on a license for the program, I am requesting that it be used only for helping to find the bug in GPC at this time. If you are interested in doing this, and wish to have access to my archive, please eMail me offlist (fde101(a)yahoo.com) for a copy. Note that I do not consistantly check my mail on certain days of the week, so it may take me a few days to reply. To see the problem: $ gunzip opas.tar.gz $ tar xf opas.tar $ cd opas $ make When the compile fails with a bus error, open 'debug.pas' in a text editor, change the line: {$DEFINE TRACE} to: {$UNDEF TRACE} Save it, then: $ make After getting the same error (more quickly this time), change the line back to {$DEFINE TRACE}, save it, and once more: $ make Now it goes through correctly, and my program actually works, too! Strange. ===== ======= Frank D. Engel, Jr. Modify the equilibrium of the vertically-oriented particle decelerator to result in the reestablishment of its resistance to counterproductive atmospheric penetration. __________________________________ Do you Yahoo!? Yahoo! SiteBuilder - Free, easy-to-use web site design software http://sitebuilder.yahoo.com

2 1

Re: gpc-20030830 released (testsuite)
by Adriaan van Os 14 Sep '03

14 Sep '03

The testsuite results for the latest gpc-20030830 compiler with gcc-3.3.1 are the same as for gpc-20030507 with gcc-3.3.x. For the record, I listed the results below. Regards, Adriaan van Os ----- G4:~] adriaan% gpc -v Reading specs from /Developer/Pascal/gpc331d4/lib/gcc-lib/powerpc-apple-darwin/3.3.1/specs Configured with: ../gpc-331d4/configure --enable-languages=pascal,c --prefix=/Developer/Pascal/gpc331d4 --enable-threads=posix --target=powerpc-apple-darwin Thread model: posix gpc version 20030830, based on gcc-3.3.1 [G4:~/gnu/testgpc/test-20030830] adriaan% make EXTRA_PFLAGS=--longjmp-all-nonlocal-labels Running the GPC Test Suite. This may take a while ... rm -f *.dat *.o *.s *.i *.gpi *.gpd *.gpc core a.out stderr.out *.exe testmake.tmp dummy.c dummy.pas dummy.out diff_cr*.tmp fixcr fixcr.exe rm -f todo/a.out todo/*.exe todo/*.o todo/*.s todo/*.i todo/*.gpi todo/*.gpd todo/core { gpc --version | head -1; gpc --print-search-dirs | grep install | head -1; hostname || echo "unknown host"; date "+%Y-%m-%d %H:%M:%S"; } | \ sed -e 's,^,Testing ,;N;s,\n.*gcc-lib[/\], (,;s,[/\].*,),;N;s,\n, (,;s,$,),;N;s/\n/, /' Testing gpc 20030830, based on gcc-3.3.1 (powerpc-apple-darwin) (G4.local.), 2003-09-14 17:45:03 echo "gpc -g -O3 -W -Wall -Wundef -Wpointer-arith -Wno-unused --longjmp-all-nonlocal-labels " gpc -g -O3 -W -Wall -Wundef -Wpointer-arith -Wno-unused --longjmp-all-nonlocal-labels PC="gpc" PFLAGS="--autobuild -g -O3 -W -Wall -Wundef -Wpointer-arith -Wno-unused --longjmp-all-nonlocal-labels " SRCDIR="." TEST_MAKE_FLAG=test-make-flag "./test_run" "*.pas" | tee test_log | "./test_sum" | tee test_summary TEST agettext2test.pas: SKIPPED: libintl not installed TEST asmtest.pas: SKIPPED: only for IA32 TEST asmtest2.pas: SKIPPED: only for IA32 TEST asmtest3.pas: SKIPPED: only for IA32 TEST bill5.pas: SKIPPED: `attribute( section(".ltext") )' not available TEST dario.pas: SKIPPED: only for IA32 TEST fjf105a.pas: SKIPPED: librx not installed TEST fjf105b.pas: SKIPPED: librx not installed TEST fjf165a.pas: SKIPPED: German locale not installed TEST fjf77.pas: SKIPPED: range of LongReal not sufficient for test TEST fproc.pas: /var/tmp//ccdFaUpQ.s:unknown:Can't emit reloc {- symbol "LSJR11"} @ file address 800. /var/tmp//ccdFaUpQ.s:unknown:Can't emit reloc {- symbol "LSJR11"} @ file address 796. /var/tmp//ccdFaUpQ.s:unknown:Undefined local symbol L3$pb failed TEST gettexttest.pas: SKIPPED: libintl not installed TEST gmptest.pas: SKIPPED: libgmp not installed TEST jj5.pas: SKIPPED: `attribute (stdcall)' not available TEST longr2.pas: SKIPPED: no LongReal math routines available TEST nlgpp2.pas: /var/tmp//cc4oD0DK.s:unknown:Can't emit reloc {- symbol "LSJR11"} @ file address 1056. /var/tmp//cc4oD0DK.s:unknown:Can't emit reloc {- symbol "LSJR11"} @ file address 1052. /var/tmp//cc4oD0DK.s:unknown:Undefined local symbol L3$pb failed TEST regextest.pas: SKIPPED: librx not installed TEST systemtest.pas: *** malloc: vm_allocate(size=2147483648) failed with 3 *** malloc[9324]: error: Can't allocate region *** malloc: vm_allocate(size=2147483648) failed with 3 *** malloc[9324]: error: Can't allocate region OK # of GPC tests 3794 # of GPC tests passed 3776 # of GPC tests skipped 15 # of GPC tests failed 3 [G4:~/gnu/testgpc/test-20030830] adriaan% make MASK="fproc.pas nlgpp2.pas" EXTRA_PFLAGS="--longjmp-all-nonlocal-labels -O2" Running the GPC Test Suite. This may take a while ... rm -f *.dat *.o *.s *.i *.gpi *.gpd *.gpc core a.out stderr.out *.exe testmake.tmp dummy.c dummy.pas dummy.out diff_cr*.tmp fixcr fixcr.exe rm -f todo/a.out todo/*.exe todo/*.o todo/*.s todo/*.i todo/*.gpi todo/*.gpd todo/core { gpc --version | head -1; gpc --print-search-dirs | grep install | head -1; hostname || echo "unknown host"; date "+%Y-%m-%d %H:%M:%S"; } | \ sed -e 's,^,Testing ,;N;s,\n.*gcc-lib[/\], (,;s,[/\].*,),;N;s,\n, (,;s,$,),;N;s/\n/, /' Testing gpc 20030830, based on gcc-3.3.1 (powerpc-apple-darwin) (G4.local.), 2003-09-14 18:49:23 echo "gpc -g -O3 -W -Wall -Wundef -Wpointer-arith -Wno-unused --longjmp-all-nonlocal-labels -O2 " gpc -g -O3 -W -Wall -Wundef -Wpointer-arith -Wno-unused --longjmp-all-nonlocal-labels -O2 PC="gpc" PFLAGS="--autobuild -g -O3 -W -Wall -Wundef -Wpointer-arith -Wno-unused --longjmp-all-nonlocal-labels -O2 " SRCDIR="." TEST_MAKE_FLAG=test-make-flag "./test_run" fproc.pas nlgpp2.pas | tee test_log | "./test_sum" | tee test_summary # of GPC tests 2 # of GPC tests passed 2 # of GPC tests skipped 0 # of GPC tests failed 0

1 0

Dwarf debugging
by Waldek Hebisch 14 Sep '03

14 Sep '03

I have experimental patches that enable Dwarf debugging of Pascal programs with gdb-5.2.1 and gdb-5.3. The patch adds code to tell Dwarf reader in gdb that the language is Pascal (otherwise it treats language as unknown) and code to read info about sets. Known problems: -- sametimes (mostly?) names are case sensitive -- schema shows some wild info (stabs give me similar problem) You can fetch the patches at: http://www.math.uni.wroc.pl/~hebisch/gpc -- Waldek Hebisch hebisch(a)math.uni.wroc.pl or hebisch(a)hera.math.uni.wroc.pl

1 0

Trim routine
by Mehdi Khaldi 12 Sep '03

12 Sep '03

Hi, I get this error : ./src/test.p: In main program: ./src/test.p:11: label `goal' used before containing binding contour ------------------------------------------------------------ program t; label goal; var s: string(80); begin if s <>'' then goto goal; s:=trim(s); goto goal; goal: end. -------------------------------------------------------------- I suspect trim routine to be the cause. If I remove trim call, my program compile right. Thanks

3 2

some problems
by DOMINIQUE THILLAUD 11 Sep '03

11 Sep '03

Thanks to Tom and Adriaan, my compiler in in order on Mac OSX (but before trying to load the Developper Tools CD from USA1 and not from Europa, I was desesperate). Yet, other problems are coming... 1) PATH problems 1a) I'm unable to execute the a.out (nor the hello if using -o) directly but must use the stupid ./a.out (or ./hello). Even if I redefine the variable PATH in ~/.tcshrc (adding to it the current directory .). Where lies the file who defines PATH ? 1b) I construct some modules for toolboxes (like timer.p) or for abstract types (like lists.p) and I would like to put them in a genuine directory such that the compiler could find them from any other directory : how do it ? 2) export problem If I construct a module to implement an abstract type such that rational numbers, how export operators ? Writing : export rationals = (rational, +, -, *, /) ; give me a parse error before '+' (trying to enclose + between ' ' or " " is useless) Thanks in advance, Dominique

7 7

Low and High
by Dominique Thillaud 10 Sep '03

10 Sep '03

Thanks to all ! The variable GPC_UNIT_PATH works very well and, despite the wise advice of Frank, I've included the current directory in my PATH (I'm strictly and for ever a single-user). The statement "export all" is convenient to export operators, the only joke is that we must use the full header of the operator (params and return name) in the implementation part, unlike the forward style of other routines. Now, I was puzzled by the comportment of the Borland functions Low and High. Writing the small test : program testarraypar ; procedure writeRange (T : array of integer) ; begin WriteLn('param range : ', Low(T), '..', High(T)) ; end ; var T : array [1..10] of integer ; begin WriteLn('arg range : ', Low(T), '..', High(T)) ; writeRange(T) ; WriteLn('arg range : ', Low(T[2..9]), '..', High(T[2..9])) ; writeRange(T[2..9]) ; end. the running gives : arg range : 1..10 param range : 0..9 arg range : 2..9 param range : 0..7 That's not fair ! And with such a comportment, the parameter type "array of integer" becomes almost useless : iterative sorting routines do their job but not the linear search nor the binary one (except with stupid things like "return index + Low(T)" that I refuse to teach with beginners). Knows someone an other way to access the bounds of an "array of integer" ? Thanks in advance, Dominique

2 2

building gpi
by Mehdi Khaldi 10 Sep '03

10 Sep '03

I'd like to build only gpi files without .o files. I use --interface-only flag. Is there another flag like automake to (re)build gpi files without linking or generating .o files?

3 2

Execute external commands
by Miklos Cserzo 09 Sep '03

09 Sep '03

Hi Folks, what is the way to execute an external Unix command from GPC? (Like 'sort -k6f xxx') According to the documentation the function 'execute' is defined in the RTS and it looks like the one I just need. However, I can not access it, I get the 'undefined identifier' error. While the 'pos' function is fine and it is defined on the same place. Cheers, miklos

3 4

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

1999

1998

1997

1996

1995

Gpc September 2003