Gpc February 2003

gpc@gnu.de

38 participants
76 discussions

suse
by Richard Rothbauer 05 Feb '03

05 Feb '03

Your "Installation instructions for GPC binary distribution" does not work for SUSE8.1 comment "installation problem, can not exec 'gpcpp' : No such file ore directory" What to do? Kind regards R.Rothbauer

2 1

Own traps
by Andrew Gregory 04 Feb '03

04 Feb '03

I am porting some complex mathematical Pascal code to GPC. In certain places in the middle of procedures at the nth level there are things like if (X<-1) then begin writeln('Error X<1'); halt end; Since I'm aiming to produce a DLL (main function in C), if X<1 I need to leave the Pascal routine immediately and return an integer failure code to my C program. How can I replace the halt statement by a jump to an exit point, with a stack clean-up? Andrew. --------------------------… [View More]

3 2

gpc compiler for OS X - problem
by Ed Stoeffhaas 03 Feb '03

03 Feb '03

Hi Adriann, Thanks for your suggestions. I downloaded and installed the binary package of the gpc pascal compiler yesterday. It seemed to install easily and without problem. When I type "gpc" I get the expected output: "Reading specs from /Developer/Pascal/gpc321d3/lib/gcc-lib/powerpc-apple-darwin6.3/3.2.1/ specs Configured with: ../gpc-3.2.1/configure --enable-languages=pascal,c --prefix=/Developer/Pascal/gpc321d3 Thread model: single gpc version 20021128, based on gcc-3.2.1" But … [View More]

4 3

Basic problem on OS X : cannot import units
by Antoine Gautier 01 Feb '03

01 Feb '03

