Gpc

gpc@gnu.de

5400 discussions

Re: Porting from DEC pascal to GPC
by Rob Koopman 06 Feb '03

06 Feb '03

David Wood wrote: We've ported quite a lot of DEC Pascal to GPC without major problems. Certainly GPC2.1 hasn't given us problems with segfaults or internal errors on both i386 or Alpha platforms. We have had to do quite a lot of manual code conversions though. We also identified a lot of potential manual code conversions. Enough to hesitate about the jump. Happy to hear the compiler did not cause problems. David Wood wrote: Areas which spring to mind that needed changing in our code was: <snip> I have code examples of how I've worked around the enumerated type reading and ZERO issues if you wish. We are surely interested in the Zero example. We do not use reading of enumerated types. In addition to this did you automatically tackle writev, readv?. Rob Koopman

1 0

Crash
by Andrew Gregory 06 Feb '03

06 Feb '03

Sorry to trouble you but I fixed it. I had something like: program Myprogram; {$gpc-main=Dummy} const eps_air = 1.000637; light = 2.99792458E2; {mm and GHz} function fun1(a: double, var b : double) : integer ; asmname 'fun1'; function fun2(a: double, var b : double) : integer; asmname 'fun2'; {$include "maincode.pas"} // the functions and procs are here begin WriteLn ('This is never called.'); Flush (Output); end. When I moved the const declarations into maincode.pas it compiled ok. Very strange. Andrew. ------------------------------------------------------------------- This e-mail and any attachments may contain confidential and/or privileged material; it is for the intended addressee(s) only. If you are not a named addressee, you must not use, retain or disclose such information. NPL Management Ltd cannot guarantee that the e-mail or any attachments are free from viruses. NPL Management Ltd. Registered in England and Wales. No: 2937881 Registered Office: Teddington, Middlesex, United Kingdom TW11 0LW. -------------------------------------------------------------------

1 0

GPC
by Mehdi Khaldi 05 Feb '03

05 Feb '03

Hi, When I use a graphical debugger, I can't examine variables. The message is "no symbol in current context". What do I have to do to examine these ones? Is it when I compile? Thanks

2 1

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. ------------------------------------------------------------------- This e-mail and any attachments may contain confidential and/or privileged material; it is for the intended addressee(s) only. If you are not a named addressee, you must not use, retain or disclose such information. NPL Management Ltd cannot guarantee that the e-mail or any attachments are free from viruses. NPL Management Ltd. Registered in England and Wales. No: 2937881 Registered Office: Teddington, Middlesex, United Kingdom TW11 0LW. -------------------------------------------------------------------

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 when I try to compile a program, I get the following errors, even for these two demo programs included with the package: [bluejay:~] ed% gpc factorial.pas factorial.pas:31: module/unit interface `Gpc' could not be imported [bluejay:~] ed% gpc datetimedemo.pas gpc: installation problem, cannot exec `as': No such file or directory I cannot locate the file "as" anywhere. What is wrong? Did I do something incorrect in the installation? I would appreciate any assistance you could give me on this matter. Sincerely Ed Stoeffhaas

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% which gpc /usr/bin/gpc [ip-98-110:~] antoine% gpc -v 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 [ip-98-110:~] antoine% ls -la /Developer/Pascal/gpc321d3/lib/gcc-lib/powerpc-apple-darwin6.3/3.2.1/ units/dos.pas -rw-rw-rw- 1 antoine staff 23088 Jan 11 04:39 /Developer/Pascal/gpc321d3/lib/gcc-lib/powerpc-apple-darwin6.3/3.2.1/ units/dos.pas [ip-98-110:~] antoine%

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:~] 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

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 Foo (1 : 2) { Nice!? } end. If this is allowed, the problem in the `System' unit with the redeclaration of `Integer' could be resolved by letting the `GPC' module export `Integer' with renaming, so `System' could use the renamed one on the right side of the redeclaration (`type Integer = OriginalInteger (16);'). But somehow I doubt this is alright ... 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 GPC download signing key: 51FF C1F0 1A77 C6C2 4482 4DDC 117A 9773 7F88 1707

2 4

SizeOf packed record is different when record placed into packed array [0..0], see source please
by Ingvar Marny 31 Jan '03

31 Jan '03

Hi All. program test; type t1 = packed record item1 : byte; item2: byte; item3: byte; end; t2 = packed array [0..0] of t1; begin writeln ('SizeOf (t1): ', SizeOf (t1)); writeln ('SizeOf (t2): ', SizeOf (t2)); readln; end. Output of program: SizeOf (t1): 3 SizeOf (t2): 4 Could anybody tell me - why? Thanks. software: gpc version 2.1 (20020510), based on 2.95.3 20010315 (release) Linux RedHat 2.5.52

3 2

Jump to page:

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