November 2009 - Gpc

Inefficiency of `mod'
by Emil Jerabek 25 Oct '10

25 Oct '10

Hi, during some debugging I noticed that GPC generates very hairy code for the `mod' operator with signed arguments. A closer look revealed that the code contains a lot of branching on conditions which can be determined on compile time, and most surprisingly, the value of X mod Y is recomputed _twice_, if X is negative. (I've attached a commented assembler dump.) This may be partially a back-end problem (CSE?), but I feel there's something wrong in the relevant code in gpc-common.c (build_pascal_binary_op) as well. `exp1 mod exp2' gets translated into something like exp2 <= 0 ? error : exp1 >= 0 ? exp1 mod exp2 : ((-exp1) mod exp2) == 0 ? 0 : exp2 - (-exp1) mod exp2 This arranges that both arguments supplied to the "internal mod" are non-negative, but this information is not passed on -- the arguments are still declared as signed types, which apparently makes the back-end to produce the mess it does. I've done a little test: the following replacement for `mod', which differs from the built-in one essentially just by the type-casts to `Cardinal', inline operator xmod (X, Y: Integer) = Z: Integer; begin if Y <= 0 then RuntimeError (714); if X >= 0 then Z := Cardinal (X) mod Y else begin Z := Cardinal (-X) mod Y; if Z <> 0 then Z := Y - Z end end; indeed generates a better code, it measures about 15% faster for positive X and more than twice faster for negative X. YMMV. If this is possible in user code, it should work in the compiler internals as well :) The result type of the whole `mod' expression looks dubious too. IIUIC, `exp1 mod exp2' inherits the type of exp1. Now, the result of `mod' is guaranteed to be nonnegative and to fit in the type of exp2 (or more precisely, it is in 0 .. High (type of (exp2)) - 1), whereas it needn't have anything to do with the type of exp1: consider var X, Z: Integer; Y: LongInt; begin X := -8; Y := High (LongInt); Z := X mod Y { -> overflow } end Or am I missing something? Emil (BTW, where is fjf434c.pas?)

10 16

GPC support for AIX 6?
by Gert Doering 16 Feb '10

16 Feb '10

Hi Gnu Pascal list, we're currently using IBM's xpc pascal compiler on IBM AIX 5.3. New machines are being shipped with AIX 6, and IBM's xpc is no longer supported there - for the time being, it actuall works (the xpc frontend generated intermediate code, and the second stage compiler still groks it). Management is not happy about this, as it might break any day, and I have been asked to "provide GPC" on AIX 6. Googling seems to suggest that the earliest release of GCC to work on AIX 6 is gcc 4.2.4 This mailing list's archive suggests that GPC and GCC 4.2 do not yet work together, due to larger efforts required due to backend changes (Waldek's mail from March 12, 2008). I reported this to management ("there is no GPC on AIX 6"), and they came back with the question "if we pay one of the GPC developers to do a GPC port to a recent GCC, to support AIX 6, how much would that cost?". Here we go - I'm posing this question to you. Is one of you capable and willing to make GPC work on AIX 6? And if yes, what would your conditions be (estimated time to do this, estimated costs)? (I can't promise anything, but will report back to management and they will decide...) thanks, gert -- Gert Doering gd(a)medat.de MEDAT Muenchen Tel: 089/126808-0 Fax: -50

7 13

New (gpc-20060325)
by Waldek Hebisch 08 Dec '09

08 Dec '09

I have put a new gpc snapshot at: http://www.math.uni.wroc.pl/~hebisch/gpc-20060325.tar.bz2 Main change is preliminary gcc-4.0.x support. The other changes are rather small. Note that for "production use" 3.4.x and 3.3.x backend are prefered. Also, using 2.8.1, 2.95.3 and 3.2.3 backend should work, but is depreciated. For more detail see: http://www.math.uni.wroc.pl/~hebisch/gpc/NEWS-20060325 and http://www.math.uni.wroc.pl/~hebisch/gpc/Fixed-20060325 -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

7 44

GPC installation on Intel 64 bit CPU, make fails
by Ernst-Ludwig.Bohnen＠t-online.de 28 Nov '09

28 Nov '09

Hallo, I am trying to install GPC (gpc-20060325, based on gcc-core-3.4.4) on a PC with Intel-Xeon 64 bit CPU and openSUSE 11.2. Make ends up with some mystical error lines, see below. Any suggestions? Ernst-Ludwig ..../configure --enable-languages=pascal --prefix=/usr/gnu <RET> ..../make <RET> .......... .......... .......... ./auto-host.h:185:1: warning: "HAVE_DECL_GETOPT" redefined In file included from /tmp/root/install.gpc/gcc-3.4.4/gcc/libgcov.c:37: /tmp/root/install.gpc/gcc-3.4.4/gcc/tsystem.h:40:1: warning: this is the location of the previous definition In file included from /tmp/root/install.gpc/gcc-3.4.4/gcc/gcov-io.h:240, from /tmp/root/install.gpc/gcc-3.4.4/gcc/libgcov.c:51: ./auto-host.h:185:1: warning: "HAVE_DECL_GETOPT" redefined In file included from /tmp/root/install.gpc/gcc-3.4.4/gcc/libgcov.c:37: /tmp/root/install.gpc/gcc-3.4.4/gcc/tsystem.h:40:1: warning: this is the location of the previous definition In file included from /usr/include/features.h:371, from /usr/include/stdio.h:28, from /tmp/root/install.gpc/gcc-3.4.4/gcc/tsystem.h:79, from /tmp/root/install.gpc/gcc-3.4.4/gcc/libgcc2.c:41: /usr/include/gnu/stubs.h:7:27: gnu/stubs-32.h: No such file or directory make[2]: *** [libgcc/32/_muldi3.o] Error 1 make[1]: *** [libgcc.a] Error 2 make: *** [all-gcc] Error 2

2 2

Re: GPC installation on Intel 64 bit CPU, make fails
by Ernst-Ludwig.Bohnen＠t-online.de 28 Nov '09

28 Nov '09

Maurice, merci pour votre reponse After installing /usr/include/gnu/stubs-32.h, which was missing on my machine, the 'last words' of make changed when installing gpc-20060325 based on gcc-core-3.4.4, see below. It probably did not help. Then I tried various GPC/GCC combinations and found a nearly working one: gpc-20070904 (the Hebisch edition, as you wrote) based on gcc-4.1.2, which is said to be not a recommended gcc candidate, but it works. Running gpc gives in the beginning this message: 'usr/bin/ld: skipping incompatible /usr/gnu/lib/libgcc_s.so when searching for -lgcc_s'. My final feeling is walking at night through a black forrest when installing GPC. Thank you for giving hints Ernst-Ludwig ----------------- Last words of make --------------------------------------------- /tmp/root/install.gpc/gcc-3.4.4/gcc/tsystem.h:40:1: warning: this is the location of the previous definition In file included from /tmp/root/install.gpc/gcc-3.4.4/gcc/gcov-io.h:240, from /tmp/root/install.gpc/gcc-3.4.4/gcc/libgcov.c:51: ./auto-host.h:185:1: warning: "HAVE_DECL_GETOPT" redefined In file included from /tmp/root/install.gpc/gcc-3.4.4/gcc/libgcov.c:37: /tmp/root/install.gpc/gcc-3.4.4/gcc/tsystem.h:40:1: warning: this is the location of the previous definition /usr/lib64/gcc/x86_64-suse-linux/4.4/cc1: /tmp/root/install.gpc/gpc-build/gcc/libgcc_s.so.1: version `GCC_4.2.0' not found (required by /usr/lib64/libstdc++.so.6) make[1]: *** [collect2.o] Error 1 make: *** [all-gcc] Error 2 -----Original Message----- Date: Wed, 25 Nov 2009 10:58:25 +0100 Subject: Re: GPC installation on Intel 64 bit CPU, make fails From: Maurice Lombardi <Maurice.Lombardi(a)ujf-grenoble.fr> To: "Ernst-Ludwig.Bohnen(a)t-online.de" <Ernst-Ludwig.Bohnen(a)t-online.de> Ernst-Ludwig.Bohnen(a)t-online.de a Ã©crit : > I am trying to install GPC (gpc-20060325, based on gcc-core-3.4.4) > on a PC with Intel-Xeon 64 bit CPU and openSUSE 11.2. Make ends up > with some mystical error lines, see below. I have limited experience with that. I have only installed gpc with gcc 3.4.4 and gcc-4.1.2 on redhat fedora core 6 with a Xeon 64 CPU both 32 bits and 64 bits versions. You should rather try the latest gpc snapshot available on the hebisch site http://www.math.uni.wroc.pl/~hebisch/gpc/gpc-20070904.tar.bz2 but the problem is probably the same. See below > > ..../configure --enable-languages=pascal --prefix=/usr/gnu <RET> > > ..../make <RET> > .......... > .......... > .......... > ./auto-host.h:185:1: warning: "HAVE_DECL_GETOPT" redefined > In file included from /tmp/root/install.gpc/gcc-3.4.4/gcc/libgcov.c:37: > /tmp/root/install.gpc/gcc-3.4.4/gcc/tsystem.h:40:1: warning: this is the > location of the previous definition > In file included from /tmp/root/install.gpc/gcc-3.4.4/gcc/gcov-io.h:240, > Â Â Â Â Â Â Â Â Â from /tmp/root/install.gpc/gcc-3.4.4/gcc/libgcov.c:51: > ./auto-host.h:185:1: warning: "HAVE_DECL_GETOPT" redefined > In file included from /tmp/root/install.gpc/gcc-3.4.4/gcc/libgcov.c:37: > /tmp/root/install.gpc/gcc-3.4.4/gcc/tsystem.h:40:1: warning: this is the > location of the previous definition > In file included from /usr/include/features.h:371, > Â Â Â Â Â Â Â Â Â from /usr/include/stdio.h:28, > Â Â Â Â Â Â Â Â Â from /tmp/root/install.gpc/gcc-3.4.4/gcc/tsystem.h:79, > Â Â Â Â Â Â Â Â Â from /tmp/root/install.gpc/gcc-3.4.4/gcc/libgcc2.c:41: > /usr/include/gnu/stubs.h:7:27: gnu/stubs-32.h: No such file or directory in this directory /usr/include/gnu/ in my system I find stubs.h stubs-32.h stubs-64.h So there is probably some misinstallation in your setup. > make[2]: *** [libgcc/32/_muldi3.o] Error 1 > make[1]: *** [libgcc.a] Error 2 > make: *** [all-gcc] Error 2 > 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

