- Gpc - gnu.de

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

sockets
by Thys Meintjes 12 Jan '06

12 Jan '06

Hello All, I cannot seem to find a standard socket or sockets unit in the gpc unit library. It's not possible that a modern implementation of any language can lack this functionality in it's standard libraries, so, the problem must be me. Is the socket functionality hosted in another unit or is there some other standard way to implement network functionality in gpc ? I'd prefer using gpc above freepascal as all my other code targets the gcc platform. I really like the idea of linking to colleagues c and pascal libraries (I've yet to determine if this is possible with fpc). I got a fpc socket example up and running within 5 minutes of downloading fpc, I scrounged the web for 2 hours trying to find a gpc socket example with no luck... regards Thys

2 1

Success!
by Peter N Lewis 11 Jan '06

11 Jan '06

Thanks to all the help from Frank, Waldek, Adriaan, Gale and others, I now have all of Interarchy compiling and running under GPC. 270 files, 160,000 lines of code, 290 Mac Style object types, all compiling and working. There are probably a few glitches left here or there, but I've tested out the bulk of the program and nothing remains broken (that was not before - it is bug for bug compatible ;-). Thanks all! Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

6 5

Type-inquiry ISO compliance bugs
by Gale Paeper 10 Jan '06

10 Jan '06

ISO 10206, paragraph 6.4.9, requires a type-inquiry's type-inquiry-object be either a variable-name (i.e., [imported-interface-identifier '.']variable-identifier) or a parameter-identifier (with a defining point in the closest-containing formal-parameter-list). GPC has a few bugs in enforcing that requirement. As the following test programs demonstrate, GPC will erroneously also accept constant-identifiers, literal numbers, and field-designators as type-inquiry-objects. {$extended-pascal} program gale9 (output); const c = 2; var y : type of c; {WRONG} {c is neither a variable-identifier or a parameter-identifier} begin writeln('FAIL'); end. {$extended-pascal} program gale10 (output); var y: type of 3.14; {WRONG} {3.14 isn't an identifier at all let alone being either a variable-identifier or a parameter-identifier} begin writeln('FAIL'); end. {$extended-pascal} program gale11 (output); var x: record f : integer; end; y: record f1: type of x.f; {WRONG} {x.f is a field-designator which isn't a variable-identifier or parameter-identifier} end; begin writeln('FAIL'); end. Note: I think the above test programs only show a small sample of what GPC will erroneously accept as a type-inquiry-object. If I'm not completely misunderstanding the compiler source code in this area, it looks like the compiler will accept nearly all, if not all, legal expressions as a type-inquiry-object which is a whole lot more than what my test programs are showing as wrong (as well as, a whole lot more than what ISO requirements allow for a type-inquiry-object). The compiler I used was the latest version of Mac OS X GPC that Adriaan built and made available for downloading few weeks ago. The specs: Reading specs from /Developer/Pascal/gpc345u2/lib/gcc/powerpc-apple-darwin8/3.4.5/specs Configured with: ../gcc-3.4.5/configure --enable-languages=pascal,c --enable-threads=posix --target=powerpc-apple-darwin8 --host=powerpc-apple-darwin8 --build=powerpc-apple-darwin8 --prefix=/Developer/Pascal/gpc345u2 Thread model: posix gpc version 20051116, based on gcc-3.4.5 Gale Paeper gpaeper(a)empirenet.com

3 2

Network functions?
by Eike Lange 09 Jan '06

09 Jan '06

Hi Folks! Are there any network functions like socket, listen, accept and so on available for GPC? Eike

3 3

More identifier redeclaration error problems
by Gale Paeper 08 Jan '06

08 Jan '06

It looks like the "20050325: check identifier scopes stricter" bug fix didn't completely solve all the identifier redeclaration error problems involving an applied occurance of an outer scope identifier in an inner scope with a defining occurance of the identifier. The following two test programs will compile and run with the latest GPC version which shows that GPC still has a few problems with detecting redeclaration errors in scopes involving record type-denoter and formal-parameter-list regions. {$extended-pascal} program gale7 (output); type t = record case integer of 0: (boolean : boolean) {WRONG} otherwise (f : integer) end; begin writeln('FAIL'); end. {$extended-pascal} program gale8 (output); type t = integer; procedure foo(t: t); {WRONG} begin end; begin writeln('FAIL'); end. The compiler I used was the latest version of Mac OS X GPC that Adriaan built and made available for downloading few weeks ago. The specs: Reading specs from /Developer/Pascal/gpc345u2/lib/gcc/powerpc-apple-darwin8/3.4.5/specs Configured with: ../gcc-3.4.5/configure --enable-languages=pascal,c --enable-threads=posix --target=powerpc-apple-darwin8 --host=powerpc-apple-darwin8 --build=powerpc-apple-darwin8 --prefix=/Developer/Pascal/gpc345u2 Thread model: posix gpc version 20051116, based on gcc-3.4.5 Gale Paeper gpaeper(a)empirenet.com

1 0

C to Pascal translation
by Chris Hicks 07 Jan '06

07 Jan '06

There are a number of programs that do translation from C to Pascal: http://c2pas.sourceforge.net/ http://www.synaptics.com/people/daveg/ and from Pascal to C http://www.rocketaware.com/spec/softdev/lang/pascal/ I have not tried these out - just found them on Google. It might be worth giving them a try with some short bits of code. Best regards, Chris.

3 5

Translating C to Pascal
by Prof A Olowofoyeku (The African Chief) 07 Jan '06

07 Jan '06

Hi all I am trying to translate some gcc code to gpc, and I have become a tad blearly-eyed with this bit: " while(size--) crc =(crc << 8) ^ crctab[((crc >> 24) ^ *cp++) & 0xFF]; for(; length; length >>= 8) crc =(crc << 8) ^ crctab[((crc >> 24) ^ length) & 0xFF]; crc = ~crc & 0xFFFFFFFF; " Can anyone make any sense of this? Thanks. ps: I understand the shl and shr calls, and I think I have a good idea of what the rest is doing - but I would prefer not to guess (bette safe than sorry!). Thanks. Best regards, The Chief -------- Prof. Abimbola A. Olowofoyeku (The African Chief) web: http://www.greatchief.plus.com/

1 0

Linking Pascal to Ada
by lanceboyle＠qwest.net 07 Jan '06

07 Jan '06

Sorry for the Ada content herein but I have to cross-bother *someone*. 8^) I'm trying to get a simple Ada program to access simple Pascal code-- see bottom of this post. (I also want to call Ada code from Pascal, but I haven't tried that yet.) I've read "6.11.2 Exporting GPC Libraries to Other Languages" from the GPC docs and "2.10.1 Interfacing to C" in the GNAT docs. I _think_ that I can prepare the Pascal code and call it from Ada assuming C calling conventions; at least, that's what I'm trying. The command lines that I am using, with the working directory the one containing all the source files, are: gpc -c mypascalunit.pas -o mypascalunit.o gnatmake adacallspascal.adb -largs mypascalunit.o /Developer/Pascal/ gpc344d2/lib/gcc/powerpc-apple-darwin8/3.4.4/libgpc.a (the gnatmake command is all one line) This causes the following output (sorry if there are any impolite line breaks): gcc -c adacallspascal.adb gnatbind -x adacallspascal.ali gnatlink mypascalunit.o /Developer/Pascal/gpc344d2/lib/gcc/powerpc- apple-darwin8/3.4.4/libgpc.a adacallspascal.ali ld: Undefined symbols: _frommypascalunit gnatlink: cannot call /usr/bin/gcc gnatmake: *** link failed. I'm linking libgpc.a because I think that is the GPC runtime library and prevents complaints about undefined symbols such as __p_Write_String. Question: Why doesn't the linker see _frommypascalunit??? Here are the two programs, Ada main and Pascal unit. with Ada.Text_IO; use Ada.Text_IO; procedure adacallspascal is procedure frommypascalunit; pragma Import(C, Frommypascalunit); begin Put_Line("Hello from adacallspascal."); frommypascalunit; end adacallspascal; unit mypascalunit; interface procedure frommypascalunit; implementation procedure frommypascalunit; begin writeln('Hello from frommypascalunit.'); end; end. Thanks for any comments at all. I've never tried anything like this. Jerry

2 1

variant record selector cannot be passed by reference
by prasad svr 04 Jan '06

04 Jan '06

Hi I am using gpc version 20050331, based on gcc-3.4.3 on solaris 10 intel platform. I have a record like below datobj_pointer = ^datobj_record; datobj_record = RECORD next : datobj_pointer; name : PASNameString; fct : Byte_integer; phystype: phystype_list; fix_ptr : datobj_pointer; nextfct : datobj_pointer; CASE subtype : all_obj_list OF Mea : (cur_mea : meaobj_pointer; com_mea : meaobj_pointer); Ind : (cur_ind : indobj_pointer; com_ind : indobj_pointer); Tim : (cur_tim : timobj_pointer; com_tim : timobj_pointer); Scr : (cur_scr : scrobj_pointer); Evt : (cur_evt : evtobj_pointer); Cmd : (cur_cmd : cmdobj_pointer); Con : (cur_con : conobj_pointer); Tbl : (cur_tbl : tblobj_pointer); Txf : (cur_txf : txfobj_pointer); Com : (cur_com : comobj_pointer; com_com : comobj_pointer); Par : (cur_par : param_pointer; com_par : param_pointer); Slv : (cur_slv : slave_pointer ); END; datobj : datobj_pointer; When I call the function like below r_w_phystype (iofil,i_o,buffer,20,datobj^.phystype,field); I am getting below error "variant record selector cannot be passed by reference". Our software is working on below platforms and compilers platform compiler sun sun pascal compiler vms vms pascal compiler digital unix digital unix pascal compiler windows borland delphi 7 In the above platforms we are not getting any problems,so please suggest whether I have any workaround? Regards Prasad -- _______________________________________________ Search for businesses by name, location, or phone number. -Lycos Yellow Pages http://r.lycos.com/r/yp_emailfooter/http://yellowpages.lycos.com/default.as…

3 3

Current distribution of gpc from www.cygwin.com does not work.
by Chris Hicks 04 Jan '06

04 Jan '06

I have just downloaded the test suite to try and resolve my problem with gpc that I posted earlier. The output from the test suite follows: $ make rm -f *.dat *.o *.s *.i *.gpi *.gpd *.gpc core a.out stderr.out *.exe testmake.tmp dummy.c dummy.pas dummy.out diff_cr*.tmp fixcr fixcr.exe rm -f todo/a.out todo/*.exe todo/*.o todo/*.s todo/*.i todo/*.gpi todo/*.gpd todo/core GP= PC="gpc" PFLAGS=" --autobuild -g -O3 -W -Wall -Wno-unused " PFLAGS_NO_PATHS="-g -O3 -W -Wall -Wno-unused " SRCDIR="." TEST_MAKE_FLAG=test-make-flag "./test_run" "*.pas" | tee test_log | "./test_sum" -d /usr/lib/gcc-lib/i686-pc-cygwin/3.3.3/../../../../i686-pc-cygwin/bin/ld: crtbegin.o: No such file: No such file or directory /usr/lib/gcc-lib/i686-pc-cygwin/3.3.3/../../../../i686-pc-cygwin/bin/ld: crtbegin.o: No such file: No such file or directory ./test_run: fatal: cannot compile a simple program Nothing was run. My problem seems to be due to the gpc/gcc distribution! Best regards, Chris.

4 5

Problem building gpc 20050331
by Bruce Peltzer 04 Jan '06

04 Jan '06

I've been trying to get past a little problem when building gpc from version 20050331. I'm running hp-ux 11i v1 and normally use gcc 4.0.2, but for building, I'm using gcc 3.4.3. When I try to build gpc, make balks at this point. `echo /opt/hp-gcc-src/gcc-3.4.3/gcc/xgcc -B/opt/hp-gcc-src/gcc-3.4.3/gcc/ -B/usr/local/hppa2.0w-hp-hpux11.11/bin/ -B/usr/local/hppa2.0w-hp-hpux11.11/lib/ -isystem /usr/local/hppa2.0w-hp-hpux11.11/include -isystem /usr/local/hppa2.0w-hp-hpux11.11/sys-include | sed 's,^$[^ ]*[/\][^/\]*$gcc,\1gpc,;s/^gcc$/gpc/' ` -I. -W -Wall -Wmissing-prototypes -Wmissing-declarations -O2 --unit-path=/opt/hp-gcc-src/gcc-3.4.3/gcc/p/rts --automake --print-needed-options "endian.pas" 2> "needed-options" || true if grep '^[^-]' "needed-options" > /dev/null; then echo "needed-options: `cat "needed-options"`" >&2; rm -f "needed-options"; false; else true; fi needed-options: endian.pas:37: error: module/unit interface `error' could not be imported make: *** [needed-options] Error 1 I saw a very similar problem in the archives where someone mentioned patching the Makefile for the RTSSTAGESTUFF, but it would appear that the Makefile is already what is recommended to change it to. How do I get past this. I know I haven't much further to go and I really hate hp Pascal! 8-) Many thanks, Bruce.

2 1

MinGW version of GPC based on GCC 3.4.4?
by Gerrit P. Haase 02 Jan '06

02 Jan '06

Hello Prof, Is there a MinGW version of GPC based on GCC 3.4.4 available? Gerrit -- =^..^= Good Bye Johnny -------> http://www.ramones.com/

2 2

Unfriendly reset in gpc
by Brian Wichmann 29 Dec '05

29 Dec '05

If you do reset(t, 'myfile '); it fails due to the trailing space. If one is attempting to use something very close the ISO 7185, then removing the trailing spaces is virtually impossible. Of course, it is easy to do the following: procedure MyReset(var T: text; F: <some string type>); var i: integer; begin i := 1; while F[i] <> ' ' do i := i + 1; reset(T, F[1..i-1]); end; Hence I would like to suggest that reset removes trailing spaces, as on my old machine.... (ISO 7185, with very minimal additions). Brian Wichmann.

4 6

Re: gpc on mac
by Tom Schneider 29 Dec '05

29 Dec '05

Adriaan: > In that case, since there apparently is a linker on the machine and no > libSystemStubs.a, I assume that Xcode 1.x has been installed (maybe the > machine was updated later to Mac OS X 10.4). You can find out with "Get > Info" in the Mac OS X Finder for the file /Developer/Applications/Xcode > (or /Developer/Applications/Xcode.app). AH!!! Ok, I opened that and found from About that I have Xcode Version 1.1. Get Info gives that too and says it was modified Jan 23, 2004 5:13 AM. > Anyway, an update to Xcode 2.x > should solve the problem and install libSystemStubs.a. You can > download Xcode from Apple. The ADC membership for the purpose only > requires free registration, see > <http://developer.apple.com/membership/online.html>. Also, your copy of > Mac OS X system software may (or may not) have a third CD and Xcode is > on that third CD, which saves you a 800 MB download (or Xcode may be in > a special folder if the system software is on DVD). > > I would have to look if I can add libSystemStubs.a to the downloads > from my website for those who don't have Xcode installed or an older > version (if the license permits it). Even then, I don't know if it's > worth the trouble, because other problems may (or may not) arise when > Xcode tools are missing or not up-to-date. Ok, I am a member of ADC and could get Xcode 2.2 but it turns out that would be several hours of downloading, so I'm installing from my OS X 10.4 disk. This is more likely for people to do anyway. Ok, I have Xcode 2.0 now. Let's give it a whirl ... /Developer/Pascal/gpc345u2/bin/gpc test.p % a.out go to sleep!! BINGO! Thanks! It would help in your documentation to step people through checks for the installation (or can you put it into a script?) to make sure they have the Xcode they need. For whatever reason I didn't install the latest Xcode when I installed 10.4. Installation was pretty easy though from the DVD. Tom Dr. Thomas D. Schneider National Institutes of Health National Cancer Institute Center for Cancer Research Nanobiology Program Molecular Information Theory Group Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu (use only if first address fails) http://www.ccrnp.ncifcrf.gov/~toms/ http://www.uwasa.fi/~ts/http/quote.html http://en.wikipedia.org/wiki/Top-posting

1 0

Re: gpc on mac
by Tom Schneider 29 Dec '05

29 Dec '05

Adriaan: > >>> [bluebird:~/now/t] tds% /Developer/Pascal/gpc345u2/bin/gp test.p > >>> /usr/bin/ld: can't locate file for: -lSystemStubs > >>> collect2: ld returned 1 exit status > >> > >> That is strange, on Mac OS X 10.4 libSystemStubs.a can be found in > >> /usr/lib. But -- maybe they are installed as part of Xcode instead of > >> the system software, did you install Xcode 2.x ? > > > > I probably asked for everything when I installed OS X, but I don't > > recall. If you tell me exactly where to look and for what I will do > > that. > > The critical file is /usr/lib/libSystemStubs.a. There is no such file. [bluebird:/usr/lib] tds% pwd /usr/lib [bluebird:/usr/lib] tds% ls libS* libSaturn.a libSystem.B_profile.dylib* libSaturn.dylib* libSystem.dylib@ libSystem.B.dylib* libSystem_debug.dylib@ libSystem.B_debug.dylib* libSystem_profile.dylib@ > To find a solution, again my question: has Xcode 2.x been installed > on that machine ? Again my puzzlement: I don't know what to look for. Please tell me *exactly* how to determine this. What command(s) should I type? What places in the file system should I go to to look for exactly what files? (For example, do you know if there is a Boogeyman program on your machine? Where would you look if you never heard of a Boogeyman? Where would you look if you *had* heard of a Boogeyman but didn't know where it was?) > If not, has Xcode 1.x been installed on that machine ? See above. 'Help' is, as usual on the Mac, pretty useless. google Xcode http://developer.apple.com/tools/xcode/ download "Xcode Tools 2.2" requires ADC Member Log In which I did not do. I don't know if this is a distraction or a help because I don't know what's on my machine at the moment. Nothing called X(anything) under /Applications; only X11.app under /Applications/utilities. > If not, has the assmbler/linker from my website been installed ? No. Which README is the more recent one? Are the suppposed to be different? Anyway, neither README seems to say I SHOULD have installed xcode ... Regards, Tom Dr. Thomas D. Schneider National Institutes of Health National Cancer Institute Center for Cancer Research Nanobiology Program Molecular Information Theory Group Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu (use only if first address fails) http://www.ccrnp.ncifcrf.gov/~toms/

2 1

Simple Pascal/XView program works!
by Chris Hicks 29 Dec '05

29 Dec '05

Thanks to the Chief, my simple XView example (that pops up an OK button and a string) now works. I attach my code, just in case anybody else is interested. I will be moving on to look at some more complicated examples and will post them on the web in due course. Thanks again for helping me. Best regards, Chris.

2 1

Trying to link gpc to xview (again!)
by Chris Hicks 29 Dec '05

29 Dec '05

I am beginning to make some progress (thanks for your help so far), but would be very grateful for some more help. My attempts at producing the XView - Pascal code are in Makefile, p.p, x_message.c and x_message.h. When I try to compile I get: $ make gpc -c p.p p.p: In main program: p.p:11: error: argument to `WriteLn' is of wrong type p.p:11: error: (Use `--cstrings-as-strings' to treat `CString' as a string.) make: *** [p.o] Error 1 I based this code on various examples, including some that demonstrated passing strings between C and Pascal that I produced with the Chief's help back in 2003 (http://www.staff.ncl.ac.uk/chris.hicks/programming.htm, pcallsc2 <http://www.staff.ncl.ac.uk/chris.hicks/programming.htm, pcallsc2> near the bottom). I don't understand what is happening here. My Writeln is similar to the 2003 example that worked, likewise I am not sure why the --cstrings-as-strings is not working. I am also wondering whether the Pascal in the 2003 example was quite right. Does the second getmem release the memory? program pascalcallsC(input,output); procedure world; external name 'c_world'; procedure w1(var i : integer; s : pchar); external name 'c_w1'; var i : integer; s : pchar; begin writeln("Hello world from Pascal"); world; writeln("Returned from C to Pascal\n"); i := 96; getmem (s, 260); { ahem - we need to allocate memory } w1(i,s); writeln("Returned from C again I = ",i); writeln("Return from C cstring = ",s); getmem (s, 260); { free this here, else memory leak on next line } s := "This is a CString"; { not really a good idea, IMHO } writeln("Trying out pascal ",s); end. Many thanks, Chris.

2 4

Trying to link gpc to XView (again!)
by Chris Hicks 29 Dec '05

29 Dec '05

>Put "{$X+}" in the source code, or pass '--extended-syntax' at the >command line. I have changed the Makefile (attached) to include the command line option --extended-syntax, but I still get the same error message when I compile: $ make gpc -c p.p p.p: In main program: p.p:11: error: argument to `WriteLn' is of wrong type p.p:11: error: (Use `--cstrings-as-strings' to treat `CString' as a string.) p.p: At top level: p.p:15: error: syntax error before `more' make: *** [p.o] Error 1 The manual entry for --extended-syntax is "--extended-syntax same as --ignore-function-results --pointer-arithmetic --cstrings-as-strings -Wno-absolute (same as {$X+}). " so presumably I don't need the --cstrings-as-strings? Can you spot what's wrong? Many thanks, Chris.

2 1

Re: gpc on mac
by Tom Schneider 29 Dec '05

29 Dec '05

Adriaan: > > [bluebird:~/now/t] tds% /Developer/Pascal/gpc345u2/bin/gp test.p > > /usr/bin/ld: can't locate file for: -lSystemStubs > > collect2: ld returned 1 exit status > > That is strange, on Mac OS X 10.4 libSystemStubs.a can be found in > /usr/lib. But -- maybe they are installed as part of Xcode instead of > the system software, did you install Xcode 2.x ? I probably asked for everything when I installed OS X, but I don't recall. If you tell me exactly where to look and for what I will do that. > > .. the ReadMe.rtf that came in the package is not the same > > /Developer/Pascal/README.rtf > Oh, I am really sorry you had to read two Readme files. I'm sorry, my sarcosometer is broken. Are you being sarcastic? They were not identical. Under Mac OSX case is ignored and when I moved one into the directory with the other, it was wiped out. So I reinstalled to check this. Inside the package: -rw-rw-r-- 1 root admin 9378 Dec 23 16:56 README.rtf Outside the package: -rw-rw-r-- 1 tds staff 9023 Dec 24 12:41 ReadMe.rtf [bluebird:~/now/a] tds% diff README-inside.txt ReadMe-outside.txt 4c4 < The software package contains the GNU Pascal Compiler (gpc) version 3.4.5u2 for Mac OS X. Note that there are separate packages for --- > The software package contains the GNU Pascal Compiler (gpc) version 3.4.5u2 for Mac OS X. 6,10c6 < â¢ Mac OS 10.3 native PowerPC compiler < â¢ Mac OS 10.4 native and cross compilers for PowerPC and Intel < â¢ Mach-O Intel native and cross compilers for PowerPC and Intel < < DISCLAIMER. The Intel version of the software package was composed, built and tested on a standard PC running OpenDarwin8, using tools and software that are freely available on the internet. Due to Apple Non Disclosure Agreement restrictions, I can not reveal if the software actually builds, runs and installs on Intel Macs running Mac OS X 10.4. --- > This package is for Mac OS X 10.4 PowerPC only. 89c85 < Source code and a building scripts can be downloaded from <http://www.microbizz.nl/gpc.html>. --- > Source code and building scripts can be downloaded from <http://www.microbizz.nl/gpc.html>. Tom Dr. Thomas D. Schneider National Institutes of Health National Cancer Institute Center for Cancer Research Nanobiology Program Molecular Information Theory Group Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu (use only if first address fails) http://www.ccrnp.ncifcrf.gov/~toms/

2 1

Trying to link gpc to XView - crtbegin.o No such file or directory
by Chris Hicks 28 Dec '05

28 Dec '05

Thanks for your reply Chief. The command: gpc -print-file-name=crtbegin.o gives: crtbegin.o I also decided to go back to basics. You helped me do some C to Pascal, Pascal to C examples a couple of years ago (http://www.staff.ncl.ac.uk/chris.hicks/programming.htm). These all worked at the time. When I get these sorted I will go back to the XView problem. I tried one of the Pascal calls C programs that passes a string and that failed with the same error message: $ make gpc -o pcallc pcallc.p ccall.o --cstrings-as-strings /usr/lib/gcc-lib/i686-pc-cygwin/3.3.3/../../../../i686-pc-cygwin/bin/ld: crtbegin.o: No such file: No such file or directory make: *** [pcallc] Error 1 Which version of Pascal would you recommend? I looked at http://www.gnu-pascal.de/binary/cygwin/ and found the most recent one in binary is gpc-20041017, based on gcc-3.3.3. gcc -v on my installation gives: $ gcc -v Reading specs from /usr/lib/gcc/i686-pc-cygwin/3.4.4/specs Configured with: /gcc/gcc-3.4.4/gcc-3.4.4-1/configure --verbose --prefix=/usr --exec-prefix=/usr --sysconfdir=/etc --libdir=/usr/lib --libexecdir=/usr/lib --mandir=/usr/share/man --infodir=/usr/share/info --enable-languages=c,ada,c++,d,f77,java,objc --enable-nls --without-included-gettext --enable-version-specific-runtime-libs --without-x --enable-libgcj --disable-java-awt --with-system-zlib --enable-interpreter --disable-libgcj-debug --enable-threads=posix --enable-java-gc=boehm --disable-win32-registry --enable-sjlj-exceptions --enable-hash-synchronization --enable-libstdcxx-debug : (reconfigured) Thread model: posix gcc version 3.4.4 (cygming special) (gdc 0.12, using dmd 0.125) Is gpc compatible with the 3.4.4? Thanks again for your help. Chris.

2 1

Trying to link gpc to XView - crtbegin.o No such file or directory
by Chris Hicks 28 Dec '05

28 Dec '05

Hi, I have just reinstalled Cygwin which comes with gpc version 20040516, based upon gcc-3.3.3. The gcc version is 3.4.4. I am assuning that there are OK, because they were provided as binaries that were bundled in the Cygwin install. I have installed XView ( from xview-3.2p1.4-18c-cygwin.tar.bz2, from http://www.physionet.org/physiotools/xview/) and am trying to write a small example program to illustrate linking a Pascal program to XView. I attach my files (p.p, x_message.c and my Makefile). When I do a make I get the error message: $ make gpc -o test p.p x_message.o -I /usr/openwin/library -Lxview -LX11 p.p:6: warning: missing string capacity -- assuming 255 /usr/lib/gcc-lib/i686-pc-cygwin/3.3.3/../../../../i686-pc-cygwin/bin/ld: crtbegin.o: No such file: No such file or directory make: *** [test] Error 1 I would be grateful for some help with this. Many thanks (and a happy New Year), Chris.

2 1

gpc on mac
by Tom Schneider 28 Dec '05

28 Dec '05

Adriaan: I downloaded from http://www.microbizz.nl/gpc.html GNU Pascal 3.4.5u2 installer for Mac OS X 10.4 PowerPC (PowerPC native and Intel cross compiler) (16.4 MB) to my Max OSX version 10.4.3 Power PC G4 It unpackaged ok and I have now /Developer/Pascal/ Then I went to /tmp and made: program tboy(output); begin writeln(output,'go to sleep!!'); end. I tried this: /Developer/Pascal/gpc345u2/bin/gpc test.p and got: [bluebird:~/now/t] tds% /Developer/Pascal/gpc345u2/bin/gpc test.p /usr/bin/ld: can't locate file for: -lSystemStubs collect2: ld returned 1 exit status Then /Developer/Pascal/gpc345u2/bin/gp test.p and got [bluebird:~/now/t] tds% /Developer/Pascal/gpc345u2/bin/gp test.p /usr/bin/ld: can't locate file for: -lSystemStubs collect2: ld returned 1 exit status Hmm. I could not locate simple examples of how to run the compiler. A small example test directory would help. Oh, also, the ReadMe.rtf that came in the package is not the same as /Developer/Pascal/README.rtf which is confusing. Regards, Tom Dr. Thomas D. Schneider National Institutes of Health National Cancer Institute Center for Cancer Research Nanobiology Program Molecular Information Theory Group Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu (use only if first address fails) http://www.ccrnp.ncifcrf.gov/~toms/ http://www.uwasa.fi/~ts/http/quote.html http://en.wikipedia.org/wiki/Top-posting

2 1

Delphi compat
by Prof A Olowofoyeku (The African Chief) 27 Dec '05

27 Dec '05

Hi The new Delphi 2006 is reported to have a new feature - records with methods - e.g., type TBlock = record procedure Foo(I: Integer); function Bar: TBlock; private Data: Integer; public property Color: Integer end; It also has something called static fields (for Classes), declared with "class var" (e.g., "class var foo : integer"). These are fields that belong to the type, rather than to any of its instances. I am not sure why either of these new features is necessary or useful, but perhaps they should be borne in mind with respect to Delphi compatibility (or perhaps not). Best regards, The Chief -------- Prof. Abimbola A. Olowofoyeku (The African Chief) web: http://www.greatchief.plus.com/

1 0

GPC downloads for Mac OS X
by Adriaan van Os 24 Dec '05

24 Dec '05

Updated GPC binary installers, sources, patches, building instructions and building scripts for Mac OS X can be downloaded from <http://www.microbizz.nl/gpc.html>. Included are • a native Mach-O PowerPC compiler • a cross compiler running on Mach-O PowerPC for Mach-O Intel • a cross compiler running on Mach-O Intel for Mach-O PowerPC • a native Mach-O Intel compiler Special thanks to Waldek Hebisch for his help in getting a stable Mach-O Intel compiler. I wish you all a merry Christmas and a happy New Year ! Adriaan van Os

1 0

Re: First problem
by Waldek Hebisch 22 Dec '05

22 Dec '05

Brian Wichmann wrote: > gpc --classic-pascal CONF001.PAS > /usr/bin/ld: CONF001.PAS bad magic number (not a Mach-O file) > collect2: ld returned 1 exit status > [Brian-Wichmanns-Computer:P8/gnupascal/CONFORM] brianwic% gpc > CONF001.PAS > /usr/bin/ld: CONF001.PAS bad magic number (not a Mach-O file) > collect2: ld returned 1 exit status > [Brian-Wichmanns-Computer:P8/gnupascal/CONFORM] brianwic% > > The test is attached. > > I have no idea what this is about!! > By default gpc uses file extension to decide what to do with the input file: .PAS is _not_ recognized as Pascal extension (.pas is). Files with unrecognized extension are passed to the linker (which then complains about magic number). So either rename the input files to use .pas or .p extension or add explicit option: gpc -x Pascal --classic-pascal CONF001.PAS should work. -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

1 0

Validation status of GNU Pascal
by Brian Wichmann 22 Dec '05

22 Dec '05

Dear developers: I have a copy of the validation suite for Pascal written years ago by Arthur Sale and myself. Has this been run on GNU Pascal? If not, I would be happy to do this. Brian Wichmann ex-convenor (ISO) for Pascal

4 4

The 2006 PGD Annual Game Programming Competition
by Dominique Louis 20 Dec '05

20 Dec '05

Hi all, That time of year is coming up again. It is soon time for Pascal Game Development's annual competition and with that, I am pleased to announce that on Jan 15th, 2006 the 2006 PGD Annual Game Programming Competition shall commence! The competition rules shall be released on the morning(GMT) before the start of the competition. We will be allowing teams or individuals much like we did last year. Releasing your source will be optional however you will be required to submit a packaged executable with all game files for the targeted platform(s) supported. Prizes, judges, rules and all further needed information will be posted within a weeks time before the start date of competition. For now, I suggest gathering your teams, tools and ideas for Jan 15th. Contest will be running for a total of 16 weeks, ending on the May 7th where we will award the 1st, 2nd and 3rd place winners with their prizes. We will also be honouring those in the competition that show great ability in specific areas of development. We have high hopes for a fun competition and it should be a very successful event for 2006. Stay posted for further information as it comes. This year's excellent winning entries and prizes can be viewed @ http://www.pascalgamedevelopment.com/competitions/PGDCompetition2005.html We look forward to seeing you or vistors from your site there. Dominique.

1 0

Read and Write from/to eg. /dev/ttySx
by M. Uhle sen. 20 Dec '05

20 Dec '05

My problem: I want to open a serial device in a GP-Program to read and write to it in changing order. I look for a way that allowes to do (non blocking) read AND write to one single file-variable assigned to eg /dev/ttySx. So far I have found the "CanRead-function" in the manual which serves perfect for the non blocking job! But still I have to use two file-variables, one opened with reset, one opened with rewrite, and both symbolically linked to the desired serial file eg. /dev/ttySx. And it works, reading from the first when "CanRead" is true and writing to the latter whenever it is necessary. Having read almost all portions of the GNU Pascal Manual nevertheless could not find a solution to use only one file-variable. What is behind it? I do have an awful lot of programs from old TP3-times doing exactly that using "aux" and a home made "CanRead" equivalent. I dare to ask and will even be full of thanks if I get just the answer "rtfm, THERE" Thanks to all who keep the GPC working, Mathias Uhle PS.: To keep this mail short I just add: a wonderful Compiler, great! -- Univ.-Prof. Dr.-Ing. Mathias Uhle, Messtechnik, Universitaet Dortmund Leonhard Euler Str. 5, D-44221 Dortmund Tel: +49.231.755.3257 Fax: +49.231.755.2631 email: uhle(a)mt.mb.uni-dortmund.de http://www.mt.mb.uni-dortmund.de

3 3

--gpc-rts=-trap-on-error
by Adriaan van Os 19 Dec '05

19 Dec '05

The below patch adds --gpc-rts=-trap-on-error (aka --gpc-rts=-t) to the gpc runtime lib. This is quite useful * when debugging with gdb * when debugging with visual front-ends to gdb * on systems where WriteStackDump does nothing * on systems that automatically report and log backtraces (like Darwin). diff -ur gcc-3.4.5-orig/gcc/p/rts/error.pas gcc-3.4.5/gcc/p/rts/ error.pas --- gcc-3.4.5-orig/gcc/p/rts/error.pas 2005-12-15 17:41:59.000000000 +0100 +++ gcc-3.4.5/gcc/p/rts/error.pas 2005-12-19 17:09:15.000000000 +0100 @@ -95,6 +95,7 @@ RTSOptions: Integer = 0; attribute (name = '_p_RTSOptions'); RTSWarnFlag: Boolean = False; attribute (name = '_p_RTSWarnFlag'); AbortOnError: Boolean = False; attribute (name = '_p_AbortOnError'); + TrapOnError: Boolean = False; attribute (name = '_p_TrapOnError'); CurrentReturnAddr: Pointer = nil; attribute (name = '_p_CurrentReturnAddr'); CurrentReturnAddrCounter: Integer = 0; attribute (name = '_p_CurrentReturnAddrCounter'); @@ -890,6 +891,19 @@ {$endlocal} end; +procedure TrapError; attribute (inline); +begin +{$ifdef __i386__} + asm("int3") +{$else} +{$ifdef __ppc__} + asm("trap") +{$else} + BuiltinTrap; +{$endif} +{$endif} +end; + procedure EndRuntimeError (n: Integer); attribute (noreturn, name = '_p_EndRuntimeError'); begin FinishErrorMessage (n); @@ -898,6 +912,8 @@ Finalize1; RestoreReturnAddress; if (RTSErrorFD >= 0) then Discard (CloseHandle (RTSErrorFD)); { just to be sure } + if TrapOnError then + TrapError; ExitProgram (RuntimeErrorExitValue, AbortOnError) end; diff -ur gcc-3.4.5-orig/gcc/p/rts/init.pas gcc-3.4.5/gcc/p/rts/init.pas --- gcc-3.4.5-orig/gcc/p/rts/init.pas 2005-12-15 17:41:59.000000000 +0100 +++ gcc-3.4.5/gcc/p/rts/init.pas 2005-12-19 15:34:26.000000000 +0100 @@ -94,6 +94,7 @@ -h, --help Display this help and exit -v, --version Output RTS version information and exit -a, --abort-on-error Abort with SIGABRT on runtime error +-t, --trap-on-error Trap or break into debugger on runtime error -e, --eoln-hack Toggle EOLn hack right after Reset for terminals -i LINE, --input LINE Implicitly add LINE to the beginning of Input -n INTERNAL_NAME:EXTERNAL_NAME, --file-name[=] INTERNAL_NAME:EXTERNAL_NAME @@ -117,11 +118,12 @@ function DoOption: Boolean; const - LongOptions: array [1 .. 12] of OptionType = + LongOptions: array [1 .. 13] of OptionType = ((Prefix, NoArgument, nil, '='), ('help', NoArgument, nil, 'h'), ('version', NoArgument, nil, 'v'), ('abort-on-error', NoArgument, nil, 'a'), + ('trap-on-error', NoArgument, nil, 't'), ('eoln-hack', NoArgument, nil, 'e'), ('input', RequiredArgument, nil, 'i'), ('file-name', RequiredArgument, nil, 'n'), @@ -167,6 +169,7 @@ Halt end; 'a': AbortOnError := True; + 't': TrapOnError := True; 'e': EOLnResetHack := not EOLnResetHack; 'i': begin { Strings written to CurrentStdIn, given as first standard input to user program } diff -ur gcc-3.4.5-orig/gcc/p/rts/rts.c gcc-3.4.5/gcc/p/rts/rts.c --- gcc-3.4.5-orig/gcc/p/rts/rts.c 2005-12-15 17:41:59.000000000 +0100 +++ gcc-3.4.5/gcc/p/rts/rts.c 2005-12-19 17:02:50.000000000 +0100 @@ -2599,6 +2599,13 @@ #endif } +GLOBAL (void _p_BuiltinTrap (void)) +{ +#if (__GNUC__ >= 3) + __builtin_trap(); +#endif +} + GLOBAL_ATTR (void _p_ExitProgram (int Status, Boolean AbortFlag UNUSED), noreturn) { #ifdef HAVE_ABORT diff -ur gcc-3.4.5-orig/gcc/p/rts/rtsc.pas gcc-3.4.5/gcc/p/rts/rtsc.pas --- gcc-3.4.5-orig/gcc/p/rts/rtsc.pas 2005-12-15 17:41:59.000000000 +0100 +++ gcc-3.4.5/gcc/p/rts/rtsc.pas 2005-12-19 17:11:07.000000000 +0100 @@ -414,6 +414,7 @@ function CGetPwEnt (var Entries: PCPasswordEntries): CInteger; external name '_p_CGetPwEnt'; procedure InitMisc; external name '_p_InitMisc'; procedure InitMalloc (procedure WarnProc (Msg: CString)); external name '_p_InitMalloc'; +procedure BuiltinTrap; external name '_p_BuiltinTrap'; procedure ExitProgram (Status: CInteger; AbortFlag: Boolean); attribute (noreturn); external name '_p_ExitProgram'; {@endinternal} Note that the Linux kernel (in bug.h) works around problems with __builtin_trap for some versions of gcc in combination with sparc or ia-64. This is done by directly emitting assembly code, just like TrapError does in the diff. However, I can't test sparc and ia-64, so something similar has not (yet) been implemented. I did implement a workaround for __i386__ where __builtin_trap emits int5 instead of int3 (or at least that is what it does on i386-apple-darwin and that is what i386.md describes in gcc-3.4.5). I hope this is useful. Regards, Adriaan van Os

1 0

Re: test gpc ncurses configuration
by Russell Whitaker 19 Dec '05

19 Dec '05

On Sun, 18 Dec 2005, willett wrote: > Russ, > > Thanks very much for the report. > > Would your newly configured ncurses.pas compile equally well without > the -lncurses? That is: > $ gpc --automake -c ncurses.pas > no! russ

1 0

test gpc ncurses configuration
by willett 18 Dec '05

18 Dec '05

In order to make the Pascal interface to ncurses work on all GPC systems, I have developed a configuration program that substitutes the few types that are not taken care of at the gnu Pascal source code level. I'm also hoping this will make it general enough to include in the gnu Pascal distribution. I have only one type of computer running gnu pascal (Mac OSX), so it would be helpful if a couple of those on the list try configuring this and report problems. A .tar.gz file of sources is attached. This is NOT the full ncurses.pas package. I'm just asking for reports on whether the configuration process works on different gpc platforms. If you want the full ncurses, wait a few weeks for one incorporating this configuration, or get the limited-platform version now at: http://www.microbizz.nl/gpc.html A simple test (extracted from the ncurses.configure.txt document) is: ---------- First, unpack the ncurses-gpc archive, using a command like: $ tar -zx <ncurses-gpc-20051218.tar.gz Second, from within the directory that the archive was unpacked into, run configure: $ configure (Ignore the: "198: warning: identifiers should not start with an underscore") Test that ncurses.pas has a valid type definition for chtype: $ grep ' chtype =' ncurses.pas And test that the version in ncurses.pas corresponds to your installed ncurses: $ grep NCURSES_VERSION ncurses.pas ------------- If problems, look first at ncurses.configure.txt. Please let me know of positive or negative results. Thanks! Willett Kempton Visible Software

2 1

Shared libgpc support on Darwin
by Adriaan van Os 18 Dec '05

18 Dec '05

The following patch enables support for shared libgpc libraries on Darwin. --- gcc-3.4.5-orig/gcc/p/rts/Makefile.in 2005-12-15 17:41:59.000000000 +0100 +++ gcc-3.4.5/gcc/p/rts/Makefile.in 2005-12-18 20:44:49.000000000 +0100 @@ -54,6 +54,11 @@ GPCSOLIBNAME=$(GPCSOLIBSHORTNAME).$(gpc_major).$(gpc_minor).$ (rts_version) GPCLIB=$(DESTDIR)/libgpc.a GPCSOLIB=$(DESTDIR)/$(GPCSOLIBNAME) +ifdef TARGET_MACHO + GPCSOLIBOPTIONS = -dynamiclib -dylib_install_name,$(GPCSOLIBNAME) +else + GPCSOLIBOPTIONS = -shared -Wl,-soname=$(GPCSOLIBNAME) +endif PFLAGS1=--unit-path=$(VPATH) --automake RTS_WARN=-W -Wall -Wmissing-prototypes -Wmissing-declarations RTS_CFLAGS=-I. $(RTS_WARN) $(CFLAGS) $(RTSFLAGS)# -DDEBUG @@ -195,7 +200,7 @@ sharedlib.yes: $(GPCSOLIB) $(GPCSOLIB): $(SO_OBJS) -rm -f $(GPCSOLIB) - $(CC) -shared -Wl,-soname=$(GPCSOLIBNAME) -fPIC -o $(GPCSOLIB) $ (SO_OBJS) + $(CC) $(GPCSOLIBOPTIONS) -fPIC -o $(GPCSOLIB) $(SO_OBJS) mostlyclean: -rm -f $(OBJS) $(SO_OBJS) *.gpi *.gpd core needed-options stamp- error-gpi Some help on the command line is needed, e.g. [g5:~/gpc/gpc-20051116/build] adriaan% cd gcc/p/rts [g5:gcc/p/rts] adriaan% make clean [g5:gcc/p/rts] adriaan% make GPCSOLIBNAME=libgpc-345u1.dylib WITH_SHARED=yes TARGET_MACHO=1 Regards, Adriaan van Os

1 0

Re: New gpc snapshot released
by Waldek Hebisch 17 Dec '05

17 Dec '05

Adriaan van Os wrote: > To the best of my knowledge, powerpc-apple-darwin doesn't define > TARGET_POWERPC, but uses __ppc__ as the define for the *target* > processor. So, I believe your change was wrong (sorry). But this is no > longer relevant, as the processor check can be skipped (the problem > also occurs on i386-apple-darwin (as reported before)). > I am not sure if TARGET_POWERPC was the correct symbol, but I think you are confusing things here: to find correct define you should always look at a cross-compiler. When building a cross compiler we have _two_ sets of predefined symbols: one for host machine and one for target. Assume theat we are building a cross-compiler which should run on i386-linux and targetting powerpc-darwin. This compiler should run on i386-linux and is compiled using i386-linux compiler. During compilation _all_ normal symbols predefined by i386-linux compiler are active. So, the test for __I386__ will succeed regardless of the target and the test for _ARCH_PPC will fail regardless of the target. There is a separte set of predefines to describe the target machine, which sould be used in compiler sources. Look at the following snippet from rs6000-c.c: if (TARGET_POWERPC) builtin_define ("_ARCH_PPC"); The snippet shows that if _during build_ the symbol TARGET_POWERPC is defined then the running compiler will define _ARCH_PPC. The situation is different when we build RTS: the RTS is build using the target compiler, so you use "normal" predefines (like _ARCH_PPC). -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

1 0

Building gpc-20051104 on i686-apple-darwin8
by Adriaan van Os 17 Dec '05

17 Dec '05

For those intererested, here is some information on building gpc-20051104 with gcc-3.4.4 on i686-apple-darwin8. We need to build and install the right versions of sed, help2man, flex and bison first, but this has been discussed before (<http://www.gnu-pascal.de/crystal/gpc/en/thread11480.html>). Note that bison 2.1 is now needed (<http://ftp.gnu.org/gnu/bison/>). Then, we need patches to gcc-3.4.4. 1. To build gcc-3.4.4 on Darwin-8 (Mac OS X 10.4) we need the following "Tiger" patch (see <http://www.gnu-pascal.de/crystal/gpc/en/mail12302.html>) as Apple changed the rules once again: --- gcc/config/darwin.h.orig 2005-05-18 13:56:37.000000000 -0400 +++ gcc/config/darwin.h 2005-05-18 13:57:48.000000000 -0400 @@ -275,7 +275,8 @@ /* Machine dependent libraries. */ #undef LIB_SPEC -#define LIB_SPEC "%{!static:-lSystem}" +#define LIB_SPEC "%{!static:-lSystemStubs -lSystem}" + /* We specify crt0.o as -lcrt0.o so that ld will search the library path. */ 2. Then, we need to fix a bug in i386/darwin.h (see <http://www.gnu-pascal.de/crystal/gpc/en/mail12211.html>). --- gcc/config/i386/darwin.h.orig Thu Jun 16 01:10:29 2005 +++ 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} \ 3. Third, we have to fix a problem in config/darwin-crt2 with a system routine that is no longer present on i686-apple-darwin8 (see <http://www.opensource.apple.com/darwinsource/WWDC2004/keymgr-9/ keymgr.c>). --- gcc/config/darwin-crt2.orig.c 2005-11-11 00:31:10.000000000 +0100 +++ gcc/config/darwin-crt2.c 2005-11-11 17:34:48.000000000 +0100 @@ -47,7 +47,14 @@ extern void __darwin_gcc3_preregister_frame_info (void); /* These are from "keymgr.h". */ + +/* _init_keymgr is no longer needed and it breaks the build on i686-apple-darwin8, + see <http://www.opensource.apple.com/darwinsource/WWDC2004/keymgr-9/ keymgr.c> */ +#ifdef __PPC__ extern void _init_keymgr (void); +#endif + + extern void *_keymgr_get_and_lock_processwide_ptr (unsigned key); extern void _keymgr_set_and_unlock_processwide_ptr (unsigned key, void *ptr); @@ -137,7 +144,9 @@ __darwin_gcc3_preregister_frame_info (void) { const _Tinfo_Node *info; +#ifdef __PPC__ _init_keymgr (); +#endif info = (_Tinfo_Node *)__keymgr_global[2]; if (info != NULL) { 4. Finally, there is gcc bug PR16649 (<http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16649>), one of the many bugs that never get fixed by the back-end guys, because of the ingenious excuses they have found for not fixing bugs: 1. it is not a bug but a "regression" 2. it is a "regression" but not a "serious regression" 3. it is a "serious regression" but not a "serious regression for a secondary target" 4. it is a "serious regression" but not a "serious regression for a primary target" 5. it is a "serious regression" but not "release critical" 6. it was never assigned to anybody 7. it was never targeted for a specific release 8. it was targeted for a specific release, but then retargeted by the "release manager" 9. we don't know how to fix it 10. we are not longer working on it 11. or (more honest) we are really not in the mood to fix it, adding another nonsensical optimizer phase is more sexy. but here is the patch (see <http://www.gnu-pascal.de/crystal/gpc/en/mail12213.html>) --- gcc/config/i386/i386.c.orig Wed Mar 16 16:23:40 2005 +++ gcc/config/i386/i386.c Thu Jun 16 13:33:02 2005 @@ -5810,6 +5810,28 @@ return term; } + +/* Allow {LABEL | SYMBOL}_REF - SYMBOL_REF-FOR-PICBASE for Mach-O as + this is used for to form addresses to local data when -fPIC is in + use. */ + +static bool +darwin_local_data_pic (rtx disp) +{ + if (GET_CODE (disp) == MINUS) + { + if (GET_CODE (XEXP (disp, 0)) == LABEL_REF + || GET_CODE (XEXP (disp, 0)) == SYMBOL_REF) + if (GET_CODE (XEXP (disp, 1)) == SYMBOL_REF) + { + const char *sym_name = XSTR (XEXP (disp, 1), 0); + if (! strcmp (sym_name, "<pic base>")) + return true; + } + } + + return false; +} /* Determine if a given RTX is a valid constant. We already know this satisfies CONSTANT_P. */ @@ -5829,6 +5851,9 @@ x = XEXP (x, 0); } + if (TARGET_MACHO && darwin_local_data_pic (x)) + return true; + /* Only some unspecs are valid as "constants". */ if (GET_CODE (x) == UNSPEC) switch (XINT (x, 1)) @@ -5980,18 +6005,8 @@ saw_plus = true; } - /* Allow {LABEL | SYMBOL}_REF - SYMBOL_REF-FOR-PICBASE for Mach-O. */ - if (TARGET_MACHO && GET_CODE (disp) == MINUS) - { - if (GET_CODE (XEXP (disp, 0)) == LABEL_REF - || GET_CODE (XEXP (disp, 0)) == SYMBOL_REF) - if (GET_CODE (XEXP (disp, 1)) == SYMBOL_REF) - { - const char *sym_name = XSTR (XEXP (disp, 1), 0); - if (! strcmp (sym_name, "<pic base>")) - return 1; - } - } + if (TARGET_MACHO && darwin_local_data_pic (disp)) + return 1; if (GET_CODE (disp) != UNSPEC) return 0; 5. Create a build directory, cd into it and configure with something like: [Darwin:gpc-20051104/gpc344x1/build] adriaan% ../gcc-3.4.4/configure --enable-languages=c,pascal --enable-threads=posix --target=i686-apple-darwin8 --host=i686-apple-darwin8 --build=i686-apple-darwin8 --prefix=/Developer/Pascal/gpc344x1 6. Now, we can simply do a make with the system compiler that comes with Xcode 2.2 (gcc version 4.0.1 (Apple Computer, Inc. build 5247)) and a bootstrap is not needed. [Darwin:gpc-20051104/gpc344x1/build] adriaan% make 7.Installation [Darwin:gpc-20051104/gpc344x1/build] adriaan% sudo make install 8. And here we have the new compiler ! [Darwin:gcc/p/test] adriaan% gpc -v Reading specs from /Developer/Pascal/gpc344x1/lib/gcc/i686-apple-darwin8/3.4.4/specs Configured with: ../gcc-3.4.4/configure --enable-languages=c,pascal --enable-threads=posix --target=i686-apple-darwin8 --host=i686-apple-darwin8 --build=i686-apple-darwin8 --prefix=/Developer/Pascal/gpc344x1 Thread model: posix gpc version 20051104, based on gcc-3.4.4 (more about the testsuite in the next message) Regards, Adriaan van Os