Hello all. I just installed gpc on OS X from the microbizz binaries. Simple programs compile ok, but not when I try to use units. Do I need to set env variables in the tcsh ? add a path to the units somewhere ? Thanks ! Here is an example (is ok without the USES) : [ip-98-110:~] antoine% cat test.pas program test; uses gpc; begin writeln ('Hello world'); end. [ip-98-110:~] antoine% gpc test.pas test.pas:3: module/unit interface `Gpc' could not be imported [ip-98-110:~] antoine% … [View More]

3 4

Testsuite results for gpc on Mac OS X
by Adriaan van Os 01 Feb '03

01 Feb '03

Below are the results of the testsuite for gpc-20021128 with gcc-3.2.1 on Mac OS X.2.3 (Darwin 6.3). I can send in more information as needed. Regards, Adriaan van Os P.S. Same results with -gstabs -------------- [G4:~] adriaan% gpc -v Reading specs from /usr/local/gpc321d3/lib/gcc-lib/powerpc-apple-darwin6.3/3.2.1/specs Configured with: ../gpc-3.2.1/configure --enable-languages=c,pascal --prefix=/usr/local/gpc321d3 Thread model: single gpc version 20021128, based on gcc-3.2.1 [G4:~] … [View More]adriaan% cd ~/gnu/testgpc/test [G4:~/gnu/testgpc/test] adriaan% make Running the GPC Test Suite. This may take a while ... rm -f *.dat *.o *.s *.gpm *.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/*.gpm todo/*.gpi todo/*.gpd todo/core { gpc --version | head -1; gpc --print-search-dirs | grep install | head -1; hostname || echo "unknown host"; } | \ sed -e 's,^,Testing ,;N;s,\n.*gcc-lib[/\], (,;s,[/\].*,),;N;s,\n, (,;s,$,),' Testing gpc 20021128, based on gcc-3.2.1 (powerpc-apple-darwin6.3) (G4.local.) echo "gpc -g -O3 -W -Wall -Wundef -Wpointer-arith -Wno-unused " gpc -g -O3 -W -Wall -Wundef -Wpointer-arith -Wno-unused PC="gpc" PFLAGS="--autobuild -g -O3 -W -Wall -Wundef -Wpointer-arith -Wno-unused " SRCDIR="." TEST_MAKE_FLAG=test-make-flag "./test_run" "*.pas" | "./test_sum" 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 backtracerr.pas: 2c2,71 < ./test_run: line 188: 22183 Segmentation fault ./"$A_OUT" "$x" --- > b: about to b(c) > b: about to b(c) > b: about to b(c) > b: about to b(c) > b: about to b(c) > b: about to b(c) > b: about to b(c) > b: about to b(c) > b: about to b(c) > b: about to b(c) > b: about to b(c) > b: about to yy > c: about to a(yy) > a: about to xx() > c: about to a(yy) > a: about to xx() > c: about to a(yy) > a: about to xx() > c: about to a(yy) > a: about to xx() > c: about to a(yy) > a: about to xx() > c: about to a(yy) > a: about to xx() > c: about to a(yy) > a: about to xx() > c: about to a(yy) > a: about to xx() > c: about to a(yy) > a: about to xx() > c: about to a(yy) > a: about to xx() > c: about to a(yy) > a: about to xx() > d: > a: back from xx() > c: back from a(yy) > a: back from xx() > c: back from a(yy) > a: back from xx() > c: back from a(yy) > a: back from xx() > c: back from a(yy) > a: back from xx() > c: back from a(yy) > a: back from xx() > c: back from a(yy) > a: back from xx() > c: back from a(yy) > a: back from xx() > c: back from a(yy) > a: back from xx() > c: back from a(yy) > a: back from xx() > c: back from a(yy) > a: back from xx() > c: back from a(yy) > b: back from yy > b: back from b(c) > b: back from b(c) > b: back from b(c) > b: back from b(c) > b: back from b(c) > b: back from b(c) > b: back from b(c) > b: back from b(c) > b: back from b(c) > b: back from b(c) > b: back from b(c) > program: back from b( d ) failed TEST bill5.pas: SKIPPED: `attribute( section(".ltext") )' not available TEST dario.pas: SKIPPED: only for IA32 TEST fay.pas: 1c1,12 < ./test_run: line 188: 28960 Segmentation fault ./"$A_OUT" "$x" --- > stacking 1 > Doing successors of 1 > stacking 2 > Doing successors of 2 > Now checking if 2 is an SCC root > Now checking if 1 is an SCC root > 1 is an SCC root; SP= 2 T= 1 > Yield SCC should pass 1 out to TakeUSCC > YieldUSCC passes 1 to TakeUSCC > TakeUSCC receives V= 1 from YieldUSCC > The SCC's constituents are: > 2 1 failed TEST fjf165a.pas: SKIPPED: German locale not installed TEST fjf35.pas: ./test_run: line 199: 7712 Segmentation fault ./"$A_OUT" "$x" TEST fjf434a.pas: gpc: Internal error: Illegal instruction (program gpc1) Please submit a full bug report to <gpc(a)gnu.de>. failed TEST fjf434ax.pas: gpc: Internal error: Illegal instruction (program gpc1) Please submit a full bug report to <gpc(a)gnu.de>. failed TEST fjf464c.pas: ./test_run: line 199: 13383 Segmentation fault ./"$A_OUT" "$x" TEST fjf464e.pas: ./test_run: line 199: 13441 Segmentation fault ./"$A_OUT" "$x" TEST fjf480a.pas: SKIPPED: librx not installed TEST fjf480b.pas: SKIPPED: librx not installed TEST fjf480c.pas: SKIPPED: librx not installed TEST fjf558m.pas: O./test_run: line 199: 23669 Bus error ./"$A_OUT" "$x" TEST fjf558n.pas: O./test_run: line 199: 23691 Bus error ./"$A_OUT" "$x" TEST fjf56.pas: SKIPPED: only for IA32 TEST fjf582.pas: ./test_run: line 199: 26315 Segmentation fault ./"$A_OUT" "$x" TEST fjf664.pas: gpc: Internal error: Illegal instruction (program gpc1) Please submit a full bug report to <gpc(a)gnu.de>. failed TEST fjf77.pas: SKIPPED: range of LongReal not sufficient for test TEST fjf92.pas: SKIPPED: only for IA32 TEST fproc.pas: 4c4,11 < ./test_run: line 188: 5375 Segmentation fault ./"$A_OUT" "$x" --- > Stack frame: 0 formal print = 4 formal routine = 4 > Stack frame: 1 formal print = 4 formal routine = 4 > Stack frame: 2 formal print = 4 formal routine = 4 > Stack frame: 3 formal print = 4 formal routine = 4 > Stack frame: 4 formal print = non-local jump > Stack frame: 8 formal print = -1 formal routine = -1 > Stack frame: 9 formal print = -1 formal routine = -1 > Stack frame: 10 formal print = -1 formal routine = -1 failed TEST gettexttest.pas: SKIPPED: libintl not installed TEST gmptest.pas: SKIPPED: libgmp not installed TEST goto4.pas: O./test_run: line 199: 5666 Bus error ./"$A_OUT" "$x" TEST goto5.pas: O./test_run: line 199: 5688 Bus error ./"$A_OUT" "$x" TEST heapmo2.pas: OK ./test_run: line 199: 6054 Bus error ./"$A_OUT" "$x" TEST heapmontest.pas: OK ./test_run: line 199: 6086 Segmentation fault ./"$A_OUT" "$x" TEST jj5.pas: SKIPPED: `attribute (stdcall)' not available TEST knuth1.pas: ./test_run: line 199: 7349 Segmentation fault ./"$A_OUT" "$x" TEST longr2.pas: SKIPPED: no LongReal math routines available TEST math.pas: 2d1 < ./test_run: line 188: 8385 Segmentation fault ./"$A_OUT" "$x" failed TEST nlgpp.pas: ./test_run: line 199: 10696 Segmentation fault ./"$A_OUT" "$x" TEST nlgpp2.pas: 2c2,30 < ./test_run: line 188: 10718 Segmentation fault ./"$A_OUT" "$x" --- > Recursive start 10 True > Recursive start 9 True > Recursive start 8 True > Recursive start 7 True > Recursive start 6 True > Recursive start 5 True > Recursive start 4 True > Recursive start 3 True > Recursive start 2 False > Recursive start 1 False > Recursive start 0 False > DoGoto 3 True > OK > Recursive end 3 True > Recursive before goto 4 True > Recursive end 4 True > Recursive before goto 5 True > Recursive end 5 True > Recursive before goto 6 True > Recursive end 6 True > Recursive before goto 7 True > Recursive end 7 True > Recursive before goto 8 True > Recursive end 8 True > Recursive before goto 9 True > Recursive end 9 True > Recursive before goto 10 True > Recursive end 10 True > Main end failed TEST nonlocgoto.pas: 3c3 < ./test_run: line 188: 10852 Bus error ./"$A_OUT" "$x" --- > it worked failed TEST readb1.pas: ./test_run: line 199: 12272 Segmentation fault ./"$A_OUT" "$x" TEST readb10.pas: ./test_run: line 199: 12299 Segmentation fault ./"$A_OUT" "$x" TEST readb11.pas: ./test_run: line 199: 12326 Segmentation fault ./"$A_OUT" "$x" TEST readb12.pas: ./test_run: line 199: 12353 Segmentation fault ./"$A_OUT" "$x" TEST readb13.pas: ./test_run: line 199: 12380 Segmentation fault ./"$A_OUT" "$x" TEST readb2.pas: ./test_run: line 199: 12482 Segmentation fault ./"$A_OUT" "$x" TEST readb3.pas: ./test_run: line 199: 12509 Segmentation fault ./"$A_OUT" "$x" TEST readb4.pas: ./test_run: line 199: 12536 Segmentation fault ./"$A_OUT" "$x" TEST readb5.pas: ./test_run: line 199: 12563 Segmentation fault ./"$A_OUT" "$x" TEST readb6.pas: ./test_run: line 199: 12590 Segmentation fault ./"$A_OUT" "$x" TEST readb7.pas: ./test_run: line 199: 12617 Segmentation fault ./"$A_OUT" "$x" TEST readb8.pas: ./test_run: line 199: 12644 Segmentation fault ./"$A_OUT" "$x" TEST readb9.pas: ./test_run: line 199: 12671 Segmentation fault ./"$A_OUT" "$x" TEST reade1.pas: ./test_run: line 199: 13098 Segmentation fault ./"$A_OUT" "$x" TEST reade10.pas: ./test_run: line 199: 13125 Segmentation fault ./"$A_OUT" "$x" TEST reade11.pas: ./test_run: line 199: 13153 Segmentation fault ./"$A_OUT" "$x" TEST reade12.pas: ./test_run: line 199: 13181 Segmentation fault ./"$A_OUT" "$x" TEST reade13.pas: ./test_run: line 199: 13208 Segmentation fault ./"$A_OUT" "$x" TEST reade15.pas: ./test_run: line 199: 13260 Segmentation fault ./"$A_OUT" "$x" TEST reade2.pas: ./test_run: line 199: 13312 Segmentation fault ./"$A_OUT" "$x" TEST reade3.pas: ./test_run: line 199: 13339 Segmentation fault ./"$A_OUT" "$x" TEST reade4.pas: ./test_run: line 199: 13366 Segmentation fault ./"$A_OUT" "$x" TEST reade5.pas: ./test_run: line 199: 13393 Segmentation fault ./"$A_OUT" "$x" TEST reade6.pas: ./test_run: line 199: 13420 Segmentation fault ./"$A_OUT" "$x" TEST reade7.pas: ./test_run: line 199: 13447 Segmentation fault ./"$A_OUT" "$x" TEST reade8.pas: ./test_run: line 199: 13474 Segmentation fault ./"$A_OUT" "$x" TEST reade9.pas: ./test_run: line 199: 13501 Segmentation fault ./"$A_OUT" "$x" TEST readg1.pas: gpc: Internal error: Illegal instruction (program gpc1) Please submit a full bug report to <gpc(a)gnu.de>. failed TEST readg10.pas: gpc: Internal error: Illegal instruction (program gpc1) Please submit a full bug report to <gpc(a)gnu.de>. failed TEST readg11.pas: ./test_run: line 199: 13572 Segmentation fault ./"$A_OUT" "$x" TEST readg12.pas: ./test_run: line 199: 13599 Segmentation fault ./"$A_OUT" "$x" TEST readg13.pas: ./test_run: line 199: 13626 Segmentation fault ./"$A_OUT" "$x" TEST readg15.pas: ./test_run: line 199: 13678 Segmentation fault ./"$A_OUT" "$x" TEST readg2.pas: gpc: Internal error: Illegal instruction (program gpc1) Please submit a full bug report to <gpc(a)gnu.de>. failed TEST readg3.pas: gpc: Internal error: Illegal instruction (program gpc1) Please submit a full bug report to <gpc(a)gnu.de>. failed TEST readg4.pas: gpc: Internal error: Illegal instruction (program gpc1) Please submit a full bug report to <gpc(a)gnu.de>. failed TEST readg5.pas: gpc: Internal error: Illegal instruction (program gpc1) Please submit a full bug report to <gpc(a)gnu.de>. failed TEST readg6.pas: gpc: Internal error: Illegal instruction (program gpc1) Please submit a full bug report to <gpc(a)gnu.de>. failed TEST readg7.pas: gpc: Internal error: Illegal instruction (program gpc1) Please submit a full bug report to <gpc(a)gnu.de>. failed TEST readg8.pas: gpc: Internal error: Illegal instruction (program gpc1) Please submit a full bug report to <gpc(a)gnu.de>. failed TEST readg9.pas: gpc: Internal error: Illegal instruction (program gpc1) Please submit a full bug report to <gpc(a)gnu.de>. failed TEST regextest.pas: SKIPPED: librx not installed TEST systemtest.pas: Error in HeapError #2 TEST t6334-2.pas: ./test_run: line 199: 17360 Illegal instruction ./"$A_OUT" "$x" TEST t6p6p3p4.pas: ./test_run: line 199: 17382 Bus error ./"$A_OUT" "$x" TEST trap2test.pas: ./test_run: line 199: 17848 Segmentation fault ./"$A_OUT" "$x" TEST traptest.pas: ./test_run: line 199: 17884 Segmentation fault ./"$A_OUT" "$x" # of GPC tests 2857 # of GPC tests passed 2772 # of GPC tests skipped 18 # of GPC tests failed 67 [View Less]

2 14

Standard question: Exporting of predefined identifiers
by Frank Heckenbach 01 Feb '03

01 Feb '03

Does EP allow a module to export a predefined identifier? The standard makes it clear that it can re-export an identifier imported from another module (e.g., 6.11.6, example 2), but what about predefined things? As in my other mail, I can't seem to find a wording that prohibits it (but I might overlook something). In particular, exporting "magic" routines with renaming would seem quite confusing to me. module m interface; export m = (WriteLn => Foo); end. program p; import m; begin … [View More]

2 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 February 2003