January 2006 - Gpc

GPC 20051116 on Sparc Solaris
by Pascal Viandier 22 Jan '06

22 Jan '06

I ran the test suite against gpc 20051116 on SUN Sparc Solaris with the following results: Test Run By pascal on 2006-01-16 13:41:36 Native configuration is sparc-sun-solaris2.6 (perfdev) === gpc tests === Running target any Running testsuite ... UNSUPPORTED: agettext2test.pas UNSUPPORTED: aregextest.pas UNSUPPORTED: asmtest.pas UNSUPPORTED: crttest.pas UNSUPPORTED: fjf165a.pas FAIL: fjf980a.pas FAIL: fjf980b.pas UNSUPPORTED: gmptest.pas UNSUPPORTED: longr2.pas === gpc Summary === # of tests 4969 # of expected passes 4960 # of unexpected failures 2 # of unsupported tests 7 gpc version 20051116, based on gcc-3.4.4 In the two failing tests there is a "packed array [1 .. 1] of Boolean". If I run the tests by hand I get bus error. If I remove the "packed" in the array declaration, both tests work as expected. Is this a Sparc Solaris - specific bug? Regards Pascal Viandier pascal(a)accovia.com

2 1

Program parameters with ISO 7185
by Brian Wichmann 20 Jan '06

20 Jan '06