1 1

gpc-20051116 - Win32 (Mingw) binary releases
by Prof A Olowofoyeku (The African Chief) 16 Dec '05

16 Dec '05

Hi all I have released Win32 (Mingw) binaries of the latest GPC snapshot (20051116). These releases, as usual, are based on gcc-3.2.3. You can find them here: http://gnu-pascal.de/contrib/chief/win32/mingw32/gpc-20051116.i386-pc- mingw32.tar.gz or http://gnu-pascal.de/contrib/chief/win32/mingw32/gpc-20051116-with- gcc.i386-pc-mingw32.tar.gz (with gcc-3.2.3 support files) For the latest release of the full Dev+GNU Pascal IDE (with gpc- 20051116), download this (11.5mb): http://gnu-pascal.de/contrib/chief/win32/dev_gnu_pascal-1.9.4.8.exe Best regards, The Chief -------- Prof. Abimbola A. Olowofoyeku (The African Chief) web: http://www.greatchief.plus.com/

2 2

New (20051116) snapshot
by Waldek Hebisch 16 Dec '05

16 Dec '05

I have put a new gpc snapshot at: http://www.math.uni.wroc.pl/~hebisch/gpc/gpc-20051116.tar.bz2 This snapshot has integrated preprocessor. This should solve problems with (lack of) predefined symbols when using 3.3.x and 3.4.x backends. The preprocessor is just integrated -- inside it is the same preprocessor as before. There is new `--preprocessed' option, but the change is intended to be as compatible as possible. Still, the code to handle command line changed, so there may be some unintended change. Also, there is no gpcpp executable anymore (use gpc -E as preprocessor). There are also minor fixes, see: http://www.math.uni.wroc.pl/~hebisch/gpc/NEWS-20051116 and http://www.math.uni.wroc.pl/~hebisch/gpc/Fixed-20051116 -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

10 34

Problem with appling patch to gcc-3.3.3 for gpc -20041218 install on solaris10 intel platform
by prasad svr 13 Dec '05

13 Dec '05

Hi I am tring to install gpc-20041218 on solaris 10 intel platform. Iam unable to apply the patch gcc-3.3.3.diff , Iam getting an error like $ /home/prasad/gcc-install/gcc-3.3.3/configure --enable-languages=pascal Configuring for a i386-pc-solaris2.10 host. Created "Makefile" in /home/prasad/gcc-install/gpc-build using "mh-frag" Configuring libiberty... creating cache ../config.cache checking whether to enable maintainer-specific portions of Makefiles... no checking for makeinfo... no checking for perl... perl checking host system type... i386-pc-solaris2.10 checking build system type... i386-pc-solaris2.10 checking for ar... ar checking for ranlib... ranlib checking for gcc... cc checking whether we are using GNU C... no checking whether cc understands -c and -o together... yes checking for POSIXized ISC... no checking for working const... yes checking for inline... inline checking for a BSD compatible install... /home/prasad/gcc-install/gcc-3.3.3/libiberty/../install-sh -c checking how to run the C preprocessor... cc -E checking for sys/file.h... yes checking for sys/param.h... yes checking for limits.h... yes checking for stdlib.h... yes checking for malloc.h... yes checking for string.h... yes checking for unistd.h... yes checking for strings.h... yes checking for sys/time.h... yes checking for time.h... yes checking for sys/resource.h... yes checking for sys/stat.h... yes checking for sys/mman.h... yes checking for fcntl.h... yes checking for alloca.h... yes checking for sys/pstat.h... no checking for sys/sysmp.h... no checking for sys/sysinfo.h... yes checking for machine/hal_sysinfo.h... no checking for sys/table.h... no checking for sys/sysctl.h... no checking for sys/systemcfg.h... no checking for sys/wait.h that is POSIX.1 compatible... yes checking whether time.h and sys/time.h may both be included... yes checking whether errno must be declared... no checking for ANSI C header files... yes checking for uintptr_t... yes checking for pid_t... yes checking whether the C compiler (cc -g ) works... yes checking whether the C compiler (cc -g ) is a cross-compiler... no checking for asprintf... no checking for atexit... yes checking for basename... yes checking for bcmp... yes checking for bcopy... yes checking for bsearch... yes checking for bzero... yes checking for calloc... yes checking for clock... yes checking for ffs... yes checking for getcwd... yes checking for getpagesize... yes checking for index... yes checking for insque... yes checking for memchr... yes checking for memcmp... yes checking for memcpy... yes checking for memmove... yes checking for memset... yes checking for mkstemps... no checking for putenv... yes checking for random... yes checking for rename... yes checking for rindex... yes checking for setenv... yes checking for sigsetmask... no checking for strcasecmp... yes checking for strchr... yes checking for strdup... yes checking for strncasecmp... yes checking for strrchr... yes checking for strstr... yes checking for strtod... yes checking for strtol... yes checking for strtoul... yes checking for tmpnam... yes checking for vasprintf... no checking for vfprintf... yes checking for vprintf... yes checking for vsprintf... yes checking for waitpid... yes checking whether alloca needs Cray hooks... no checking stack direction for C alloca... -1 checking for vfork.h... no checking for working vfork... yes checking for _doprnt... yes checking for sys_errlist... yes checking for sys_nerr... yes checking for sys_siglist... no checking for external symbol _system_configuration... no checking whether canonicalize_file_name must be declared... yes checking for getrusage... yes checking for on_exit... no checking for psignal... yes checking for strerror... yes checking for strsignal... yes checking for sysconf... yes checking for times... yes checking for sbrk... yes checking for gettimeofday... yes checking for realpath... yes checking for canonicalize_file_name... no checking for pstat_getstatic... no checking for pstat_getdynamic... no checking for sysmp... no checking for getsysinfo... no checking for table... no checking for sysctl... no checking for unistd.h... (cached) yes checking for getpagesize... (cached) yes checking for working mmap... yes checking for working strncmp... yes updating cache ../config.cache creating ./config.status creating Makefile creating testsuite/Makefile creating config.h Configuring gcc... loading cache ../config.cache checking LIBRARY_PATH variable... ok checking GCC_EXEC_PREFIX variable... ok checking host system type... i386-pc-solaris2.10 checking target system type... i386-pc-solaris2.10 checking build system type... i386-pc-solaris2.10 checking for gcc... (cached) cc checking whether the C compiler (cc -g ) works... yes checking whether the C compiler (cc -g ) is a cross-compiler... no checking whether we are using GNU C... (cached) no checking whether cc accepts -g... yes checking whether cc understands -c and -o together... (cached) yes checking for gnatbind... no checking for compiler driver that understands Ada... no checking whether cc accepts -Wno-long-long... no checking how to run the C preprocessor... (cached) cc -E checking for inline... (cached) inline checking for volatile... yes checking for long double... yes checking for long long int... yes checking for __int64... no checking for built-in _Bool... yes checking size of short... 2 checking size of int... 4 checking size of long... 4 checking size of long long... 8 checking execution character set... ASCII checking whether make sets ${MAKE}... yes checking whether a default assembler was specified... no checking whether a default linker was specified... no checking for GNU C library... no checking for gawk... no checking for mawk... no checking for nawk... nawk checking whether ln works... yes checking whether ln -s works... yes checking for ranlib... (cached) ranlib checking for a BSD compatible install... /home/prasad/gcc-install/gcc-3.3.3/gcc/../install-sh -c checking for ANSI C header files... (cached) yes checking whether time.h and sys/time.h may both be included... (cached) yes checking for working stdbool.h... no checking whether string.h and strings.h may both be included... yes checking for sys/wait.h that is POSIX.1 compatible... (cached) yes checking for limits.h... (cached) yes checking for stddef.h... yes checking for string.h... (cached) yes checking for strings.h... (cached) yes checking for stdlib.h... (cached) yes checking for time.h... (cached) yes checking for fcntl.h... (cached) yes checking for unistd.h... (cached) yes checking for sys/file.h... (cached) yes checking for sys/time.h... (cached) yes checking for sys/mman.h... (cached) yes checking for sys/resource.h... (cached) yes checking for sys/param.h... (cached) yes checking for sys/times.h... yes checking for sys/stat.h... (cached) yes checking for direct.h... no checking for malloc.h... (cached) yes checking for langinfo.h... yes checking for thread.h... yes checking for pthread.h... yes checking for CHAR_BIT... yes checking byte ordering... little-endian checking floating point format... IEEE (little-endian) checking for mktemp... no checking for makeinfo... no configure: warning: *** Makeinfo is missing or too old. *** Info documentation will not be built. checking for recent Pod::Man... yes checking for flex... /bin/sh /home/prasad/gcc-install/gcc-3.3.3/gcc/../missing flex checking for bison... /bin/sh /home/prasad/gcc-install/gcc-3.3.3/gcc/../missing bison checking for collect2 libraries... none required checking for library containing exc_resume... no checking for library containing ldexp... none required checking for preprocessor stringizing operator... yes checking for inttypes.h... yes checking for times... (cached) yes checking for clock... (cached) yes checking for dup2... yes checking for kill... yes checking for getrlimit... yes checking for setrlimit... yes checking for atoll... yes checking for atoq... no checking for sysconf... (cached) yes checking for strsignal... (cached) yes checking for putc_unlocked... yes checking for fputc_unlocked... no checking for fputs_unlocked... no checking for fwrite_unlocked... no checking for fprintf_unlocked... no checking for getrusage... (cached) yes checking for nl_langinfo... yes checking for lstat... yes checking for scandir... no checking for alphasort... no checking for gettimeofday... (cached) yes checking for mmap... yes checking for ssize_t... yes checking for uid_t in sys/types.h... yes checking type of array argument to getgroups... gid_t checking whether the printf functions support %p... yes checking whether read-only mmap of a plain file works... yes checking whether mmap from /dev/zero works... yes checking for MAP_ANON(YMOUS)... yes checking whether mmap with MAP_ANON(YMOUS) works... yes checking for pid_t... (cached) yes checking for vfork.h... (cached) no checking for working vfork... (cached) yes checking for iconv... yes checking for iconv declaration... extern size_t iconv (iconv_t cd, const char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft); checking whether getenv is declared... yes checking whether atol is declared... yes checking whether sbrk is declared... yes checking whether abort is declared... yes checking whether atof is declared... yes checking whether getcwd is declared... yes checking whether getwd is declared... yes checking whether strsignal is declared... yes checking whether putc_unlocked is declared... no checking whether fputs_unlocked is declared... no checking whether fwrite_unlocked is declared... no checking whether fprintf_unlocked is declared... no checking whether strstr is declared... yes checking whether errno is declared... yes checking whether vasprintf is declared... no checking whether malloc is declared... yes checking whether realloc is declared... yes checking whether calloc is declared... yes checking whether free is declared... yes checking whether basename is declared... no checking whether getopt is declared... yes checking whether clock is declared... yes checking whether getrlimit is declared... yes checking whether setrlimit is declared... yes checking whether getrusage is declared... yes checking whether times is declared... yes checking for struct tms... yes checking for clock_t... yes checking for uchar... checking for .preinit_array/.init_array/.fini_array support... no checking if mkdir takes one argument... no checking for main in -lunwind... no Using `/home/prasad/gcc-install/gcc-3.3.3/gcc/config/i386/i386.c' for machine-specific logic. Using `/home/prasad/gcc-install/gcc-3.3.3/gcc/config/i386/i386.md' as machine description file. Using the following target machine macro files: /home/prasad/gcc-install/gcc-3.3.3/gcc/config/i386/i386.h /home/prasad/gcc-install/gcc-3.3.3/gcc/config/i386/unix.h /home/prasad/gcc-install/gcc-3.3.3/gcc/config/i386/att.h /home/prasad/gcc-install/gcc-3.3.3/gcc/config/dbxelf.h /home/prasad/gcc-install/gcc-3.3.3/gcc/config/elfos.h /home/prasad/gcc-install/gcc-3.3.3/gcc/config/svr4.h /home/prasad/gcc-install/gcc-3.3.3/gcc/config/i386/sysv4.h /home/prasad/gcc-install/gcc-3.3.3/gcc/config/sol2.h /home/prasad/gcc-install/gcc-3.3.3/gcc/config/i386/sol2.h checking for library containing strerror... none required checking for working const... (cached) yes checking for off_t... yes checking for size_t... yes checking for working alloca.h... (cached) yes checking for alloca... yes checking whether we are using the GNU C Library 2.1 or newer... no checking for argz.h... no checking for limits.h... (cached) yes checking for locale.h... yes checking for nl_types.h... yes checking for malloc.h... (cached) yes checking for stddef.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for unistd.h... (cached) yes checking for sys/param.h... (cached) yes checking for feof_unlocked... no checking for fgets_unlocked... no checking for getcwd... (cached) yes checking for getegid... yes checking for geteuid... yes checking for getgid... yes checking for getuid... yes checking for mempcpy... no checking for munmap... yes checking for putenv... (cached) yes checking for setenv... (cached) yes checking for setlocale... yes checking for stpcpy... no checking for strchr... (cached) yes checking for strcasecmp... (cached) yes checking for strdup... (cached) yes checking for strtoul... (cached) yes checking for tsearch... yes checking for __argz_count... no checking for __argz_stringify... no checking for __argz_next... no checking for iconv... (cached) yes checking for iconv declaration... (cached) extern size_t iconv (iconv_t cd, const char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft); checking for nl_langinfo and CODESET... yes checking for LC_MESSAGES... yes checking whether NLS is requested... yes checking whether included gettext is requested... no checking for libintl.h... yes checking for GNU gettext in libc... no checking for GNU gettext in libintl... no checking for msgfmt... no checking for gmsgfmt... : checking for xgettext... no checking for bison... no checking for catalogs to be installed... be ca da de el es fr ja nl sv tr be ca da de el es fr ja nl sv tr checking what assembler to use... /usr/ccs/bin/as checking what linker to use... /usr/ccs/bin/ld checking what nm to use... nm checking what objdump to use... objdump checking assembler alignment features... none checking assembler subsection support... no checking assembler weak support... yes checking assembler hidden support... no checking assembler leb128 support... no checking assembler eh_frame optimization... no checking assembler section merging support... no checking assembler thread-local storage support... no checking assembler instructions... checking cmov syntax... yes checking assembler GOTOFF in data directives... yes checking assembler dwarf2 debug_line support... no checking assembler --gdwarf2 support... no checking assembler --gstabs support... no checking linker read-only and read-write section mixing... unknown checking linker PT_GNU_EH_FRAME support... no Using ggc-page for garbage collection. checking whether to enable maintainer-specific portions of Makefiles... no *** *** Detected GCC version 3.3.3. *** This version of GPC requires a patch to GCC to build with *** GCC version 3.3.3. *** This patch will now be applied. *** Press ENTER to continue, Ctrl-C to abort. *** File to patch: /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff 1 out of 1 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 4 out of 4 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 1 out of 1 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 2 out of 2 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 4 out of 4 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 1 out of 1 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 7 out of 7 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 4 out of 4 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 5 out of 5 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 1 out of 1 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 2 out of 2 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 1 out of 1 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 2 out of 2 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 5 out of 5 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 8 out of 8 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 3 out of 3 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 2 out of 2 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 1 out of 1 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej 1 out of 1 hunks failed: saving rejects to /home/prasad/gcc-install/gcc-3.3.3/gcc/p/diffs/gcc-3.3.3.diff.rej Links are now set up to build a native compiler for i386-pc-solaris2.10 updating cache ../config.cache creating ./config.status creating Makefile creating intl/Makefile creating fixinc/Makefile creating gccbug creating mklibgcc creating mkheaders creating auto-host.h $ Please help how to solve this Problem. Regards Prasad -- _______________________________________________ Search for businesses by name, location, or phone number. -Lycos Yellow Pages http://r.lycos.com/r/yp_emailfooter/http://yellowpages.lycos.com/default.as…

2 1

Mac OS X Pascal Interfaces version 2.0 (G)
by Adriaan van Os 12 Dec '05

12 Dec '05

Version 2.0 (G) <http://www.microbizz.nl/GPCInterfacesG.dmg> of the Mac OS X Pascal Interfaces for GPC, FPC and MW Pascal can be downloaded from <http://www.microbizz.nl/gpc.html>. This is a major release with many new and updated units (up to a total of 300) and compatibility with Mach-O Intel. Special thanks to Peter N. Lewis for all the work involved. The Pascal Interfaces team: Peter N. Lewis <peter(a)stairways.com.au> Gale Paeper <gpaeper(a)empirenet.com> Adriaan van Os <http://www.microbizz.nl/gpc.html> with help from: Jonas Maebe <jonas.maebe(a)elis.ugent.be> Olle Raab <olle.r(a)automagika.se>

1 0

byte data type in TP and GPC
by xstang＠post.cz 12 Dec '05

12 Dec '05

Hi, I have an old TP binary record, that consist of integer, real and byte data types. After reading the byte variable from the record I get wrong numbers. Does anyone know if there's any difference between the byte type in GPC and TP? Thanx

3 2

Re: Dev+GNU Pascal
by xstang＠post.cz 09 Dec '05

09 Dec '05

The original TP file record consists of 3 types: integer, real and byte, I replaced the original integer with smallint, but it still doesn't work and the result I get is even worse. Sorry for bothering again, thanx ----- PŮVODNÍ ZPRÁVA ----- Od: "Prof A Olowofoyeku (The African Chief)" <chiefsoft(a)bigfoot.com> Komu: xstang(a)post.cz Předmět: Re: Dev+GNU Pascal Datum: 8.12.2005 - 15:54:56 > On 8 Dec 2005 at 14:43, xstang(a)post.cz wrote: > > > I have one more question: do you have any experiences > > with reading > > old TP binary files? I try to read one and rewrite it > > to text > > file, but it's not done correctly. Thanx > > Same way as you read and write them with TP - except > that the sizes of > data types are often different in GPC, and therefore > you might need to > specify more particularly the size of the data types > that you use e.g., > "word" and "integer" are 16-bit in TP but 32-bit in > GPC, and strings > are implemented as schema in GPC - so any record > containing strings is > going to have a different size. See > \dev_gpc\units\winapi\wintypes.pas > to see how to declare integers and words with specific > sizes in GPC. > > PS: general questions like this should go to the GPC > list. The question > about the IDE is about a specific tool that I am > maintaining for a > specific platform (Windows) and that is of no general > interest to many > of the people on the GPC list. > > Best regards, The Chief > -------- > Prof. Abimbola A. Olowofoyeku (The African Chief) > web: http://www.greatchief.plus.com/ > > -- !VÁNOCE! --- SURVIVAL L-Carnitin+HCA+Chrom - 250ml ZDARMA --- Štíhlá linie pod stromeček. http://www.sportwave.cz

