Gpc October 2004

gpc@gnu.de

23 participants
33 discussions

GPC in GCC 3.4.2?
by Neil Santos 28 Oct '04

28 Oct '04

Is there a diff for GCC 3.4.2? The source distro only includes diffs for 3.3.3 and earlier; Google wasn't much help with the query, either. -- Political Dissident Neil Santos Free Software Advocate Jabber: nsantos(a)jabber.org Please avoid sending me attachments encoded in secret formatting. See http://www.fsf.org/philosophy/no-word-attachments.html

4 6

Mac OS X hosted cross compiler targeting Windows (MingW)
by Adriaan van Os 28 Oct '04

28 Oct '04

To my surprise and joy, I managed to build a Mac OS X hosted cross compiler targeting Windows (MingW). I used the information found at (or through) <http://www.mingw.org/mingwfaq.shtml>, more specifically <http://www.libsdl.org/extras/win32/cross/README.txt>. With some necessary modifications, the <http://www.libsdl.org/extras/win32/cross/build-cross.sh> script was able to build cross binutils, as well as gcc and gpc cross compilers. The actual build was done with gpc 20041017 and gcc-3.3.3-200402017-1 (mingw special). I hope, I will find time (in a few weeks) to add binaries, sources and a build script for the cross compiler to my website. The cross compiler swallows hello.pas and the resulting binary actually does say "Hello, World" at the other side of the fence. However, the question arises how reliable the cross-compiler is, as the testsuite says "if this is a cross-compiler, you can't run the test suite easily". Is it reasonable to rely on native testsuite results on both the host and the target ? Regards, Adriaan van Os

6 14

Re: GPC speed
by Silvio a Beccara 28 Oct '04

28 Oct '04

