- Gpc - gnu.de

gpc-20041017 released - Mingw binaries
by Prof A Olowofoyeku (The African Chief) 29 Oct '04

29 Oct '04

Hi The Mingw binaries for gpc-20041017 have been released on the Mingw download site: http://prdownloads.sourceforge.net/mingw/?sort_by=date&sort=desc The file is called: gpc-20041017.i386-pc-mingw32-1.tar.gz Best regards, The Chief -------- Prof. Abimbola A. Olowofoyeku (The African Chief) web: http://www.greatchief.plus.com/

1 0

gpc-20041017
by Paul Igodt 29 Oct '04

29 Oct '04

I am far from a GPC expert, but mainly a user of several old but good working pascal programs. I just installed gpc-20041017 from www.g-n-u.de/gpc on my Linux PC. I downloaded gpc-20041017-with-gcc.i686-pc-linux-gnu.tar.gz, unzipped and untarred in / When I ask for gpc, it seems to be there, and gpc -v gives version 20041017, based on gcc-3.3.3. When I try to compile one of my programs, giving gpc -o dbase --automake -I/usr/include/ncurses dbase.pas I now get a very long error list, starting with /usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.3.3/units/crtc.c:45:20: stdlib.h: No such file or directory /usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.3.3/units/crtc.c:46:20: unistd.h: No such file or directory /usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.3.3/units/crtc.c:47:20: string.h: No such file or directory /usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.3.3/units/crtc.c:48:19: errno.h: No s uch file or directory /usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.3.3/units/crtc.c:49:22: sys/time.h: N o such file or directory /usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.3.3/units/crtc.c:50:20: signal.h: No such file or directory In file included from /usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.3.3/units/crtc. c:124: /usr/include/ncurses.h:101:19: stdio.h: No such file or directory ... Can anybody give an indication of what might be wrong. I have to admit that I had an earlier version of gpc, which I must have had overwritten by just untarring this newer version. Thanks a lot Paul

3 2

Built-in functions shadowed without Self?
by Neil Santos 28 Oct '04

28 Oct '04

Took me a minute to figure out what's causing this output from GPC: TCollection.epb: In method TCollection.Push': TCollection.epb:106: warning: capitalisation of high' doesn't match TCollection.eph:71: warning: previous capitalisation High' TCollection.epb:106: error: too many arguments to routine TCollection.High' TCollection.epb:88: error: routine declaration Why is a class method named High() shadowing the built-in high()? What can be done (aside from renaming the method) so built-ins won't be shadowed? -- 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

3 2

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