2 3

Problem with compiling gpc20041812 on solaris 10 intel platform
by prasad svr 09 Dec '05

09 Dec '05

Hi , I am tring to compile GPC-20041218 on solaris 10 Intel Platform using gcc-3.3.3.While compiling Iam getting an error like bellow. /usr/local/bin/gcc-3.3.3 -o p/declarations.o -c -g -DIN_GCC -W -Wall -Wwrite-strings -Wstrict-prototypes -Wmissing-prototypes -DHAVE_CONFIG_H -W -Wall -Wwrite-strings -Wstrict-prototypes -Wmissing-prototypes -Wtraditional -pedantic -Wno-long-long -I. -Ip -I/home/prasad/gcc-install/gcc-3.3.3/gcc -I/home/prasad/gcc-install/gcc-3.3.3/gcc/p -I/home/prasad/gcc-install/gcc-3.3.3/gcc/config -I/home/prasad/gcc-install/gcc-3.3.3/gcc/../include -DGPC -I/home/prasad/gcc-install/gcc-3.3.3/gcc/p /home/prasad/gcc-install/gcc-3.3.3/gcc/p/declarations.c /home/prasad/gcc-install/gcc-3.3.3/gcc/p/declarations.c: In function `init_decl_processing': /home/prasad/gcc-install/gcc-3.3.3/gcc/p/declarations.c:1469: error: `set_word_size' undeclared (first use in this function) /home/prasad/gcc-install/gcc-3.3.3/gcc/p/declarations.c:1469: error: (Each undeclared identifier is reported only once /home/prasad/gcc-install/gcc-3.3.3/gcc/p/declarations.c:1469: error: for each function it appears in.) /home/prasad/gcc-install/gcc-3.3.3/gcc/p/declarations.c:1470: error: `set_words_big_endian' undeclared (first use in this function) make[1]: *** [p/declarations.o] Error 1 make[1]: Leaving directory `/home/prasad/gcc-install/gpc-build/gcc' make: *** [all-gcc] Error 2 Please help on this problem. Regards Prasad -- _______________________________________________ Search for businesses by name, location, or phone number. -Lycos Yellow Pages http://r.lycos.com/r/yp_emailfooter/http://yellowpages.lycos.com/default.as…

2 1

(no subject)
by xstang＠post.cz 08 Dec '05

08 Dec '05

I have installed Dev+GNU pascal on computer with win xp professional. Whenever I try to compile any source code I get an error message: c:\dev_gpc\lib\gcc-lib\mingw32\3.2.3\collect2.exe: and: No such file: No such file or directory I've checked and the file exist in this location. Other error (in a different source code) is: c:\dev_gpc\examples\projects\grclock.pas:9: module/unit interface `Dos' could not be imported Can anyone help me, thanx -- Nesnesitelně lehká matematika: http://www.e-matematika.cz

2 5

GCC 3.4.5 has been released
by Adriaan van Os 08 Dec '05

08 Dec '05

Forwarding the message announcing the release of gcc-3.4.5 > From: Gabriel Dos Reis <gdr(a)integrable-solutions.net> > Date: 7 december 2005 21:25:09 GMT+01:00 > To: gcc-announce(a)gcc.gnu.org > Cc: gcc(a)gcc.gnu.org > Subject: GCC 3.4.5 has been released > > > I'm pleased to announce that GCC 3.4.5 has been released. > > This version is a minor release, from the 3.4.x series, fixing > regressions with respect to previous versions of GCC. It can be > downloaded from the FTP servers listed here > > http://www.gnu.org/order/ftp.html > > A list of known fixed bugs is available from here > > > http://gcc.gnu.org/gcc-3.4/changes.html > > > Many thanks to GCC contributors who made this release possible. > > -- > Gabriel Dos Reis > gdr(a)integrable-solutions.net

1 0

Best practice to link with C code
by Pascal Viandier 07 Dec '05

07 Dec '05

I have a question regarding the way to link a Pascal module to C code. For example, if in the following module: Module ctest interface; Export ctests = all; Procedure MyCProc(I:Integer); external name 'mycproc'; End. { Interface } Module ctest Implementation; End; { Implementation } If mycproc() is implemented in cproc.c, is it better to put {$L cproc.c} in the Interface or in the Implementation Section? Both work, but is a way better than the other? Regards, Pascal Viandier pascal(a)accovia.com

2 2

Reals
by Prof. Harley Flanders 03 Dec '05

03 Dec '05

Is there a unit out there for high precision real arithmetic (analysis), more than type Extended (10 bytes)? HF -- ============================= Prof. Harley Flanders 3533 Windemere Court Ann Arbor, MI 48105-2867 Home: 734 668 1546 harley(a)umich.edu =============================

2 1

Crt, read and Ctrl-C
by Waldek Hebisch 03 Dec '05

03 Dec '05

The following program tries to catch Ctrl-C using crt unit: program ctrl1; uses crt; var c : char; begin crtinit; CheckBreak := false; read(c); writeln('ord(c) = ', ord(c)) end . However, when I run it and press Ctrl-C I get: ./a.out: attempt to read past end of Input (error #454 at 40b255) A bug or a feature? -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

1 0

gp vs --automake
by Pascal Viandier 01 Dec '05

01 Dec '05

Hi all, I try to use gp to build my programs and have trouble with Pascal sources using c parts. When invoked by gp, gpc stops where I put {$L source.c} saying "error: file 'source.c' must be compiled. I remarked that gpc is called with --no-automake in its options list, even if I put --automake on gp command-line. This prevents the compilation of the c sources prior the Pascal module. My question is: Is the --no-automake passed to gpc causing the problem or is it because gp should compile the c sources before the Pascal module? I applied all the recent patches to gp but with no success on this particular problem. Also, I solved the problem of link with external libraries with gp by processing the dependencies list before the command-line options in routine StartPipe(). This works well. If you are interested by the modification I can send it. Although I don't know which tool you use to make your diffs, I an ready to learn it. Let me know. Regards Pascal Viandier pascal(a)accovia.com

3 6

Compiling with gp
by Pascal Viandier 29 Nov '05

29 Nov '05

Hello, The gp fix solved the false cyclic dependencies problem. The compilation runs smooth now. Thanks! However, I probably missed something because gp does not succeed to make the programs completely for two main reasons. First: There are some objects from c sources not found at link time. I put {$L my_c_extern.c} in a Pascal source but gp says "my_c_extern.c must be compiled" and stops instead of compiling it (I think since is knows that the source must be compiled, it should do it, no?). Then I tried {$L my_c_extern.o} instead and gp says " My_c_extern.c:999: undefined reference to 'symbol' where 'symbol' is defined in a third party library for which I put a -l directive on gp command-line. Second: The link command. I put gp in verbose mode and made a copy of the link command which fails to find out what is going wrong. I see that the list of my external (third party) libraries comes before any object in the link command. (-llib1 -llib2...) By putting this list of libraries at the end of the link command, it worked. But since I have no control on this at the gp command-line level I cannot make it work. Also, I noticed that objects are written in the same directory as gpi files despite the option --object-destination-path=obj on the gp command-line. Am I trying to make gp do things it was never designed for? Hope this is clearly explained. I use gp with Debian Linux on x86 if this detail matters. Thanks Pascal Viandier pascal(a)accovia.com -----Message d'origine----- De : gpc-owner(a)gnu.de [mailto:gpc-owner@gnu.de] De la part de Pascal Viandier Envoyé : November 11, 2005 15:36 À : gpc(a)gnu.de Objet : TR : RE : RE : compiling with gp (was Sorry I made a typo in the description of the dependencires: The third line of the schema should be: . Module C implementation section imports Module A and Module B (not Module C) Pascal Viandier pascal(a)accovia.com -----Message d'origine----- De : gpc-owner(a)gnu.de [mailto:gpc-owner@gnu.de] De la part de Pascal Viandier Envoyé : November 11, 2005 15:21 À : gpc(a)gnu.de Objet : RE : RE : compiling with gp (was Hi, The schema of the cyclic dependencies I face is: . Module A implementation section imports Module B . Module B implementation section imports Module A and Module C . Module C implementation section imports Module A and Module C Please note the dependencies are in the implementation sections, not in the interfaces. Although for each module the interface section is in a separate file included in the appropriate implementation file (i.e. A.pas includes A.h but no other file), I think this is not the cause of the problem. With this, gp says: cyclic interface dependency A.pas -> B.pas -> C.pas and it stops. Hope this schema will help clarify the situation. Regards Pascal pascal(a)accovia.com > -----Message d'origine----- > De : gpc-owner(a)gnu.de [mailto:gpc-owner@gnu.de] De la part de Frank > Heckenbach > Envoyé : November 11, 2005 09:03 > À : gpc(a)gnu.de > Objet : Re: RE : compiling with gp (was > > Pascal Viandier wrote: > > > Just my two cents: > > Like Mr Van Os, I have myself the problem of cyclic dependencies in many > > programs I ported from SUN Pascal to GNU Pascal. There are hundreds of > > separate modules with cyclic dependencies up to 8th level. > > To avoid misunderstandings: GP generally should be able to handle > cyclic dependencies. I've used it compile a project with ~200 units, > all interdependent (not written by me, obviously :-). > > So we don't need to discuss whether to do that. > > > For now, I use make to build the programs because of these dependencies. > I > > have to call it two times to build the interfaces, because there are > also > > cyclic dependencies in some interface sections that import others. > > Cyclic dependencies within interfaces are forbidden, both in Borland > and Extended Pascal. (I.e., interface A uses interface B, and > interface B uses interface A.) GP will also reject this, and there's > really no sane way to do this, as you could easily construct > circular definitions and contradictions this way. > > What you can do is: Interface A uses interface B, and implementation > B uses interface A. Then GP should, in this order, compile interface > B, all of A, implementation B. > > If that's what you need, then GP should work for you. There may be > abug, perhaps the same one Adriaan found, and then, of course, I'd > like to fix it, when I know what it is ... > > > Although I am not sure if I can completely build the programs with it > since > > they link with many third party libraries and I have not found the way > to do > > it in the gp documentation yet. > > Libraries are easy. There are two ways, both work the same with GP > as with automake, and the second one also with manual make: > > - Put {$L} directives in the source (see e.g., the GMP and RegEx > units that come with GPC). > > - Add -l options on the command line. > > > > >> I am now implementing for gp: > > > >> > > > >> --compile-file Compile a file as fast as possible. > > > >> Imported > > > >> units that need recompilation are > > > >> compiled > > > >> --interface-only, which implies > that > > > >> successive linking will fail. > > > >> Therefore, > > > >> this option is useful during the > > > >> development phase only. > > > >> This option implies -c > > > >> --check-file Check the syntax of a file as fast > as > > > >> possible. Imported units that need > > > >> recompilation are compiled > > > >> --interface-only. > > > >> This option implies -c > > > >> > > > >> It mostly works already (I will post a diff later). The time gain > is > > > >> dramatic. > > > > > > > > IIUC, this is only necessary because of the bug you suppose in your > > > > previous mail (otherwise no other units would have to be recompiled > > > > if not changed)? So it might be a better use of time to concentrate > > > > on the acutal bug than on temporary work-arounds. > > > > > > No, I consider this a valuable feature, although the impact may in > > > general not be so dramatic as in my current project, porting an > > > application to GPC with many cyclic dependencies (which I didn't write > > > myself). > > Perhaps I don't yet quite understand it. Provided GP makes no > mistakes and imports are not recompiled unless necessary. So I > suppose you mean the situation that you changed the implementation > of an imported unit? But you don't want to compile (and therefore > check for syntax errors) this other unit? > > > > I will try to be useful and fix gp myself. Compile times are also > > > spoiled by the quadratic operator search > > > (<http://www.gnu-pascal.de/crystal/gpc/en/mail10055.html>) and that is > > > something I cannot fix easily myself (at some points in the > compilation > > > I see the IDE's progress bar and line counter move line by line, often > > > lines with calculations). > > I see. BTW, Waldek are you interested in the general solution of > this issue (including overloaded routines)? I'm not too much ATM > (there are many more urgent issues). If you aren't either, perhaps I > could at least try some quick fix to ease this problem somewhat. -- > Still using name-based search, with all its disadvantages, but > perhaps storing a list of actually defined operators in the > OPERATOR_DECL (this will also be a preparation for the real > solution), and then for each operator retrieve the type names and > compare them -- I suppose if we get rid of the ACONCAT and > get_identifier in the loop this way, this might make things much > faster. > > 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 > GPC download signing key: ACB3 79B2 7EB2 B7A7 EFDE D101 CD02 4C9D 0FE0 > E5E8

3 4

struct memory allocation problem
by vanam srihari kumar 29 Nov '05

29 Nov '05

Dear All Thanks for your cooperation. Again I am clearly explaining what my problem is. I have records like below PASTimeTag = RECORD high : INTEGER; low : INTEGER; END; meaobj_record = RECORD next : meaobj_pointer; prev : meaobj_pointer; status : INTEGER; timetag : PASTimeTag; value : REAL; END; meaobj_pointer = ^meaobj_record; If I print the size of the records using sizeof functions I am getting below results. sizeof(PASTimeTag) = 8 bytes (*which is correct bcoz INTEGER occupies 4 bytes ) sizeof(meaobj_record) = 32 bytes (*Actually it should be 28 bytes(meaobj_pointer=4+meaobj_pointer=4+ INTEGER=4+PASTimeTag=8+REAL=8)but it is allocating 32 bytes which is multiple of 8 near to 28*) If I am trying to access real field in the record from the pascal program it is giving 'signal SIGSEGV, Segmentation fault' but it is not happening all the times.In the debug mode I could access all the fields except real variable during the crash. This is the major problem preventing me to go further since several days. Please suggest me some solution. Regards Hari __________________________________ Start your day with Yahoo! - Make it your home page! http://www.yahoo.com/r/hs

3 2

Math functions and Floating point types
by lanceboyle＠bluebottle.com 29 Nov '05

29 Nov '05

I tried posting this to the Mac Pascal (Pascal Central) list but for some reason it is not making it. =============================== I might be confused about how to import math functions in GPC. GPC itself doesn't seem to have the functions that I need (I'm looking in gpc.pas), but in the docs there is a mention of math.pas. However, I can't find such a file in my GPC installation. Do I need to use (non-portable) Mac math libraries? If so, is fp.p still the preferred interface? In the case of more common functions such as trig stuff, does fp.p override the Pascal built-ins? Or conflict with them? I believe that pow() is a problem with respect to conflicts and I see that some headers seem to note this in a compiler directive. Also, I see that floating point types Double and Real are the same and eight bytes, while Extended and LongReal are 16 bytes--is that correct? To make old code work that assumed that Extended is eight bytes, can I write type Extended = Real without my computer exploding? FWIW, I'm porting my own set of tools which needs the math functions and which was originally made on THINK Pascal, then ported to Metrowerks, and now to GPC. Thanks for any help. Jerry

5 8

gpc 2.1 test run result
by vanam srihari kumar 29 Nov '05

29 Nov '05