The random generator is in both cases the Mersenne Twister (routine mt19937 from the authors' site). And I had forgot the Fortran program. Anyway you are right: the pseudorandom generator takes the most time in the program. But here is another example, this time both in Pascal and in Fortran: ------------------------------------------------ program matrix; uses GPC, SysUtils; const size = 30; type tMatrix = array[0..size, 0..size] of longint; VAR time1, time2 : longCard; dummy, j, big, cpu1, cpu2 : integer; procedure mkmatrix( rows, cols : integer; var mx : tMatrix); var R, C : integer; count : longint; begin Dec(rows); Dec(cols); count := 1; for R := 0 to rows do begin for C := 0 to cols do begin mx[R, C] := count; Inc(count); end; end; End; procedure mmult(rows, cols : integer; m1, m2 : tMatrix; var mm : tMatrix ); var i, j, k : integer; val: longint; begin Dec(rows); Dec(cols); For i := 0 To rows do begin For j := 0 To cols do begin val := 0; For k := 0 To cols do begin Inc(val, m1[i, k] * m2[k, j]); end; mm[i, j] := val; end; end; End; var NUM, I : integer; M1, M2, MM : tMatrix; begin writeln ('# MATRIX MULTIPLICATION: GPC'); time1 := GetMicroSecondTime; if ParamCount = 0 then NUM := 1 else NUM := StrToInt(ParamStr(1)); if NUM < 1 then NUM := 1; mkmatrix(size, size, M1); mkmatrix(size, size, M2); for I := 0 To NUM do begin mmult(size, size, M1, M2, MM); end; WriteLn( IntToStr(MM[0, 0]) + ' ' + IntToStr(MM[2, 3]) + ' ' + IntToStr(MM[3, 2]) + ' ' + IntToStr(MM[4, 4])); dummy := 0; time2 := GetMicroSecondTime; writeln('GPC: elapsed time: ', ( (time2-time1) * 0.000001):7:2, ' seconds, ' ); end. ------------------------------------------------ program perfor2for integer i character*20 argum integer size parameter ( size = 30 ) integer m1 ( 0:size, 0:size), m2 ( 0:size, 0:size), & mm ( 0:size, 0:size), mx ( 0:size, 0:size ) real etime real elapsed(2) real total write (*,*) '# MATRIX MULTIPLICATION: IFORT' call getarg ( 1, argum ) read ( argum, * ) num write (*,*) '# size = ', size if ( num .le. 1 ) num =1 call mkmatrix ( size, size, m1 ) call mkmatrix ( size, size, m2 ) write (*,*)'------------------------------------------------------' write (*,*) m1 (0,0), ' ', m1(2,3), ' ', m1(3,2), ' ', m1(4,4) write (*,*) m2 (0,0), ' ', m2(2,3), ' ', m2(3,2), ' ', m2(4,4) write (*,*)'------------------------------------------------------' do i = 1, num call mmult ( size, size, m1, m2, mm ) enddo write (*,*) mm (0,0), ' ', mm(2,3), ' ', mm(3,2), ' ', mm(4,4) total = etime ( elapsed ) print *, 'Elapsed time =', total, ' secondi '! , ' user=', elapsed(1), ' system=', elapsed(2) stop end subroutine mkmatrix ( rows, cols, mx ); integer r, c, rows, cols include 'size.h' integer mx ( 0:size, 0:size ), count rows = rows - 1 cols = cols - 1 count = 1 write (*,*) '# rows = ', rows, ' cols = ', cols do r = 0, rows do c = 0, cols mx ( r, c ) = count count = count + 1 enddo enddo return end subroutine mmult ( rows, cols, m1, m2, mm ) integer r, c, rows, cols, i, j, k include 'size.h' integer m1( 0:size, 0:size ), m2( 0:size, 0:size ), mm ( 0:size, 0:size ), count, val rows = rows - 1 cols = cols - 1 do i = 0, rows do j = 0, cols val = 0 do k = 0, cols val = val + m1(i,k)*m2(k, j) enddo mm(i, j) = val enddo enddo return end ------------------------------------------------------------------ here the difference is marked. Perhaps by exhanging columns with rows one can make Pascal execution faster. I will try. Thanks, best regards Silvio a Beccara

4 6

GPC speed
by Silvio a Beccara 26 Oct '04

26 Oct '04

Hi everybody, I ran some tests that make extensive use of large (up to 10000 elements) arrays, up to three dimensions both in GPC and in Fortran (Intel). Even turning on optimisations, GPC is at least five times slower than Fortran in completing the tests. Anyone can tell me why, and possibly some way to make GPC recover some of this lag? Thanks Silvio a Beccara University of Trieste - Italy

4 5

Operator overloading troubles
by Neil Santos 26 Oct '04

26 Oct '04

I have a few questions regarding operator overloading. One, How do I forward-reference an operator redefinition? GPC complains when I leave out the parameter and result declarations in the actual definition: TRoot.epb:83: error: missing operator result variable TRoot.epb:83: error: result type of operator undefined TRoot.epb:83: error: operator must have two arguments If I can't do that, why not? Not being able to do that is awkward, when you're dealing with modules. Two, Why does GPC spit out a warning when the arguments are classes (as opposed to pointers to classes)? TRoot.eph:71: warning: object type declared as value parameter P.S. I replied to most of the mails sent to me through -users and -doc; if you didn't receive it, please let me know. I've been having mail trouble for a few months now, and I've only recently been able to fix it. -- Political Dissident Neil Santos Free Software Advocate Jabber: nsantos(a)jabber.org Please avoid sending me attachments encoded in secret formatting. See http://www.fsf.org/philosophy/no-word-attachments.html

2 6

OO question re: private fields
by Neil Santos 26 Oct '04

26 Oct '04

Why can't I have a private field in a child that has the same name as a private field in an ancestor? I don't think there's going to be much difficulty determining which private field is referenced; UIM, it'll be similar to how `virtual' methods are traced. This is what I get while trying to do this: TException.eph:86: error: cannot overwrite data field `ObjectStructure' of parent object TException.eph:85: error: duplicate field `ObjectStructure' Using build 20040516 (binary distro). I'm not sure how other compilers handle this, but, IMVHO, this behavior is desirable. -- Political Dissident Neil Santos Free Software Advocate Jabber: nsantos(a)jabber.org Please avoid sending me attachments encoded in secret formatting. See http://www.fsf.org/philosophy/no-word-attachments.html

4 7

function results in `with' statements
by Frank Heckenbach 23 Oct '04

23 Oct '04

Currently GPC allows function results in `with' statements, as in: program foo; type a = record b, c: Integer end; function f: a; begin f := a[b: 2; c: 3] end; begin with f do WriteLn (b, c); end. However, GPC currently also allows assignments to the components, such as: with f do b := 2 which is quite clearly wrong. Probably for this reasone, EP forbids function results in `with' statements at all (6.9.3.10: withÂelement = variableÂaccess | constantÂaccess.). I don't know about other dialects (BP has no records as result types, so the issue doesn't arise. What about Delphi etc.?). At the moment, I'd tend to follow EP here and forbid them at all. Or does anyone think it's really necessary to have them? (Which would probably imply more work to make the fields read-only.) 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 NEW! GPC download signing key: ACB3 79B2 7EB2 B7A7 EFDE D101 CD02 4C9D 0FE0 E5E8