2 4

/usr/local/gcc-3.4.6/configure: test: argument expected
by DUCARROZ Birgit 25 Nov '09

25 Nov '09

Hello, I try to install gpc on a solaris 10 x86 Done this: bash-3.00# gunzip gcc-3.4.6.tar.gz bash-3.00# tar -xvf gcc-3.4.6.tar bash-3.00# rm gcc-3.4.6.tar bash-3.00# ln -s /usr/local/gpc-20041017/p /usr/local/gcc-3.4.6/gcc/p bash-3.00# cd /usr/local/gpc-build/ bash-3.00# /usr/local/gcc-3.4.6/configure enable-languages=pascal gives me the following error: /usr/local/gcc-3.4.6/configure: test: argument expected Please can anyone help me? Kind regards, Birgit

2 1

Intel 64, GPC-installation, make fails
by Ernst-Ludwig.Bohnen＠t-online.de 24 Nov '09

24 Nov '09

Hallo, I am trying to install GPC (gpc-20060325, based on gcc-core-3.4.4) on a PC with Intel-Xeon 64 bit CPU and openSUSE 11.2. Make ends up with some mystical error lines, see below. Any suggestions? Ernst-Ludwig ..../configure --enable-languages=pascal --prefix=/usr/gnu <RET> ..../make <RET> .......... .......... ./auto-host.h:185:1: warning: "HAVE_DECL_GETOPT" redefined In file included from /tmp/root/install.gpc/gcc-3.4.4/gcc/libgcov.c:37: /tmp/root/install.gpc/gcc-3.4.4/gcc/tsystem.h:40:1: warning: this is the location of the previous definition In file included from /tmp/root/install.gpc/gcc-3.4.4/gcc/gcov-io.h:240, from /tmp/root/install.gpc/gcc-3.4.4/gcc/libgcov.c:51: ./auto-host.h:185:1: warning: "HAVE_DECL_GETOPT" redefined In file included from /tmp/root/install.gpc/gcc-3.4.4/gcc/libgcov.c:37: /tmp/root/install.gpc/gcc-3.4.4/gcc/tsystem.h:40:1: warning: this is the location of the previous definition In file included from /usr/include/features.h:371, from /usr/include/stdio.h:28, from /tmp/root/install.gpc/gcc-3.4.4/gcc/tsystem.h:79, from /tmp/root/install.gpc/gcc-3.4.4/gcc/libgcc2.c:41: /usr/include/gnu/stubs.h:7:27: gnu/stubs-32.h: No such file or directory make[2]: *** [libgcc/32/_muldi3.o] Error 1 make[1]: *** [libgcc.a] Error 2 make: *** [all-gcc] Error 2