Below dump is the gpc test run on solaris 2.8 platform Running the GPC Test Suite. This may take a while ... NOTE, if you've used the Test Suite before: To get the long output format, run `make pascal.check-long' now. rm -f *.dat *.o *.s *.gpm *.gpi *.gpd *.gpc core a.out stderr.out *.exe testmake xe rm -f knownbugs/a.out knownbugs/*.exe knownbugs/*.o knownbugs/*.s knownbugs/*.gp rm -f internal/a.out internal/*.exe internal/*.o internal/*.s internal/*.gpm int { gpc --version; gpc --print-search-dirs | grep install; hostname || echo "unkno sed -e 's,^,Testing GPC ,;N;s,\n.*gcc-lib[/\], (,;s,[/\].*,),;N;s,\n, (,;s,$,),' Testing GPC 2.1 (20020510), based on gcc-2.95.2 19991024 (release) (sparc-sun-so echo "gpc -g -O3 -Wall " gpc -g -O3 -Wall PC="gpc" PFLAGS="--autobuild -g -O3 -Wall " SRCDIR="." TEST_MAKE_FLAG=test-make TEST asmtest.pas: SKIPPED: only for IA32 TEST asmtest2.pas: SKIPPED: only for IA32 TEST asmtest3.pas: SKIPPED: only for IA32 TEST crttest.pas: SKIPPED: no curses library found TEST dario.pas: SKIPPED: only for IA32 TEST environo.pas: SKIPPED: setenv not present in libc TEST fjf165a.pas: SKIPPED: German locale not installed TEST fjf273.pas: ld: warning: symbol `bar' has differing sizes: (file ./fjf273u.o value=0xc; file /var/tmp/cc8zaG1E1.o value=0x14); /var/tmp/cc8zaG1E1.o definition taken OK TEST fjf480a.pas: SKIPPED: librx not installed TEST fjf480b.pas: SKIPPED: librx not installed TEST fjf480c.pas: SKIPPED: librx not installed TEST fjf56.pas: SKIPPED: only for IA32 TEST fjf92.pas: SKIPPED: only for IA32 TEST gettext2test.pas: SKIPPED: could not set locale `de_DE' TEST gmptest.pas: SKIPPED: libgmp not installed TEST jj5.pas: SKIPPED: `attribute (stdcall)' not available TEST longr2.pas: SKIPPED: no LongReal math routines available TEST regextest.pas: SKIPPED: librx not installed # of GPC tests 2685 # of GPC tests passed 2667 # of GPC tests skipped 17 # of GPC tests failed 1 I hope gpc is set up properly on my machine Regards Hari __________________________________ Start your day with Yahoo! - Make it your home page! http://www.yahoo.com/r/hs

1 0

struct memory allocation problem
by vanam srihari kumar 28 Nov '05

28 Nov '05

Dear All I am using gpc 2.1 version on sun solaris 2.8 . I have problem with the accesing structures containing real variables. I observed following things 1) I checked size of structures containing real varibles using sizeof function,I found out that memory allocated is always in multiples of 8,If I use -fpack-struct option it is allocating correctly but I am unable to access the address of my struct variable as it is packed? 2) I am always getting 'signal SIGSEGV, Segmentation fault' error while accessing real variables of my structures.I am suspecting some problem with memory allocation of structures containing real variables.One Interesting thing is, it is not happening with all structures containg real variables but only few.There is no problem with stack overflow. Please suggest me some way to get rid of this error Regards Hari __________________________________ Start your day with Yahoo! - Make it your home page! http://www.yahoo.com/r/hs

3 3

Minor patch to gp
by Adriaan van Os 25 Nov '05

25 Nov '05

The following patch to gp clarifies an error message: --- gp.pas.orig 2005-11-06 21:06:52.000000000 +0100 +++ gp.pas 2005-11-25 14:48:43.000000000 +0100 @@ -1146,7 +1146,9 @@ else if (Dep.Kind = fk_Program) and (NormalizedKind[Kind] = fk_Unit) then ErrorFile (Dep.SrcName, 'used as a unit, but is a program') else - ErrorFile (Dep.SrcName, 'internal error: language mismatch'); + ErrorFile (Dep.SrcName, 'internal error: language mismatch' + NewLine + + '(this can happen if two source files have the same basename,' + NewLine + + ' e.g. foo.pas and foo.c, which is not a good idea)'); if Kind = fk_CFile then Dep.PBLines := Dep.Lines div CLinesDiv else Regards, Adriaan van Os

1 0

segmentation problem
by vanam srihari kumar 25 Nov '05

25 Nov '05

Dear All I landed in a very severe problem (using gpc 2.1 version on solaris) I am seeing the below error in while debugging in gdb Actuall my code handles shared memory ****************************************************************** Program received signal SIGSEGV, Segmentation fault. 0xd49ec in Create_mea (Buf_type=@0xffbe4d74, Default=void, Pages=void, Out_toggle=void, Copy=void, Funct=0, First_mea=@0xfc8082c4, Start_page=void, Dat_ref=0xffba0598) at /home/kvsspl/esipas81/lib/crt_obj.pas:3886 ****************************************************************** I have gone through the several documentation on the above error. I have no clue as why am I getting this error,when I try to debug this,I found that real variable in my record is not getting accesssed. Please suggest me to get rod of this problem. My machine has been setup with max shared memory of 512 MB. I have one more doubt,is _SC_PAGESIZE configurable.Right now it is having 8192 bytes. Regards Hari __________________________________ Start your day with Yahoo! - Make it your home page! http://www.yahoo.com/r/hs

2 1

gp -j4
by Peter N Lewis 23 Nov '05

23 Nov '05

I have added support to gp for compiling multiple files simultaneously (akin to the -j4 flag to make). Since I have a dual processor machine, this dropped the total compile time for Interarchy from 8.4 minutes to 6 minutes. I basically replaced ProcessDependencies and CompileIfNecessary, and hardly touched any of the rest of gp. But the sections replaced are essentially complete rewrites. It's not the most elegant of code, is still full of debugging code, is not written in gp-style, and does not currently support a command line switch, is minimally tested, and perhaps not all that efficient, but if anyone is interested, I'm happy to send them the code. Enjoy, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

3 4

symbol problem
by vanam srihari kumar 23 Nov '05

23 Nov '05

Dear All What could be the reason for this kind of problems I am passing all the parameters perfectly still I am seeing this problem while debugging with gdb ************************************************************** 0xd5804 in Create_mea (Buf_type=@0xffbe4d74, Default=void, Pages=void, Out_toggle=void, Copy=void, Dat_ref=Invalid C/C++ type code 13 in symbol table. ) ************************************************************** Regards Hari __________________________________ Yahoo! FareChase: Search multiple travel sites in one click. http://farechase.yahoo.com

1 0

libraries
by vanam srihari kumar 22 Nov '05

22 Nov '05

Dear all I am porting the code which is developed on sun pc and cc compilers to gcc and gpc.But I did not remove sun pc and cc compilers from my machine,anyway I am not using them for compilation. But I have several doubts, please clarify them 1)I have libc, but I donot have glibc,Do I have to load glibc or libc is enough? 2)I am linking the below libraries besides 'libgcc' and 'libgpc',these libraries are sun libraries,Do we have any equivalent libraries? libXol libXt libX11 libsocket libintl libnsl libw libposix4 libdl libc libm libxnet libsunmath 3)Do I have to change the standard includes directory when I use gpc and gcc. Regards Hari __________________________________ Yahoo! FareChase: Search multiple travel sites in one click. http://farechase.yahoo.com

2 1

preprocessor problem
by vanam srihari kumar 18 Nov '05

18 Nov '05

Dear All I am porting code developed by using sun pc and cc compilers to gcc(2.95.2) and gpc(2.1) Now I have landed in a preprocessor related problem,please see below code. str_255 = PACKED ARRAY[1..256] OF CHAR; Str_ptr = ^Str_255; strptr : str_ptr; p : str_ptr; #define PAS_ADDTO_PTR(ptr,value) (Pointer(integer(ptr) + value)) #define PAS_TYPECAST(right, left_type) left_type(right) p := PAS_TYPECAST(PAS_ADDTO_PTR(strptr,pos-1),str_ptr); when I use above macros and assign the p pointer,it is pointing to junk values. But when I manually replace all the preprocessor definitions like below, it is working fine. p := str_ptr(Pointer(integer(strptr) + (pos-1))); Please suggest me as what to do and also let me know other bugs related to preprocessor. Regards Hari __________________________________ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com

3 2

executable-file-name
by Waldek Hebisch 17 Nov '05

17 Nov '05

gpc -fexecutable-file-name -x Pascal fooo happily overwrites input file. I am not sure if we consider this a bug or a feature. -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

3 4

other compilers
by Andres K. Foerster 16 Nov '05

16 Nov '05

Hello, as I'm interrested in free software pascal compilers, I'd like to hear about your opinions about the others. I don't want to start a flamewar - of course yours's the best! But what experiences do you have with the others? I know Free Pascal very well. It comes with a lot of extensions, is fast and produces small binaries. But when you want to program for different platforms, you'll end up with lots of {$IfDef}s. I had a look at p2cc, but it seems very weak, isn't it? Has anybody experiences with the pascal compiler from the ACK package? http://tack.sf.net/ Are there others? -- AKFoerster

6 19

compute_checksum speed
by Peter N Lewis 16 Nov '05

16 Nov '05

One thing that stood out in the profile was that compute_checksum, a two line function that is called once for each loaded gpi is responsible for 12% of the total time. It scans through the entire gpi bytes (in this case, including my GPCMacOSAll 27Meg gpi, once for each of the 250 units in my project), that adds up to around 43 seconds of the 6 minute rebuild time. static gpi_int compute_checksum_original (unsigned char *buf, gpi_int size) { gpi_int sum = 0, n = 0; for (n = 0; n < size; n++) sum += n * buf[n]; return sum; } It appears that gpc_int is a 64 bit int on my system. I did some timing of some improvements: time= 42.1 sum= 46473731586140096 compute_checksum_original time= 35.0 sum= 46473731586140096 compute_checksum_unrolled time= 18.8 sum= 8551919141529536 compute_checksum_native time= 12.2 sum= -2963523148067389 compute_checksum_shift time= 7.8 sum= -852473248 compute_checksum_add (time is roughly the time in seconds gpc is taking just calling compute_checksum on the GPCMacOSAll.gpi in my complete rebuild). The unrolled version is pretty trivial, chops about 7 seconds off and has no consequences. Switching to native int instead of gpi_int affects the value of the checksum, reducing it's precision somewhat, but given the purpose of the checksum, I dont think it would impact on its purpose. This drops the time down by a further 16 seconds. The negative is it changes the existing gpi checksum, meaning all gpis would have to be recompiled. Switching to using shift instead of multiply drops the time a further 6 seconds. However the PowerPC is very good at shifts (and quite good at multiplys for that matter), so this would be something that should be tested at least on an Intel system to see how it compares. Switching to just basic addition drops the time a further 4 seconds, but at the loss of quite a lot of bits in the checksum. I would recommend that the loop be unrolled (trivial and no consequences), and then one of the native checksum routines, or something like it, be used, and the code can then use the new routine for new gpi's, and when reading existing gpi's first check if the checksum matches the new value, or failing that if it matches the old value. That way users will never notice the change. A possible patch for this is included below. I implemented this and it dropped the time to build from 6 to 5 minutes. I've attached the testchecksum.c file I used to check various checksum times, which could be used to compare the speed to the different routines on an Intel platform to see how the relative speed compares so that a generally good solution could be chosen. Please note, I dont have any attachment to the particular checksum routines included in testchecksum.c, they were just some quick routines I wrote to try out various solutions to see the affect they would have. Any checksum routine that was fast would be fine - a table driven CRC might work for example. Enjoy, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

5 28

Global Variable Problem
by vanam srihari kumar 15 Nov '05

15 Nov '05

Please find below the test code I am using 1) Makefile ****************************************************************************** PC=gpc PFLAGS= -DSOLARIS PLINK = -lgpc VPATH = /home/kvsspl/ ModDemo3.o :ModDemo3.pas $(PC) --automake -c $(PFLAGS) ModDemo3.pas DemoMod3.o :DemoMod3.pas $(PC) --automake -c $(PFLAGS) DemoMod3.pas DemoMod4.o :DemoMod4.pas $(PC) --automake -c $(PFLAGS) DemoMod4.pas ModDemo3 :ModDemo3.o DemoMod3.o DemoMod4.o $(PC) -o ModDemo3 ModDemo3.o DemoMod3.o DemoMod4.o $(PLINK) clean : rm -f *.o *.out xtramain ModDemo3 *.gpi *.gpm ****************************************************************** 2) DemoMod4.pas ****************************************************************** Module DemoMod4 (Output); export DemoMod4=all; type FileNameString = string(80); var PAS_DATABASE : FileNameString; end; end. (*Is it possible to make these variables global, without using export?*) ****************************************************************** 3) DemoMod3.pas ****************************************************************** Module DemoMod3 (Output); export DemoMod3=all; procedure readenv; end; type FileNameString = string(80); var PAS_DATABASE : FileNameString;external; uses gpc; procedure readenv; var pascalEnv : string(80); begin pascalEnv:='PAS_DATABASE'; pascalEnv:=getenv(pascalEnv); writeln('module pascalEnv = ',pascalEnv); PAS_DATABASE := Copy(pascalEnv,1,Length(pascalEnv)); writeln('module PAS_DATABASE = ',PAS_DATABASE); (*here PAS_DATABASE is printing nothing but pascalEnv is ok*) end; end. ****************************************************************** 4) ModDemo3.pas ****************************************************************** program ModDemo3 (Output); uses gpc; type FileNameString = string(80); procedure readenv;external; var PAS_DATABASE : FileNameString;external; begin readenv; writeln('program PAS_DATABASE = ',PAS_DATABASE); (*here also PAS_DATABASE is printing nothing*) end. ****************************************************************** what I want is to access 'PAS_DATABASE' variable in all the modules, when I set it in DemoMod3.pas line PAS_DATABASE := Copy(pascalEnv,1,Length(pascalEnv)) Please suggest me as how to make it work? Regards Hari __________________________________ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com

4 3

Compiling with gp
by Pascal Viandier 15 Nov '05

15 Nov '05

Hi, I had a close look at the gp output in verbose mode (-v) and I understand why the objects are not produced in the directory specified with --object-destination-path. This option seems to be ignored silently since the compilation command shows the -o directive make the object in the path specified by the directive --gpi-destination-path. May I consider this a bug in gp? Thanks Pascal Viandier pascal(a)acovia.com -----Message d'origine----- De : gpc-owner(a)gnu.de [mailto:gpc-owner@gnu.de] De la part de Peter N Lewis Envoyé : November 14, 2005 21:38 À : gpc(a)gnu.de Objet : Re: Compiling with gp At 14:17 -0500 14/11/05, Pascal Viandier wrote: >First: >There are some objects from c sources not found at link time. >I put {$L my_c_extern.c} in a Pascal source but gp says "my_c_extern.c must >be compiled" and stops instead of compiling it (I think since is knows that >the source must be compiled, it should do it, no?). >Then I tried {$L my_c_extern.o} instead and gp says " >My_c_extern.c:999: undefined reference to 'symbol' >where 'symbol' is defined in a third party library for which I put a -l >directive on gp command-line. I believe this is due to a bug I fixed in my copy of gp. It stems from the comment: { Just make sure the file is added to Deps. We don't need any dependency relations because files linked with linker directives can be compiled at any time. } which I believe is erroneous. A patch (based on my subversion history) is attached below, but I do not know if it interacts with any of the other patches I've done. >Second: >The link command. >I put gp in verbose mode and made a copy of the link command which fails to >find out what is going wrong. > >I see that the list of my external (third party) libraries comes before any >object in the link command. (-llib1 -llib2...) > >By putting this list of libraries at the end of the link command, it worked. >But since I have no control on this at the gp command-line level I cannot >make it work. I saw something like this with libpcre and libxml2 - reordering the libraries fixed the problem without any changes to gp. >Also, I noticed that objects are written in the same directory as gpi files >despite the option --object-destination-path=obj on the gp command-line. I can't help you much with that, as I don't use it. But for {$L}, gp stores a gpd file, so it would need to go somewhere. gp patch follows. This is definitely not any sort of official patch. My gp has wandered far from the track. Peter. Index: gp.pas =================================================================== --- gp.pas (revision 331) +++ gp.pas (revision 332) @@ -164,6 +164,7 @@ TUnitList = record Next: PUnitList; FileName, InterfaceName: TString; + IsUnit: Boolean; MD5: TMD5; Dep: PDep end; @@ -365,6 +366,17 @@ ErrorFile (FileName, 'no directory or not writable') end; +function NewUsesElement (const InterfaceName, FileName: String; Next: PUnitList) = p: PUnitList; +begin + New (p); + p^.InterfaceName := LoCaseStr (InterfaceName); + p^.FileName := FileName; + MD5Clear (p^.MD5); + p^.Dep := nil; + p^.IsUnit := True; + p^.Next := Next +end; + { GPD file handling } function ReadGPD (var Dep: TDep): TGPD; @@ -430,7 +442,9 @@ end; function AddUnitList (var p: PPUnitList): Boolean; - var i, j: Integer; + var + i, j: Integer; + MD5: TMD5; begin AddUnitList := False; if not PascalFlag then @@ -438,17 +452,15 @@ ReadGPDError ('invalid unit dependency for C file'); Exit end; - New (p^); i := PosFrom (' ', Line, 3); j := LastPos (' ', Line); - if (i >= j) or not MD5Val (Copy (Line, j + 1), p^^.MD5) then + if (i >= j) or not MD5Val (Copy (Line, j + 1), MD5) then begin ReadGPDError ('invalid unit entry'); Exit end; - p^^.InterfaceName := Copy (Line, 3, i - 3); - p^^.FileName := Copy (Line, i + 1, j - i - 1); - p^^.Dep := nil; + p^ := NewUsesElement( Copy (Line, 3, i - 3), Copy (Line, i + 1, j - i - 1), nil ); + p^^.MD5 := MD5; p := @p^^.Next; AddUnitList := True end; @@ -568,7 +580,9 @@ begin while p <> nil do begin - WriteLn (f, Prefix, p^.InterfaceName, ' ', p^.FileName, ' ', MD5Str (p^.MD5)); + if p^.IsUnit then begin + WriteLn (f, Prefix, p^.InterfaceName, ' ', p^.FileName, ' ', MD5Str (p^.MD5)); + end; p := p^.Next end end; @@ -656,7 +670,7 @@ Assert (i = e + OptionCount); for i := 1 to n - m + 1 do Parameters^[e + OptionCount + i] := NewString (AdditionalParameters[i + m - 1]^); - if (Verbosity >= 2) or (@CmdLine <> nil) then + if (Verbosity >= 1) or (@CmdLine <> nil) then begin l := Length (Compilers[PascalFlag].ProgName); for i := 1 to Parameters^.Count do @@ -666,7 +680,7 @@ for i := 1 to Parameters^.Count do s^ := s^ + ' ' + Parameters^[i]^; if @CmdLine <> nil then CmdLine := s^; - Message (2, s^); + Message (1, s^); Dispose (s) end; ProgressMessageStartSubprocess; @@ -730,16 +744,6 @@ UnitNameMatch := LoCaseStr( Dep.SrcBaseName ) = LoCaseStr( InterfaceName ); end; -function NewUsesElement (const InterfaceName, FileName: String; Next: PUnitList) = p: PUnitList; -begin - New (p); - p^.InterfaceName := LoCaseStr (InterfaceName); - p^.FileName := FileName; - MD5Clear (p^.MD5); - p^.Dep := nil; - p^.Next := Next -end; - procedure GetDep (var Dep: TDep); function ReadBufferAndIncludes (var OutputFile: File; var StdErrFile: Text; var Buffer: PBytes; @@ -1345,10 +1349,13 @@ ps := DepToDo^.Dep^.LinkedFiles; while ps <> nil do begin - { Just make sure the file is added to Deps. We don't need - any dependency relations because files linked with - linker directives can be compiled at any time. } - Discard (FindDep (ObjectPath, ps^.s, '', fk_CFile)); + { Must compile $L files before implementation. } + CurrentDep := FindDep (ObjectPath, ps^.s, '', fk_CFile); + AddDepList (CurrentDep^.Dep^.UsedBy[False], DepToDo^.Dep); + DepToDo^.Dep^.UsedUnits[False] := NewUsesElement ( CurrentDep^.Dep^.InterfaceName, CurrentDep^.Dep^.SrcName, DepToDo^.Dep^.UsedUnits[False]); + // what FileName should I use? + DepToDo^.Dep^.UsedUnits[False]^.Dep := CurrentDep^.Dep; + DepToDo^.Dep^.UsedUnits[False]^.IsUnit := False; ps := ps^.Next end; DepToDo := DepToDo^.Next -- <http://www.stairways.com/> <http://download.stairways.com/>

1 0

global variable problem
by vanam srihari kumar 15 Nov '05

15 Nov '05

Dear All I am using gpc 2.1 version I have declared a string variable 'PAS_DATABASE' in 'module1.pas' and exporting it so that other modules in my project can use it. In the 'module2.pas' I am trying to copy 'PAS_DATABASE' with other string which is local to 'module2.pas' but It is not taking that value. How the Global variable concept is implemented in gpc? If I assign some value to that global variable it should be accessible to all other modules of my project. Please suggest as how to implement this feature. Reagrds Hari __________________________________ Yahoo! FareChase: Search multiple travel sites in one click. http://farechase.yahoo.com

1 0

Operators and shadowing
by Frank Heckenbach 14 Nov '05

14 Nov '05

I just realize one issue with user-defined operators that might not have been discussed here yet, shadowing. If an operator is defined in outer and inner scopes, say with different enough argument types, is the outer one still accessible in the inner scope (i.e., the inner one overloads the outer one) (a), or not accessible (i.e., shadows) (b)? If (a), what if argument types are similar enough? Will usual ambiguity resolution (or complaining) rules apply (c), or will the inner operator be stronger (d)? If (b), what about built-in operators? If something like + is overloaded with new argument types, the built-in + is still available (e). But if it's overloaded again in an inner scope, and the outer operator is shadowed, does the built-in operator remain unshadowed (f) or not (g). Of course, the same questions can be asked about function overloading as well. (c) that's basically what GPC currently does (where ambiguity resolution rules are name-based and first-match, which is bad, as was said before) (d) this might be more logical, as the relationship between inner and outer operators would be the same as between outer and built-in ones -- the latter come into play only if the former have no possible match at all (e) that's so in GPC currently, but I suppose also elsewhere, isn't it? I.e., defining one + operator doesn't shadow the built-in +. (f) if the outer operator shadows the built-in operator (by using similar argument types, say operator + (a, b: Integer) -- if this will be allowed at all), and the inner operator has completely different types, the built-in + for Integer would "reemerge" in the inner scope, very strange (g) one user-defined operator does not shadow a built-in, but two nested ones do -- also strange What do other dialects do about it? 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 GPC download signing key: ACB3 79B2 7EB2 B7A7 EFDE D101 CD02 4C9D 0FE0 E5E8

2 3

Building gpc-20051104 on i686-apple-darwin8
by Adriaan van Os 12 Nov '05

12 Nov '05

> For those intererested, here is some information on building > gpc-20051104 with gcc-3.4.4 on i686-apple-darwin8. Sources, patches, building instructions and an installer for the binaries can now be downloaded from <http://www.microbizz.nl/gpc.html>. Regards, Adriaan van Os

1 0

New gpc snapshot released
by Waldek Hebisch 12 Nov '05

12 Nov '05

I have put a gpc snapshot on my GPC web page <http://www.math.uni.wroc.pl/~hebisch/gpc> This is my (unofficial) "stable snapshot": I have included Delphi and Mac objects patch and collected fixes (most fixes appeared on the mailing list). On i386 Linux using gcc-3.4.4 as a backend it is supposed to build without problems and pass all the tests. On 64-bit targets there are still multiple test failures (19 on my Amd64). I tried to be conservative: new features are all related to Delphi classes and Mac objects. Also, I postponed fixing some problems where immediate fix was too risky. I did routine testing ot this snapshot and I am not aware of any problem not present in earlier gpc versions. However, it is up to you to decide how good this snaphot is. Why this shapshot? The last official gpc release was 7 months ago. There were more then dozen of fixes posted on the mailing list. I would like to reduce resultiong confusion collecting all the fixes together. Since some fixes are to backend diffs and another one renames a file it somewhat inconvenient to have the fixes as a patch, so I created a new tarball. More detailed locations: the tarball: http://www.math.uni.wroc.pl/~hebisch/gpc/gpc-20051104.tar.bz2 Minimal diff (does not include generated files): http://www.math.uni.wroc.pl/~hebisch/gpc/curr4.diff.gz News file (includes older news too): http://www.math.uni.wroc.pl/~hebisch/gpc/NEWS-20051104 List of fixed bugs: http://www.math.uni.wroc.pl/~hebisch/gpc/Fixed-20051104 Enjoy -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

4 5

gcc-20051104
by Russell Whitaker 12 Nov '05

12 Nov '05

Thought you'd like to know: Reading specs from /usr/lib/gcc/i686-pc-linux-gnu/3.4.4/specs Configured with: ../gcc-3.4.4/configure --prefix=/usr --enable-shared --enable-threads=posix --enable-cxa_atexit --enable-languages=c,pascal Thread model: posix gpc version 20051104, based on gcc-3.4.4 # of tests 4965 # of expected passes 4964 # of unsuported 1 Good job! Russ

1 0

TR : RE : RE : compiling with gp (was
by Pascal Viandier 11 Nov '05

11 Nov '05

Sorry I made a typo in the description of the dependencires: The third line of the schema should be: . Module C implementation section imports Module A and Module B (not Module C) Pascal Viandier pascal(a)accovia.com -----Message d'origine----- De : gpc-owner(a)gnu.de [mailto:gpc-owner@gnu.de] De la part de Pascal Viandier Envoyé : November 11, 2005 15:21 À : gpc(a)gnu.de Objet : RE : RE : compiling with gp (was Hi, The schema of the cyclic dependencies I face is: . Module A implementation section imports Module B . Module B implementation section imports Module A and Module C . Module C implementation section imports Module A and Module C Please note the dependencies are in the implementation sections, not in the interfaces. Although for each module the interface section is in a separate file included in the appropriate implementation file (i.e. A.pas includes A.h but no other file), I think this is not the cause of the problem. With this, gp says: cyclic interface dependency A.pas -> B.pas -> C.pas and it stops. Hope this schema will help clarify the situation. Regards Pascal pascal(a)accovia.com > -----Message d'origine----- > De : gpc-owner(a)gnu.de [mailto:gpc-owner@gnu.de] De la part de Frank > Heckenbach > Envoyé : November 11, 2005 09:03 > À : gpc(a)gnu.de > Objet : Re: RE : compiling with gp (was > > Pascal Viandier wrote: > > > Just my two cents: > > Like Mr Van Os, I have myself the problem of cyclic dependencies in many > > programs I ported from SUN Pascal to GNU Pascal. There are hundreds of > > separate modules with cyclic dependencies up to 8th level. > > To avoid misunderstandings: GP generally should be able to handle > cyclic dependencies. I've used it compile a project with ~200 units, > all interdependent (not written by me, obviously :-). > > So we don't need to discuss whether to do that. > > > For now, I use make to build the programs because of these dependencies. > I > > have to call it two times to build the interfaces, because there are > also > > cyclic dependencies in some interface sections that import others. > > Cyclic dependencies within interfaces are forbidden, both in Borland > and Extended Pascal. (I.e., interface A uses interface B, and > interface B uses interface A.) GP will also reject this, and there's > really no sane way to do this, as you could easily construct > circular definitions and contradictions this way. > > What you can do is: Interface A uses interface B, and implementation > B uses interface A. Then GP should, in this order, compile interface > B, all of A, implementation B. > > If that's what you need, then GP should work for you. There may be > abug, perhaps the same one Adriaan found, and then, of course, I'd > like to fix it, when I know what it is ... > > > Although I am not sure if I can completely build the programs with it > since > > they link with many third party libraries and I have not found the way > to do > > it in the gp documentation yet. > > Libraries are easy. There are two ways, both work the same with GP > as with automake, and the second one also with manual make: > > - Put {$L} directives in the source (see e.g., the GMP and RegEx > units that come with GPC). > > - Add -l options on the command line. > > > > >> I am now implementing for gp: > > > >> > > > >> --compile-file Compile a file as fast as possible. > > > >> Imported > > > >> units that need recompilation are > > > >> compiled > > > >> --interface-only, which implies > that > > > >> successive linking will fail. > > > >> Therefore, > > > >> this option is useful during the > > > >> development phase only. > > > >> This option implies -c > > > >> --check-file Check the syntax of a file as fast > as > > > >> possible. Imported units that need > > > >> recompilation are compiled > > > >> --interface-only. > > > >> This option implies -c > > > >> > > > >> It mostly works already (I will post a diff later). The time gain > is > > > >> dramatic. > > > > > > > > IIUC, this is only necessary because of the bug you suppose in your > > > > previous mail (otherwise no other units would have to be recompiled > > > > if not changed)? So it might be a better use of time to concentrate > > > > on the acutal bug than on temporary work-arounds. > > > > > > No, I consider this a valuable feature, although the impact may in > > > general not be so dramatic as in my current project, porting an > > > application to GPC with many cyclic dependencies (which I didn't write > > > myself). > > Perhaps I don't yet quite understand it. Provided GP makes no > mistakes and imports are not recompiled unless necessary. So I > suppose you mean the situation that you changed the implementation > of an imported unit? But you don't want to compile (and therefore > check for syntax errors) this other unit? > > > > I will try to be useful and fix gp myself. Compile times are also > > > spoiled by the quadratic operator search > > > (<http://www.gnu-pascal.de/crystal/gpc/en/mail10055.html>) and that is > > > something I cannot fix easily myself (at some points in the > compilation > > > I see the IDE's progress bar and line counter move line by line, often > > > lines with calculations). > > I see. BTW, Waldek are you interested in the general solution of > this issue (including overloaded routines)? I'm not too much ATM > (there are many more urgent issues). If you aren't either, perhaps I > could at least try some quick fix to ease this problem somewhat. -- > Still using name-based search, with all its disadvantages, but > perhaps storing a list of actually defined operators in the > OPERATOR_DECL (this will also be a preparation for the real > solution), and then for each operator retrieve the type names and > compare them -- I suppose if we get rid of the ACONCAT and > get_identifier in the loop this way, this might make things much > faster. > > 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 > GPC download signing key: ACB3 79B2 7EB2 B7A7 EFDE D101 CD02 4C9D 0FE0 > E5E8

1 0

Varying Char Array problem
by vanam srihari kumar 11 Nov '05

11 Nov '05

Dear all I am porting the code developed using sun cc and pc compilers to gpc and gcc my pascal code looks like below ******************************************************* vstr_1024 = VARYING[1024] OF CHAR; (* while porting it to gpc converted above data type as "vstr_1024 = string[1024]"*) FUNCTION sysget_symbol( VAR ENV : vstr_1024) : INTEGER; asmname 'sysget_symbol'; SysStatus:INTEGER; EnvString:vstr_1024; SysStatus := sysget_symbol (EnvString); (*sysget_symbol is a C function*) ******************************************************* my C code looks like below ******************************************************* typedef struct { int length; char text[1024]; } NameString1024; int sysget_symbol( NameString1024 *env) { (*code *) } ******************************************************* But the problem is after passing the vstr_1024 parameter to 'C' function,It is not reading properly. My question is Do we have any data type equivalent to varying char array? Please suggest me the alternative. Regards Hari __________________________________ Yahoo! FareChase: Search multiple travel sites in one click. http://farechase.yahoo.com

2 1

array initialization
by vanam srihari kumar 11 Nov '05

11 Nov '05

Dear All I am porting the code developed using pc and cc compilers on solaris 2.6 to solaris 2.8 with gcc and gpc compilers. I am using the makefile from the older version.In that makefile, linker(ld) is called explicitly. Right now I am facing the below problems 1) related to real array constant intialization. TYPE MaxCPlus_RArray = ARRAY[1..MaxCplus] OF REAL; Maxcomp_Array = ARRAY[1..Maxcomp] OF REAL; CONST wPAF : Maxcomp_Array = [ 0.040, 0.225, 0.100, 0.344, 0.008, 0.098, 0.152, 0.176, 0.193, 0.227, 0.251, 0.197, 0.296, 0.351, 0.394, 0.444, 0.490, 0, 0, 0, 0, 0, 0, 0, 0 ]; it is giving following error /home/kvsspl/esipas81/flo/joint_lib.inc:125: incompatible types in initialization /home/kvsspl/esipas81/flo/joint_lib.inc:125: initial value is of wrong type /home/kvsspl/esipas81/flo/joint_lib.inc:125: set constructor elements must be of ordinal type /home/kvsspl/esipas81/flo/joint_lib.inc:125: set constructor elements must be of ordinal type /home/kvsspl/esipas81/flo/joint_lib.inc:125: set constructor elements must be of ordinal type /home/kvsspl/esipas81/flo/joint_lib.inc:125: set constructor elements must be of ordinal type 2) Do we have the standard library function in gpc which accomplishes the below functionality of sun library function. open(file, pathname, history, error, buffer) open associates the permanent file file with a file variable for reading or writing. open does not actually open the file; 3) compiler error: label `9999' used before containing binding contour what could be the cause for above error Please help me out Regards Hari __________________________________ Yahoo! FareChase: Search multiple travel sites in one click. http://farechase.yahoo.com

4 5

Macro with set
by Peter N Lewis 10 Nov '05

10 Nov '05

Given the Macro definition (which I suspect is more or less irrelevent) {$definec Assert(b) AssertCode((b), __FILE__, __LINE__)} The line: Assert( overwrite_folder in [FOF_Merge, FOF_Overwrite] ); Gives the error: macro `Assert' used with too many (2) args Adding a bracket to the assertion call: Assert( (overwrite_folder in [FOF_Merge, FOF_Overwrite]) ); Resolves the problem. I guess it could be argued that there are two parameters "overwrite_folder in [FOF_Merge" and "FOF_Overwrite]" but clearly the macro code is handling () bracketing, should it also handle [] bracketing perhaps? Thanks, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

2 1

__PC0__PCEXIT error
by vanam srihari kumar 09 Nov '05

09 Nov '05

Dear All I am porting the code developed by using sun pc and cc compilers to gpc and gcc.the following error is generated while linking.Please see below the dump. ************************************************* linking /home/kvsspl/exe/solaris/esigraph ld: Software Generation Utilities - Solaris Link Editors: 5.8-1.285 Undefined first referenced symbol in file __PC0__PCEXIT esigraph.o __PC0__PCSTART esigraph.o ld: fatal: Symbol referencing errors. ************************************************* If C main program calls a Pascal procedure that does I/O, then the following code should be included in the C main program before calling the Pascal procedure: #if defined(SOLARIS) __PC0__PCSTART(argc, argv); #endif #if defined(SOLARIS) __PC0__PCEXIT(argc, argv); #endif Please suggest me as how to get rid of this error Regards Hari __________________________________ Yahoo! FareChase: Search multiple travel sites in one click. http://farechase.yahoo.com

3 2

Errors with integer and ordinals
by Alfonso Ruipérez 09 Nov '05

09 Nov '05

{$ extended-pascal} {gpc version 20050331, based on gcc-3.2.3 (mingw special 20030504-1)} program SuccPred (input, output); {ISO 6.7.6.3 (pg. 78 succ(x, k) x shall be of an ordinal-type k shall be of integer-type ... It shall be an error if such a value does not exist. succ(x) Shall be equivalent to succ(x, 1) pred(x) Shall be equivalent to succ(x, -1) } var b: boolean value false; begin writeln('succ(b, 2) = ', Succ(b, 2) ); {must be error!} writeln('Pred(b) = ', Pred(b)); {must be error!} {The next sentence is an error ISO 6.4.2.2 a.1 pg 24 All integral values in the closed interval from -maxint to +maxint shall be values of the integer-type.} {So... pred(-maxint) is not of the integer-type. There must be another out of range error!} writeln('pred(-maxint) = ', pred(-maxint)); {With the next sentence the compiler say 'arithmetical overflow' perhaps should say 'out of range'} writeln('succ( maxchar ) = ', succ( maxchar ) ); end.

2 1

Re: [off-list] Re: __PC0__PCEXIT error
by vanam srihari kumar 09 Nov '05

09 Nov '05

Yes, I did --- Grant Jacobs <gjacobs(a)bioinfotools.com> wrote: > > Just ask the silly question: > > You have defined SOLARIS, haven't you ?! ;-) > > #define SOLARIS, etc... > > > > Grant > > >Dear All > > > >I am porting the code developed by using sun pc and > cc > >compilers to gpc and gcc.the following error is > >generated while linking.Please see below the dump. > >************************************************* > >linking /home/kvsspl/exe/solaris/esigraph > >ld: Software Generation Utilities - Solaris Link > >Editors: 5.8-1.285 > >Undefined first referenced > > symbol in file > >__PC0__PCEXIT esigraph.o > >__PC0__PCSTART esigraph.o > >ld: fatal: Symbol referencing errors. > >************************************************* > >If C main program calls a Pascal procedure that > does > >I/O, then the following code should be included in > the > >C main program before calling the Pascal procedure: > > > >#if defined(SOLARIS) > > __PC0__PCSTART(argc, argv); > >#endif > >#if defined(SOLARIS) > > __PC0__PCEXIT(argc, argv); > >#endif > > > >Please suggest me as how to get rid of this error > > > >Regards > >Hari > > > > > > > > > > > > > >__________________________________ > >Yahoo! FareChase: Search multiple travel sites in > one click. > >http://farechase.yahoo.com > > > -- > ------------------------------------------------------------------- > Grant Jacobs Ph.D. > BioinfoTools > ph. +64 3 478 0095 (office, after 10am) > PO Box 6129, > or +64 27 601 5917 (mobile) > Dunedin, > gjacobs(a)bioinfotools.com > NEW ZEALAND. > Bioinformatics tools: deriving knowledge from > biological data > Bioinformatics tools - software development - > consulting - training > 15 years experience in bioinformatics ready to > solve your problem > Check out the website for more details: > http://www.bioinfotools.com > > The information contained in this mail message is > confidential and > may be legally privileged. Readers of this message > who are not the > intended recipient are hereby notified that any use, > dissemination, > distribution or reproduction of this message is > prohibited. If you > have received this message in error please notify > the sender immed- > iately and destroy the original message. This > applies also to any > attached documents. > __________________________________ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com

2 1

gp under Linux
by Pascal Viandier 08 Nov '05

08 Nov '05

Hello, I build gp on a Debian Linux X86 machine. All went well until I ran the make check. Is there a way to have it working on this platform? Thanks Pascal pascal(a)accovia.com dibm0014:/home/pascal/Pascal/packages/gp-0.60# gpc --version gpc 20050331, based on gcc-3.4.5 20050821 (prerelease) (Debian 3.4.4-8) Copyright (C) 2005 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. Output of make check: dibm0014:/home/pascal/Pascal/packages/gp-0.60# make check ./gp --test-parser --unit-path=/home/pascal/Pascal/packages/gp-0.60 /home/pascal/Pascal/packages/gp-0.60/test-parser.pas > test-parser.tmp ./gp: warning: /home/pascal/Pascal/packages/gp-0.60/test-parser.pas: missing program header sed -e '/^[PVm]/d;s,\/,/,g;s,'`pwd`',@srcdir@,g;s,/home/pascal/Pascal/packages/gp-0 \\.60,@srcdir@,g' < test-parser.tmp > test-parser.new rm -f test-parser.tmp if diff /home/pascal/Pascal/packages/gp-0.60/test-parser.out test-parser.new; then \ echo "GP Parser test succeeded" >&2; \ rm -f test-parser.new; \ else \ echo "GP Parser test failed" >&2; \ fi 2,3c2,4 < K 1 < O --- > T 1 > t i486-linux-gnu > p 5c6 < o @srcdir@/test-parser.o --- > O @srcdir@/test-parser.o 14,16c15,17 < O @srcdir@/gp.o < O @srcdir@/gpc.o < O @srcdir@/md5.o --- > o @srcdir@/gp.o > o @srcdir@/gpc.o > o @srcdir@/md5.o GP Parser test failed

2 1

Re: array intialization
by vanam srihari kumar 08 Nov '05

08 Nov '05

> 3) compiler error: label `9999' used before containing > binding contour > > what could be the cause for above error Could this be a bug that has been solved by now <http://www.gnu-pascal.de/gpc/Fixed-Bugs.html>, item 20050307: problem with string operations and goto (contour0.pas, contourbug.pas, martin1.pas, berend3.pas). ******************************************************* Could you please explain me in detail as how to get rid of this bug Regards Hari __________________________________ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com

2 1

read anf writeln problem
by vanam srihari kumar 08 Nov '05

08 Nov '05

Dear All I am getting the below errors while using read and readln functions. *************************************************** READ(i_f, PrcObj^.state); ReadLN(i_f,CurPar^.bvalue); error1: argument to `Read'/`ReadLn' from `Text' file is of wrong type error2: argument to `Read'/`ReadLn' from `Text' file is of wrong type *************************************************** i_f : TEXT; 'CurPar' is a record and the bvalue is a boolean variable 'PrcObj' is a record and 'state' is of 'state_list' type state_list = (downed, install, stopped, waiting, started, running); Regards Hari __________________________________ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com

2 1

Re: Array intialization
by vanam srihari kumar 08 Nov '05

08 Nov '05

> > > 2) Do we have the standard library function in > gpc > > > which accomplishes the below functionality of > sun > > > library function. > > > open(file, pathname, > history, > > > error, buffer) > > > > > > open associates the permanent file file with a > file > > > variable for reading or writing. > > > open does not actually open the file; > > > > Maybe "Assign" is useful. > > Yes. I don't know what the latter 3 parameters do. > If they're > important, please explain. > please see the below link for clear desription of the open function. http://docs.sun.com/app/docs/doc/802-2944/6i6sg5q1e?a=view#06.Built-In_Proc… suppose if file is not found 'open' will set the error variable. But what exception/error code 'assign' will give if the file is not found. As lot of files in my project are using open function and based on the error variable value subsequent block of code will be executed. Regards Hari __________________________________ Start your day with Yahoo! - Make it your home page! http://www.yahoo.com/r/hs

1 0

linker problems
by vanam srihari kumar 07 Nov '05

07 Nov '05

Dear All I am compiling my code with gpc 2.1 version on solaris 8.0 platform and using the 'ld' linker. Below is the dump I am getting in linking stage linking ld: Software Generation Utilities - Solaris Link Editors: 5.8-1.285 Undefined first referenced symbol in file __ashrdi3 /usr/local/lib/gcc-lib/sparc-sun-solaris2.8/2.95.2/libgpc.a(sets.o) __floatdidf slaveac.o __ashldi3 /usr/local/lib/gcc-lib/sparc-sun-solaris2.8/2.95.2/libgpc.a(sets.o) __fixtfdi pasmath.o __floatditf /usr/local/lib/gcc-lib/sparc-sun-solaris2.8/2.95.2/libgpc.a(math.o) ld: fatal: Symbol referencing errors. No output written to Please suggest me as what to be done Regards Hari __________________________________ Yahoo! FareChase: Search multiple travel sites in one click. http://farechase.yahoo.com

3 2

Re: New gpc snapshot - OOP test resuls
by Waldek Hebisch 05 Nov '05

05 Nov '05

Prof A Olowofoyeku wrote: > I converted one small project from using OBJECTs to using CLASSes. > > The test program compiles and runs okay under Delphi, Virtual Pascal, > and FreePascal. > > The new GPC snapshot comes up with some compilation errors. You can see > the error log in the attached zip file. Also in the zip file are the > sources, and the test program's outputs when compiled with Delphi 7 > (d7.txt), FreePascal (fpc.txt), and Virtual Pascal (vp.txt). > : baseobj.pas:52: method `init', overrides parent method : baseobj.pas:253: method `init', overrides parent method The two errors above (and more in the following) are because GPC is more strict by default. You can write: CONSTRUCTOR init ( Owner : TClass ); override; or CONSTRUCTOR init ( Owner : TClass ); reintroduce; to specify the intent (to say the truth both mean the same for static methods). Or you may use `-fdelphi-method-shadowing' to silently accept your original code. : baseobj.pas: In constructor `TBaseList.init': : baseobj.pas:437: expression used as a statement : baseobj.pas: In destructor `TBaseList.done': : baseobj.pas:454: Delphi/OOE continuing destructor activation unsupported The patch below should fix those (with the patch I was able to compile your test program and got the same results as in enclsed output files) Index: p/objects.c =================================================================== RCS file: /mn/a8/cvsroot/gpc/p/objects.c,v retrieving revision 1.4 diff -u -r1.4 objects.c --- p/objects.c 4 Nov 2005 01:00:21 -0000 1.4 +++ p/objects.c 5 Nov 2005 18:01:27 -0000 @@ -145,11 +145,18 @@ if (TREE_CODE (obj) == TYPE_DECL) { tree cmeth = current_method (); - if (PASCAL_CONSTRUCTOR_METHOD (fun) - && PASCAL_TYPE_CLASS (TREE_TYPE (obj))) + int is_class = PASCAL_TYPE_CLASS (TREE_TYPE (obj)); + if (PASCAL_CONSTRUCTOR_METHOD (fun) && is_class) constructor_call = tree_cons (NULL_TREE, obj, tree_cons (NULL_TREE, cref, args)); + if (is_class && PASCAL_DESTRUCTOR_METHOD (fun) && + (!cmeth || !PASCAL_DESTRUCTOR_METHOD (cmeth))) + { + error("Delphi/OOE continuing destructor activation outside a destructor"); + return error_mark_node; + } + if (!cmeth) /* Somebody is looking for the address of this method. Give them the FUNCTION_DECL. */ { @@ -173,9 +180,10 @@ return error_mark_node; obj = build_indirect_ref (lookup_name (self_id), "`Self' reference"); is_virtual = 0; + is_destructor = 0; } - - is_destructor = PASCAL_DESTRUCTOR_METHOD (fun) + else + is_destructor = PASCAL_DESTRUCTOR_METHOD (fun) && TYPE_POINTER_TO (TREE_TYPE (obj)) && PASCAL_TYPE_CLASS (TYPE_POINTER_TO (TREE_TYPE (obj))); @@ -218,14 +226,8 @@ tree vobj; gcc_assert (TREE_CODE (obj) == INDIRECT_REF); vobj = TREE_OPERAND (obj, 0); - if (!cmeth || !PASCAL_DESTRUCTOR_METHOD (cmeth)) - return build_predef_call (p_Dispose, tree_cons (NULL_TREE, vobj, + return build_predef_call (p_Dispose, tree_cons (NULL_TREE, vobj, build_tree_list (NULL_TREE, fun))); - else - { - error("Delphi/OOE continuing destructor activation unsupported"); - return error_mark_node; - } } return fun; Index: p/statements.c =================================================================== RCS file: /mn/a8/cvsroot/gpc/p/statements.c,v retrieving revision 1.3 diff -u -r1.3 statements.c --- p/statements.c 28 Oct 2005 20:00:56 -0000 1.3 +++ p/statements.c 5 Nov 2005 17:33:00 -0000 @@ -1083,7 +1083,10 @@ function_called = 1; } if (TREE_CODE (t) == PASCAL_CONSTRUCTOR_CALL) - t = convert (void_type_node, TREE_OPERAND (t, 1)); + { + t = convert (void_type_node, TREE_OPERAND (t, 1)); + function_called = 1; + } if (!EM (t)) { if (PASCAL_TREE_IGNORABLE (t)) -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

2 1

Re: Mac objects and Delphi classes
by Waldek Hebisch 03 Nov '05

03 Nov '05

Thorsten Glaser wrote: > Waldek Hebisch dixit: > > >Adriaan van Os wrote: > [...] > >> >> -fborland-objects > >> >> -fmac-objects > >> >> -fooe-objects > >> >> -fgnu-objects > > >> Or maybe (since they are mutually exclusive) -fobject-model=xx, where > >> xx is bp,delphi,mac,ooe or default. The default model links to the > >> dialect setting. > > > >I have already implemented the -fxxx-objects version. -fobject-model=xx > >requires more work... > > But it does look more logical, compared with all the other recent > changes (such as -march= instead of e.g. -mpentium), and less bloated. > We do not want to have many objects models. So the bloat is limited. But if -fobject-model=xx is considerd better we can have it in the future. > By the way, I just digged out my old TP 6.01 manual and started > throwing some random OOP code at gpc (20050217), and to my (but > not too big) surprise everything worked as I remember from long > ago. What, exactly, does "gnu objects" differently than borland > (turbo pascal) as long as I use the object keyword? > The goal is to have no difference (be backwards compatible). There is small difference in new functionality (and it is likely to grow once new features get implemented). -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

2 1

linker name in gpc 2.1
by vanam srihari kumar 03 Nov '05

03 Nov '05

How to call the linker explicitly in gpc 2.1 version. Regards Hari __________________________________ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com

3 3

Mac objects and Delphi classes
by Waldek Hebisch 03 Nov '05

03 Nov '05

I would like to slightly update Mac objects and Delphi classes support. In particular I ma thinking about options names. AFAICS there five major axes which differentiate dialects that we would like to support: 1) Value versus reference model: BP - value model (objects are values) OOE, Delphi, Mac - pointer model (object are pointer to values) 2) Static versus virtual methods: OOE, Mac - mehods are always virtual BP, Delphi - there are static methods 3) Keywords used: BP, Mac - use "object" as a keyword (but with different semantics) OOE, Delphi - use "class" keyword 4) Method redefinition: BP - silent overriding Delphi - silent shadowing, override needs "override" OOE, Mac - explicit "override" needed 5) Base object: BP, Mac - no base object, multiple roots OOE - "Root" is the root of inheritance tree Delphi - "TObject" is the root of inheritance tree There is also question if constructors are mandatory for objects with virtual methods. ATM I think that we may tie this to object model: in value model (BP) make them mandatory, in reference mode make them optional. Namely, Mac objects have no constructors while OOE and Delphi will get them without any explicit declaration. I propose to have the following options: -fobjects-are-references -- choose reference model even if the declaration uses "object" keyword, on for Mac Pascal, off otherwise -fmethods-always-virtual -- leave it as is -fobjects-require-override -- to require "override" even for objects declared using "object" keyword (classes will always require "override") -fdelphi-method-shadowing -- redefinition without override will shadow (hide) old definition. By default to hide old definition one would have to use OOE "view" or Delphi "reintroduce" directive -fbase-object= -- to add default parent to object without an explicit parent the last option will require some effort to implement. Additionally, we may have -fmac-objects directive, which would be equivalent to sum of -fobjects-require-override, -fmethods-always-virtual and -fobjects-are-references. Comments? -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

6 16

importing module problem
by vanam srihari kumar 02 Nov '05

02 Nov '05

Dear All I am using gpc 2.1 version. Is there any way to work out below code without changing the make file? please help me out as this is urgent to me. ******************************************************* 1)MakeFile PC=gpc PFLAGS= -DSOLARIS -I/home/kvsspl DemoMod3.o :DemoMod3.pas $(PC) -c $(PFLAGS) DemoMod3.pas ModDemo3.o :ModDemo3.pas $(PC) -c $(PFLAGS) ModDemo3.pas ModDemo3 :ModDemo3.o DemoMod3.o $(PC) -o ModDemo3 DemoMod3.o ModDemo3.o --object-path=/home/kvsspl ******************************************************* ******************************************************* 2)ModDemo3.pas program ModDemo3 (Output); import DemoMod3; begin xtra; end. ******************************************************* ******************************************************* 3)DemoMod3.pas module DemoMod3; export DemoMod3 = all; procedure xtra; end; procedure xtra; begin writeln('DemoMod3 function'); end; end. ******************************************************* Regards Hari __________________________________ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com

2 1

External CString
by Eike Lange 31 Oct '05

31 Oct '05

Hi Folks! In a C wrapper file, I have the declaration /* xmlc.c */ const char* _c_CXML_DEFAULT_VERSION = XML_DEFAULT_VERSION; Now, I would like to use it in pascal. { xml.pas, Unit } unit XML; interface var C_HELPER_XML_DEFAULT_VERSION: CString; external name '_c_CXML_DEFAULT_VERSION'; attribute (const); XML_DEFAULT_VERSION: TString = CString2String (C_HELPER_XML_DEFAULT_VERSION); implementation {$L xmlc.c} end. Using this unit results in an error: "cannot evaluate this expression from a global declaration" "Error initial value is of wrong type". How can I use my string constant in GPC? Eike

2 2

protected var parameters and operators
by Adriaan van Os 28 Oct '05

28 Oct '05

Consider the following test program. program test; type Str255 = record sLength: Byte; sChars: packed array[1..255] of Char end; operator + ( protected var s1, s2: Str255 ) = theResult : Str255; var len1, len2: Integer; begin len1 := s1.sLength; len2 := Min( 255 - len1, s2.sLength); theResult.sLength := len1 + len2; if len1 > 0 then theResult.sChars[1..len1] := s1.sChars[1..len1]; if len2 > 0 then theResult.sChars[len1+1..len1+len2] := s2.sChars[1..len2]; end; var s1: Str255 value ( sLength: 1, sChars: 'A'); s2: Str255 value ( sLength: 1, sChars: 'B'); s3: Str255 value ( sLength: 1, sChars: 'C'); s4: Str255; begin s4:=s1+s2+s3 { Error: reference expected, value given }; writeln( s4.sChars[ 1..s4.sLength]) end. The program triggers an error for s1+s2+s3. The error doesn't occur when the expression has only one + operator (e.g. s1+s2). The problem disappears when using const parameters. It looks like the internal representation of an intermediate result is triggering the compiler error ! Regards, Adriaan van Os

