Gpc September 2008

gpc@gnu.de

6 participants
5 discussions

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

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

OpenBSD build
by G. Ramalho 15 Sep '08

15 Sep '08

Hello, I'm trying to build GPC on my OpenBSD box. xgcc seems to be correctly built but I can't get past the following: CC="`echo /root/gpc-build/gcc/xgcc -B/root/gpc-build/gcc/ -B/usr/local/i386-unknown-openbsd4.3/bin/ -B/usr/local/i386-unknown-openbsd4.3/lib/ -isystem /usr/local/i386-unknown-openbsd4.3/include' ' | sed -e 's,$-[BI]$$[^/][^:]$,\1../../\2,g;s,^$[^/][^:]*/$,../../\1,'`" PC="`echo ./xgpc -B./' ' | sed -e 's,$-[BI]$$[^/][^:]$,\1../../\2,g;s,^$[^/][^:]*/$,../../\1,'`" CONFIG_SITE=nonexisting-file \ $src/p/rts/configure --silent > /dev/null --srcdir=$src/p/rts \ `if [ x@with_shared@ = xyes ]; then echo '--with-shared'; fi` configure: error: installation or configuration problem: C compiler cannot create executables. gmake[1]: *** [p/rts/Makefile] Error 1 gmake[1]: Leaving directory `/root/gpc-build/gcc' gmake: *** [all-gcc] Error 2 OS: OpenBSD 4.3 / i386 (VMWare). GCC/GPC : 3.3.5 / 20060325 Any help is really appreciated. Ramalho.

1 0

Garbage Collection
by Prof. Harley Flanders 03 Sep '08

03 Sep '08

A question for the GPC list: Suppose I have defined type Vec = array[1..1000] of Extended; // 10,000 bytes var A, B, C, D: Vec; function Sum(const A, B: Vec): Vec; In the assignment D := Sum(Sum(A, B), C); there is an intermediate result Sum(A, B), going to an unnamed temporary vector. Does garbage collection pick up that space? Similar question with operator + (const A, B: Vec) C: Vec; D := (A+B)+C; More complicated: Delphi mode, so I have "Result" available var Zero: Vec; // Zero[J] = 0 for all J function Foo(A: Vec; N: Word): Vec; var B: Vec; begin if N = 0 then Result := Zero else if Odd(N) then Result := A + Foo(A, N - 1) else begin B := (Foo(A, N div 2) Result := B + B; end; end; // Foo Garbage collection handles this correctly? Whatever the answers, how do I PROVE them by measuring stack, heap, or whatever? Thanks, HF -- ============================= Prof. Harley Flanders 3533 Windemere Court Ann Arbor, MI 48105-2867 Home: 734 668 1546 harley(a)umich.edu =============================

2 1

Console apps
by Prof. Harley Flanders 02 Sep '08

02 Sep '08

Would anyone please tell me what to write in a Console App so DOS opens in Full Screen mode, not in a window, and in 80 x 25 mode (80 columns, 25 lines). Thank you, HF -- ============================= Prof. Harley Flanders 3533 Windemere Court Ann Arbor, MI 48105-2867 Home: 734 668 1546 harley(a)umich.edu =============================

4 3

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 September 2008