Gpc

gpc@gnu.de

5400 discussions

Questions about GPI files and gpc options
by Pascal Viandier 06 Jun '05

06 Jun '05

Hi, I have some questions about gpi files: - What is a difference between file.gpi and file-all.gpi - Are they all necessary? - I set the gpc options --unit-destination-path and --unit-path to a specific directory (which does exists and have the right permissions) but gpi and objects file files are still created where the makefile is. Do I use wrong options? (I have many source files to compile and I don't want to clutter the application's root directory) I work with gpc 20050331 on SUN Solaris 2.6 Thanks Pascal

2 3

Re: RE : bigsetdemo strange result
by Waldek Hebisch 02 Jun '05

02 Jun '05

Pascal Viandier wrote: > Hi, > > At your suggestion, I ran the gpc test suite. > Here is the summary result: > <snip> I had build gpc-20050331 with gcc-3.4.3 on Sparc-Solaris 2.6. I have found one new problem: gpc passed incorrect comparison function to qsort. On Linux it did not matter, but on Solaris it may crash or produce wrong code. There are few other test failures, but I can not reproduce the problem with sets. Could you try the patch below? It fixes the qsort problem. On my machine sets work even without that patch, but in principle that particular bug may cause quite weird problems with sets. BTW, if you re-make, make sure that gpc runtime is re-build (quite likely the runtime got mis-compiled). diff -u p.orig/types.c p/types.c --- p.orig/types.c Thu Mar 31 02:10:15 2005 +++ p/types.c Tue May 31 23:04:05 2005 @@ -201,7 +201,14 @@ static int sce_cmp (const PTR xp, const PTR yp) { - return const_lt (TREE_PURPOSE (*(tree *) xp), TREE_PURPOSE (*(tree *) yp)) ? -1 : 1; + tree c1 = TREE_PURPOSE (*(tree *) xp); + tree c2 = TREE_PURPOSE (*(tree *) yp); + if (const_lt (c1, c2)) + return -1; + else if (const_lt (c2, c1)) + return 1; + else + return 0; } /* Build a constructor node for set elements. -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

2 2

TRIM() wrong behavior or misunderstanding?
by Pascal Viandier 30 May '05

30 May '05

Hi, During some tests I ran with gpc 2050331 to evaluate the gap between SUN and GNU Pascal, I discovered that the function TRIM() is broken when it is passed a packed array of char. The small program bellow shows incorrect result: PROGRAM Trim; VAR St : PACKED ARRAY [1..20] OF CHAR; I : INTEGER; BEGIN WriteLn('Before assignment:'); FOR I := 1 TO 20 DO WriteLn('St[', i:2,']=', Ord(St[i])); { This shows a series of 0 } WriteLn('After assignment:'); St := 'The String'; FOR I := 1 TO 20 DO WriteLn('St[', i:2,']=', Ord(St[i])); { This shows the string padded with blanks (CHR(32)} St := Trim(St); WriteLn('After Trim:'); FOR I := 1 TO 20 DO WriteLn('St[', i:2,']=', Ord(St[i])); { ***This shows the string exactly AS BEFORE! } END. Am I right when I think the function TRIM should replace the blanks with some CHR(0)? Thanks Pascal Viandier

4 3

Pascal-OpenOffice.org binding
by Rick Engebretson 29 May '05

29 May '05

A Pascal binding to OpenOffice (StarOffice) seems possible. Visual Basic for Applications, the macro language bindings, is a lot like object pascal. OO.org uses new terms that are confusing to pascal unix users. But basically, OO.org is a "document object server" that uses TCP-IP over a client-server network. A Java Virtual Machine services the architecture. Pascal runs using the Operating System (or at least that's what I like about pascal). The less "virtual machine" the better. There are several IPC methods; "named pipes or fifos", and "sockets and socketpairs". So there are many types of bindings possible. These two programming environments might combine nicely.

1 0

Question about string type
by Pascal Viandier 28 May '05

28 May '05

Hi, I am porting SUN Pascal code to GNU Pascal. When I first read the GNU Pascal documentation (the pdf manual), I was pleased to see that GNU Pascal strings were in fact records with the length and the string text: this map perfectly with SUN Pascal VARYING[..] OF CHAR we use, since it is a record with 4 bytes for the length and an array of char. So, no porting problem... But now, I see in gdb that a GNU Pascal variable of type STRING(20) is not anymore as in the documentation: There are two fields of type Cardinal holding the capacity and the actual length of the string, plus the array of char. Since the low-level part of our applications are written in C, many of them get Pascal strings as parameters and map them on C struct's. They rely on the SUN Pascal type to find the length and the text. Is there a way (a compiler option?) to have the STRING type map as explained in the documentation, or will have I to modify all the C routines (a big task)? Pascal

4 4

shell scripts using pascal commands
by Rick Engebretson 26 May '05

26 May '05

I've been trying to learn how one would use pascal programs to be used in shell scripts. The original pascal used the program header to specify such input, output interfaces. ie; Program foo(input, output, file1, file2) ; The input and output are the standard in, out but are text file types. TurboPascal on DOS mostly forgot about this. Building shell commands with pascal seems promising.

4 13

Re: RE : bigsetdemo strange result
by Waldek Hebisch 25 May '05

25 May '05

Pascal Viandier wrote: > Hi, > > At your suggestion, I ran the gpc test suite. > Here is the summary result: > > Test Run By pascal on 2005-05-25 10:45:41 > Native configuration is sparc-sun-solaris2.6 (perfdev) > gpc 20050331, based on gcc-3.4.3, flags: -g -O3 -W -Wall -Wno-unused > > Nuber of tests: 4947 > Number of Ok: 4828 > Number of tests skipped: 7 > Number of failures: 56 (includes internal compiler error and some > coredumps) > Number of coredumps: 47 > Number of compiler errors: 2 > > > Should I worry? > Something is really broken. At first glance all failures involve sets, so it may be just a single problem. -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

1 0

bigsetdemo strange result
by Pascal Viandier 24 May '05

24 May '05

Hi, Now that gpc runs, I compiled and tested the bigsetdemo sample program that comes with gpc. I am concerned with that since the SUN Pascal code I must convert to GNU Pascal uses some big sets. The program works, but outputs all the values I enter minus 1. I don't see anything strange in the source so, is there a bug in the 'set' mechanism? Here is a sreenshot of the bigsetdemo program: <Sigourney> bigsetsdemo Enter some numbers between 1 and 100000 (one or several per line). Enter an empty line when finished. 2 56 21 You entered the following numbers: 1 20 55 <Sigourney> bigsetsdemo Enter some numbers between 1 and 100000 (one or several per line). Enter an empty line when finished. 1 8352 76 You entered the following numbers: 75 8351 <Sigourney> Pascal Viandier pascal(a)accovia.com

2 1

Help! Cannot execute any Pascal program!
by Pascal Viandier 24 May '05

24 May '05

I have problems executing Pascal programs build from gpc-20050331. I followed rigorously the directions of the INSTALL file, build and rebuild gcc and gpc many times, always ending with the same problem The problem: ------------ Even the simplest program you can think of produces a segmentation fault. However, the compilation and linking steps give no errors. The sample program: program test1; begin end. I tried to diagnose at my best for a full week, but I am now totally lost. However, I gathered some elements: 1- When I truss the program, I see it enters in an long loop of brk() calls (malloc), until it crashes. End of the truss: brk(0x012D8410) = 0 brk(0x012D8410) = 0 brk(0x012DC410) = 0 brk(0x012DC410) = 0 brk(0x012E0410) = 0 brk(0x012E0410) = 0 brk(0x012E4410) = 0 brk(0x012E4410) = 0 brk(0x012EA410) = 0 brk(0x012EA410) = 0 brk(0x012EE410) = 0 Incurred fault #6, FLTBOUNDS %pc = 0x00019708 siginfo: SIGSEGV SEGV_MAPERR addr=0xEF7FE000 Received signal #11, SIGSEGV [default] siginfo: SIGSEGV SEGV_MAPERR addr=0xEF7FE000 *** process killed *** * Run the program under gdb: GNU gdb 5.3 Copyright 2002 Free Software Foundation, Inc. GDB is free software, covered by the GNU General Public License, and you are welcome to change it and/or distribute copies of it under certain conditions. Type "show copying" to see the conditions. There is absolutely no warranty for GDB. Type "show warranty" for details. This GDB was configured as "sparc-sun-solaris2.6"... (gdb) b main Breakpoint 1 at $18060: file <implicit code>, line 5. (gdb) r Starting program: /data1/Pascal/tests/test1 Breakpoint 1, $00018060 in main (argc=1, argv=$effff964, envp=$effff96c) at <implicit code>:5 5 <implicit code>: No such file or directory. in <implicit code> (gdb) s Program received signal SIGSEGV, Segmentation fault. _p__rts_Error_S34_Finisherrormessage (N=300) at /data1/Pascal/gcc-3.4.3/gcc/p/rts/error.pas:887 887 s := ReturnAddr2Hex (ErrorAddr); (gdb) p ErrorAddr Address of symbol "Erroraddr" is unknown. (gdb) l 882 begin 883 ExitCode := n; 884 ErrorAddr := CurrentReturnAddr; 885 CurrentReturnAddr := nil; 886 CurrentReturnAddrCounter := 0; 887 s := ReturnAddr2Hex (ErrorAddr); 888 {$local cstrings-as-strings} 889 { @@ stack problem } var foo:CString;foo:=ErrorMessageString;WriteStr (ErrorMessageString, foo, ' (error #', n, ' at ', s, ')') 890 {$endlocal} 891 end; (gdb) p ExitCode Address of symbol "Exitcode" is unknown. (gdb) where #0 _p__rts_Error_S34_Finisherrormessage (N=300) at /data1/Pascal/gcc-3.4.3/gcc/p/rts/error.pas:887 Cannot access memory at address $ef7ff4dc (gdb) s Program terminated with signal SIGSEGV, Segmentation fault. The program no longer exists. (gdb) It is strange to see the program jumping right in the middle of the Finisherrormessage() function! I cannot get more information, unless someone helps me. Configuration: -------------- Hardware: gcc-3.4.3 on a Sun Ultra5 with Solaris 2.6 with 384 Mb of RAM Software: gcc -v Reading specs from /usr/local/lib/gcc/sparc-sun-solaris2.6/3.4.3/specs Configured with: ../gcc-3.4.3/configure --with-as=/usr/ccs/bin/as --with-ld=/usr/ccs/bin/ld --disable-nls --disable-libgcj --enable-languages=pascal,c,c++ Thread model: posix gcc version 3.4.3 gpc --verbose Reading specs from /usr/local/lib/gcc/sparc-sun-solaris2.6/3.4.3/specs Configured with: ../gcc-3.4.3/configure --with-as=/usr/ccs/bin/as --with-ld=/usr/ccs/bin/ld --disable-nls --disable-libgcj --enable-languages=pascal,c,c++ Thread model: posix gpc version 20050331, based on gcc-3.4.3 I use all the GNU packages suggested in the INSTALL file: bison 1.27 flex 2.5.4a make 3.75 patch 2.5.4 sed 3.02 except for binutils 2.10, that is not recommended with Solaris because of as and ld replacements. Help would be greatly appreciated since I have 450 000 lines of SUN Pascal to convert to GNU Pascal to make our applications platform-independent. Thanks in advance. Pascal Viandier pascal(a)accovia.com

2 1

Temporary web server
by Frank Heckenbach 23 May '05

23 May '05

I've put a copy of the GPC home page on a new web server: http://www2.gnu-pascal.de It is also available on the usual URLs (http://www.gnu-pascal.de etc.), but due to DNS caching it may take a few days until your machine will recognize the change. The mailing list archives are not there yet, and the downloads are missing. Only the latest alpha is there. If some of the contributors would like to put some files there, please PM me at frank(a)g-n-u.de (either send the files directly, even if large, or a URL where I can get them). Frank -- Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/, 7977168E GPC To-Do list, latest features, fixed bugs: http://www2.gnu-pascal.de/todo.html GPC download signing key: ACB3 79B2 7EB2 B7A7 EFDE D101 CD02 4C9D 0FE0 E5E8

4 18

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