3 2

gcc-4.0.2
by Russell Whitaker 27 Oct '05

27 Oct '05

hi Now that gcc-4.0.2 is out, is there a patch file for it? (tried 3.4.3, dosen't work) russ

4 4

porting from sun (pc,cc) to gnu(gpc,gcc)compilers
by vanam srihari kumar 26 Oct '05

26 Oct '05

I will clearly explain our present software structure in solaris and how the exporting/importing will takes place. It consists of hundreds of modules and programs written in C and Pascal ,functions interaction will be in below combinations a) C functions defined in C Programs will be called from Pascal Modules and Programs b) Pascal functions defined in One Pascal module will be called from other Pascal Modules and Programs I)PASCAL MODULE STRUCTURE a)MODULE XXXX /* module name xxxx */ b)INCLUDE FILES /* they will contain user defined data types and macros, these files are standard incluide files for all our modules*/ c)IMPORTING INCLUDE FILES /*these files will contain the functions to be imported from the other module */ /* C-functions will be called like below FUNCTION set_bit(mask : INTEGER; bit_position : INTEGER): INTEGER; EXTERNAL C; Actually the above function is defined pas_c.c file.pas_c.c is compiled to pas_c.o and linked to the modules which will use the functions defined in pas_c.c. /* Pascal-functions will be called from other Pascal modules like below FUNCTION mininteger(First, Second: INTEGER): INTEGER; EXTERN; Actually the above function is defined pasmath.pas file. pasmath.pas is compiled to pasmath.o and linked to the modules which will use the functions defined in pasmath.pas.But the function definition of the FUNCTION mininteger(First, Second: INTEGER): INTEGER; in pasmath.pas should be prceeded by the keyword 'PUBLIC' so that other modules can use this. d)BODY OF THE MODULE /* Main Code Part */ II)C PROGRAM STRUCTURE a)STANDARD HEADER FILES /*stdio.h*/ b)INCLUDE FILES /* they will contain user defined data types and macros */ c)FUNCTION PROTOTYPES d)FUNCTION DEFINITIONS Hope, I have explained clearly. with the sun pascal and c compilers we donot need to have export clause explicitly.linking will take care of it automatically when one function from a module is called in another module/program.Using EXTERN and EXTERN C keywords we can specify the compilers that the functions are not defined in the current module but in the linked modules. My request is what should i do to compile this code using GNU compilers without doing major modifications in my present structure. Regards Hari __________________________________ Start your day with Yahoo! - Make it your home page! http://www.yahoo.com/r/hs

1 0

ANN: SQLite3 Unit
by Eike Lange 25 Oct '05

25 Oct '05

Hi Folks! Welcome to the wonderful world of SQLite3. SQLite3 is a library that implements an SQL database engine. The database is stored in one file, not in many files and the engine itself is not a kind of server, which makes it interesting for me to put my databases in such files. See http://www.sqlite.org/ for more details. I've written a unit which is an interface to SQLite3. You may download the unit from http://www.gnu-pascal.de/contrib/eike/sqlite3-gpc-20051025.tar.gz Eike

1 0

Re: macro
by Contestcen＠aol.com 25 Oct '05

25 Oct '05

In a message dated 10/25/2005 6:25:40 AM Eastern Standard Time, v_sriharikumar(a)yahoo.com writes: > I want to write a macro which should compatible with > gpc version 2.1 and look like below > > #define PAS_EXTERNAL_C(X) asmname 'X' > > suppose if i define a macro like above, it should be > preprocessed like below > > Before preprocessing: > > procedure Hello; PAS_EXTERNAL_C(Hello); > > After preprocessing: > > procedure Hello; asmname 'Hello'; > > I am worried why > #define PAS_EXTERNAL_C(X) asmname 'X' > this is not working? > > Please help me > > Regards > Hari Using the Pascal Macro Compiler you can produce the desired results this way. You define the macro procedure PAS_EXTERNAL_C like this, %Procedure PAS_EXTERNAL_C (X: code); %begin asmname _quote%x%_quote; %end; Before macro expansion you would write procedure Hello; %PAS_EXTERNAL_C (Hello); After macro expansion you would get procedure Hello; asmname 'Hello'; as required. Frank Rubin

1 0

export clause
by vanam srihari kumar 25 Oct '05

25 Oct '05

Dear All Is it possible to have export clause at the end of module/program in gpc version 2.1 as my porting will becomes much easier regards Hari __________________________________ Yahoo! FareChase: Search multiple travel sites in one click. http://farechase.yahoo.com

3 2

macro
by vanam srihari kumar 25 Oct '05

25 Oct '05

I want to write a macro which should compatible with gpc version 2.1 and look like below #define PAS_EXTERNAL_C(X) asmname 'X' suppose if i define a macro like above, it should be preprocessed like below Before preprocessing: procedure Hello; PAS_EXTERNAL_C(Hello); After preprocessing: procedure Hello; asmname 'Hello'; I am worried why #define PAS_EXTERNAL_C(X) asmname 'X' this is not working? Please help me Regards Hari __________________________________ Start your day with Yahoo! - Make it your home page! http://www.yahoo.com/r/hs

2 1

Borland directives/keywords
by Waldek Hebisch 24 Oct '05

24 Oct '05

I just checked that Free Pascal accepts the followig program: program keyw; var absolute, external, overload, override, virtual, abstract, reintroduce : integer; begin end . gpc -fdelphi says: keyw.p:2: error: `absolute' is a keyword in Borland Pascal keyw.p:2: error: `external' is a keyword in UCSD Pascal, Borland Pascal, keyw.p:2: error: traditional Macintosh Pascal keyw.p:2: error: `virtual' is a keyword in Object Pascal, Borland Pascal, keyw.p:2: error: traditional Macintosh Pascal It seems that all of them as treated as "directives" and hence may work also as variable names. Could some kind soul check how other compilers behave -- if the names are really directives then we should teach gpc to accept them as variable names in those dialects. -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

3 3

LastReadWriteStrFDR memory leak
by Peter N Lewis 22 Oct '05

22 Oct '05

LastReadWriteStrFDR is used to cache an FDR to avoid allocating and releasing one for each use of ReadStr, Val etc. Unfortunately, the memory is leaked since it is never freed and there is no way to cause it to be freed. This causes my leak detection routines to fire on termination of my program. I've added to files.pas: procedure DisposeReadWriteStr; attribute (name = '_p_DisposeReadWriteStr'); procedure DisposeReadWriteStr; begin if LastReadWriteStrFDR <> nil then begin InternalDispose (LastReadWriteStrFDR); LastReadWriteStrFDR := nil end end; which cannot do any damage since LastReadWriteStrFDR is just a cache and calling it before checking for leaks solves my problem, but: * the name DisposeReadWriteStr is pretty dubious * I'm not convinced this is the best way to do it * perhaps exposing LastReadWriteStrFDR is a better solution (then at least I could detect the leak matches that and hide it) a to end do block could clean up the LastReadWriteStrFDR FDR, but that would not happen until after my code had all completed and so I'd still register the leak. This also highlights a risk involved in using the GetMemPtr/FreeMemPtr/ReAllocMemPtr variables to define replacement memory allocators. Since some allocations (eg StdErr's FDR) are allocated before my code can be executed, they are allocated with the default memory allocator and not with mine. It is therefore imperitive that they not be freed until after I have replaced the FreeMemPtr with the original (CFreeMem). So the RTS needs to be careful that anything that is allocated within _p_initialize is not freed until _p_finalize, and also nothing allocated after _p_initialize completes and user code starts can be freed safely in _p_finalize. I'm open to any suggestions on any of this. Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

2 1

compiler flags explanation
by vanam srihari kumar 18 Oct '05

18 Oct '05

Thanks for the reply I am using below compiler flags PFLAGS = -L -w -tc -fnonstd -ftrap=%all -DSOLARIS -DL_SOLARIS -Qoption cpp -C -Qoption cpp -DSOLARIS Please find below the explanation of unavailable flags in gpc -fnonstd -fnonstd = The -fnonstd option causes nonstandard initialization of floating-point arithmetic hardware. By default, IEEE 754 floating-point arithmetic is nonstop, and underflows are gradual. (See the Numerical Computation Guide for details.) The -fnonstd option causes hardware traps to be enabled for floating-point overflow, division by zero, and invalid operation exceptions. These hardware traps are converted into SIGFPE signals, and if the program has no SIGFPE handler, it terminates with a memory dump. -fnonstd also causes the math library to be linked in by passing -lm to the linker. This option is a synonym for -fns -ftrap=common. -tc -tc =The -tc option instructs the compiler to generate pc3 stab information that allows cross-module type checking. This option can be used for two purposes: To check for any name conflicts that your program may have with the standard libraries with which it is to be linked, such as libc. The linker allows name conflicts, which may cause erroneous runtime behavior in your program. For example, the following program has a name conflict with libc: program p(output); var time: integer; begin writeln(wallclock); end. When the program is compiled with the -tc option, pc3 issues a warning that the name time is already defined as a libc routine. Running a.out causes a core dump. To avoid this problem, change the name of the variable that has the conflict--in this case, time. To check for possible name conflicts in the various modules of your program. These conflicts arise if you define a routine with the same name in several modules, or refer to an external, but undefined, variable. The linker detects these error situations and does not create the executable file. hostname% {$w-} -Qoption The -Qoption passes an option to the program. The option value must be appropriate to that program and can begin with a plus or minus sign. The program value can be either cpp(1), cppas, iropt, ld(1), ild(1), pc0, or pc3. For example, the following command passes the option -R to cpp and allows recursive macros: hostname% pc -Qoption cpp -R myprog.p Regards Hari __________________________________ Yahoo! Music Unlimited Access over 1 million songs. Try it free. http://music.yahoo.com/unlimited/

2 1

calling c functions in pascal program
by vanam srihari kumar 18 Oct '05

18 Oct '05

Dear All My projects requires calling C function in a pascal program.Is it possible with gpc? If so please tell me how to implement it. Regards Hari __________________________________ Yahoo! Music Unlimited Access over 1 million songs. Try it free. http://music.yahoo.com/unlimited/

2 1

gpc compiler problem
by vanam srihari kumar 17 Oct '05

17 Oct '05

Dear All I am trying to make use of gpc compiler(2.1 version) in solaris 2.8 platform.For testing purpose I have written two sample programs,one for creating a module and another is a program. program will call the function defined in the module. I am compiling those programs by make use of a make file. When I am trying to call a function from library it is giving linking problem.Below I am pasting the code and make file.Please correct my code sothat it facilitates me to call the function from library and also please make the corrections if any in the make file. *************************************** program ModDemo3 (Output); begin WriteLn ('program writeln'); xtra; end. *************************************** module DemoMod3; procedure xtra ; begin writeln('from library'); end; end. ************************************** PC=gpc PFLAGS= -DSOLARIS -L/home/kvsspl VPATH = /home/kvsspl/ DemoMod3.o : DemoMod3.pas $(PC) -c $(PFLAGS) DemoMod3.pas ModDemo3.o : ModDemo3.pas $(PC) -c $(PFLAGS) ModDemo3.pas ModDemo3 : DemoMod3.o ModDemo3.o $(PC) -o ModDemo3 DemoMod3.o ModDemo3.o \ ********************************************************** Please treat it as urgent and help me Regards Hari __________________________________ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com

3 2

Installing/using GPC in WinXP + MingW32
by gmjimen＠burdjia.com 16 Oct '05

16 Oct '05