I was a co-author of an algorithm written in Pascal (ISO 7185) which read: PROGRAM stvpas(datafile, output); {This program counts the votes in a Single Transferable Vote election, using Meek's method, and reports the results} ... The datafile was reread on every iteration of the algorithm. Am I correct in stating that that the program cannot be run with gpc without making a change to the program to assign datafile to an external file? Brian.

3 5

Changing access:
by CBFalconer 20 Jan '06

20 Jan '06

Darned if I know how to set this up. Please change my access so that mail is delivered to: cbfalconer(a)maineline.net and accepted from there and worldnet.att.net, att.net, or yahoo.com (all user cbfalconer). I would still like a reply-to gpc... to appear in the list messages sent to me. -- "If you want to post a followup via groups.google.com, don't use the broken "Reply" link at the bottom of the article. Click on "show options" at the top of the article, then click on the "Reply" at the bottom of the article headers." - Keith Thompson More details at: <http://cfaj.freeshell.org/google/>

1 0

Re: Dynamic arrays dimensions
by Silvio a Beccara 20 Jan '06

20 Jan '06

> This version doesn't do any range checking. This means the code may > have worked incorrectly, unnoticed. Too bad... anyway now I'm using the latest one. > Are you using a 64 bit platform? This array would have a size of > 6.4 GB which is not possible on 32 bit. From your question I understand that the maximum limit coincides with the physical memory (which is limited to 4 GB on a 32-bit machine). I'm using a 32 bit machine, so I adjusted the dimensioning of that array (and the size of the calculation) to fit my memory. Thanks Silvio a Beccara -- Email.it, the professional e-mail, gratis per te: http://www.email.it/f Sponsor: Trova la tua anima gemella con Meetic. Iscriviti subito gratis: potrai trovare migliaia di single in linea e chattare con loro! Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid@48&d-1

3 2

Re: GPC on i686-apple-darwin
by Waldek Hebisch 19 Jan '06

19 Jan '06

Adriaan van Os wrote: > You were quite right about -fPIC. All the failures, except emil9.pas > disappear with -fno-pic. However, many of the other tests fail with > -fno-pic, because the option disables dynamic linking on Mac OS X. The > PPC back-end has a workaround (-mdynamic-no-pic) but that doesn't seem > to work for i686-apple-darwin. > I have just realized that Darwin PIC problem have nothing to do with Linux PIC problems: Darwin does not use the binutils feature (ELF GOT relocations) that Linux uses. > Updating the linker and assembler to odcctools-20050327 had no effect > on testsuite results. > > So, I must either > - find a backport of i686-apple-darwin PIC fixes > - find a solution for gcc-3.4 bootstrap problems > - wait for gcc-4.0 support. > > Still, I am glad with the results so far. > Well, I was able build 3.3.6 based cross-compiler for i686-apple-darwin target, and I can see duplicate labels in the assembler output. It seems that 3.4.3 has changed the parts responsible for generating those labels. I have found that 3.4.[34] contain blatant bug with easy fix: --- gcc-3.4.4/gcc/config/i386/darwin.h.orig Thu Jun 16 01:10:29 2005 +++ gcc-3.4.4/gcc/config/i386/darwin.h Thu Jun 16 01:10:32 2005 @@ -43,7 +43,7 @@ /* Use the following macro for any Darwin/x86-specific command-line option translation. */ -#define SUBTARGET_OPTION_TRANSLATE_TABLE +#define SUBTARGET_OPTION_TRANSLATE_TABLE { 0, 0 } #define ASM_SPEC "-arch i386 \ %{Zforce_cpusubtype_ALL:-force_cpusubtype_ALL} \ After that I can build the compiler proper. However I get ICE when building gcc runtime. Trying gpc on knuth3.pas (to get assembler output) give me ICE. Both ICE-s seem related to generting labels needed in PIC code... So, it seems that nobody tried gcc-3.4.x for i686-darwin for almost a year (ChangeLog entry for SUBTARGET_OPTION_TRANSLATE_TABLE change is from 2004-08-23) -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

2 9

Pascal calling Ada (works)
by lanceboyle＠qwest.net 19 Jan '06

19 Jan '06

(This post is related to two earlier posts by me, "Linking Ada to Pascal" and 'Where is documentation for "new argument to _p_initialize (@)" PCStrings.') I've had some success here. The following two files (Pascal main program) and compile commands work. <file pascalcallsada.pas> program pascalcallsada (input, output); procedure youradapackagesubroutine; external name 'myadapackagesubroutine'; procedure adainit; external name 'adainit'; procedure adafinal; external name 'adafinal'; begin adainit; writeln('Hello from pascalcallsada.'); youradapackagesubroutine; writeln('Goodbye from Pascal main program.'); adafinal; end. <file myadapackage.ads> package myadapackage is procedure myadapackagesubroutine; pragma Export(Convention => C, Entity => myadapackagesubroutine, External_Name => "myadapackagesubroutine"); end myadapackage; <file myadapackage.adb> with Ada.Text_IO; use Ada.Text_IO; package body myadapackage is procedure myadapackagesubroutine is begin Put_Line("Hello from myadapackagesubroutine."); end myadapackagesubroutine; begin Put_Line("Initializing myadapackage."); end myadapackage; <Compile commands> gpc -c pascalcallsada.pas gnatmake -c myadapackage.adb gnatmake -c myadaprogram.adb gnatbind -n myadapackage.ali myadaprogram.ali gnatlink myadaprogram.ali pascalcallsada.o `gpc -print-file- name=libgpc.a` \ -o mypascalprogram <Out from running> Initializing myadapackage. Hello from pascalcallsada. Hello from myadapackagesubroutine. Goodbye from Pascal main program. Jerry

2 3

Crash with sets under Solaris
by Pascal Viandier 16 Jan '06

16 Jan '06

Hi all, I am sorry to be back on this subject after a so long time, but I just hit the problem with a real-life program. I applied the patch you suggested and ran the gpc test suite again. It gives worse results than previously with 97 unexpected failures. If I run some programs under gdb I get Segmentation faults in various places in sets.pas. For example SetCopy (line 286) adam3g adam3h assumptions awindte2 awindtes dostest SetEqual (line 215) adam3k adam3l adam3m adam3n WordNumber (line 113) adam3q adam3r ancestor2 Test fail with no core dump az44 chief41 couper10 couper8 gpc gives: warning: `absolute' declaration increases required alignment and test fail chris4 chris5 Is there a patch to solve this problem? If you need more information, I will do my best to give it. Regards Pascal Viandier pascal(a)accovia.com -----Message d'origine----- De : gpc-owner(a)gnu.de [mailto:gpc-owner@gnu.de] De la part de Waldek Hebisch Envoyé : May 25, 2005 16:33 À : gpc(a)gnu.de Objet : Re: RE : bigsetdemo strange result 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

2 6

Re: Dynamic arrays dimensions
by Maurice Lombardi 16 Jan '06

16 Jan '06

Silvio a Beccara a écrit: > I think you are right, I calculated the size, too and it is actually more than > my physical memory. Is the maximum heap space as big as the physical RAM, or > it is less? It depends on your system, linux mingw djgpp or other. I use DJGPP (dos based). There it can be somewhat higher, by using virtual memory obtained by swapping to disk. But this is at the expense of a considerable slow-down of the programs, so usually I make every effort _not_ to use this "facility". 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

Dynamic arrays dimensions
by Silvio a Beccara 13 Jan '06

13 Jan '06

Good morning, what is the maximum dimensions of a GPC dynamic array? In one of my codes, which used to compile fine with following GPC version: gpc version 2.1 (20020510), based on 2.95.2 19991024 I have the following dimensioning: type PMatr3Dob10 = ^TMatr3Dob10; TMatr3Dob10 (Size1, Size2, Size3: Integer) = array [ 0 .. Size1, -1..Size2, 0..Size3 ] of double; var jaekets: PMatr3Dob10; [ ... ] new ( jaekets, dim1, 4 * neact, 1000 ); where dim1 = 100000, neact=2 Now, with GPC version 20050331, based on gcc-3.4.3, I get the following error: value out of range (error #300 at 80c00b8) Is there a way of overcoming this limitation? Thanks and regards Silvio a Beccara -- Email.it, the professional e-mail, gratis per te: http://www.email.it/f Sponsor: Jamba: Personalizza il tuo cellulare con le TOP suonerie! * La prima suoneria è GRATIS! Scaricala ORA! Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=3604&d=13-1

3 2

Where is documentation for "new argument to _p_initialize (@)"
by lanceboyle＠qwest.net 13 Jan '06

13 Jan '06

According the document "2 New Features of GNU Pascal," a new feature is "new argument to _p_initialize (@)," where the @ signals a backward incompatibility. However, I can't find any documentation on the new feature. I'm trying to understand the demo code in gpc_c_c.c and its related files, wherein the line _p_initialize (argc, argv, envp, 0); appears. I'm attempting to emulate the C code in Ada, and the Ada compiler tells me "too many arguments in call" when I call it with four arguments. I'm confuzzled. Does gpc_c_c.c still work, calling _p_initialize with four arguments/ Here are the relevant lines from the Ada part: procedure p_initialize; pragma Import(Convention => C, Entity => p_initialize, Link_Name => "__p_initialize"); p_initialize (Argument_Count + 1, Command_Name, null, 0); Jerry

2 1