5 6

Re: gpc-20041017 released
by Prof A Olowofoyeku (The African Chief) 23 Oct '04

23 Oct '04

I have put the Mingw compiler through the testsuite. It passed everything, except for this: TEST pipetest.pas: cc1.exe: warnings being treated as errors ../units/pipesc.c: In function `_p_CPipe': ../units/pipesc.c:151: warning: passing arg 3 of `spawnve' from incompatible pointer type ../units/pipesc.c:151: warning: passing arg 4 of `spawnve' from incompatible pointer type ../units/pipesc.c: In function `pexecute': ../units/pipesc.c:471: warning: passing arg 3 of pointer to function from incompatible pointer type gpc1.exe: d:\mingw\bin\gpc.exe exited with status 1 gpc1.exe: d:\mingw\bin\gpc.exe exited with status 1 failed Best regards, The Chief -------- Prof. Abimbola A. Olowofoyeku (The African Chief) web: http://www.greatchief.plus.com/

1 0

[Fwd: Re: gpc-20041017 released]
by Maurice Lombardi 22 Oct '04

22 Oct '04

-------- Message d'origine -------- Sujet: Re: gpc-20041017 released Date: Thu, 21 Oct 2004 16:34:27 +0200 De: Maurice Lombardi <Maurice.Lombardi(a)ujf-grenoble.fr> A: cbfalconer(a)worldnet.att.net Références: <BC841B22-2079-11D9-A02D-000A27944772(a)microbizz.nl> <1098278943.2579.526904(a)goedel.fjf.gnu.de> <41779BAC.13355112(a)yahoo.com> CBFalconer a écrit: > Frank Heckenbach wrote: > >>Adriaan van Os wrote: >> >>>Frank Heckenbach wrote: >>> >>> >>>>I have uploaded a new beta version of GPC to >>>><http://www.g-n-u.de/gpc/>! >>> >>>Thanks for the new version ! >>> >>>I would be curious to know the status of: >>> >>>- Waldek's gcc-3.4.x and qualified identifier patches >>>- range checking >> >>Not yet included, in order to avoid further delays, especially >>because of the `CInteger' changes. > > > What about a DJGPP version to match gcc 3.4.2? > I have compiled successfully (no error while running the test suite) for DJGPP for gcc 3.2.3 and gcc 3.3.3. Not uploaded due to server problems. There is still the problem of CPP_PREDEFINES with gcc 3.3.3 It is worked around in the test suite by using the --print-needed-options trick, and the same is used in gp.exe. I do not know what to do with this: gpc.exe is always needed and even if I include gp.exe in the binary this will cause confusion among users (I have received complaints from users who call gpc.exe with the 3.3.3 compiled binary I uploaded to the server). 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 -- 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 1

gpidump
by Adriaan van Os 19 Oct '04

19 Oct '04

Another problem - with most .gpi files, gpidump stops with the following error: gpidump: ... .gpi: unexpected flag `unused lang flag 1' I tried this with gpc-20030830 and gpc-20040516, both with gcc-3.3.2 on powerpc-apple-darwin. Regards, Adriaan van Os

5 9

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 October 2004