Hello, I'm trying to use GPC but I'm in troubles. I've looking for advice at "crystal/gpc/en" but I didn't find much. I wrote the next program: >PROGRAM P; >(* Ejemplo de uso de GNU Pascal, para ir abriendo boca. *) > >BEGIN > Writeln ('¡Hola, Mundo!'); >END. (You see, I'm spanish ;^)) I can compile it next way: 1.- I've copied the "C:\mingw\lib\gcc-lib\mingw32\3.2.3\libgpc.a" file to the "C:\mingw\lib\" directory. 2.- I've used "gpc -c -o p.o p.pas" to get the object file. 3.- I've used "gcc -o p.exe p.o -lgpc" to get the executable file. The result is an exe file that runs, but I tink is too big (1.012.587 bytes!). If I try to use "gcc p.pas" it says "gcc: p.pas: Pascal compiler not installed on this system". (Both MingW32 and GPC were installed in C:/mingw). If I try to use "gpc p.pas" it says "C:/mingw/lib/gcc-lib/mingw32/3.2.3/../../../../mingw32/bin/ld.exe: cannot find -lgcc" The files I've used to install gcc and gpc are: - binutils-2.15.91-20040904-1.tar.gz - gcc-core-3.4.2-20040916-1.tar.gz - mingw32-make-3.80.0-3.tar.gz - mingw-runtime-3.8.tar.gz - w32api-3.3.tar.gz - gpc-20030209-gcc-3.2.2.i386-pc-mingw32-2.tar.gz - gpc-mingw-gcc-2.95.3-6-depends.tar.gz - gdb-5.2.1-1.exe I've set the next environment variables: - MINGDIR=c:\mingw - GPC_EXEC_PREFIX=C:/mingw/lib/gcc-lib/ - GPC_LIB=C:/mingw/lib/gcc-lib - GPC_PATH=C:\mingw The "VER" command at "cmd" says "Microsoft Windows XP [Versión 5.1.2600]" Thanks in advance. Guillermo Martínez Jiménez Jefe de Proyectos y Programador

2 1

gpc
by vanam srihari kumar 10 Oct '05

10 Oct '05

Dear All I am trying to port the pascal code which was developed on sun solaris6 by using sun pascal compiler to solaris 8 by gpc compiler. The problem is I am unable to find out the eqivalent compiler flags for the gnu pascal to that of sun pascal. The flags are -tc -Qoption -fnonstd please suggest me the equivalent flags Regards Hari __________________________________ Start your day with Yahoo! - Make it your home page! http://www.yahoo.com/r/hs

2 1

Type compatibility rules?
by Peter N Lewis 04 Oct '05

04 Oct '05

Currently, this compiles, I would think it would give a type check error: program peter112; type p1 = ^MedInt; p2 = ^MedInt; procedure doit( p: p1 ); begin end; var p: p2; begin doit( p ); end. Should p1 and p2 be parameter type compatible? MWPascal complains of the type check on the parameter...? I tried searching the docs for type compatibility, but did not find anything on the subject, perhaps I need to read the spec? Thanks, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

7 15

Array splices?
by Peter N Lewis 30 Sep '05

30 Sep '05

I thought GPC handled array splices, but this: program peter109; type MyArray(count: Integer) = array[1..count] of Integer; var p: ^MyArray; begin New(p,10); p^[1..5] := p^[2..6]; end. Gives a compiler error: peter109.pas:9: error: type mismatch in array assignment It works for strings, but I guess strings have all that packed array of char type checking extra baggage. Should I just go back to BlockMoveData, or is there a way for array splice assignments to work, and if so, are they safe for overlapping moves? While I'm at it, is there any better way to zero part of such an array than: FillChar( p^[3], 4 * SizeOf(p^[3]), 0 ); And further while I'm at it, I looked at the docs for MoveLeft et al, and they are all under construction. Would it be worth while setting up a wiki for the docs? The docs already have an organizational layout, which is very helpful for starting a wiki and letting others add information. I've never set up a wiki before, but I'd be happy to set it up and look at transferring the existing documentation over if people thought it was a good idea. I know the docs are all tied in with the make system, and there might be some loss with regard to automation of that, but on the other hand it might mean more people participate in improving the docs so it might be an overall win. Anyway, just a thought, if there is no interest, I'll go back to reading move.pas to figure out what the RTS does ;). Thanks, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

2 5

GPC alpha
by Tom Schneider 27 Sep '05

27 Sep '05

Frank: > > | strawberry 40% cat t.p > > | program t (output); > > | begin > > | writeln(output,'hello world'); > > | end. > > | strawberry 41% /usr/local/gpc/bin/gpc t.p > > | strawberry 42% a.out > > | Segmentation Fault > > | > > | :-( > > Aha, so it isn't GPC that crashes, but the compiled executable. > That's already more information than in your last mail. Right. Sorry my previous email wasn't clear about that. > One possibility could be a confusion of runtime library versions or > compiler parts. I see your admin installed GPC in a nonstandard > directory. Did he do this correctly, i.e. either set the --prefix on > configure, or else set GPC_EXEC_PREFIX? I don't know, I'll pass this on to him. > If that's ok, can you run the program in a debugger to find out > where it crashes? Sure. ******************************************************************************** % cat t.p program t(output); begin writeln(output,'hello world'); end. % /usr/local/gpc-20050331/bin/gpc -v Reading specs from /export/data/local/gpc-20050331/bin/../lib/gcc-lib/sparc-sun-solaris2.8/3.3.3/specs Configured with: /export/home/bryantd/gpc-build/../gcc-3.3.3/configure --enable-languages=pascal --prefix=/usr/local/gpc Thread model: posix gpc version 20050331, based on gcc-3.3.3 % /usr/local/gpc-20050331/bin/gpc -g t.p % gdb t GNU gdb 5.0 Copyright 2000 Free Software Foundation, Inc. GDB is free software, covered by the GNU General Public License, and you are welcome to change it and/or distribute copies of it under certain conditions. Type "show copying" to see the conditions. There is absolutely no warranty for GDB. Type "show warranty" for details. This GDB was configured as "sparc-sun-solaris2.9"... (gdb) run Starting program: /home/strawberry/toms/work/emptytest/t Program received signal SIGSEGV, Segmentation fault. 0x189dc in _p_ReturnAddr2Hex () (gdb) quit The program is running. Exit anyway? (y or n) y I see now that my sysadmin did this: > I had compiled gpc on sparky so that it would be "solaris-8- > compatible", and then installed it on strawberry. I guess I could try > compiling the whole thing on strawberry and see if it makes any > difference. but uname -aimnprsvX gives SunOS strawberry 5.9 Generic_117171-12 sun4u sparc SUNW,Sun-Blade-1000System = S unOS Could that have caused this effect? Sparky is Solaris 2.8 and Strawberry is 2.9. Why GDB said 2.9 I don't know ... ******************************************************************************** > > | strawberry 44% /usr/local/gpc/bin/gpc -v > > | Reading specs from /export/data/local/gpc/bin/../lib/gcc-lib/sparc-sun-solaris2.8/3.3.3/specs > > | Configured with: /export/home/bryantd/gpc-build/../gcc-3.3.3/configure --enable-languages=pascal --prefix=/usr/local/gpc > > | Thread model: posix > > | gpc version 20050331, based on gcc-3.3.3 > > | > > | When I try to use /usr/local/bin/gpc-2.1 in my gpcc script > > | (/home/strawberry/toms/work/emptytest/gpcc2.1), I get: > > | > > | gpc1: Invalid option `-Wno-identifier-case-local' > > | > > | so I can't compile until this is fixed ... > > Uhm, fixed? gpc-2.1 is 3 years old, and we don't actually plan to > backport new features to it. If it's just this one (you don't > require other newer features), you can take out this option for 2.1 > (which simply didn't exist back then). I'm confused. All I knew was that I got this 'Invalid option' message, which seemed unrelated and off the wall. But it could mean that `-Wno-identifier-case-local' is no longer a valid option? Looking in what seems to be the current manual at http://www.gnu-pascal.de/gpc/GPC-Command-Line-Options.html#GPC-Command-Line… that flag is listed. Doesn't that mean it is a valid option? So I'm puzzled as to why it was objected to. I can't replicate the problem now so maybe sys admin was moving things around and I ended up working with an old version for a few minutes. ******************************************************************************** > > My gpcc script is at > > ftp://ftp.ncifcrf.gov/pub/delila/gpcc > > in gpcc2.1 I just modified the location of the compiler. > > It's a bit longish, so I can't read it all now. No problem, I included it only for completeness. > : # -Widentifier-case-local Please accept my apologies for that. It was material that went into the script when the issue first came up. I have removed it and tried to clarify the issue in the documentation. > 1. Do it yourself. I'm not an expert such as yourself. I have many papers to write and no time to become a GPC expert (though it would be fun to help you more than just reporting bugs). > 2. Ask politely and/or convince someone to do it for you. Please accept my apologies. > 3. Pay someone to do it for you. Unfortunately science has a shrinking budget in the USA ... My text modules are compiler independent and are not always consistent, so I had to just turn off the flag. > BTW, your quick jumping to conclusions that "[GPC] is too alpha" > when in fact it may just be an installation problem on your (or your > admin's) part, or claiming that an older version not supporting > newer options is something that needs to be "fixed" I am reporting a problem to you as best as I can. I'm not an expert, I do not know the guts of GPC. I did not know that an incorrect installation (if that's what happened) could cause such an effect as I have never seen that happen before. All I meant was that "this particular installation of a GPC alpha didn't work". GPC itself is clearly quite robust (thanks to you!), which is why I use it. The alpha GPC that we have produced a binary that crashed. I don't know why that may be. Alphas in general can crash - this is true for Mozilla. I would never ask you to 'fix' an older version! That's wasting your time! Isn't this 20050331 a newer version? Best Regards, Tom Dr. Thomas D. Schneider National Institutes of Health National Cancer Institute Center for Cancer Research Nanobiology Program Molecular Information Theory Group Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu (use only if first address fails) http://www.ccrnp.ncifcrf.gov/~toms/

3 2

CRT on mingw
by Andres K. Foerster 22 Sep '05

22 Sep '05

Hello, I normally do my programming with Free Pascal. But I wanted to give GNU Pascal a try again. Well I don't have any problems under GNU/Linux anymore, but the version for MinGW makes trouble with the CRT unit. I have installed PDCurses 2.6-2 for MinGW. Programs using the CRT unit do compile and the output stuff is all okay, but the input doesn't work as it should. On most keypresses ReadKey just returns #0+#255, just occasionly it returns the correct keycode. ReadLn also behaves strange: It takes and displays the entered text correctly, but when I press the Enter-key, it just displays a musical note (the character of #13). When I repeat typing the Enter key, then at some point it is accepted. But the input string still has all the other #13's at its end. Is GPC for MSYS better? Why is there a separate version anyway? I mean, MSYS belongs to MinGW, isn't it? I've seen, that GPC still doesn't support "{$AppType GUI}" or "{$AppType Console}". That's an extension comming from Delphi. Free Pascal supports it on the Windows and the Amiga platform. I found out, that in GPC they correspond to the linker-parameters "-mwindows" or "-mconsole". But it would be nicer to have it in the source code. -- AKFoerster

3 12

SetLength: a NO-OP?
by Pascal Viandier 19 Sep '05

19 Sep '05

Hi GPC crew, I encounter a problem with SetLength: I have a string of 40 characters long coming from a file (no control on it). On these 40 characters the first 13 are "meaningfull" and the others are Chr(0). The String as I can see it through gdb indicates a capacity of 40, a length of 40 and the contents as explained. I want to get rid of the Chr(0) by setting the actual string length to the meaningful part (13). So the following code should do this in a clean way (I think): Procedure CleanZeroesAndDisplay(Const S: String); Var LocalS : String(40) = S; P : Integer; Begin P := Pos(Chr(0), LocalS); If (P > 0 And P < Length(LocalS)) Then SetLength(LocalS, P); ... End; When executing this code with the previous example, P returns 13, Length(S) returns 40 so I enter the "If" and SetLength is called. The problem is that after the call I see that the actual length of LocalS still 40. The debugging is somewhat approximate since I can enter the "Pos" function with gdb but not "SetLength". Even better, if I replace the SetLength call by LocalS := Copy(LocalS, 1, P); it does not work either (the length stays 40). I don't know if the presence of Chr(0) makes the functions behave erratically but the following code solves the problem in a somewhat dirty and strange way: Procedure CleanZeroes(Const S: String); Var LocalS : String(40) = S; P : Integer; Begin P := Pos(Chr(0), LocalS); If (P > 0 And P < Length(LocalS)) Then FillChar(LocalS[P], (Length(LocalS) -P) + 1, ' '); ... End; The "strange" part (for me :-) is that the call to the "Fillchar monster", fills (replace) the string's contents as expected AND sets the actual length of the string to 13, as if I called Trim! I am somewhat confused on what is going on there. May this be a bug? I run gpc 20050331 on gcc 3.4.3 under Sun Solaris 2.6 Thanks Pascal Viandier pascal(a)accovia.com

2 4

Re: [GPC]: daily digest (#763)
by Tom Schneider 19 Sep '05

19 Sep '05

Frank: > > My sysadmin set up a recent alpha but it crashed on a simple 'hello > > world' program. Is 20041218 the most recent stable version? > > Yes, it is. However, an alpha should not be as unstable as in not > being able to compile a simple program. (It's just been tested > somewhat less thorough than a beta.) If you provide more > information, readers of the list can probably help you set it up > working. (Error messages, system and version, backend version, etc., > the usual stuff ...) My sysadmin did the installation: | > I just installed the latest _alpha_ version of gpc under /usr/local/gpc | > (the old version is under /usr/local/gpc.old). I have also moved | > /usr/local/bin/gpc to /usr/local/bin/gpc-2.1 and /usr/local/bin/gpc-run | > to /usr/locla/bin/gpc-run-2.1 to make sure they don't get run | > inadvertently. | > | > Make sure that your compile scripts use /usr/local/gpc/bin/gpc instead | > of /usr/local/bin/gpc . Also, keep in mind that the gpc developers | > still consider this to be alpha code, so you may encounter as many new | > bugs as (hopefully fixed) old ones. | | Thanks. | | Unfortunately it is too alpha - it crashes even for this: | | strawberry 40% cat t.p | program t (output); | begin | writeln(output,'hello world'); | end. | strawberry 41% /usr/local/gpc/bin/gpc t.p | strawberry 42% a.out | Segmentation Fault | | :-( | | strawberry 44% /usr/local/gpc/bin/gpc -v | Reading specs from /export/data/local/gpc/bin/../lib/gcc-lib/sparc-sun-solaris2.8/3.3.3/specs | Configured with: /export/home/bryantd/gpc-build/../gcc-3.3.3/configure --enable-languages=pascal --prefix=/usr/local/gpc | Thread model: posix | gpc version 20050331, based on gcc-3.3.3 | | When I try to use /usr/local/bin/gpc-2.1 in my gpcc script | (/home/strawberry/toms/work/emptytest/gpcc2.1), I get: | | gpc1: Invalid option `-Wno-identifier-case-local' | | so I can't compile until this is fixed ... My gpcc script is at ftp://ftp.ncifcrf.gov/pub/delila/gpcc in gpcc2.1 I just modified the location of the compiler. I'm working on a Sun: % uname -aimnprsvX SunOS strawberry 5.9 Generic_117171-12 sun4u sparc SUNW,Sun-Blade-1000System = SunOS Good luck with that, it doesn't seem to be much to go on ... Tom Dr. Thomas D. Schneider National Institutes of Health National Cancer Institute Center for Cancer Research Nanobiology Program Molecular Information Theory Group Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu (use only if first address fails) http://www.ccrnp.ncifcrf.gov/~toms/ > > Is there some place on the web site that tells this that I missed? > > (I don't see how you determined the above, for example.) > See the (2nd) URL in my sig. > http://www.gnu-pascal.de/todo.html Thanks!! I didn't think to look for solved bugs under 'to do' ... ;-) Tom Dr. Thomas D. Schneider National Institutes of Health National Cancer Institute Center for Cancer Research Nanobiology Program Molecular Information Theory Group Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu (use only if first address fails) http://www.ccrnp.ncifcrf.gov/~toms/

2 1

Parameters misunderstanding or bug?
by Pascal Viandier 18 Sep '05

18 Sep '05

Hi GPC Crew, I just hit something I do not really understand in the way GPC passes parameters to procedures. The following sample program: Program ParamTest; Var S40 : String(40); I : Integer; Procedure TstParams(S : String; IL : Integer); Begin WriteLn('Before: S=', S, ' IL=', IL); S := S + 'BBB'; { Using Concat() does the same } IL := IL + 4; WriteLn('After: S=', S, ' IL=', IL); End; Begin S40 := 'AAA'; I := 4; TstParams(S40, I); End. Produces the following output: Before: S=AAA IL=4 After: S=AAA IL=8 How come the string cannot be modified inside of the procedure (without impacting the global string) but the integer can? Until now, my understanding of the parameters passing mechanism was that when you pass a parameter by value, the procedure uses a local copy of it, and this copy may be modified locally. This mechanism seems to work for integers but not for strings! However, if the string modification is somewhat "illegal" at least GPC could issue a compilation warning. I would be interested to understand better how this works, because this behavior causes bugs in the programs I am porting from SUN Pascal and perhaps in ways I don't see as clearly as in this example. Thanks Pascal Viandier pascal(a)accovia.com

4 10

Re: eof bug in GPC
by Tom Schneider 18 Sep '05

18 Sep '05

Frank: > > I reported a bug in GPC some months ago: > > http://www.gnu-pascal.de/crystal/gpc/en/mail11285.html > > http://www.gnu-pascal.de/crystal/gpc/en/mail11309.html > > Recently someone in Hong Kong was working with my programs and the bug > > was still there. I think she has the most recent version of GPC, > > Does she? Perhaps she has 20041218? Yes, I found later out that she indeed does have 20041218. > It has been included: > > @item 20050130: in standard Pascal modes, @samp{EOF} is false on an empty file (tom7.pas) > > tom7.pas: > > {$classic-pascal} Thanks! My sysadmin set up a recent alpha but it crashed on a simple 'hello world' program. Is 20041218 the most recent stable version? I couldn't figure it out from the download or installation instructions at http://www.gnu-pascal.de/gpc/h-index.html The downloads seem to have only 20041218 and an alpha but it is not clearly stated on the pages what is what ... So - is there a non-alpha version that incorporates that change? Is there some place on the web site that tells this that I missed? (I don't see how you determined the above, for example.) Regards, Tom Dr. Thomas D. Schneider National Institutes of Health National Cancer Institute Center for Cancer Research Nanobiology Program Molecular Information Theory Group Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu (use only if first address fails) http://www.ccrnp.ncifcrf.gov/~toms/

2 1

ncurses
by Karim Forsthofer 17 Sep '05

17 Sep '05

I have put libncurses.so.5 from /usr/pkg/lib to /usr/lib. It works now. It seems to me that your bindings don`t need adaption. I will check the library search path for gcc. It`s weird that the binary don`t find the right library, even when the -lncurses path is given. Thanks a lot. By the way. Why don`t you upload the bindings to the gnu-pascal site? Some little webspace for gpc bindings/stuff would be great. That`s also what fpc is doing. Greerings Karim -- ________________________________________________________ Email2me is probably the best email in the world. It is FREE. http://www.email2me.com

6 32

eof bug in GPC
by Tom Schneider 15 Sep '05

15 Sep '05

Hi folks! I reported a bug in GPC some months ago: http://www.gnu-pascal.de/crystal/gpc/en/mail11285.html Basically, GPC fails to report eof = true after a reset when a file is empty. In the Replies, Waldek Hebisch provided a patch: http://www.gnu-pascal.de/crystal/gpc/en/mail11309.html Recently someone in Hong Kong was working with my programs and the bug was still there. I think she has the most recent version of GPC, so the patch apparently has not been implemented. I had to make a rather horrible kludge to get around this. Basically I have a function, emptyfile, to replace eof. If it counts less than 2 characters in a file, that file is deemed 'empty'. In my cases this will work because the relevant files have more than two characters if they are not empty, but of course it will not work in general! Does anyone know the status of this patch? Will it be put into GPC? If not, why not? Thanks! Tom Dr. Thomas D. Schneider National Institutes of Health National Cancer Institute Center for Cancer Research Nanobiology Program Molecular Information Theory Group Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu (use only if first address fails) http://www.ccrnp.ncifcrf.gov/~toms/

2 1

Parameters of Reset and Rewrite
by Adriaan van Os 14 Sep '05

14 Sep '05

(repost) Patch for the parameters of Reset and Rewrite in --mac-pascal and --ucsd-pascal mode. --- predef.c.orig Wed Sep 14 11:11:56 2005 +++ predef.c Wed Sep 14 11:34:11 2005 @@ -2148,7 +2148,7 @@ if (file_name) { - chk_dialect_1 ("file name parameters to `%s' are", GNU_PASCAL, r_name); + chk_dialect_1 ("file name parameters to `%s' are", U_M_PASCAL, r_name); file_name_given = boolean_true_node; } else @@ -2161,12 +2161,12 @@ { if (buffer_size) { - chk_dialect_1 ("file buffer size arguments to `%s' are", U_B_D_M_PASCAL, r_name); + chk_dialect_1 ("file buffer size arguments to `%s' are", B_D_M_PASCAL, r_name); STRIP_TYPE_NOPS (buffer_size); if (TREE_CODE (buffer_size) == INTEGER_CST && !INT_CST_LT (integer_zero_node, buffer_size)) errstr = "file buffer size in `%s' must be > 0"; } - else if (co->pascal_dialect & B_D_M_PASCAL) + else if (co->pascal_dialect & U_B_D_M_PASCAL) { warning ("unspecified buffer size for untyped file defaults to 128 in `%s'", r_name); buffer_size = build_int_2 (128, 0); Regards, Adriaan van Os

1 0

Reset and Rewrite parameters
by Adriaan van Os 14 Sep '05

14 Sep '05

Patch for the parameters of Reset and Rewrite in --mac-pascal and --ucsd-pascal mode. --- predef.c.orig Wed Sep 14 11:11:56 2005 +++ predef.c Wed Sep 14 11:34:11 2005 @@ -2148,7 +2148,7 @@ if (file_name) { - chk_dialect_1 ("file name parameters to `%s' are", GNU_PASCAL, r_name); + chk_dialect_1 ("file name parameters to `%s' are", U_M_PASCAL, r_name); file_name_given = boolean_true_node; } else @@ -2161,12 +2161,12 @@ { if (buffer_size) { - chk_dialect_1 ("file buffer size arguments to `%s' are", U_B_D_M_PASCAL, r_name); + chk_dialect_1 ("file buffer size arguments to `%s' are", B_D_M_PASCAL, r_name); STRIP_TYPE_NOPS (buffer_size); if (TREE_CODE (buffer_size) == INTEGER_CST && !INT_CST_LT (integer_zero_node, buffer_size)) errstr = "file buffer size in `%s' must be > 0"; } - else if (co->pascal_dialect & B_D_M_PASCAL) + else if (co->pascal_dialect & U_B_D_M_PASCAL) { warning ("unspecified buffer size for untyped file defaults to 128 in `%s'", r_name); buffer_size = build_int_2 (128, 0); Regards, Adriaan van Os

1 0

ncurses
by Karim Forsthofer 08 Sep '05

08 Sep '05

[G5:~/Desktop/ncurses-gpc-20050730] adriaan% gpc --automake -o firework firework.pas -Wno-underscore -L/usr/pkg/lib [G5:~/Desktop/ncurses-gpc-20050730] adriaan% ./firework thanks adriaan This compiles it without errors and very fast. Hmm.. but I get a message when I try to execute it: Shared object "libncurses.so.5" not found Any suggestions? -- ________________________________________________________ Email2me is probably the best email in the world. It is FREE. http://www.email2me.com

2 1

where are the ncurses bindings?
by Karim Forsthofer 07 Sep '05

07 Sep '05

O.k I got the bindings on my HD. Now, How I can compile some sample code with it? Will this work if test.pas is the MAIN sourcefile, and the ncurses.pas (the binding) is in the same directory? gpc -o test test.pas -L/usr/pkg/lib -lncurses -I/usr/pkg/include I can take a look on both types (ncurses.pas and ncurses.h) when I know how to compile it correctly. But I don`t know If my programming knowledge is enough to adapt it. Regards Karim -- ________________________________________________________ Email2me is probably the best email in the world. It is FREE. http://www.email2me.com

2 1

where are the ncurses bindings?
by Karim Forsthofer 07 Sep '05

07 Sep '05

Hello folks I compiled gnu-pascal on my NetBSD 2.0.2 box yesterday. It worked well. After some basic compiler tests, I would like to know, how to compile a ncurses program. I have the ncurses lib already installed. It looks like this: /usr/pkg/lib/libncurses.so /usr/pkg/include/ncurses.h O.k, now I have some questions: 1. Where can I find the gpc BINDINGS to ncurses? I only found the library on the gpc-webspace. 2. What are the compiler flags to compile gpc-ncurses code? 3. A small test code would be very useful. Any suggestions? Thx a lot Regards Karim F. -- ________________________________________________________ Email2me is probably the best email in the world. It is FREE. http://www.email2me.com

3 2

gp and .m (objective C) files
by Peter N Lewis 05 Sep '05

05 Sep '05

gp works fine with including objective C files via: {$L file.m} but does not include the language extension for .m. Here is a trivial patch: --- gp.pas (revision 363) +++ gp.pas (working copy) @@ -80,13 +80,13 @@ LanguageNormalizedKind: array [TFileKind] of TFileKind = (fk_None, fk_Program, fk_Program, fk_Program, fk_CFile, fk_Object); - LanguageSuffixes: array [TFileKind, 1 .. 7] of String (4) = - (('', '', '', '', '', '', ''), - ('.pas', '.p', '.pp', '.dpr', '', '', ''), - ('.pas', '.p', '.pp', '.dpr', '', '', ''), - ('.pas', '.p', '.pp', '.dpr', '', '', ''), - ('.c', '.cc', '.cpp', '.C', '.c++', '.cxx', '.s'), - ('.o', '', '', '', '', '', '')); + LanguageSuffixes: array [TFileKind, 1 .. 8] of String (4) = + (('', '', '', '', '', '', '', ''), + ('.pas', '.p', '.pp', '.dpr', '', '', '', ''), + ('.pas', '.p', '.pp', '.dpr', '', '', '', ''), + ('.pas', '.p', '.pp', '.dpr', '', '', '', ''), + ('.c', '.cc', '.cpp', '.C', '.c++', '.cxx', '.s', '.m'), + ('.o', '', '', '', '', '', '', '')); It's only applicable to those platforms with Objective C support, but probably wont hurt any to include in gp by default. Enjoy, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

5 7

GPC web site is back
by Frank Heckenbach 05 Sep '05

05 Sep '05

This announcement is a bit late, as actually most of the web site has been operating for a weeks now, but anyway. I'm glad to announce that the complete GPC web site, including the mailing list archives, the search engine, downloads and contributions, is fully working again. It's on a new server with upgraded hardware, so access should be faster now as well (if it ever was slow before ;-). The URL is the same as before: http://www.gnu-pascal.de/ 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 GPC download signing key: ACB3 79B2 7EB2 B7A7 EFDE D101 CD02 4C9D 0FE0 E5E8

1 0

Newer snapshot
by James A. Morrison 05 Sep '05

05 Sep '05

Hey, Is it worth putting up another gpc snapshot? -- Thanks, Jim http://phython.blogspot.com

2 1

gdb types?
by Peter N Lewis 22 Aug '05

22 Aug '05

Given type definitions (in an interface unit) of: SInt32 = Integer attribute( size = 32 ); UInt32 = Cardinal attribute( size = 32 ); gdb gives useless stuff like: Subjectlen=<incomplete type>, Ov=$60fb40, Oc=<unknown type> (Where Subjectlen: SInt32 and Oc: UInt32) Is there any way to have these types complete/known and get gdb to display them? Thanks, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

1 0

Compilation error for negative constant on right side of an operation
by Pascal Viandier 17 Aug '05

17 Aug '05

Hi GPC crew, The following sample code does not compile properly with GPC (20050331). Program Real; Var R1, R2 : Real; Begin R1 := 4.21; R2 := R1 * -1.0; WriteLn(R2); End. GPC output: real.pas:6: error: syntax error before `-' The problem occurs with negative integer constants and any operator (+-*/) as well. Strange enough, if I modify the code for: R1 := 4.21; R2 := -1.0; R2 := R1 * R2; Or even for: R2 := -1.0 * R1; The code compiles and the output is as expected. It looks like one can assign a negative constant to a variable but cannot use it as an operand if it is on the right side. This is not a problem for multiplying but for the other operators... Could this be a bug? Thanks Pascal Viandier pascal(a)accovia.com

3 3

Fill string
by Contestcen＠aol.com 17 Aug '05

17 Aug '05

Frank H: > As I said, GPC doesn't check for using undefined values at all. > (Currently, and this isn't going to change soon, as this is not > exactly trivial to implement in general ...) I am with Frank on this. Many years ago, before Pascal existed, I used the Watfor Fortran compiler. This compiler always checked for uninitialized variables. The check was made by initializing all variables to the value 666 according to length (e.g., Boolean variables were set to x'66', fullword integers to x'66666666' and so forth). Every time a value was fetched it was checked for these values. This nearly doubled running times. A bigger problem was that the value 666 sometimes came up naturally in the course of computation. That would abort your run. It took a great deal of tricky programming to prevent this from happening. The alternative method of checking for uninitialized variables is to have a separate set of flags, one for every variable and component of every array and data structure. This not only costs heavily in execution time, it also costs in storage. Switching back and forth from checking On to checking Off might be more complex than simply turning on and off the option. There may be consequences due to having your variables change location. All told, I don't think the check for uninitialized variables is worth the effort. Frank Rubin

2 1

Code generation error?
by Peter N Lewis 16 Aug '05

16 Aug '05

The code which generates a dynamic array on the stack in the middle of a procedure (which I never would have suspected you could do in Pascal) appears to corrupt the stack in a way which makes ReturnAddress(0) either return bogus numbers or crash with a bus error. Or more accurately, assigning to sections of the created array corrupts the stack. I don't know if this is a PowerPC only issue, or applies to other platforms as well. This code: program peter103; uses GPC; procedure Test( ParameterCount: Integer ); var i: Integer; begin WriteLn( StdErr, 'T1 ', ParameterCount, ' ', ReturnAddr2Hex(ReturnAddress (0)) ); var CProcessParameters: array [0 .. ParameterCount + 1] of CString; WriteLn( StdErr, 'T2 ', ParameterCount, ' ', Low(CProcessParameters), ' ', High(CProcessParameters), ' ', ReturnAddr2Hex(ReturnAddress (0)) ); CProcessParameters[0] := nil; for i := 1 to ParameterCount do CProcessParameters[i] := nil; WriteLn( StdErr, 'T3 ', ParameterCount, ' ', Low(CProcessParameters), ' ', High(CProcessParameters), ' ', ReturnAddr2Hex(ReturnAddress (0)) ); end; var i: Integer; begin for i := 0 to 10 do Test( i ); end. will either crash in the last ReturnAddress with a bus error, fail with a range check if ReturnAddress decides to return nil (because ReturnAddr2Hex range checks if passed 0 as a parameter) or return a different bogus number (different to the two previous addresses). I discovered this as it affects Pipe in pipes.pas which is used by gp. The code for the creation of CProcessParameters is: lwz r2,12520(r30) addi r2,r2,1 stw r2,12448(r30) lwz r0,12448(r30) cmpwi cr7,r0,0 bge cr7,L5 bl L__p_SubrangeError$stub L5: lwz r0,12448(r30) slwi r2,r0,2 addi r2,r2,4 stw r1,12452(r30) addi r2,r2,15 addi r0,r2,15 srwi r0,r0,4 slwi r0,r0,4 lwz r2,0(r1) neg r0,r0 stwux r2,r1,r0 addi r2,r1,56 addi r0,r2,15 srwi r0,r0,4 slwi r2,r0,4 stw r2,12456(r30) I'm afraid this taxes my PPC decoding and ABI abilities past the limits, so I can't actually tell where the problem in the code is. Moving the definition of CProcessParameters into the variable section does not change the behaviour. Could someone try duplicating this Linux or Windows perhaps to see if it is PPC only, or can anyone read enough PPC to figure out if the code is correct or not? I'll keep trying to pin down exactly what is wrong... Thanks, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

2 3

Re: can't get dbx to find lines
by Tom Schneider 15 Aug '05

15 Aug '05

Adriaan: > Did you try the addr2line utility (mentioned in a previous email) ? Or > run the program under control of gdb and then use the 'bt' command to > list a backtrace when it crashes. Thanks! That did the trick! Tom Dr. Thomas D. Schneider National Institutes of Health National Cancer Institute Center for Cancer Research Nanobiology Program Molecular Information Theory Group Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu (use only if first address fails) http://www.ccrnp.ncifcrf.gov/~toms/

1 0

Error message bug
by Prof. Harley Flanders 15 Aug '05

15 Aug '05

Code lines 246 Writeln(OutFile, Copy(TempStr, 1, K - 1); 247 Writeln(OutFile, S1); Error message: pubtotex\pubtotex.pas:247: missing comma pubtotex\pubtotex.pas: In procedure `Pass1': The actual error is a missing ) on line 246 -- =========================================== Prof. Harley Flanders 3533 Windemere Court Ann Arbor, MI 48105-2867 Home: 734 668 1546 harley(a)umich.edu ===========================================

1 0

delay in daily digest postings?
by Tom Schneider 15 Aug '05

15 Aug '05

Hi - I put a message to GPC a while ago and some kind people responded, as I could find them in the archive. But my message and the response has not appeared on the daily digests. It seems that the daily digests are still for July! Regards, Tom Dr. Thomas D. Schneider National Institutes of Health National Cancer Institute Center for Cancer Research Nanobiology Program Molecular Information Theory Group Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu (use only if first address fails) http://www.ccrnp.ncifcrf.gov/~toms/

2 1

Dynamic arrays
by Prof. Harley Flanders 15 Aug '05

15 Aug '05

{ This program compiles and runs with Free Pascal. See GPC compile error below. Apparently GPC doesn't line "array of string" although it doesn't choke on the declaration } program Test; var A: array of string; begin SetLength(A, 10); // Compilation fails on previous line: // pubtotex\test.pas:6: undeclared identifier `A' (first use in this routine) A[3] := 'Hello World'; Writeln(A[3]); Readln; end. -- =========================================== Prof. Harley Flanders 3533 Windemere Court Ann Arbor, MI 48105-2867 Home: 734 668 1546 harley(a)umich.edu ===========================================

3 2

list downtime due to server upgrade
by Anja Gerwinski 12 Aug '05

12 Aug '05

Hello all, we are going to upgrade our server to faster hardware today. This means that the gpc mailing list and the GNU Pascal server (gnu-pascal.de) will be down for about an hour this afternoon. Best wishes, Anja

1 0

GPC integration Kit for Apple's Xcode IDE
by Adriaan van Os 12 Aug '05

12 Aug '05

Available for download from <http://www.microbizz.nl/gpc.html> is the GNU Pascal Xcode integration Kit for Apple's Xcode IDE. Screendumps can be found at <http://www.microbizz.nl/gpcxcode.html>. The Xcode Kit includes demo programs, Pascal source file icons, a compiler update and project templates for Mac OS X for: * applications * application packages * application packages with nib files * command line tools * portable command line tools * dynamic libraries * frameworks * bundle files * loadable bundle packages * relocatable object files * static archive libraries Release notes are included in the package. Regards, Adriaan van Os P.S. A remaining (known (but annoying)) problem while debugging is the wrong-line (one-line-offset) problem.

2 1

Integration Kit for Apple's Xcode IDE
by Adriaan van Os 12 Aug '05

12 Aug '05

(reposting) Available for download from <http://www.microbizz.nl/gpc.html> is the GNU Pascal Xcode integration Kit for Apple's Xcode IDE. Screendumps can be found at <http://www.microbizz.nl/gpcxcode.html>. The Xcode Kit includes demo programs, Pascal source file icons, a compiler update and project templates for Mac OS X for: * applications * application packages * application packages with nib files * command line tools * portable command line tools * dynamic libraries * frameworks * bundle files * loadable bundle packages * relocatable object files * static archive libraries Release notes are included in the package. Regards, Adriaan van Os P.S. A remaining (known (but annoying)) problem while debugging is the wrong-line (one-line-offset) problem.

1 0

FillChar Suggestion
by Pascal Viandier 11 Aug '05

11 Aug '05

Hello, Do you think it is possible to modify the prcedure "FillChar()" to make it work correctly with the type String(xx)? For example the code: VAR S10 : String(10); .... FillChar(S10, 10, 'A'); WriteLn(S10); Would display: AAAAAAAAAA I ask this because I am working on (converting to GPC) a lot of existing code, with FillChar() spread everywhere (more than 1200 SUN Pascal sources), and it works as expected on strings on SUN Pascal. However, since there is no 'Capacity' field in SUN Pascal strings, it cannot be overridden. I understand this can be a big job since calling FillChar() on a record containing Strings should work as well. I think this would be a nice feature anyway, don't you? Also, if this cannot be done or desirable from your point of view, is there a way to override the build-in FillChar() for one of mine that would be called for the type String(xx) only? I know this is not an elegant workaround, but this problem causes a lot of nasty bugs in the converted programs. If I was to write the code from scratch this would not be an issue, but rewriting more than 600 000 lines of Pascal code is an even bigger challenge :-( Regards Pascal Viandier pascal(a)accovia.com

3 7

TR : Comparing Records
by Pascal Viandier 11 Aug '05

11 Aug '05

Hi, <snip> > Out of curiosity, what kind of application is this where you have to > compare more than 600 different record types for equality? It is a complete integrated solution for the travel industry. The oldest code parts are from 1985, and it is still in development for new functionalities. > In my > whole code base, I probably have just a handful of such cases (which > I do field by field then). In fact, I don't have to compare all the record types (I hope so!). I just encountered the first case yesterday during the conversion process, and I realized I missed this one in my gap analysis between SUN and GNU Pascal. <snip> > How carefully have you tested it? Did you try global, local and > heap-allocated variables? Did you intentionally garbage-fill the > memory used before allocating the records (not applicable to global > ones, but to local and dynamic ones, with some tricks)? No, I did not check extensively. Since the SUN Pascal Manual says the records can be compared, I just dumped some to see how they were laid out. Perhaps SUN does field by field comparison, I don't know. Anyway, I will create = and <> operators only for the records implied in comparisons. Regards Pascal Viandier pascal(a)accovia.com

1 0

RE : RE : Comparing Records
by Pascal Viandier 11 Aug '05

11 Aug '05

Hi, > Pascal Viandier wrote: >> When I say "compatible types", I say records with the same fields in >> the >> same order so I presume the padding bits and bytes would be done the >> same >> way. > >Yes, but the pad bits and bytes can have random values ... Ha! If only I could use FillChar() on the record before using it, there would be no problem! (Did you read the FillChar Suggestion thread?) This looks like a typical good reason to use it... I suppose the Extended Pascal's initial-state-specifier does not make initialization on padding bits and bytes neither. > snip< > >But you have been warned. If the padding content is random, I cannot use memcmp() reliably. I am done :-( Thank you very much anyway. Pascal Viandier pascal(a)accovia.com

3 4

Comparing Records
by Pascal Viandier 11 Aug '05

11 Aug '05

Hi GPC crew, I just got into a new issue in my SUN Pascal to GPC conversion process: In SUN Pascal, one can compare records variables (of the same or compatible type, obviously) with the "=" and "<>" logical operators and obviously enough, ">=" and "<=" cannot be used to compare records, it is meaningless. It looks that GPC does not implement records comparison. The compiler reports: invalid operands to `<>'. I consulted the ISO 10206 Standard but I don't find anything about records comparison in the logical operators section. It looks like a SUN Pascal extension (one more :-() So, is there a way compare records of compatible types without doing it field by field? I know I can create new operators "=" and "<>" but in this case I will have to do it for the 600+ record types of the applications. There must be a better way to do it... In C, a simple memcmp() call could do the job :-( However, I think this could be a nice and logical feature to have in GPC: Why, if we can assign a record to an other with ":=", cannot we test them for (in)equality afterwards? Perhaps I am bothering you with my conversion problems and suggestions, but you already saved me hundreds hours of work. It is invaluable! Thanks and thanks Pascal Viandier pascal(a)accovia.com

4 6

Mac objects and Delphi classes
by Waldek Hebisch 09 Aug '05

09 Aug '05

I have put a new "cumulative" diff on my GPC web page: http://www.math.uni.wroc.pl/~hebisch/gpc/delphi14.diff and http://www.math.uni.wroc.pl/~hebisch/gpc/dbxout.diff I have added a new option `--objects-are-references' (off by default, on for Mac Pascal) which choses reference model for objects. To get Mac semantics one has to use `--objects-are-references' and `--methods-always-virtual'. Delphi support still is incomplete (most visibly GPC does not know about `TObject'), but constuctors and destructors mostly work (one can not call a destructor from within another destructor), in particular allocate and deallocate memory. Adriaan van Os wrote: > I have compared various MacPascal object diffs posted on the gpc > mailing list (to delphi3.diff) with delphi9.diff. I see that two > patches are missing in Delphi9.diff. I guess the reason is > > - the first patch is not to gpc but to gpidump > - the second patch is of later date. Thanks for remainding me about gpidump patch. There are a few fixes that I found after delphi9.diff was made, the new diff collects them all (plus a new code, mostly for Delphi). -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

4 14

Re: fill string
by willett 09 Aug '05

09 Aug '05

Just to add confirmation to what Frank and Gale have said. In the following "foo" example, yes, the string length is undefined. Yes it is supposed to be an error, and is defined as an error in ISO and Extended Pascal standards. No, it's probably not desirable to start automatically initializing everything; it would be costly in time and space and generally an error-free program will do it's own initialization when needed. And sure, GPC does not detect undefined values, in fact, very very few "compilers" (actually runtimes) do detect undefined values. (Our "Dr. Pascal" interpreter is one of the few systems that does, and it costs a lot of runtime overhead and complexity.) It's very reasonable for GPC to not try to do this. Willett Kempton Visible Software On 7 Aug 2005, at 21:21, Frank Heckenbach wrote: > Russell Whitaker wrote: > > > >>> The capacity, OTOH, is initialized, and must be in order for the >>> string to work at all. >>> >>> >>> >> Would it be reasonable to define the length to be 0 as the default >> initialization? >> >> > > It would be nonstandard. Basically the same question as defining > default values for other types. The programmer can do this > explicitly (String (n) value '') if wanted. > > > >> Otherwise the following should produce an error >> but dosen't: >> >> program foo; >> var >> s : string( 500 ); >> begin >> writeln( length(s) ); >> end. >> >> > > As I said, GPC doesn't check for using undefined values at all. > (Currently, and this isn't going to change soon, as this is not > exactly trivial to implement in general ...) > > Frank > >

3 4

fill string
by Russell Whitaker 07 Aug '05

07 Aug '05

hi This used to work: program fil; var i : integer; s : string( 500 ); begin for i := 1 to 500 do s[ i ] := ' '; writeln("ok"); end. Now I get "Value out of range" Is it me or it? Russ

4 7

profiling information
by Peter N Lewis 05 Aug '05

05 Aug '05

Adriaan suggested I use --propagate-units to improve my compile speed. I tried that, but given I use --uses=GPCMacOSAll, where GPCMacOSAll is all the Mac OS X system interfaces in a single unit, and it compiles to a gpi of 27Meg, that would make each of my gpi's 27Meg (perhaps worse if it ends up being included multiple times). But regardless, it didn't work because a simple compile of a trivial unit ended up taking multiple minutes itself, so something it not happy. I'll have to see if I can manage to add explicit system units to the uses clause of my units in order to get --propagate-units in order to see if that will improve things, but I haven't done that yet. Then I tried turning off one of my processors, reverting back to the original gp so it compiles one unit at a time, and using the Mac OS X Shark tool to profile the system while compiling some units. It's not clear from the results what percentage of the time is actually being spent inside gpc1, but the report on a gpc1 processes is interesting (attached below). It shows 50+% in import_interface. This matches with what Adriaan saw in the progress messages (that the progress messages spent a long time in the lines around the uses clause). Enjoy, Peter. # Time Profile of Everything SharkProfileViewer # Generated from the visible portion of the outline view + 73.0% start (gpc1) | + 73.0% _start (gpc1) | | + 72.0% toplev_main (gpc1) | | | + 70.2% main_yyparse (gpc1) | | | : + 70.1% yyuserAction (gpc1) | | | : | + 54.3% do_extra_import (gpc1) | | | : | | + 54.3% import_interface (gpc1) | | | : | | | + 41.7% load_gpi_file (gpc1) | | | : | | | : + 27.4% load_node (gpc1) | | | : | | | : | - 6.4% get_identifier (gpc1) | | | : | | | : | - 4.7% load_string (gpc1) | | | : | | | : | - 4.7% mread1 (gpc1) | | | : | | | : | - 3.1% set_identifier_spelling (gpc1) | | | : | | | : | - 1.8% make_node (gpc1) | | | : | | | : | - 1.4% free (libSystem.B.dylib) | | | : | | | : | 1.1% szone_free (libSystem.B.dylib) | | | : | | | : | 0.3% mseek (gpc1) | | | : | | | : | 0.2% ggc_alloc (gpc1) | | | : | | | : | 0.1% itab_store_node (gpc1) | | | : | | | : | - 0.1% ht_lookup (gpc1) | | | : | | | : | - 0.1% build_decl (gpc1) | | | : | | | : | 0.1% sort_fields (gpc1) | | | : | | | : | 0.1% dyld_stub_free (gpc1) | | | : | | | : | 0.1% allocate_decl_lang_specific (gpc1) | | | : | | | : 11.8% compute_checksum (gpc1) | | | : | | | : - 1.5% gpi_open (gpc1) | | | : | | | : - 0.1% mread1 (gpc1) | | | : | | | - 12.4% import_node (gpc1) | | | : | - 13.2% finish_routine (gpc1) | | | : | - 2.0% finalize_module (gpc1) | | | : | - 0.3% import_interface (gpc1) | | | : | - 0.1% build_predef_call (gpc1) | | | : | - 0.1% start_unit_implementation (gpc1) | | | : - 0.2% yylex (gpc1) | | | - 1.5% write_global_declarations (gpc1) | | | - 0.1% init_regs (gpc1) | | | - 0.1% yyparse (gpc1) | | | - 0.1% lang_init_3_4 (gpc1) | | | - 0.1% init_emit_once (gpc1) | | 0.8% write_global_declarations (gpc1) | | 0.1% recog_12 (gpc1) | | 0.1% init_regs (gpc1) | | - 0.1% _call_mod_init_funcs (gpc1) - 15.9% thandler (mach_kernel) - 10.7% shandler (mach_kernel) - 0.3% unix_syscall (mach_kernel) - 0.1% thread_continue (mach_kernel) - 0.1% _dyld_start (dyld) -- <http://www.stairways.com/> <http://download.stairways.com/>

2 1

broken link
by Tom Schneider 04 Aug '05

04 Aug '05

Dear GPC Folks: http://www.gnu-pascal.de/gpc/Invoking-GPC.html#Invoking-GPC link to GCC Command Options (the GCC Manual) is | Not Found | The requested URL /gcc/Invoking-GCC.html was not found on this server. Where is it? Thanks, Tom Dr. Thomas D. Schneider National Cancer Institute Laboratory of Experimental and Computational Biology Molecular Information Theory Group Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu (use only if first address fails) http://www.lecb.ncifcrf.gov/~toms/

3 2

can't get dbx to find lines
by Tom Schneider 04 Aug '05

04 Aug '05

Folks: A program of mine is giving a segmentation fault and it's hard to locate. So I need to compile with debugging on and then run dbx to find the line number. I compiled as: gpc \ -g \ --transparent-file-names \ --no-mixed-comments \ -Wall \ lister.p -o lister When I run dbx dbx lister I get (header stuff deleted) Reading lister Reading ld.so.1 Reading libm.so.1 Reading libc.so.1 Reading libdl.so.1 Reading libc_psr.so.1 dbx: warning: Unknown symbol type: /home/strawberry/toms/work/lister/bug2005aug3/lister:lister.p stab #5 char:t(0,2)=@s8;-20; dbx: warning: Unknown symbol type: /home/strawberry/toms/work/lister/bug2005aug3/lister:lister.p stab #176 Sof:S(0,192)=@s24;@S;S(0,193)=r(0,1);0000000000001;0000000000003; dbx: warning: can't find local function 'Digit': /home/strawberry/toms/work/lister/bug2005aug3/lister:lister.p stab #265 Digit:f(0,61),Digit,Pluckdigit dbx: warning: can't find local function 'Pluckdigit': /home/strawberry/toms/work/lister/bug2005aug3/lister:lister.p stab #291 Pluckdigit:f(0,68),Pluckdigit,Getdatetime dbx: warning: Unknown symbol type: /home/strawberry/toms/work/lister/bug2005aug3/lister:lister.p stab #1222 tmp_string_32:(0,210)=s12Capacity:(0,4),0,32;length:(0,4),32,32;_p_schema_:(0,211)=@s8;@S;S(0,212)=r(0,1);0000000000001;0000000000001;,64,8;; dbx: number not found at /home/strawberry/toms/work/lister/bug2005aug3/lister:lister.p stab #1222 tmp_string_32:(0,210)=s12Capacity:(0,4),0,32;length:(0,4),32,32;_p_schema_:(0,211)=@s8;@S;S(0,212)=r(0,1);0000000000001;0000000000001;,64,8;; (/opt/SUNWspro/bin/../WS6U2/bin/sparcv9/dbx) and then tell it to run It runs fine (up to the crash): (expected output) signal SEGV (no mapping at the fault address) in 272 at 0x3003c 0x0003003c: 272+0x0350: ld [%o0 + 0x4], %o1 (/opt/SUNWspro/bin/../WS6U2/bin/sparcv9/dbx) but for the line command I always get: dbx: no current source file Somehow it does not locate the Pascal source. What (perhaps obviously trivial) thing am I missing? (I tried xping but it was not obvious how to get it to point to the error. I tried workshop on this sun machine and it gave me a machine code location.) Maybe there is a page somewhere that says how to do this? I didn't find it. gpc -g --transparent-file-names --no-mixed-comments -Wall lister.p -o lister The command files gives dbx: no program Thanks! Tom Dr. Thomas D. Schneider National Cancer Institute Laboratory of Experimental and Computational Biology Molecular Information Theory Group Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu (use only if first address fails) http://www.lecb.ncifcrf.gov/~toms/

2 1

const s: String(1000) passed by value?
by Peter N Lewis 03 Aug '05

03 Aug '05

It seems that const parameters of string types are passed by value, eg: program peterT4; type Str = String(1000); var gs: Str; procedure Doit( const s: Str ); begin if @s = @gs then begin WriteLn( 'OK' ); end else begin WriteLn( 'failed' ); end; end; begin Doit( gs ); end. fails. I checked the code and it definitely looks like it is doing a copy. I use a lot of long strings (2500) and so this seems like a serious problem to me... Thanks, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

4 5

Heap dimensions
by Silvio a Beccara 01 Aug '05

01 Aug '05

Hello, is it possible to increase heap dimensions? I am running a GPC program which uses "big" dynamic arrays of double precision floats (up to 200 x 500) and, while it runs fine with smaller dimensions, from 128 x 256 up I get the following error: /u/dms/abeccara/pimc/parpi/pimb: out of heap when allocating 629145608 bytes (error #853 at 8071a32) I wasn't getting this error when using an older GPC version 2.1 (20020510), based on gcc-2.95.2 19991024. I am running on 30 processors with 1 GB RAM each, so I would like to use this memory. Thanks in advance, best regards Silvio a Beccara -Trieste Italy -- Email.it, the professional e-mail, gratis per te: http://www.email.it/f Sponsor: Vuoi bere tanta acqua pura e risparmiare ben 495 euro all'anno? * Con BeviSano avrai finito di comprare acqua in bottiglia - clicca qui Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=3628&d=21-7

9 20

Saving error
by Prof. Harley Flanders 29 Jul '05

29 Jul '05

I have several partitions on my hard drive. The GNU compiler and IDE is in folder G:\dev_gpc I created a folder in partiton I; to hold my experiments: I:\gnu_examples I write a short program "Test" and save it to that folder, in partition I: It compiles with the error: Cannot open iutput file i:\gnu_examples\test.exe: No such file or directory. The same program, saved to a folder in G:\dev_gpc runs OK. A related problem: I see no way to capture error messages in to the windows clipboard, for pasting into editors -- like this one. -- =========================================== Prof. Harley Flanders 3533 Windemere Court Ann Arbor, MI 48105-2867 Home: 734 668 1546 harley(a)umich.edu ===========================================

2 1

Ballistic program
by Prof. Harley Flanders 29 Jul '05

29 Jul '05

GNU Pascal GPC v. 2.1 (20050331) The following console program (with a slight typo) drives the compiler ballistic. program Project3; begin Writeln('Hello); Readln; end. -- =========================================== Prof. Harley Flanders 3533 Windemere Court Ann Arbor, MI 48105-2867 Home: 734 668 1546 harley(a)umich.edu ===========================================

3 2

ICE when compiling ncurses demo program with -O1
by Adriaan van Os 29 Jul '05

29 Jul '05

Compiling <http://www.microbizz.nl/ncurses-20050730.tar.gz> with -O1 causes an ICE on Mac OS X. [G5:~/Desktop/ncurses-gpc-20050730] adriaan% gp firework.pas -O1 /Users/adriaan/Desktop/ncurses-gpc-20050730/ncurses.pas:178: warning: identifiers should not start with an underscore /Users/adriaan/Desktop/ncurses-gpc-20050730/firework.pas: In main program: /Users/adriaan/Desktop/ncurses-gpc-20050730/firework.pas:146: error: insn does not satisfy its constraints: (insn 951 991 952 2 (set (reg:DI 63 f31 [157]) (mem/u/f:DI (lo_sum:SI (reg/u:SI 2 r2) (const:SI (minus:SI (symbol_ref/u:SI ("*LC16") [flags 0x2]) (symbol_ref:SI ("<pic base>"))))) [0 S8 A64])) 325 {*movdi_internal32} (nil) (expr_list:REG_EQUIV (const_int 2 [0x2]) (nil))) /Users/adriaan/Desktop/ncurses-gpc-20050730/firework.pas:146: internal compiler error: in reload_cse_simplify_operands, at postreload.c:391 Please submit a full bug report, with preprocessed source if appropriate. See <URL:http://www.gnu-pascal.de/todo.html> for instructions. [G5:~/Desktop/ncurses-gpc-20050730] adriaan% gpc -v Reading specs from /Developer/Pascal/gpc344d2/lib/gcc/powerpc-apple-darwin7/3.4.4/specs Configured with: ../gcc-3.4.4/configure --enable-languages=pascal,c --enable-threads=posix --target=powerpc-apple-darwin7 --host=powerpc-apple-darwin7 --build=powerpc-apple-darwin7 --prefix=/Developer/Pascal/gpc344d2 Thread model: posix gpc version 20050331, based on gcc-3.4.4 Regards, Adriaan van Os

1 0

installation if units DOS and CRT
by J.N.J. van Lingen 27 Jul '05

27 Jul '05

Hello, I just compiled GPC on a dual opteron machine for a friend and it works fine. However my friend wants to use his old sources which use the units crt and dos. These are not included in this installation, while they were there in a earlier windows version he used to use. Can anybody tell me how to get these units up and running? Thanks in advance Joost van Lingen Theoretical Chemistry Group Utrecht University The Netherlands

2 3

Re: Packing strings ()
by Frank Heckenbach 27 Jul '05

27 Jul '05

Contestcen(a)aol.com wrote: > > Not again please!!! Peter himself made it explicitly clear that he > > asked for runtime storage (which was clear to all of us except you > > from the beginning). > > I suggested the macros once, at the very beginning of this thread. As soon > as it became clear that he wanted run-time macros, I made suggestions for that > case. I never again suggested the static solution. However, it keeps coming > up because people keep claiming that I am off the topic. Are you lying intentionally, or don't you even know what you wrote? Below are several mails of yours that all talk about static storage, as late as two weeks after the initial question. Note that in the last and 4th-last of these quoted excerpts, you actively try to bring the subject "back" to static storage. Actually, these mails mention the "Pascal Macro Compiler" so often, even after it was clear (as you say) it's off-topic, it's close to spamming! Sure, some of these mails are to answer questions and criticism by others, but if it really was clear to you it was off-topic, you could have said: "Sorry, I misunderstood the question. The Pascal Macro Compiler is not useful for this purpose.", instead of carrying on a pointless discussion and annoying everybody. : Date: Thu, 7 Jul 2005 02:46:38 EDT : The Pascal Macro Compiler has a set of macros that will pack character : strings without any wasted space between them The macros can be downloaded directly : from the webpage http://www.contestcen.com/paskey.htm which has both the : source code and a detailed description. : Date: Fri, 8 Jul 2005 02:51:10 EDT : I assumed that the strings were being stored at runtime because storing them : end-to-end at compile time was too tedious. If there is a static set of : strings, then the Pascal Macro Compiler can store them without any wasted space. : Date: Mon, 11 Jul 2005 13:37:35 EDT : Conclusion: If the strings are known at compile time, the most efficient way : to store them without gaps is to use the Pascal Macro Compiler. : Date: Wed, 13 Jul 2005 02:57:37 EDT : Whether you choose to align the length field on an integer-size boundary or : not is a decision you could make based on a time versus space trade-off. The : macros that I have written happen to store the strings with no gaps at all, and : do not do any alignment. If you decided that for your application and : platform aligning the strings was better, then you would not use my macros, you : would write your own macros, or modify my macros to align the strings. The Pascal : Macro Compiler is a general-purpose preprocessor, and can align or not align : as the user wishes. : Date: Wed, 13 Jul 2005 03:07:05 EDT : Using the Pascal Macro Compiler you can store the strings with no gaps and no : wasted space whatsoever. I don't see how you can improve on that. : Moreover, the method requires no code, makes no calls, and takes no time at : run time. I don't see how you can improve on that. : Date: Thu, 14 Jul 2005 02:07:45 EDT : This may be true for executable code generated by the Pascal Macro Compiler, : but it is not true for the data declarations that are generated for the packed : strings. There is no executable code involved, so the compiler has nothing : to optimize. : There is no wasted space, so there is nothing that can be improved. : Date: Thu, 14 Jul 2005 03:18:40 EDT : The prologue of these macros says, "This version is intended mainly as a : demonstration." It is an example designed to illustrate some of the features and : capabilities of the Pascal Macro Compiler. Users who do not need alignment : can use the macros as provided. Users who need alignment can easily add that : feature to the macros. : If there are any requests from bona fide users of the Pascal Macro Compiler : for an alignment feature, then I will be glad to add it. : Date: Sun, 17 Jul 2005 02:16:49 EDT : That's very nice. However, please recall that I said the main reason for : using a character array instead of a string is because I needed more than 255 : characters. So, having a better way to initialize a character array of up to 255 : characters doesn't help me. If I only wanted 255 characters I would have : used a string in the first place. : Date: Mon, 18 Jul 2005 02:13:55 EDT : My understanding from the original post is that he wanted the strings stored : as given, not compressed. The macros simply store the strings end-to-end : without any gaps. However, the macros would work equally for compressed strings, : assuming they have the same form, namely length field and data string. : If you want the entire body of strings compressed as a unit, then you could : use the macros to create the concatenation of all the individual strings, and : compress the result. It would be up to you to devise methods for accessing the : strings within the compressed mass. : Date: Tue, 19 Jul 2005 02:47:42 EDT : In any case, we are getting off the subject, which was how to store a set of : varying-length strings with minimal wasted space. The method that I : suggested, using the Pascal Macro Compiler, uses no wasted space at all. : Date: Tue, 19 Jul 2005 03:12:02 EDT : The Pascal Macro Compiler could certainly generate code for accessing the : strings, however the Keyword String macros do not generate access code; they : generate data structures. : Date: Thu, 21 Jul 2005 00:55:11 EDT : If you need to initialize a character array greater than 255 chars in BP, you : can resort to using absolute. : Date: Thu, 21 Jul 2005 16:23:31 EDT : The subject of this thread in the GPC mailing list is how to store : character strings without wasted space. Notive that the subject of this thread is : "Packing strings ()" That was the subject of the original posting that : started the thread. : I have mentioned the Pascal Macro Compiler because it comes with macros : that have the ability to pack strings without wasted space. That is the : original question, and this is an appropriate answer to the question. I have not : discussed the Pascal Macro Compiler in any other context except to answer the : question in this thread. > My answer about compile-time storage was long ago. This thread has moved > beyond that into other aspects of storage management and data access. I have > since suggested allocating storage as a set of extension blocks, and as a single > block that gets copied when it overflows. I have moved on from compile-time > storage. See above. Your mails speak a different language. > So let me remind you of another topic that got raised, namely perfect > hashing. You suggested the use of gperf, a program which I read about many years > ago, but had forgotten. The reason I ignored gperf is that I think it can work > only for very easy sets of keywords, and it will fail badly for hard sets, even > if they are fairly small. I proposed that you and I test gperf on some > harder keyword sets. Are you willing to try this? There's one thing you're really good at -- causing other people work. First you make us explain you how email works and basic netiquette rules again and again and again, now you want *us* to test gperf. Can't you do it yourself? Create those data sets you're concerned with, produce gperf output, look at applicable gperf options, and comment on the results, perhaps comparing them with other programs, then present us your results. As this is a bit off-topic on this list, better put them on your web site and post a pointer to the site here. > > Really not. Unfortunately, the main archives are still offline (but > > you might be able to find mirrors through Google). There you'll see > > that few, if anyone, had so many initial problems. Some did an HTML > > posting or strange quoting in their initial mail, but after a > > friendly reminder, they changed it. You're probably the first one > > who seems to need a majority vote of all list subscribers to > > convince you (would 2/3 of all who ever posted to the list be enough > > for you, counting abstentions as negative votes? ;-), and constantly > > ignores all pointers to standard netiquette (including numerous ones > > in private mail, I must add). > > I am not trying to ignore or flout the requests for non-HTML postings. In > fact, I have gone to a good deal of effort to try to find ways of minimizing or > eliminating the HTML in my postings. > > The net result is that I have been unable to find any control that will turn > off the HTML, So, if you apparently realized by now that non-HTML mail is common practice, and your can't find a way to do this simple thing in your mailer, what does this tell you about your mailer? Either it's crap or it's poorly documented so even basic settings are hard to find. (You did read the documentation, didn't you?) > and I have not yet found another mailer that has that ability. > None of the people who have been corresponding with me offline have been able > to tell me what mailer could work. What twisted form of argument is this? After people online (such as Emil Jerabek and me) have repeatedly pointed you to alternatives, your excuse now is that people you correspond with *offline* don't know better answers!? (Perhaps that's why they correspond offline. ;-) What's next? If some of them happens to send you a postcard naming another mailer, are you going to claim your cat and dog couldn't tell you one??? > I don't know the features of other > mailers, and the descriptions I have seen on the Internet never mention an HTML-free > option. Perhaps because it's so obvious they don't bother to mention? When you're buying a car, do you only look at advertisements that point out that is has several wheels and an engine??? To repeat, plain text mail is the default. MIME is an EXTENSION (the E in MIME really stands for extensions!) to encode other formats into plain text. So every mailer that sends MIME must ultimately be able to send plain text mails. And all except perhaps a few extremely perverse ones don't hide this fact from the user. Frank -- Frank Heckenbach, frank(a)g-n-u.de http://fjf.gnu.de/ GnuPG and PGP keys: http://fjf.gnu.de/plan (7977168E)

1 0

Cryptic runtime error
by Pascal Viandier 26 Jul '05

26 Jul '05

Hi, I am currently converting many SUN Pascal programs to GPC (on Solaris for now). I must say, the operation goes pretty well for now (with the help of a Perl translation program I build progressively when I encounter syntax issues). In this context, the first time I ran my second translated program, I got the following runtime error: run.shell: Value out of range (error #300 at 4692b) Here comes my point: - That is true, there was an error, but I had to browse the code a lot to find it! - With such a message, is there a way to find out where the faulty code is? - What means the 4692b (an address in hex?)? - Is it feasible to implement (in a future release) more explicit error messages, like 'run.shell: Value out of range in run.shell.pas, line 1229' for example, when the program is compiled with -o0 and -g options? Anyway, I would greatly appreciate a hint for the next time I will have such a runtime error. Thanks Pascal Viandier

2 3

No HTML here, please
by Contestcen＠aol.com 25 Jul '05

25 Jul '05

> I would encourage that, but please don't just dump HTML messages, > bounce them with the specific reason. That might improve the > breed. I looked at some of my emails to this mailing list, and I found the following HTML tags: a few standard tags at the front to establish that it was an HTML message, and to start the body. A BR tag at the end of each line in the body of the text, and some DIV tags where I skipped lines. Then I looked at your email, this one where you complained that I was using HTML. I found the following HTML tags: a few standard tags at the front to establish that it was an HTML message, and to start the body. A BR tag at the end of each line in the body of the text. The only difference was that there were no DIV tags. However, there was still pretty much one tag for every line in the file. In this forum, people apparently prefer > signs at the start of each line of quoted text. In fact, some people insist on that. You might not realize this, but those line divisions are achieved by using BR tags. As far as I can see, roughly the same amount of HTML is generated in your emails as in my emails. I can make it exactly equal by not skipping any lines. Would you prefer that? Would it be easier for you if my answers were always in a solid block of text without any blank lines separating paragraphs? Let me give that a test. Here is my answer repeated without the blank lines: I looked at some of my emails to this mailing list, and I found the following HTML tags: a few standard tags at the front to establish that it was an HTML message, and to start the body. A BR tag at the end of each line in the body of the text, and some DIV tags where I skipped lines. Then I looked at your email, this one where you complained that I was using HTML. I found the following HTML tags: a few standard tags at the front to establish that it was an HTML message, and to start the body. A BR tag at the end of each line in the body of the text. The only difference was that there were no DIV tags. However, there was still pretty much one tag for every line in the file. In this forum, people apparently prefer > signs at the start of each line of quoted text. In fact, some people insist on that. You might not realize this, but those line divisions are achieved by using BR tags. As far as I can see, roughly the same amount of HTML is generated in your emails as in my emails. I can make it exactly equal by not skipping any lines. Would you prefer that? Would it be easier for you if my answers were always in a solid block of text without any blank lines separating paragraphs?

6 9

GP creates unresolved links when compilation is done using GP
by Igor Marnat 25 Jul '05

25 Jul '05

Hello Peter, >>I have the main program file program.pas, it uses >>a few units unit1.pas, unit2.pas, ... After the compilation process is >>finished, file program.o contains unresolved links to the functions >>init_Unit1, init_Unit2, ... PNL> gp will create each of the .o files for each unit, it PNL> unit1.o, unit2.o, program.o PNL> unit1.o will include the init_Unit1 function. PNL> You then need to link them all together. Well, this is the problem: unit1.o doesn't contain the function init_Unit1. Therefore unresolved link to init_Unit1 in program.o cannot be resolved. This is the difference from program.o compiled with "arm-elf-gpc --autobuild ..." command line. Program.o compiled in such a fashion doesn't contain unresolved link to init_Unit1. The file program.o compiled with "gp PC=arm-elf-gpc ... " does contain the link to init_Unit1 that cannot be resolved. In the both cases the same arm-elf-gpc compiler is used. Regards, Igor Marnat mailto:marny@rambler.ru

1 0

Re: unit dependencies (about GPC compiler internals)
by Igor Marnat 25 Jul '05

25 Jul '05

AvO> There are known problems with --autobuild and --automake. Anyway, since AvO> these options will be deprecated in the near future, try "gp" AvO> (<http://fjf.gnu.de/>) instead. Adriaan, thank you very much! It works ... partially:) It works fine with my native gpc compiler (it is of version "gpc version 20050217, based on gcc-3.4.3"). I'm also forced to use cross compiler (for arm-elf- target). Here is the problem. More detailed: I have the main program file program.pas, it uses a few units unit1.pas, unit2.pas, ... After the compilation process is finished, file program.o contains unresolved links to the functions init_Unit1, init_Unit2, ... Some of the units don't have such a functions. It is the units that don't have the code that is executed on unit initialization time. So these references cannot be resolved and build process stopped with error. Is it possible that the problem is caused by my cross compiler which is a bit old? (my arm-elf-gpc is "gpc version 20030830, based on gcc-3.3.1"). Actually, I'm confused because this very compiler can build the project if it is called in another way. When build process is inited in "arm-elf-gpc --autobuild ..." fashion (an old fashion), there is no program.o file in current directory - compiler builds main program object file in a temporary directory and all works fine (obviously, it doesn't add links to non-existing functions). When build process is inited as "gp PC=arm-elf-gpc ..." (a new fashion), there is program.o file in current directory which contains unresolved links. waiting for any ideas, Regards, Igor Marnat mailto:marny@rambler.ru

2 1

Re: New as function
by Peter N Lewis 25 Jul '05

25 Jul '05

> > Peter N Lewis wrote: > > > Does New as a function return nil or does it still give a runtime error? >> > >> > If I want to allocate memory, but handle it gracefully if it fails, > > > what are the recommended approaches? >You could also trap runtime errors, using `AtExit', or use the >`Trap' unit (which does this internally). This comes somewhat closer >to exception, though it's not quite the same. Indeed, this may be >the best solution available. It's a bit code to write, but it uses >`New' and has no disadvantages in this regard. Ok, it's an interesting approach, but I'd have to write that code for each type, which is still pretty ugly. I just checked, and if New returns nil (using the UndocumentedReturnNil for example), the compiler will blindly try to Initialize the returned data, and bus error. I'm not sure if this counts as a bug, since presumably UndocumentedReturnNil is only suppose to be for BP compatibility, and with BP compatibility there would be no Schema and thus no initialization. Unless perhaps BP has objects, in which case, New(obj) which returned UndocumentedReturnNil would probably have the same bus error issue. It's a shame, as this would be the best solution (documenting UndocumentedReturnNil and allowing GetMem to return it). I'd love to start using New and Schema and such, but the best solution seems to be the Trap technique and that's some ugly code to have any place you want to use New and not crash out. I guess I can stick to using the system NewPtr routine and manually calling Initialize, but that doesn't mesh will with Schema. I did think of another hack, which was to pre-allocate a chunk of memory larger than the largest New command, and then have GetMem return that for failure, then rather than testing for nil, I could test of that safe return value. It's ugly, but probably the simplest solution that provides clean New code. Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

4 20

Pascal in .ar prisons + xlate Pascal to Spanish
by Nicolas Rosner 25 Jul '05

25 Jul '05

Hi. I just sent an email [see below] to Florian from the Free Pascal team. Then I found out about GNU Pascal, and thought this list might be another good place to ask. Any pointers to i18n or related efforts that could be of any use to us are most welcome. TIA, I look forward to hearing from you, N. ------ Hello! I'm involved in a project called "UBA 22" where we teach basic computer skills to inmates of local (Buenos Aires, Argentina) prisons. It's a difficult task, the penitentiary service tolerates but hardly helps us, state support is scarce, etc. At the prison where I used to teach until recently (SPF U2, "Devoto"), we had five almost-falling-apart 486s and one Pentium 1 or so, for a very high demand of students (nearly 800 interested per term, of which nearly 200 are admitted). We teach the basics, from "what is a computer" to Windows usage, MS Office tools, etc. During the last couple of years I've been thinking about setting up a newer, more advanced course for the few inmates who survive the 3 or 4 basic ones. I'd like to teach a very basic intro to programming. Pascal seems like a decent language for this (there are better options, but each has its own cons [no pun intended]). Anyway, I've been looking for a compiler, but there's a big language problem -- most of our students hardly read or write in Spanish, let alone anything in English. "Begin", "While" and "For" don't mean anything to them. So my aim is to find - a free pascal compiler for DOS, Windows and Linux on Intel hardware - which {already is || can easily be} translated to Spanish where by "translated" I mean - basic language keywords - basic lib elements (nothing very specific, just basic i/o, etc.) - basic compiler and linker output More advanced / obscure stuff might very well be in English. I can translate, I have no problem with that. But I need the right product, a license that allows for this, and any reasonably simple method in order to find the strings and replace them with Spanish equivalents. Do you think FP [GPC] would be a good option? Any input will be very welcome. Thanks a bunch IA & greetings from Buenos Aires. Nicolás Rosner Departamento de Computación Facultad de Ciencias Exactas y Naturales Universidad de Buenos Aires Argentina

2 1

(no subject)
by Contestcen＠aol.com 24 Jul '05

24 Jul '05

> Does New as a function return nil or does it still give a runtime error? > > If I want to allocate memory, but handle it gracefully if it fails, > what are the recommended approaches? In BP there is a HeapError variable which points to the default error procedure. You can reset it to point to your own error procedure and handle the error however you like. I don't know if this works with other Pascal compilers. Frank Rubin

3 2

Array elements as control variables
by Contestcen＠aol.com 23 Jul '05

23 Jul '05

> done, but I much prefer the loop version to the last version. > > Can't you use a macro processor to generate the verbose code? ;-) Yes, I would use the Pascal Macro Compiler for this chore, but whether I code it by hand or generate using the PMC, my program still would contain the verbose code. > Anyway, I see that this is an example, at least in theory. However, > I'd probably do it differently in practice. I think this is more > efficient, since you don't need any comparisons, and in particular > no extra code in the innermost loop which is the most time-critical. > If you need the original start values afterwards, copy the array > before the first loop, of course. > > for a1 := start[1] to max[1] do > begin > for a2 := start[2] to max[2] do > begin > for a3 := start[3] to max[3] do > begin > ... > end; > start[3] := 1 > end; > start[2] := 1 > end; > > Frank This is much nicer code than my version. However I would still choose to make the loop control variables a[1], a[2], a[3], etc., so that when I take the checkpoint the checkpointing procedure could use a loop like for n := 1 to depth do writeln (checkfile, a[n]); Incidentally, when I do this in practice I do not usually test for interruptions at every level in the nested loops. If the loops are nested 30 levels deep I might test for user interrupts only at levels 5, 10, 15 and 20. However, if the interrupt occurs at, say, level 15, you still need to write all of the control variable values from 1 through 15 to the checkpoint file. Frank Rubin

4 4

Mailing list archive is back
by Frank Heckenbach 23 Jul '05

23 Jul '05

After some time of problems the mailing list archives are back at their usual places: http://www.gnu-pascal.de/crystal/gpc/en/ http://www.gnu-pascal.de/crystal/gpc-announce/en/ http://www.gnu-pascal.de/crystal/gpc-doc/en/ The full GPC web site will be restored next week I hope. 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 GPC download signing key: ACB3 79B2 7EB2 B7A7 EFDE D101 CD02 4C9D 0FE0 E5E8

1 0

GPC and Mac implicit pointer objects
by Waldek Hebisch 22 Jul '05

22 Jul '05

As I wrote I updated may implementation of Delphi classes to gpc-20050331. Now, I have put a patch at: http://www.math.uni.wroc.pl/~hebisch/gpc/delphi3.diff With the patch, when one chooses Mac Pascal as a dialect, object model should be compatible with Mac Pascal: -- objects are pointers -- all methods are virtual (that was already implemented in gpc-20050331) -- overriding a method requires `override' keyword -- you can allocate memory for objects with `New' and deallocate it with `Dispose' In default mode the `class' keyword is recognized and allows you to declare Delphi classes. ATM Delphi constructors works only in simplest case (you can not call a constructor inside a (different) constructor). Destructors do not deallocate memory (but `Dispose' applied to a Delphi class will deallocate memory). Also, Delphi builtin `TObject' is unimplemented. This is experimatal (and incomplete) implementation. I would like to get some feedback about missing features. Also, if I got semantics of implemented parts correctly. ATM I know only about one missing Mac objects feature (which is almost surely due to my lack of knowledge about Mac Pascal): GPC requires all methods to be defined in the same unit as the object (TCL sources implement methods in different units). And of course test programs are welcome. -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

5 38

Update for Mac OS X
by Adriaan van Os 22 Jul '05

22 Jul '05

Updated compiler sources, binaries and patches for Mac OS X can be downloaded from <http://www.microbizz.nl/gpc.html>. Please note that there are separate binary installer packages for Mac OS X 10.3 and Mac OS X 10.4. The distribution is based on gpc-20050331, gcc-3.4.4 and Waldek's MacPascal (& Delphi) object support patches (delphi14.diff). Regards, Adriaan van Os

1 0

New as function
by Peter N Lewis 22 Jul '05

22 Jul '05

Does New as a function return nil or does it still give a runtime error? If I want to allocate memory, but handle it gracefully if it fails, what are the recommended approaches? Thanks, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

3 3

unit dependencies (about GPC compiler internals)
by Igor Marnat 22 Jul '05

22 Jul '05

Hello list! I try to build big enough project (~170 units) with --autobuild option. It was built successfully before but from some time it stopped to be built. It seems to me that the problem is in a branchy dependencies between units which goes more and more complicated. Build process stops with the message 'error: module/unit `mainvar.pas' could not be compiled'. I investigated GPC sources a bit (particularly, module.c unit). As far as I got, the problem is: when it try to build mainvar.pas, it stores file name (mainvar.pas) in temporary file with label #compiling. Then the compiler goes to compile units from mainvar.pas "uses" section, some of these units in their turn uses unit mainvar (indirectly, may be). So the compiler tries to compile mainvar.pas once again a bit later and add its name (mainvar.pas) to temporary file again with #compiling label. Before every attempt it checks that the file is mentioned in the temporary file less then 2 times (by call "find_automake_tempfile_entry ("#compiling: ", fn, 2)"). When it tries to add mainvar.pas to a temporary file in a third time, it find that this file name has been already added twice to temporary file and stops building process with error mentioned above. There are the comments in compile_module function in module.c file: /* File is being compiled => avoid a cycle. This also avoids compiling one source file twice with `--autobuild'. */ /* @@@@@@ Kludge. Allow two simultaneous compilations of the same module (fjf40[57].pas), but not infinitely many (sven18[a-c].pas). The number 2 is arbitrary. */ Is it really true that number 2 is arbitrary? Should I review module dependencies or there is some other soluton (may be, change 2 to 3 :-))? May be I missed something? GPC version: "gpc version 20040516, based on gcc-3.3.2". Regards, Igor Marnat mailto:marny@rambler.ru

2 1

gcc-3.4.4
by Russell Whitaker 22 Jul '05

22 Jul '05

Hi Now that gcc-3.4.4 is out, thought I'd try it with gcc-20050331. Using gcc-3.4.3.diff, got these rejects: gcc.c.rej varasm.c.rej version.c.rej That last one I needed to patch version.c manualy so gcc would compile. After I did it, wondered if it might be beter to patch gpc instead? Since have 2 cpu's, tried "make -j3 bootstrap". The c part ran ok, it quit in the rts with an error message. "make bootstrap" & installed with no problem: Reading specs from /usr/local/lib/gcc/i686-pc-linux-gnu/3.4.4/specs Configured with: ../gcc-3.4.4/configure --enable-languages=c,c++,pascal Thread model: posix gpc version 20050331, based on gcc-3.4.4 Ran gpc's test using gcc-3.3.5 and then gcc-3.4.4, got one new fail: avo7.pas And ran the tests with "time make": gcc-3.3.5 gcc-3.4.4 ---------- ---------- real 22m24.452s 20m49.896s user 11m40.872s 10m52.583s system 10m25.648s 9m41.803s And that's it Russ

3 4

Packing strings ()
by Contestcen＠aol.com 22 Jul '05

22 Jul '05

>> In any case, we are getting off the subject, > > Finally, a word of wisdom... > >> which was how to store a set of >> varying-length strings with minimal wasted space. > > ... except that the subject of this mailing list is not "how to store > something somewhere", but "the GNU Pascal Compiler", in case you > didn't notice. Discussion of the Pascal Macro Compiler belongs to the > Pascal Macro Compiler mailing list. > > Another thing which you apparently didn't notice, although three > people already asked you to do so: please, turn off HTML in your mail. > > Emil Jerabek The subject of this thread in the GPC mailing list is how to store character strings without wasted space. Notive that the subject of this thread is "Packing strings ()" That was the subject of the original posting that started the thread. I have mentioned the Pascal Macro Compiler because it comes with macros that have the ability to pack strings without wasted space. That is the original question, and this is an appropriate answer to the question. I have not discussed the Pascal Macro Compiler in any other context except to answer the question in this thread. I have gone to great lengths to avoid creating any HTML in my postings to this mailing list. To avoid HTML-style quoting, I am copying the postings myself, and inserting all of those greater-than signs by hand. I have avoided putting in any links because I have not found a way to suppress the anchor tags. I have not done any form of text emphasis other than using caps, used no colors, inserted no pictures or backgrounds, and given no email links. I don't see what I am doing that makes you see HTML in my posts. I can't see any signs of HTML in these emails, other than line breaks, which are already in the emails when I receive them from the mailing list. If I manually removed the line breaks, then the gt-signs would no longer be along the left edge, but interspersed in the text. I don't think that would be desirable. I have tried to stick to the subject, but other people have been attacking my postings for all sorts of reasons that I believe are tangential at best, such as the use of text compression, hashing, trees and linked lists. I have tried to point out that these are separate issues, but I get attacked again when I do that. I am starting to wonder if this isn't some kind of hazing for the new guy, and if I want to join this fraternity then I have to undergo this ritual. Or maybe you are just testing me to see if I am worthy to be in this august company. Frank Rubin

6 5

Re: New as function
by Peter N Lewis 22 Jul '05

22 Jul '05

> > If I want to allocate memory, but handle it gracefully if it fails, > > what are the recommended approaches? > >You could call GetMemPtr directly (with all the drawbacks of using >GetMem vs. New, as you know), or install your own allocator >(wrapper) which returns `UndocumentedReturnNil' (as, e.g. BPGetMem >in the System unit does). As the name indicates, this was really a >quick kludge, added to support this BP compatibility unit ... Sounds ugly. Does this mean the compiler actually does cope with New returning nil? Ie, it wont call Initialize? >I don't think we have a really nice way to do it ATM. Is there (or perhaps should there be) a way to disable the run time error temporarily and manage to return New with a nil value? If the compiler already copes with New potentially returning nil, then presumably all it would need would be a flag to heap.pas to return nil without a runtime error? It looks like heap.pas would need to be a little more careful with how it copes with nil (for example, currently AddToMarkList and AddHeapRange would be called if GetMemPtr^ was allowed to return nil without generating a runtime error. New( s, 10 ); if s <> nil then is much cleaner than s := GetMemPtr^( SizeOf(String(10)) ); if s <> nil then begin Initialize(s^); I presume the two sequences of code would be equivalent if the runtime error in New was avoided and returned nil instead. I'm happy to add support for a flag in heap.pas if that is desired, assuming that it wont have any affect on the compiler and the compiler already does handle the New returning nil case. Thanks, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

1 0

Mac OS X Pascal Interfaces
by Adriaan van Os 21 Jul '05

21 Jul '05

The latest version of the Mac OS X Pascal Interfaces <http://www.microbizz.nl/GPCInterfacesF.tar.gz> can be downloaded from <http://www.microbizz.nl/gpc.html>. Detailed release notes are included with the package, a summary is given below. Most important news is that compatible interfaces for FPC have been added. I have to thank Peter N. Lewis and Gale Paeper for the effort they put in this new release and Olle Raab for his help in creating the FPC interfaces. Regards, Adriaan van Os

1 0

Strings and Char Arrays
by Contestcen＠aol.com 21 Jul '05

21 Jul '05

> This SHOULD NOT work in BP or any flavor of Pascal, any more than the > following should work: > > const Digit: array[0..255] of 0..9 = 123456789101112; > > A string is a different data type than an array of char, with a lot of > different methods. > > I am surprised tht BP identifies short arrays of char with short strings. > > Would (and should) this work? > > program foo; > > var ch1, ch2, ch3: array[1..100] of char; > > begin > ch1 := '123'; > ch2 := '456'; > ch3 := ch1+ch2; (* or ch3 := Concat(ch1, ch2); *) >Writeln(ch3, ' ', Length(ch3)); > end. > > I say absolutely not. HF I tried this, and it does not compile. The Borland compiler will not allow ch1 := '123'; Assigning a string value to a character array is a shortcut for initializing character arrays so that you don't have to write Const ch: array[1..100] of char = ('H', 'e', 'l', 'l', 'o'); Instead you can write Const ch: array[1..100] of char = 'Hello'; However this works only in Const clauses, and only when the size of the array elements is less than 256 characters. If you need to initialize a character array greater than 255 chars in BP, you can resort to using absolute. For example Const ch1: array[1..5,1..100] of char = ('First 100 chars', 'Second 100 chars', ..., 'Last 100 chars'); Var ch: array[1..500] of char absolute ch1; Frank Rubin

3 2

Packing strings ()
by Contestcen＠aol.com 20 Jul '05

20 Jul '05

>> Making a perfect hash requires 7 additional tables, 3 independent hashes of >> the string, 3 tables to convert the hash values into summands, and one table to >> convert the sums into pointers to the strings. (There is a trick that can >> reduce this to 5 tables, but it makes the first hashing round slower.) > > Any references for these claims? > > gperf needs only one additional table. It doesn't need several > "hashing rounds", only one very short hash function. Did you > actually look at it (or comparable programs)? First, let me clarify some terms. There are two properties of hash functions involved here. The first is that every keyword hashes to a different value. This is called "collision-free" hashing, or "single-probe" hashing. The second property is that hash function for the N keywords is into a set of N things (such as N pointers, or the integers from 0 to N-1). This is called "minimal" hashing. If the hash function is both collision-free and minimal, then it is called "perfect." Apparently, perfect hashing is so hard to achieve in practice that the terms have become debased, and people are now calling a hash "perfect" if it possesses only the first of the two properties. When I made my statement about 5 or 7 tables, I had in mind my own implementation of perfect hashing (in the stricter sense). I invented this many years ago, possibly as early as 1980, but immediately (the next day, in fact) discovered that I was 2 or 3 years too late. It had already been published, I think in CACM. However, I do not have the reference. It is the only method I know to achieve (true) perfect hashing with large and diffcult keyword sets. I looked up the gperf program, and found that it satisfies the first property most of the time, except for large sets of keywords, and the second property rarely, only for small keyword sets. So, from my perspective, it does not achieve perfect hashing. Also, it appears to use 3 tables, not 1. In any case, we are getting off the subject, which was how to store a set of varying-length strings with minimal wasted space. The method that I suggested, using the Pascal Macro Compiler, uses no wasted space at all. I mentioned that an additional advantage is that its pointer table or index table could be arranged to provide O(log N) time searching without using any additional tables or space. The fact that this is not the fastest search method is beyond the scope of this discussion. If a practical method for searching the table in minimal time is required, then a self-expanding hash function would be a more suitable solution, since these can be built during runtime in linear time, with moderate wasted space. Frank Rubin

4 4

Re: Packed strings
by Frank Heckenbach 20 Jul '05

20 Jul '05

Contestcen(a)aol.com wrote: > Yes, it is getting boring repeating that storage management and data access > are independent issues. No, they aren't. > I can't think of any standard access method where the > choice of any standard storage management technique adds more than a single > table reference to the process of retrieving a string. Which is already one thing that you may or may not save. I mentioned alignment several times. > I am starting to think that there is some problem in terminology that is > keeping us from agreeing on this point. Maybe, if you can give me an example of a > standard access method, and two different storage management methods that > have a large difference in how long it takes to retrieve a keyword, then that > might reveal some difference in our language or in our assumptions. ad 1, you might want to string in a tree structure, or a pointer. That's one access and a pointer more to store. ad 2, if the string is unaligned, you have to copy it before you can use it, which I think is a substantial difference, both in time and in (code) size. Frank -- Frank Heckenbach, frank(a)g-n-u.de http://fjf.gnu.de/ GnuPG and PGP keys: http://fjf.gnu.de/plan (7977168E)

1 0

Re: Array elements as control variables
by Frank Heckenbach 20 Jul '05

20 Jul '05

Contestcen(a)aol.com wrote: > >> Using array elements as control variables is very useful when you want the > >> ability to stop a deeply nested loop, checkpoint the program, and then > resume > >> the execution from the same point later. I would not like to see this > >> capability removed. > > > > As first glance, since only constant indices are allowed, it would > > seem to be equivalent to using a1, a2, ... instead of a[1], a[2], or > > am I missing something? > > > > Can you give an example for the situation you describe? > > The essential difference between using a1, a2, ... and a[1], a[2], ... is > that I can write loops that do something useful with the a[i] elements. For > example, suppose that I have the statements > > if KeyPressed > then begin > CheckPoint (depth); > exit; > end; > > located at various places in a deeply nested loop. Here depth indicates how > deep in the nest the checkpoint was taken. Now I can put the following inside > the CheckPoint procedure. > > for n := 1 to depth do > writeln (checkfile, a[n]); > > This will write out all of the known control variable values. The restart > procedure can do this > > depth := 0; > while not eof(checkfile) do begin > depth := depth + 1; > readln (checkfile, start[depth]); > end; > for n := depth+1 to maxdepth do > start[n] := 1; {or whatever the lower value is} > > Then in each loop in the nest the control variable can be tested like this > > for a[10] := 1 to max[10] do begin > eq := true; > for n := 1 to 9 do > if a[n] <> start[n] > then eq := false; > if eq and (a[10] < start[10]) > then continue; > ... > end; > > If you did not have the ability to use array elements as control variables, > then the previous code would have to be the verbose > > for a10 := 1 to max10 do begin > if (a1 = start[1]) and (a2 = start[2]) and (a3 = start[3]) and (a4 = > start[4]) and (a5 = start[5]) and (a6 = start[6]) > and (a7 = start[7]) and (a8 = start[8]) and (a9 = start[9]) and (a10 < > start[10]) > then continue; > end; > > Yes, it can be done, but I much prefer the loop version to the last version. Can't you use a macro processor to generate the verbose code? ;-) Anyway, I see that this is an example, at least in theory. However, I'd probably do it differently in practice. I think this is more efficient, since you don't need any comparisons, and in particular no extra code in the innermost loop which is the most time-critical. If you need the original start values afterwards, copy the array before the first loop, of course. for a1 := start[1] to max[1] do begin for a2 := start[2] to max[2] do begin for a3 := start[3] to max[3] do begin ... end; start[3] := 1 end; start[2] := 1 end; Frank -- Frank Heckenbach, frank(a)g-n-u.de http://fjf.gnu.de/ GnuPG and PGP keys: http://fjf.gnu.de/plan (7977168E)

1 0

Packing strings ()
by Contestcen＠aol.com 20 Jul '05

20 Jul '05

>>> This assumes that you know precisely what the compiler is doing with >>> your macros, and that compiler optimisations do not achieve better >>> results than what you have hand-coded. [The Chief] >> >> This may be true for executable code generated by the Pascal Macro Compiler, >> but it is not true for the data declarations that are generated for the packed >> strings. There is no executable code involved, so the compiler has nothing >> to optimize. [Rubin] > > Yes -- if you only store the data and never access them. > > Most people actually want to use the data they store. And the layout > of the data can easily affect the code necessary to access it, both > in speed and size. [Hockenbach] The Pascal Macro Compiler could certainly generate code for accessing the strings, however the Keyword String macros do not generate access code; they generate data structures. These structures are well-suited for access by hash functions, hash trees, binary trees, heap search, or binary search. The normal code and tables for these methods will work with minimal, or no, complications. In the last two cases, no extra storage or structures are needed. Frank Rubin

2 1

sysutils unit
by Silvio a Beccara 19 Jul '05

19 Jul '05

Hi everybody, and particularly the African Chief, I'd need a version of the sysutils unit which compiles with the latest snapshot of GPC (20050331). I managed to compile GPC, but the older version of sysutils (used quite extensively throughout my codes) I have doesn't work with it, and the website for the download of contributed units is not available. Thanks in advance, best regards Silvio a Beccara - Trieste, Italy -- Email.it, the professional e-mail, gratis per te: http://www.email.it/f Sponsor: Hai una fotocamera digitale e vuoi stampare le tue immagini * su vera carta fotografica professionale? Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=1533&d=19-7

2 1

Packing strings ()
by Contestcen＠aol.com 18 Jul '05

18 Jul '05

>>There is no wasted space, so there is nothing that can be improved. > > Do you compress the strings (e.g. LZW) or are you just packing them efficiently? My understanding from the original post is that he wanted the strings stored as given, not compressed. The macros simply store the strings end-to-end without any gaps. However, the macros would work equally for compressed strings, assuming they have the same form, namely length field and data string. If you want the entire body of strings compressed as a unit, then you could use the macros to create the concatenation of all the individual strings, and compress the result. It would be up to you to devise methods for accessing the strings within the compressed mass. Frank Rubin

2 1

Pascal Macro Compiler
by Contestcen＠aol.com 17 Jul '05

17 Jul '05

> NO, YOU, DON'T! > > People have been telling you this all the time, why don't you > listen? THIS DOES WORK IN BP: > > program foo; > const > ch: array[1..100] of char = 'When in'; > begin > end. > > (It doesn't work with 1000 indeed, as BP has a string length > limitation of 255, but that's just a BP quirk.) That's very nice. However, please recall that I said the main reason for using a character array instead of a string is because I needed more than 255 characters. So, having a better way to initialize a character array of up to 255 characters doesn't help me. If I only wanted 255 characters I would have used a string in the first place. You may call this "just a BP quirk" but when you are using BP, or when you want to be compatible with BP it is not a "quirk" it is a real limitation. I have to assume that some of the users of the Pascal Macro Compiler will be using BP, regardless of whatever else exists.

3 3

Misfeatures in For loops
by Contestcen＠aol.com 17 Jul '05

17 Jul '05

>> GPC accepts the following program, but produces quite silly results: >> >> program Foo; >> >> var >> a: array [1 .. 2] of Integer value (0, 0); >> i: Integer; >> >> begin >> i := 1; >> for a[i] := 1 to 10 do >> begin >> WriteLn (i, ' ', a[i]); >> if a[i] = 5 then i := 2 >> end >> end. >> >> The problem is that it evaluates the index i each time, not once >> before the loop. It would be possible to fix it, but do we really >> want that? Neither BP nor CP/EP allow it, they allow only >> identifiers in for-loops. >> >> Waldek and I see no need for such a feature. > > Neither do I. > > Nor I. I vaguely recall that it is forbidden in at least ISO 7185, > but cannot quote chapter and verse. This is a milestone, where BP > is more standards adherent :=) I have come in late to this discussion, and I am not sure what is the supposed "misfeature." Are the participants saying that Borland Pascal does not accept an array element as the control variable of a For loop, and that therefore GPC should not accept array elements either? If that is the case, then the premise is incorrect. BP does accept array elements as control variables. The following program compiles and runs correctly in BP. It produces the expected result 100.000. Program Try; Var a: array[1..10] of integer; s: real; Begin {Try} s := 0.0; for a[1] := 1 to 10 do for a[2] := 1 to 10 do s := s + 1.0; writeln (s:10:3); End. {Try} Using array elements as control variables is very useful when you want the ability to stop a deeply nested loop, checkpoint the program, and then resume the execution from the same point later. I would not like to see this capability removed. Frank Rubin

2 1

Packed strings ()
by Contestcen＠aol.com 17 Jul '05

17 Jul '05

>> If the strings are not known until run time, the most >> efficient way is to allocate a large block of storage, and move the >> strings in end-to-end, using a separate array to hold either pointers or >> indices into the large block. >> >> When the block is full, allocate another large block using New. There >> are two ways to manage the storage. (1) Extension block method: Use a >> second array to point to the set of large blocks. Each string will be >> accessed using two pointers or two indices. The first will point to the >> particular block, and the second will point to the string within the >> block. (2) Single block method: Make the new block twice as large as >> the previous block, move the existing strings into the new block and >> then Dispose the old block. > > Very convoluted. A linked list or string collection would do just fine. In my earlier response to this post, I should have asked how you allocated storage for that linked list or string collection. My suggestions deal mainly with storage allocation. Within the blocks you could choose to have a linked lis or a tree structure if you so chose. As I have pointed out before, storage management and data access are separate issues. Frank Rubin

2 1

Packing strings ()
by Contestcen＠aol.com 14 Jul '05

14 Jul '05

> This assumes that you know precisely what the compiler is doing with > your macros, and that compiler optimisations do not achieve better > results than what you have hand-coded. This may be true for executable code generated by the Pascal Macro Compiler, but it is not true for the data declarations that are generated for the packed strings. There is no executable code involved, so the compiler has nothing to optimize. There is no wasted space, so there is nothing that can be improved. Frank Rubin

3 2

Packing strings ()
by Contestcen＠aol.com 14 Jul '05

14 Jul '05

> A perfect hash table allows for constant search time. > > At runtime, you cannot generally generate a perfect hash table > (without overhead that is often not worth it), so O(log N) is > usually ok. > > But you're explicitly talking about compile-time constant strings, > and in this case, you can usually make a perfact hash table. So > that's your comparison. > > As I wrote in PM, have you looked at programs such as gperf? > > These are some of the interesting issues when dealing with a lot of > compile-time constant strings, rather than squeezing out a byte or > two in return for worse performance and unstable programs. Making a perfect hash requires 7 additional tables, 3 independent hashes of the string, 3 tables to convert the hash values into summands, and one table to convert the sums into pointers to the strings. (There is a trick that can reduce this to 5 tables, but it makes the first hashing round slower.) On the other hand, organizing the indices into a heap, as I suggested, requires no extra storage. As I pointed out in earlier posts, the issue of whether to use a hash, or a tree, or even a hash tree is independent of how the strings are stored. It just happens that my method of storing the strings allows you to create a heap that speeds up searching without using any additional storage. Frank Rubin

2 1

Packing strings ()
by Contestcen＠aol.com 14 Jul '05

14 Jul '05

>>> OTOH, strings must be aligned at least to `Integer' size. (Accessing >>> the Capacity and Length fields requires alignment on some platforms >>> and is at least more efficient on others; accessing the characters >>> can also be more efficient when aligned.) Does your preprocessor >>> take care of this? >>> >> Whether you choose to align the length field on an integer-size boundary or >> not is a decision you could make based on a time versus space trade-off. > > Unless you don't want to crash your program on some platforms ... If alignment is required on a particular platform, then there is no decision to make. You have to align the strings. >> The >> macros that I have written happen to store the strings with no gaps at all, and >> do not do any alignment. > >So they're not suitable for portable programs. The prologue of these macros says, "This version is intended mainly as a demonstration." It is an example designed to illustrate some of the features and capabilities of the Pascal Macro Compiler. Users who do not need alignment can use the macros as provided. Users who need alignment can easily add that feature to the macros. If there are any requests from bona fide users of the Pascal Macro Compiler for an alignment feature, then I will be glad to add it. Frank Rubin

1 0

gpc crash
by Peter N Lewis 14 Jul '05

14 Jul '05

gpc crashes compiling the following (erroneous) program. It correctly detects the syntax error, and then crashes with the crash report following. Enjoy, Peter. program peterW; function Doit( Integer(info): Integer ): Integer; begin end; begin end. Date/Time: 2005-07-06 16:57:46.808 +0800 OS Version: 10.4.1 (Build 8B15) Report Version: 3 Command: gpc1 Path: /Developer/Pascal/gpc-20050331/libexec/gcc/powerpc-apple-darwin8.1.0/3.4.3/gpc1 Parent: gpc [19291] Version: ??? (???) PID: 19293 Thread: 0 Exception: EXC_BAD_ACCESS (0x0001) Codes: KERN_PROTECTION_FAILURE (0x0002) at 0x00000004 Thread 0 Crashed: 0 gpc1 0x00003580 locations + 288 (parse.y:2364) 1 gpc1 0x00011a1c main_yyparse + 3648 (parse.c:8495) 2 gpc1 0x000c17c8 toplev_main + 1976 (toplev.c:1826) 3 gpc1 0x00002298 _start + 344 (crt.c:272) 4 gpc1 0x0000213c start + 60 Thread 0 crashed with PPC Thread State: srr0: 0x00003580 srr1: 0x0000f930 vrsave: 0x00000000 cr: 0x22000282 xer: 0x00000000 lr: 0x00003578 ctr: 0x00000001 r0: 0x00003578 r1: 0xbfffe6a0 r2: 0x00000000 r3: 0x42000000 r4: 0x40e011e0 r5: 0x00000002 r6: 0x40e027c8 r7: 0x0000011e r8: 0x00000001 r9: 0x000ebe54 r10: 0x00000023 r11: 0x40f02004 r12: 0x900060ac r13: 0x0033ad0c r14: 0x003455d8 r15: 0x00000001 r16: 0x0044bca8 r17: 0x0033a2fc r18: 0x00300be4 r19: 0x000001f2 r20: 0x00300be4 r21: 0x404cc268 r22: 0x0044346c r23: 0x404cc268 r24: 0xbfffe758 r25: 0x0044346c r26: 0x00000002 r27: 0x00000030 r28: 0x00000001 r29: 0xbfffe788 r30: 0x404cc268 r31: 0x0000346c Binary Images Description: 0x1000 - 0x443fff gpc1 /Developer/Pascal/gpc-20050331/libexec/gcc/powerpc-apple-darwin8.1.0/3.4.3/gpc1 0x40b54000 - 0x40b5bfff libintl.3.dylib /usr/local/lib/libintl.3.dylib 0x8fe00000 - 0x8fe50fff dyld 43 /usr/lib/dyld 0x90000000 - 0x901a6fff libSystem.B.dylib /usr/lib/libSystem.B.dylib 0x901fe000 - 0x90202fff libmathCommon.A.dylib /usr/lib/system/libmathCommon.A.dylib 0x90727000 - 0x90800fff com.apple.CoreFoundation 6.4.1 (368.1) /System/Library/Frameworks/CoreFoundation.framework/Versions/A/CoreFoundation 0x9084b000 - 0x9094dfff libicucore.A.dylib /usr/lib/libicucore.A.dylib 0x909a7000 - 0x90a2bfff libobjc.A.dylib /usr/lib/libobjc.A.dylib 0x90ae3000 - 0x90af5fff libauto.dylib /usr/lib/libauto.dylib 0x91d33000 - 0x91d53fff libmx.A.dylib /usr/lib/libmx.A.dylib 0x92c9b000 - 0x92d89fff libiconv.2.dylib /usr/lib/libiconv.2.dylib 0x93614000 - 0x9361cfff libgcc_s.1.dylib /usr/lib/libgcc_s.1.dylib Model: PowerMac7,3, BootROM 5.1.8f7, 2 processors, PowerPC G5 (3.0), 2 GHz, 1.5 GB Graphics: GeForce FX 5200, GeForce FX 5200, AGP, 64 MB Memory Module: DIMM0/J11, 256 MB, DDR SDRAM, PC3200U-30330 Memory Module: DIMM1/J12, 256 MB, DDR SDRAM, PC3200U-30330 Memory Module: DIMM2/J13, 512 MB, DDR SDRAM, PC3200U-30330 Memory Module: DIMM3/J14, 512 MB, DDR SDRAM, PC3200U-30330 Modem: Jump, , V.92, Version 1.0, Network Service: Built-in Ethernet, Ethernet, en0 Serial ATA Device: ST3160023AS, 149.05 GB Parallel ATA Device: HL-DT-ST DVD-RW GWA-4082B, USB Device: CanoScan, Canon, Up to 12 Mb/sec, 500 mA USB Device: Hub, , Up to 12 Mb/sec, 500 mA USB Device: CF076, CF076, Up to 12 Mb/sec, 500 mA USB Device: Hub in Apple Pro Keyboard, Chicony, Up to 12 Mb/sec, 500 mA USB Device: Apple Optical USB Mouse, Logitech, Up to 1.5 Mb/sec, 100 mA USB Device: Apple Pro Keyboard, Chicony, Up to 12 Mb/sec, 250 mA USB Device: Studio Display, , Up to 1.5 Mb/sec, 500 mA -- <http://www.stairways.com/> <http://download.stairways.com/>

2 2

Packing strings ()
by Contestcen＠aol.com 13 Jul '05

13 Jul '05

>> I don't know the internals of the GPC New procedure, but in various >> environments where I have worked in the past there was no guarantee that successive >> calls to New would allocate adjacent blocks of storage, hence no guarantee that >> there would be no gaps or wasted space. It all depended on what sequence of >> calls to New and Dispose had occurred earlier. > > You can never rely on successive `New' calls to return adjacent > blocks of storage. That's not a reliable way to enlarge an array. > And I don't know of any compiler for Pascal, or any other language > for that matter, where such a thing would work. Sometimes there are > special routines for that (in GPC the non-standard ReAllocMem, use > with caution), otherwise you have to allocate a new array and copy > the existing elements, or use another data structure that doesn't > require contiguous memory, such as lists or trees. I think we have lost the trail here. Peter's original posting on this subject asked if there was a way to store character strings of different lengths without wasting space for the short strings. Frank Heckenbach suggested that Peter store each string using the New procedure, so each string would get a space its own size. I said that the Pascal Macro Compiler could store the strings without any gaps or wasted space. However, this works only if the strings are known at compile time. I also pointed out that using New does not assure that there would be no gaps because New does not always allocate consecutive adjacent blocks of storage. In the storage-allocation system that I use most often, storage is allocated in units of 16 bytes, because free storage is kept in a tree structure with each element containing a length, an up pointer and two down pointers. So if you allocated a separate block for each character string there could be a lot of wasted space. Conclusion: If the strings are known at compile time, the most efficient way to store them without gaps is to use the Pascal Macro Compiler. If the strings are not known until run time, the most efficient way is to allocate a large block of storage, and move the strings in end-to-end, using a separate array to hold either pointers or indices into the large block. When the block is full, allocate another large block using New. There are two ways to manage the storage. (1) Extension block method: Use a second array to point to the set of large blocks. Each string will be accessed using two pointers or two indices. The first will point to the particular block, and the second will point to the string within the block. (2) Single block method: Make the new block twice as large as the previous block, move the existing strings into the new block and then Dispose the old block. Frank Rubin

4 7

Packing strings ()
by Contestcen＠aol.com 13 Jul '05

13 Jul '05

>> If the strings are not known until run time, the most >> efficient way is to allocate a large block of storage, and move the >> strings in end-to-end, using a separate array to hold either pointers or >> indices into the large block. >> >> When the block is full, allocate another large block using New. There >> are two ways to manage the storage. (1) Extension block method: Use a >> second array to point to the set of large blocks. Each string will be >> accessed using two pointers or two indices. The first will point to the >> particular block, and the second will point to the string within the >> block. (2) Single block method: Make the new block twice as large as >> the previous block, move the existing strings into the new block and >> then Dispose the old block. > >Very convoluted. A linked list or string collection would do just fine. >And I am still not sure how you can make the claim that one method or >the other is the "most efficient" way of doing something. In this case I should have said "the most efficient ways that I know." A linked list of strings may or may not be comparably efficient in terms of space usage. In the extension block method, for each block of strings you also need a table of integer indices into the block. The pointers in the linked list are probably twice as large as the integer indices, so they take more room. In addition, the pointers may need to be aligned, so they may take an average of 5.5 bytes, compared to 2 bytes for the indices. On the other hand, you don't know beforehand how many strings you will have, so you might allocate the index table larger than is actually needed. However, the index table offers an advantage. It can be sorted according to the alphabetic order of the strings, so the table can be searched by a binary search, or they may be arranged into a heap, which also makes for log(N) time searching. Both of these methods require no extra storage. On the other hand, the linked list has to be searched serially. If you chose to use a hash table with the linked list, that would occupy even more storage. As I indicated in an earlier posting, the decision to use a hash table, heap or tree to speed up access to the strings is independent of the method used to store the strings. To head off any future argument that doubling the size of the single block can waste a lot of storage, let me point out that doubling is just an example. You could increase it by half, or by 10% each time, at the expense of copying the list of strings more frequently. This is simply a time-vs-space trade-off. Frank Rubin

2 1

Packing strings ()
by Contestcen＠aol.com 13 Jul '05

13 Jul '05

> OTOH, strings must be aligned at least to `Integer' size. (Accessing > the Capacity and Length fields requires alignment on some platforms > and is at least more efficient on others; accessing the characters > can also be more efficient when aligned.) Does your preprocessor > take care of this? > Whether you choose to align the length field on an integer-size boundary or not is a decision you could make based on a time versus space trade-off. The macros that I have written happen to store the strings with no gaps at all, and do not do any alignment. If you decided that for your application and platform aligning the strings was better, then you would not use my macros, you would write your own macros, or modify my macros to align the strings. The Pascal Macro Compiler is a general-purpose preprocessor, and can align or not align as the user wishes. > >> Conclusion: If the strings are known at compile time, the most efficient way >> to store them without gaps is to use the Pascal Macro Compiler. If the >> strings are not known until run time, the most efficient way is to allocate a large >> block of storage, and move the strings in end-to-end, using a separate array >> to hold either pointers or indices into the large block. > > Not necessarily. There are various data structures such as hashes, > lists and trees for a reaons. Each have their particular advantages > and disadvantages. Which one is best, depends on the application and > is not always easy to decide. Claiming that any particular method is > "the most efficient" without qualification doesn't give your > statements much credibility, sorry. > How you store the strings and how you access the strings are completely separate issues. You can decide to use hash tables, threaded lists, heaps, or trees for accessing the strings regardless of whether you store the strings in a fixed-width table of strings, end-to-end in a character array, or each in a separately allocated block of storage. These decisions can be made independently. I am dealing here solely with the issue of how to store the strings with the least possible amount of wasted space. > > At least you got the quoting right this time. :-) > There is no "right" way to do quoting. Different people have different preferences. I simply followed the style that is used in this particular forum. Frank Rubin

2 1

Packing strings ()
by Contestcen＠aol.com 13 Jul '05

13 Jul '05

>> Conclusion: If the strings are known at compile time, the most >> efficient way to store them without gaps is to use the Pascal Macro >> Compiler. > > A very bold claim indeed - and I am not sure how you can make such a > claim, without seeing every string-handling routine that every > programmer has written. > Using the Pascal Macro Compiler you can store the strings with no gaps and no wasted space whatsoever. I don't see how you can improve on that. Moreover, the method requires no code, makes no calls, and takes no time at run time. I don't see how you can improve on that. Frank Rubin

2 1

range checking
by Peter N Lewis 10 Jul '05

10 Jul '05

Ok, I've got my application compiling and linking (all 250+ units). Now I'm trying to test it out. Currently it is crashing out with range checks. The first was one I'm used to with GPC, passing an SInt32 to a UInt32 (often these types are used interchangeably by the system to refer to a generic block of four bytes (eg random number seed) and so ensuring they match is not normally that important, but GPC range checks on these. I've written SafeCast functions for Signed to Unsigned and vice versa. I guess I'll eventually catch them all. The next one is more challenging, since I don't see a good workaround. s: String(255) @s[1] range checks if Length(s) is 0. While this might technically be correct (the subscript is out of bounds), the actual address is valid. This is quite challenging to work around, since I'm often forced to deal with strings as a pointer to chars and a length, and this means that code to say draw a string like: DrawString( @s[1], Length(s) ); now needs to special case for s = ''. I would contend that in the case of @s[x], x should be checked against a range of 1..Length(x)+1 because it should be legal to point to the next free character. Whether this is reasonably doable or not, I don't know. If s were short strings, I could work around it with pointer arithmetic (@s+1), but given it is a Schema, I don't know how I would safely get the address of the first character of the string in the case where s might be empty. More precise control over range checking ,might be helpful, options to disable range checking for strings, or perhaps limit them to capacity range checking, as well as disabling range checking on casts would be nice to get things going (I prefer to run with as much protection as possible generally, but sometimes range checking can be overly enthusiastic). Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

3 2

range checking code generation error
by Peter N Lewis 10 Jul '05

10 Jul '05

The following code works correctly if --no-range-checking, but fails with range checking enabled (as it is by default). % gp --no-range-checking peterY.pas % ./peterY OK % gp peterY.pas % ./peterY failed Looking at the assembly, it seems erroneously pass a local variable address (temporary?) to the var parameter. Thanks, Peter. program peterX; type SInt32 = Integer attribute( size = 32 ); UInt32 = Cardinal attribute( size = 32 ); procedure Doit( var x: SInt32 ); begin x := 5; end; var y: UInt32; begin y := 1; Doit( SInt32(y) ); if y = 5 then begin WriteLn( 'OK' ); end else begin WriteLn( 'failed' ); end; end. -- <http://www.stairways.com/> <http://download.stairways.com/>

1 0

Fwd: Forward defined types (and object
by Frank Heckenbach 09 Jul '05

09 Jul '05

marcov(a)stack.nl: : In gmane.comp.compilers.gpc, you wrote: : : Gale's msg reminded me of more Delphi syntax regarding forward defines. It is not : directly related to Gales remark (I also think that inheriting from forward defined : classes/objects shouldn't be possible, and so does Borland: "class not completely defined yet"). : : The detail I forgot is that inheritance info must match, so: : : Type : ta = class (SomeObject); // define forward : : tb = class : procedure dosomethingwith(a : ta); // I now have inheritance info about ta here. : end; : : ta = class (someobject) : x : integer; : end; : : : and not e.g. : : Type : ta = class; // define forward. However this is effectively class(tobject), inheriting from the base object : : tb = class : procedure dosomethingwith(a : ta); // I now have inheritance info about ta here. : end; : : ta = class (someobject) // ta already defined error here. : x : integer; : end;

1 0

Re: packing strings ()
by Contestcen＠aol.com 08 Jul '05

08 Jul '05

> How can a preprocessor (macro compiler) help here, when it runs at > compile time, while time question was clearly about runtime storing > of strings (mentioning New and block moves etc.)? I assumed that the strings were being stored at runtime because storing them end-to-end at compile time was too tedious. If there is a static set of strings, then the Pascal Macro Compiler can store them without any wasted space. If additional strings need to be added to that set at runtime, it is easy to write a procedure to append them to the character array so that all of the strings are accessed the same way. This avoids the use of the New procedure, except if you use it for handling array overflow. I don't know the internals of the GPC New procedure, but in various environments where I have worked in the past there was no guarantee that successive calls to New would allocate adjacent blocks of storage, hence no guarantee that there would be no gaps or wasted space. It all depended on what sequence of calls to New and Dispose had occurred earlier. Frank Rubin

3 2

Re: Forward defined types (and object references)
by Peter N Lewis 08 Jul '05

08 Jul '05

At 9:07 +0200 6/7/05, Marco van de Voort wrote: > > marcov(a)stack.nl wrote: > >> > Delphi supports this: (remember its object model is similar) >> > >> > Type > > > MyObjectB = class; > > > MyObjectA = class; >> >> This seems to be what `class .. end' is in OOE. >> >> > Must be in one typeblock though, IOW, the same system as pointers. >> >> Yes, same in OOE. > >Does CW work like OOE in this regard? No, CW does not accept either syntax: MyObject = object; nor MyObject = object .. end; CW takes the approach that any unknown type identifier it sees in a type definition is pointer sized (a pointer or object) and must be defined by the end of the type block. type rec = record a: UndefinedA; b: UndefinedB; end; UndefinedA = ^Integer; UndefinedB = object end; Note that UndefinedA = UInt32 is not legal, it must be a pointer or object. It's actually not a bad methodology and makes it easy to write data structures that is self or mutually referential, but it does not add anything over pre defining pointers or object names as EP/Delphi. >Note that afaik there is no solution for BP style objects, and actually you >don't really need it, since in practice you always work with references >(explicit pointers). There is still this case: type proc = procedure ( var o: MyObject ); MyObject = object f: proc; end; But I agree, in practice with non-reference objects, the issue is a lot less prevalent. Enjoy, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

4 9

Stable version?
by Silvio a Beccara 08 Jul '05

08 Jul '05

Good morning everybody, sorry, but still noone has answered my question about the download of a stable source version for GPC. Is there any available? If so, where? Can you give me directions as how to compile and install GCC locally (i.e. as non-root) and then GPC in the same way? Thank you very much, best regards Silvio a Beccara -- Email.it, the professional e-mail, gratis per te: http://www.email.it/f Sponsor: Manuali.net pensa alla tua formazione con corsi per tutte le professioni e dal costo contenuto. * Dalla Sicurezza alla Grafica, dal PC alla programmazione....Clicca qui Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=3414&d=7-7

3 3

... forgot
by Silvio a Beccara 07 Jul '05

07 Jul '05

Which GCC version should I compile to compile the latest GPC snapshot (the only downloadable file at the time being)? Silvio a Beccara -- Email.it, the professional e-mail, gratis per te: http://www.email.it/f Sponsor: Iscriviti GRATUITAMENTE: ci sono 5 Euro che ti aspettano .e decine di corsi... * Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=3416&d=7-7

1 0

GPC-20050331 compilation error for unit name conflict
by mingeborg＠aol.com 07 Jul '05

07 Jul '05

Hello, I noticed that GPC-20050331 generates compilation errors if a unit (included in a uses... statement) is named the same as a function identifier or type identifier. Is this intentional, known, or should I send a short example program? Thanks, - Inga

2 1

Re: packing Strings()?
by Contestcen＠aol.com 07 Jul '05

07 Jul '05

<< I often need to store a lot of strings, and don't want to waste the space allocated to a String(255) for each one. With "short" strings, I just allocate memory (with the Mac system NewPtr routine, not with the Pascal New routine) for Length(s)+1 bytes, and then BlockMove the string in. This has the advantage that the string can be references as just Str255Ptr(s)^ (sometimes the size needs to be aligned to 2 or 4 bytes, depending on the platform). >> The Pascal Macro Compiler has a set of macros that will pack character strings without any wasted space between them The macros can be downloaded directly from the webpage http://www.contestcen.com/paskey.htm which has both the source code and a detailed description. Frank Rubin Master Software Corp.

2 1

Libraries
by Silvio a Beccara 06 Jul '05

06 Jul '05

Good morning, I installed the gpc with gcc binary on a Linux machine (file gpc-2.1-with-gcc.i686-pc-linux-gnu.tar.gz), executed install-gpc-binary, updated ~/.bashrc with GPC_EXEC_PREFIX, but when I try to execute gpc, I get the following error: gpc: /lib/i686/libc.so.6: version `GLIBC_2.3' not found (required by gpc) So I put the library libc-2.3.3.so in the directory /home/usr/local/lib/gcc-lib/i686-pc-linux-gnu/2.95.2 and updated the library path, putting in ~/.bashrc the following line: LIBRARY_PATH=$LIBRARY_PATH:/clx/userunivts/utsts007/silvio/src.dev3.old/old/usr/local/lib/gcc-lib/i686-pc-linux-gnu/2.95.2 but the error does not go away. On another machine, it goes like a breeze. Does anybody have a solution? Thanks in advance, best regards Silvio a Beccara Trieste - Italy -- Email.it, the professional e-mail, gratis per te: http://www.email.it/f Sponsor: Solo su Occhialeria.it una vastissima scelta a prezzi insuperabili! * Per te le migliori marche e un incredibile assortimento. Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=880&d=5-7

4 4

packing Strings()?
by Peter N Lewis 06 Jul '05

06 Jul '05

I often need to store a lot of strings, and don't want to waste the space allocated to a String(255) for each one. With "short" strings, I just allocate memory (with the Mac system NewPtr routine, not with the Pascal New routine) for Length(s)+1 bytes, and then BlockMove the string in. This has the advantage that the string can be references as just Str255Ptr(s)^ (sometimes the size needs to be aligned to 2 or 4 bytes, depending on the platform). I could do the same thing with GPC's Schema String(255), but I'd have to pack them in, and then unpack them out to a temporary variable to access them, I could not access them in place in the packed data block. I presume there are clever ways to do such things in GPC/EP? What would be the options for packing strings into a block of memory and yet still having them usable? Thanks, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

2 4

gpc-20050331 on gcc-3.4.3 build problem
by mingeborg＠aol.com 05 Jul '05

05 Jul '05

Hi. I'm trying to build gpc-20050331 on gcc-3.4.3, on an I686 running Suse 9.1. I'm getting the following when I am trying to run make: /home/siemionf/newsoftware/gcc-3.4.3/gcc/gengtype-yacc.c -o gengtype-yacc.o gcc -g -O2 -DIN_GCC -W -Wall -Wwrite-strings -Wstrict-prototypes -Wmissing-prototypes -pedantic -Wno-long-long -DHAVE_CONFIG_H -DGENERATOR_FILE -o gengtype \ gengtype.o gengtype-lex.o gengtype-yacc.o ../libiberty/libiberty.a gengtype.o(.text+0x9f6): In function `get_output_file_with_visibility': /home/siemionf/newsoftware/gcc-3.4.3/gcc/gengtype.c:1227: undefined reference to `_sch_istable' gengtype.o(.text+0x10c4): In function `adjust_field_type': /home/siemionf/newsoftware/gcc-3.4.3/gcc/gengtype.c:745: undefined reference to `_sch_istable' gengtype.o(.text+0x10fb):/home/siemionf/newsoftware/gcc-3.4.3/gcc/gengtype.c:750: undefined reference to `_sch_istable' gengtype.o(.text+0x1163):/home/siemionf/newsoftware/gcc-3.4.3/gcc/gengtype.c:764: undefined reference to `_sch_istable' gengtype.o(.text+0x1a48):/home/siemionf/newsoftware/gcc-3.4.3/gcc/gengtype.c:617: undefined reference to `_sch_toupper' gengtype.o(.text+0x2062): In function `walk_type': /home/siemionf/newsoftware/gcc-3.4.3/gcc/gengtype.c:1507: undefined reference to `_sch_istable' gengtype.o(.text+0x215c):/home/siemionf/newsoftware/gcc-3.4.3/gcc/gengtype.c:1528: undefined reference to `_sch_istable' gengtype.o(.text+0x2bb1):/home/siemionf/newsoftware/gcc-3.4.3/gcc/gengtype.c:1748: undefined reference to `_sch_istable' gengtype.o(.text+0x3ccc): In function `put_mangled_filename': /home/siemionf/newsoftware/gcc-3.4.3/gcc/gengtype.c:2364: undefined reference to `_sch_istable' gengtype.o(.text+0x4da5): In function `main': /home/siemionf/newsoftware/gcc-3.4.3/gcc/gengtype.c:2674: undefined reference to `_sch_istable' gengtype-lex.o(.text+0x7be):/home/mitchell/scratch/gcc-3.4.3/gcc-3.4.3/gcc/gengtype-lex.l:248: more undefined references to `_sch_istable' follow collect2: ld returned 1 exit status make[1]: *** [gengtype] Error 1 make[1]: Leaving directory `/home/siemionf/newsoftware/gpc-build/gcc' make: *** [all-gcc] Error 2 Thanks for any help with this. - Inga

1 1

Forward defined types (and object references)
by Peter N Lewis 05 Jul '05

05 Jul '05

What facilities does GPC have for forward defining types. In CW Pascal, I have some code that looks like this: type MyProc = procedure( browser: MyObjectA ); MyObjectA = object f: MyProc; b: MyObjectB; procedure Doit( proc: MyProc ); function GetB: MyObjectB; end; MyObjectB = object; f: MyObjectA; // other references to ObjectA end; Keep in mind all the "used before defined" types are pointer types (objects being implicitly pointers) and defined in the same "type" block. GPC is not happy with this. Needless to say, given the dual referential nature of the references, it is hard to see how I can cleanly untangle this. Is there any support in GPC or EP for these kinds of forward defined types? Any suggestions how I can untangle them within GPC? The best I can see is to turn all of them into explicit pointers and explicit dereferences, which is doable, but rather ugly. Any suggestions? Thanks, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

2 5

Re: Forward defined types (and object references)
by Peter N Lewis 05 Jul '05

05 Jul '05

At 13:09 +0200 5/7/05, Marco van de Voort wrote: >In gmane.comp.compilers.gpc, you wrote: >> What facilities does GPC have for forward defining types. >> >> In CW Pascal, I have some code that looks like this: >[...] >> MyObjectB = object; >> f: MyObjectA; >> // other references to ObjectA >> end; > >(btw Does this compile? Note the semi-colon after object) No, sorry, it was only meant as a basic idea, I didn't actually run it through the compiler to get out any silly syntax errors like that. >Delphi supports this: (remember its object model is similar) > >Type > MyObjectB = class; > MyObjectA = class; > MyProc = procedure( browser: MyObjectA ); > MyObjectA = class > f: MyProc; > b: MyObjectB; > procedure Doit( proc: MyProc ); > function GetB: MyObjectB; > end; > MyObjectB = class > f: MyObjectA; > // other references to ObjectA > end; > >Must be in one typeblock though, IOW, the same system as pointers. >For MacPascal mode object=class btw. Yes, that would be what I'd expect, although the EP definition of class .. end; is acceptable to. I'd suggest GPC accept either syntax to be compatible with Delph and EP (as well as allowing it with "object" when using reference objects for the Mac case). Enjoy, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

2 1

Re: Forward defined types (and object
by Frank Heckenbach 05 Jul '05

05 Jul '05

marcov(a)stack.nl wrote: > In gmane.comp.compilers.gpc, you wrote: > > What facilities does GPC have for forward defining types. > > > > In CW Pascal, I have some code that looks like this: > [...] > > MyObjectB = object; > > f: MyObjectA; > > // other references to ObjectA > > end; > > (btw Does this compile? Note the semi-colon after object) Yes, the semicolon seems wrong (at least in other dialects). > Delphi supports this: (remember its object model is similar) > > Type > MyObjectB = class; > MyObjectA = class; This seems to be what `class .. end' is in OOE. > Must be in one typeblock though, IOW, the same system as pointers. Yes, same in OOE. Frank -- Frank Heckenbach, frank(a)g-n-u.de http://fjf.gnu.de/ GnuPG and PGP keys: http://fjf.gnu.de/plan (7977168E)

1 0

Download
by Silvio a Beccara 05 Jul '05

05 Jul '05

Good morning, it's a while now that the binaries and sources are not available from GPC's website. If one wants to download and install the latest stable version, how should he/she do? Thanks and regards Silvio a Beccara University of Trieste - Italy -- Email.it, the professional e-mail, gratis per te: http://www.email.it/f Sponsor: Scopri come proteggere dai virus il tuo computer e come eliminare * ogni tipo di virus! - clicca qui Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=3212&d=5-7

1 0

GPC on OS 10.4
by Aleck Brinkman 04 Jul '05

04 Jul '05

Has anybody successfully installed GPC on Mac OS 10.4 (Tiger)? Thanks. Aleck Brinkman Temple University

5 9

2025

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