1 0

anyfile and blockwrite
by Wolfgang Helbig 18 Nov '09

18 Nov '09

Hi, Using blockwrite with Anyfile surprises me: The type definitions are: byteFile= file of packed record b: eightbits end; eightbits = 0..255; And the variables: dvibuf: array [0..800] of eightbits; dvifile: byteFile; The file is opened by rewrite(dvifile, filename) and then written by procedure writeit(f: anyfile); begin blockwrite(f, dvibuf[0..211], 212) end; I expected to get a file with 212 bytes like this one: osx $ od -tu1 expected 0000000 247 2 1 131 146 192 28 59 0 0 0 0 3 232 27 32 0000020 84 101 88 32 111 117 116 112 117 116 32 50 48 48 57 46 0000040 49 49 46 49 56 58 49 57 49 57 139 0 0 0 1 0 0000060 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 * 0000120 0 0 0 255 255 255 255 141 159 242 0 0 142 160 2 131 0000140 51 218 141 160 253 134 204 38 141 145 20 0 0 243 0 75 0000160 241 96 121 0 10 0 0 0 10 0 0 0 5 99 109 114 0000200 49 48 171 104 97 108 108 111 142 142 159 24 0 0 141 146 0000220 0 232 96 163 49 142 140 248 0 0 0 42 1 131 146 192 0000240 28 59 0 0 0 0 3 232 2 155 51 218 1 213 193 71 0000260 0 2 0 1 243 0 75 241 96 121 0 10 0 0 0 10 0000300 0 0 0 5 99 109 114 49 48 249 0 0 0 151 2 223 0000320 223 223 223 223 0000324 But instead I get this file, the length is correct, but every byte occupies 32 bit, the higher bytes are not written at all. osx $ od -tu1 unexpected 0000000 247 0 0 0 2 0 0 0 1 0 0 0 131 0 0 0 0000020 146 0 0 0 192 0 0 0 28 0 0 0 59 0 0 0 0000040 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0000060 3 0 0 0 232 0 0 0 27 0 0 0 32 0 0 0 0000100 84 0 0 0 101 0 0 0 88 0 0 0 32 0 0 0 0000120 111 0 0 0 117 0 0 0 116 0 0 0 112 0 0 0 0000140 117 0 0 0 116 0 0 0 32 0 0 0 50 0 0 0 0000160 48 0 0 0 48 0 0 0 57 0 0 0 46 0 0 0 0000200 49 0 0 0 49 0 0 0 46 0 0 0 49 0 0 0 0000220 56 0 0 0 58 0 0 0 49 0 0 0 57 0 0 0 0000240 50 0 0 0 51 0 0 0 139 0 0 0 0 0 0 0 0000260 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0000300 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 * 0000320 All this is done with gpc version 20070904 on Mac OS X 10.6.2. I want to make minimal use of GPC extensions, thats why I didn't use the GPC byte for eight_bits or didn't use packed on subranges. I'd prefer to use packed file of eightbits instead, but GPC ignores packed for files. And then I'd like to use buffered output without changing the source file! Greetings, Wolfgang

2 1

howto install gpc on solaris x86?
by DUCARROZ Birgit 05 Nov '09

05 Nov '09

Hello, does anyone have some experience howto install GNU pascal on Solaris 10 x86 platform? I found for SPARC, but not for x86. And how does it work? Any suggestions would be appreciated! Kind regards, Birgit

2 1

how to write inline-assembly in gpc?
by jcyang 03 Nov '09

03 Nov '09

Since there is not offical reference,I got only one tutorial <a href="http://www.gnupascal.de/contrib/misc/gpcasm.zip"> gpcasm.zip </a>.But when I try to follow the tut and try the inline assembly example on my debian.The gpc was not happy with it. <pre> gnu_asm.pas : In procedure 'MyStupidDelay': gnu_asm.pas:3: error : can't find a register in class AREG while reloading asm </pre> Here is the code program gnu_asm; Procedure MyStupidDelay(time : integer); Begin Asm("0 : pushl $0xfffff 1 : decl(%%esp) jnz 1b addl $0x4, %%esp decl %%eax jnz 0b" : : "a" (time) : "eax" ); end; begin write("only for test"); end. Another question,are there any other refernece, tutorials, examples on inline assembly in gnu pascal. thanks.

2 1