- Gpc - gnu.de

Re: CStrings
by Russ Whitaker 10 Jun '01

10 Jun '01

On Sun, 10 Jun 2001, Frank Heckenbach wrote: > Pointer to an Indefinite-length Zero-based Zero-terminated Array of > Char: PizzaChar. Tastes good to me. ;-) Now that's something you could sink your teeth into! These odd-ball names reminds me when, years ago, I was working for a company that required names for the wires on a wire-list. At times it got rather difficult to come up with unique, meaningfull names. So buried in one of the lists was: fez the name of a local beer-bar. rkg initials of one of the engineers on the project. Russ

1 0

problem with building GPC
by Kocherlakota Harikrishna 04 Jun '01

04 Jun '01

Hello Attached is the error we encountered, while building GPC We used gcc-2.95.2 and gpc-20010527 combination gpc.pas:57: #error Trying to compile gpc.pas with a non-matching GPC version is likely to cause problems. make[2]: *** [gpc.o] Error 1 make[2]: Leaving directory `/root/usr1/gcc-2.95.2/gcc/p/rts' make[1]: *** [pascal.rts] Error 2 make[1]: Leaving directory `/root/usr1/gcc-2.95.2/gcc' make: *** [install-gcc] Error 2 Request your suggestions Thanks and Regards hari

3 3

gcc-3.0
by Russ Whitaker 04 Jun '01

04 Jun '01

Hi Saw in the news that gcc-3.0 is promised to release on 6/15. So downloaded gcc-core-3.0-20010525.tar.gz and using gcc-2.97.diff as a guide, created gcc-3.0.diff (attached). caution: it does patch ok, but that's as far as I got. There could be a typo hiding in there. enjoy Russ

3 6

Re: Memory use problem
by david＠tcs01.demon.co.uk 04 Jun '01

04 Jun '01

In message <200105300203.EAA27083(a)goedel.fjf.gnu.de> Frank Heckenbach writes: > David James wrote: > [snip] > > I still see some unfreed memory. > > > > These are from calls at lines 116 and 214 of rts/heap.pas. > > > > Sizes 0xd, 0x21, 0x5c, and the majority for 0xc08. > > Those called from line 116 (which should all be $c08 on 32 bit > machines) are the internal structures used to keep track of the > pointers (i.e., if you don't use HeapMon and don't call `Mark' > anywhere in your code, they should disappear). I see that something > can be optimized to keep their number smaller, and I'll do this now, > but since you probably don't need HeapMon except for debugging, that > shouldn't be too important to you, I suppose. > > About the other ones: The RTS uses a few of them to store internal > values. These intentionally don't show up in HeapMon, and their > number should be fixed (i.e., not growing when the program runs > longer). Besides them and the ones you allocated, there should be no > pointers allocated from line 214 (which is the main entry point for > allocation) left. > > In particular, without HeapMon the program should not lose more and > more memory now, I hope (and soon also with HeapMon). Thank you for the details. I've now tried my test after removing HeapMon from the program, and the memory leaks seem to have away. Thank you very much. -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

2 1

GtkUnits-20010602
by Nicola Girardi 02 Jun '01

02 Jun '01

Hi GPC People!! Quite sadly I still have got *no* feedback )-: for the GtkUnits package, but anyway I kept on working on it. The URL is always the same: <http://agnes.dida.physik.uni-essen.de/~nicola/GtkUnits/>. Here's an excerpt from the ChangeLog file after the last release. Most important is the introduction of the GdkPixbuf units. I hope someone will be using these units some day. : Sat 2 Jun 2001 16:00 Nicola Girardi <nikke(a)swlibero.org> : : * Added gdk-pixbuf/gdkpixbufloader.pas. : : * Added a test program which shows the nice penguin logo in : PNG format. : : * Reverted top level Makefile to old name mask as the sub : packages number is growing. New `make advice'. : : Mon 28 May 2001 18:34 Nicola Girardi <nikke(a)swlibero.org> : : * Removed {$L gtk/glib/etc.} in gtk.inc and others. Use : gtk-config, glib-config etc., that's smarter. : : * Updated README. : : Tue 22 May 2001 22:49 Nicola Girardi <nikke(a)swlibero.org> : : * Changed directory structure for gtk-tutorial (now : tutorial/) removed subdirectories, adjusted Makefile. : : Sun 13 May 2001 10:35 Nicola Girardi <nikke(a)swlibero.org> : : * Removed stale gtk-tutorial/selection/selectionc.c, fixed : the compilation bug in gettargets.pas, fixed selection.pas. : : Sun 13 May 2001 7:56 Nicola Girardi <nikke(a)swlibero.org> : : * Started porting of gdk-pixbuf. (Image loading library.) : gdk-pixbuf/gdkpixbuf.pas completed. : : Sun 6 May 2001 10:56 Nicola Girardi <nikke(a)swlibero.org> : : * GLIB logging functions stripped out. No need for the printf() : function family under Pascal. Maybe in the future a set of logging : functions will be implemented using Write as the backend. Regards, Nick

1 0

Multideimensional packed arrays
by david＠tcs01.demon.co.uk 01 Jun '01

01 Jun '01

Is this a known problem? program daj24(input,output); const maxmarker=5; maxcat=62; type t1pack=packed array [1..maxmarker,1..maxcat] of boolean; t2pack=packed array [1..maxmarker] of packed array [1..maxcat] of boolean; begin (*daj24*) writeln('Sizeof 1 pack is ',sizeof(t1pack):1); writeln('Sizeof 2 pack is ',sizeof(t2pack):1); end. (*daj24*) GPC version 20010516 reports sizeof 1 as 310, and sizeof 2 as 40. My previous version (19991030) reports both as 40. Looking at the info files, this looks like fjf149.pas fixed at 19980729. -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

1 0

build error on linux-powerpc with recent 010516 snapshot
by Matthias Klose 01 Jun '01

01 Jun '01

The snapshot builds fine on i386, m68k, sparc and alpha (all linux). base gcc is the CVS gcc-2_95-branch.

1 0

Pindent
by Thomas Zambito 31 May '01

31 May '01

Hello GNU Pascal Team, I am evaluating Pindent which is -- I am sure you are aware -- a source-beautifier and translator of Pascal. Pindent has been submitted to become a GNU package, and I am looking for any opinions that the GNU Pascal Team may have about it. Is it useful, stable, does it do what its supposed to do, et cetera? There is more info about Pindent here: http://mond.dida.physik.uni-essen.de/~pindent/ Thank you in advance for your help, it will be good to have your opinions, as I have little experience with Pascal. Thanks again, Thomas Zambito GNU Software Evaluator http://www.gnu.org

1 0

const parameters
by Adam Naumowicz 31 May '01

31 May '01

Hello, I would like to know whether (or why) GPC makes strict type checking on procedure parameters passed as const. In a program like this: ---------------------------------- program tester; type firstobj=object end; secondobj=object(firstobj) end; procedure test(f:firstobj); begin end; var o:secondobj; begin test(o); end. ---------------------------- the compiler reports: tester.dpr:9: objects must not be value parameters tester.dpr: In main program: tester.dpr:16: illegal explicit assignment between objects The second error seems a little misterious for me, but it doesn't matter, maybe some errors recovery problem. I understand the reasons for not passing objects by value, so I tried to replace the procedure header by procedure test(const f:firstobj); but then passing an object derived from ffirstobj I get an error: tester.dpr:16: type mismatch in argument 1 of `Test'. So my question is - do I have to write such procedures in GPC as procedure test(var f:firstobj); ? I know I should probably use pointers to objects, but for some reason I would like to use this realization. Can someone explain me that? Regards, Adam Naumowicz -------------------------------------- WWW: http://math.uwb.edu.pl/~adamn/ --------------------------------------

2 1

RE: Null Character
by da Silva, Joe 31 May '01

31 May '01

For what it's worth, one of the most important features for me, of Pascal over C, is that Pascal strings can store ANY character, including NUL. I would guess than in at least half the programs I have written over the years that use strings, I have required this capability! This is also why I will never use Component Pascal - Uncle Wirth made a serious mistake by selecting C-style strings for that language! Regards, Joe. > -----Original Message----- > From: Frank Heckenbach [SMTP:frank@g-n-u.de] > Sent: Thursday, 31 May 2001 7:23 > To: gpc(a)gnu.de; adam.oldham(a)marconi.com > Subject: Re: Null Character > > Oldham, Adam wrote: > > > What is the Null Character to GPC for use in CHARs and STRINGs? In my > > previopus compiler \00 was used for this. > > I think we have discussed this several times already. (You are > subscribed to this list and got the replies, didn't you?) > > Again, if another compiler treats '\00' as a NUL character, that's > simply wrong, because in Pascal a string enclosed in '' must treat > every character literally (except ' itself which must be doubled to > get a literal '). > > > VAR > > a : array [1..4] of chars; > > b : array [1..4] of chars; > > c : array [1..4] of chars; > > d : array [1..4] of chars; > > > > BEGIN > > > > a = '\00\00\00\00'; > > That's a 12 char string. > > > FILLCHAR(b, 4, CHR(0)); > > That's correct. > > > c ='0000'; > > That's 4 times the ASCII '0' (#48). > > > d = ''; > > That's an empty string which, if assigned to a fixed char array, > gets filled with spaces (according to the standard). Since Pascal > strings are not zero-terminated (as C strings are), no NUL appears > here. > > You can do it without FillChar as well: > Chr (0) + Chr (0) + Chr (0) + Chr (0) > > Or (non-standard Borland-compatible way): > #0#0#0#0 > > Or (non-standard GPC extension): > "\0\0\0\0" > (note the double quotes!) > > > Also, with GPC, when > > a new variable is defined, is it automatically zeroed out? > > No (even if they sometimes happen to be zeroed, you can't rely on > this). > > Frank > > -- > Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/ > GPC To-Do list, latest features, fixed bugs: > http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html

1 0

Null Character
by Oldham, Adam 30 May '01

30 May '01

What is the Null Character to GPC for use in CHARs and STRINGs? In my previopus compiler \00 was used for this. VAR a : array [1..4] of chars; b : array [1..4] of chars; c : array [1..4] of chars; d : array [1..4] of chars; BEGIN a = '\00\00\00\00'; FILLCHAR(b, 4, CHR(0)); c ='0000'; d = ''; None of these are equivalent (I would expect the last two to not be equivalent). Basically, I am just looking for a way to test if an array of chars has been zeroed out using FILLCHAR with chr(0). Also, with GPC, when a new variable is defined, is it automatically zeroed out? Thanks! Adam Oldham

2 1

Re: Memory use problem
by david＠tcs01.demon.co.uk 30 May '01

30 May '01

In message <200105161218.OAA21172(a)goedel.fjf.gnu.de> Frank Heckenbach writes: > > Oh yeah ... there were some places left in the RTS that did > allocation around the normal route, via GPC_GetMem. I've changed > them now (and removed GPC_GetMem and related routines), so such > leaks should now be reported via HeapMon as well. > > I've also found and fixed a few leaks in this area. Maybe they are > what you're observing, though I'm not sure (the $a0 surprises me, > unless you're using a lot of typed files of a type of size $a0). > > So, when my next patch is uploaded, you might want to try again with > HeapMon. Frank, Thanks. I've tried my test again using version 20010516. The heapmon report at the end of the program shows 4 undisposed pointers (which I would expect, they are 4 pointers into shared memory regions which I new at the start of the program and do not dispose of). The report from mtrace looks a lot better, but I still see some unfreed memory. These are from calls at lines 116 and 214 of rts/heap.pas. Sizes 0xd, 0x21, 0x5c, and the majority for 0xc08. Looking at the RTS source these lines are the calls to GetMemPtr^ in GPC_New and GPC_Mark. I'm not sure how to get any further information for you ... I could try running the program under a debugger, breakpointiung at these routines and looking at the call stack, but that's going to take a long while. Any further thoughts? -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

2 1

Re: Old Bug: Global variable not initialised properly
by Frank Heckenbach 29 May '01

29 May '01

Ian Thurlbeck wrote: > Since I wrote this message, we've made a change to the way you init a call > to a library function. This ditches the use of the global variable :) and > requires you to pass it as part of the init. Old programs still work > numerically, so that's OK. > > I would go putting in a kludge in the compiler for something like this. OK, I'm putting in `--init-modules'/`{$init-modules}' now (ian5[ab].pas, also fixes ian3.pas). > It > would be interesting to know how Sun and Dec (Compaq) do this though? > It must be something the linker knows about in the object module format, I > suppose. I have no idea, and no access to those compilers ... Frank -- Frank Heckenbach, frank(a)g-n-u.de http://fjf.gnu.de/ PGP and GPG keys: http://fjf.gnu.de/plan

1 0

Module/unit could not be imported
by Casper ter Kuile 29 May '01

29 May '01

Hi, I encounter the following problem regarding GPC: I have a program with the statement: uses {Crt,Dos,Larrayd,} sysutils, initiadel, goodiesdel, pathsdel, ozsimu3zdel, simuldel, decondel, shiftdel, efuvriv3del; And I try to compile and link this and receive this error: shic3_011del.p:36: module/unit interface `Sysutils' could not be imported Anyone an idea what is going wrong and how to fix it? Thanks! Casper. Casper ter Kuile, Lab. for Radiation Research (LSO), National Institute for Public Healthg and the Environment (RIVM) PB 1, 3720 BA, Bilthoven Building A6, roomr 104, pb 33 Phone: 030-2742647 (030-2742515) E-mail: casper.ter.kuile(a)rivm.nl

3 2

BUG report for gpc-20010516.tar.gz
by Mirsad Todorovac 26 May '01

26 May '01

Dear Sir or Madam, I have to report a bug in your code which prevents your PASCAL compiler to be built unless -DEGCS -DEGCS92 and -DEGCS95 are all defined (using 2.95.3 back-end). This has not been set by ``configure'', so manual intervention was needed. I can't tell if defining -DEGCS97 would be better than not, but I was satisfied (as for now) with having a PASCAL running on the system!!! (alpha-dec-osf4.0b box, gcc-2.95.3 compiler suite, gmake, gsed) Fix: define "-DEGCS -DEGCS92 -DEGCS95" in CFLAGS, meaning run: % gmake CFLAGS="-O2 -DEGCS -DEGCS92 -DEGCS95" RTSFLAGS=-Wall The compiling breaks, for example, on conflicting definitions of the return type of xmalloc(), one in gbe.h having char * as return value and the other, in libiberty.h having PTR as return value. Other problems are some conflicting prototypes having const defined in global includes, but ommited in /p/ source tree ... Also, never in the installation instruction it isn't mentioned that GPC needs a smarter sed - this could be addressed by ``configure'' script too. Also, very helpful would be if the building of PASCAL compiler wouldn't include "fixing" of C include files again, which takes anormous amount of time on Alpha/Digital-Unix box. Thank you very much for your time. Mirsad Todorovac

2 1

Thanks! (was RE: [Fwd: Re: Newbie question ...])
by da Silva, Joe 25 May '01

25 May '01

Many thanks for that clarification, Frank! As for the EXE compression by WDOSX, the documentation certainly suggests this is genuine compression, not simply stripping the symbol table ... :-) Best regards, Joe. > -----Original Message----- > From: Frank Heckenbach [SMTP:frank@g-n-u.de] > Sent: Friday, 25 May 2001 1:43 > To: gpc(a)gnu.de > Subject: Re: [Fwd: Re: Newbie question ...] > > da Silva, Joe wrote: > > > I have now tried WDOSX 0.96 and it works with the GPC > > "Hello world" test program! Not only did it convert the > > executable to a stand-alone application (built-in DPMI > > services), it also compressed the executable to nearly > > half it's original size! :-) > > Nice, but maybe it only stripped the symbol table (like `strip' > does). > > > OK, one final newbie question : The online documentation > > (http://agnes.dida.physik.uni-essen.de/~gnu-pascal/gnu.html) > > says that GPC can be used to compile "commercial, > > non-free" applications. Is this a modification of the standard > > GNU GPL, or is this an interpretation of the GPL? > > It's a special exception. All files of the Run Time System contain a > license statement like the following: > > : This file is part of GNU Pascal. > : > : GNU Pascal is free software; you can redistribute it and/or modify > : it under the terms of the GNU General Public License as published by > : the Free Software Foundation; either version 2, or (at your option) > : any later version. > : > : GNU Pascal is distributed in the hope that it will be useful, > : but WITHOUT ANY WARRANTY; without even the implied warranty of > : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the > : GNU General Public License for more details. > : > : You should have received a copy of the GNU General Public License > : along with GNU Pascal; see the file COPYING. If not, write to the > : Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA > : 02111-1307, USA. > : > : As a special exception, if you link this file with files compiled > : with a GNU compiler to produce an executable, this does not cause > : the resulting executable to be covered by the GNU General Public > : License. This exception does not however invalidate any other > : reasons why the executable file might be covered by the GNU General > : Public License. > > The compiler itself does not contain the exception, but that's not > necessary, because the output of a GPL's program does not > automatically fall under the GPL (unless it does for other reasons). > So, only if you copy/link some actual code from the compiler's > sources in your program, it would have to be GPL'd. > > Please note that some units distributed with GPC, or contributed on > other places have different licences, so check the license of each > unit you use (but that applies to any compiler, of course). > > > The > > reason I ask, is that a number of people, including (I think) > > DJ Delorie (of DJGPP fame), have a different interpretation. > > I apologise if this question has been asked before, but > > no matter how many times I read the GPL or look at the > > information of the FSF and GNU, I just can't figure it out. > > AFAIK, the DJGPP library is released under the LGPL which does allow > linking to non-free programs, though under some conditions (e.g., > provide relinkable object files, but see the LGPL for the exact > details). Of course, as above, this does not apply for using the > code of GCC or any other GPL'd program ported to DJGPP. > > Frank > > -- > Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/ > GPC To-Do list, latest features, fixed bugs: > http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html

1 0

Old Bug: Global variable not initialised properly
by Ian Thurlbeck 24 May '01

24 May '01

Dear All After 2 years of using gpc I thought I'd better update to a newer release, so I have installed gcc-2.95.3 and gpc-20010512. It appears than an old bug has resurfaced. A global variable declared in a module is not initialised properly. The following code does NOT print out the string 'OK': -------main.h------------ var s: string(40); external; procedure print_globals; external; ------------------------- -------main.p------------ program main(input,output); #include "main.h" begin s:='OK'; print_globals; end. ------------------------- -------lib.p------------- module lib(input,output); #include "main.h" var s:string(40); procedure print_globals; begin writeln(s); end; end. ------------------------- Compile with 'gpc -o main main.p lib.p' If you move the declaration of string 's' from lib.p to main.p it works. This was fixed about 2 years ago (by Peter I think) but it seems to have gotten un-fixed. The initialisation code for the Main program, when the variable 's' is defined in the module in lib.p, is not correct. If you do: # gpc -c lib.p # gpc -S main.p # vi main.s and add "movl $40,S" before .L6: in init_pascal_main_program, then # as -V -Qy -o main.o main.s GNU assembler version 2.10.91 (i386-redhat-linux) using BFD version 2.10.91.0.2 # gpc -o main main.o lib.o # ./main OK you get the expected result. Hope there is enough information to fix the problem. Many thanks Ian -- Ian Thurlbeck http://www.stams.strath.ac.uk/ Statistics and Modelling Science, University of Strathclyde Livingstone Tower, 26 Richmond Street, Glasgow, UK, G1 1XH Tel: +44 (0)141 548 3667 Fax: +44 (0)141 552 2079 Â°Ã¯S

3 7

RE: [Fwd: Re: Newbie question ...]
by da Silva, Joe 24 May '01

24 May '01

Good news! I have now tried WDOSX 0.96 and it works with the GPC "Hello world" test program! Not only did it convert the executable to a stand-alone application (built-in DPMI services), it also compressed the executable to nearly half it's original size! :-) OK, one final newbie question : The online documentation (http://agnes.dida.physik.uni-essen.de/~gnu-pascal/gnu.html) says that GPC can be used to compile "commercial, non-free" applications. Is this a modification of the standard GNU GPL, or is this an interpretation of the GPL? The reason I ask, is that a number of people, including (I think) DJ Delorie (of DJGPP fame), have a different interpretation. I apologise if this question has been asked before, but no matter how many times I read the GPL or look at the information of the FSF and GNU, I just can't figure it out. Regards, Joe. > -----Original Message----- > From: da Silva, Joe [SMTP:Joe.daSilva@emailmetering.com] > Sent: Wednesday, 23 May 2001 18:49 > To: gpc > Subject: RE: [Fwd: Re: Newbie question ...] > > Thanks for the info., Maurice. > > WDOSX is a DOS-extender for NASM, TASM, MASM, Borland C, > Borland Delphi, MSC, Watcom C, TMT Pascal and DJGPP ... > home page : http://www.wuschel.demon.co.uk/ > > I have now downloaded the pmode13b archive, but when I follow > the links for COFF, I reach a "dead end" (can't find domain) at : > http://www.abwillms.demon.co.uk/prog/kernel2.zip :-( > > Anyway, it looks like a new version of WDOSX was released > just last month, so I will try again with this release ... > > Joe. > > -----Original Message----- > > From: Maurice Lombardi [SMTP:Maurice.Lombardi@ujf-grenoble.fr] > > Sent: Wednesday, 23 May 2001 1:45 > > To: gpc > > Subject: [Fwd: Re: Newbie question ...] > > > > > > da Silva, Joe wrote: > > > > > Greetings. > > > > > > I hope I haven't missed the answer to this question somewhere (I have > > > looked at the online information, but couldn't find it ...) : > > > > > > Is there a stub/extender available, for the DJGPP build of the > > compiler, > > > that provides DPMI services for an application, instead of loading > > > CWSDPMI? I tried stubbing the "Hello world" example using WDOSX, > > > but this simply crashed the computer ... > > > > I do not know what is WDOSX > > DJGPP gives pmode13b/s in the v2misc directory (free of course). > > This stub can be bound to the COFF image to give a standalone > executable. > > See the doc included in the distribution. > > Maurice > > > > -- > > Maurice Lombardi > > Laboratoire de Spectrometrie Physique, > > Universite Joseph Fourier de Grenoble, BP87 > > 38402 Saint Martin d'Heres Cedex FRANCE > > Tel: 33 (0)4 76 51 47 51 > > Fax: 33 (0)4 76 51 45 44 > > mailto:Maurice.Lombardi@ujf-grenoble.fr

2 1

RE: [Fwd: Re: Newbie question ...]
by da Silva, Joe 23 May '01

23 May '01

Thanks for the info., Maurice. WDOSX is a DOS-extender for NASM, TASM, MASM, Borland C, Borland Delphi, MSC, Watcom C, TMT Pascal and DJGPP ... home page : http://www.wuschel.demon.co.uk/ I have now downloaded the pmode13b archive, but when I follow the links for COFF, I reach a "dead end" (can't find domain) at : http://www.abwillms.demon.co.uk/prog/kernel2.zip :-( Anyway, it looks like a new version of WDOSX was released just last month, so I will try again with this release ... Joe. > -----Original Message----- > From: Maurice Lombardi [SMTP:Maurice.Lombardi@ujf-grenoble.fr] > Sent: Wednesday, 23 May 2001 1:45 > To: gpc > Subject: [Fwd: Re: Newbie question ...] > > > da Silva, Joe wrote: > > > Greetings. > > > > I hope I haven't missed the answer to this question somewhere (I have > > looked at the online information, but couldn't find it ...) : > > > > Is there a stub/extender available, for the DJGPP build of the > compiler, > > that provides DPMI services for an application, instead of loading > > CWSDPMI? I tried stubbing the "Hello world" example using WDOSX, > > but this simply crashed the computer ... > > I do not know what is WDOSX > DJGPP gives pmode13b/s in the v2misc directory (free of course). > This stub can be bound to the COFF image to give a standalone executable. > See the doc included in the distribution. > Maurice > > -- > Maurice Lombardi > Laboratoire de Spectrometrie Physique, > Universite Joseph Fourier de Grenoble, BP87 > 38402 Saint Martin d'Heres Cedex FRANCE > Tel: 33 (0)4 76 51 47 51 > Fax: 33 (0)4 76 51 45 44 > mailto:Maurice.Lombardi@ujf-grenoble.fr

1 0

[Fwd: Re: Newbie question ...]
by Maurice Lombardi 22 May '01

22 May '01

da Silva, Joe wrote: > Greetings. > > I hope I haven't missed the answer to this question somewhere (I have > looked at the online information, but couldn't find it ...) : > > Is there a stub/extender available, for the DJGPP build of the compiler, > that provides DPMI services for an application, instead of loading > CWSDPMI? I tried stubbing the "Hello world" example using WDOSX, > but this simply crashed the computer ... I do not know what is WDOSX DJGPP gives pmode13b/s in the v2misc directory (free of course). This stub can be bound to the COFF image to give a standalone executable. See the doc included in the distribution. Maurice -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 51 45 44 mailto:Maurice.Lombardi@ujf-grenoble.fr

1 0

Newbie question ...
by da Silva, Joe 22 May '01

22 May '01

Greetings. I hope I haven't missed the answer to this question somewhere (I have looked at the online information, but couldn't find it ...) : Is there a stub/extender available, for the DJGPP build of the compiler, that provides DPMI services for an application, instead of loading CWSDPMI? I tried stubbing the "Hello world" example using WDOSX, but this simply crashed the computer ... Regards, Joe.

1 0

reset() regression
by Ian Thurlbeck 21 May '01

21 May '01

Hello all I've just noticed a small difference with the gpc-20010512 compiler from the one I was using (gpc-19991030). If you do: program restest(input,output); var s:string(40); t:text; begin s:=""; {$i-} reset(t,s); if (IOResult = 0) then writeln('File exists') else writeln('File does not exist'); end. the 1999 compiled code produces "File does not exist" whilst the 2001 code produces "File exists". Not sure if you consider this worth fixing given I can test for "" before I do the reset() easily enough. ( A "" filename is produced by some legacy code I maintain, when someone presses RETURN to a filename: prompt. Not very sensible to go passing it to reset(), but there you go. ) Yours Ian -- Ian Thurlbeck http://www.stams.strath.ac.uk/ Statistics and Modelling Science, University of Strathclyde Livingstone Tower, 26 Richmond Street, Glasgow, UK, G1 1XH Tel: +44 (0)141 548 3667 Fax: +44 (0)141 552 2079

2 1

Re: Compiling latest gpc on latest cygwin (fwd)
by Matthias Braun 16 May '01

16 May '01

Forgot the attachements :) I don't attach gpcpp.c (cause it's 360k) I'll send it to anyone asking. On Wed, 16 May 2001, Prof. A Olowofoyeku (The African Chief) wrote: > On 15 May 2001, at 16:39, Matthias Braun wrote: > > > Hello, > > I've got problems with compiling gpc snapshot from 12.5 and latest cygwin > > with gcc 2.95.3-4 I did like described in the faq, and I had some problems > > I solved: > > -There was no patch for gcc 2.95.3-4 so I took the one for 2.95.3 > > -GPLUSPLUS_INCLUDE_DIR and TOOL_INCDLUDE_DIR wasn't declared in > > gpcpp.c, I found an #undeclare in cygwin.h and deletet it. > > I am not sure that you should do that. I think you should trust that > whoever undeclared it knew what they were doing. I normally can compile > GPC for both Cygwin and Mingw without touching anything other than to > apply the GPC patch. So I looked into the cccp.c file which seems to be the c counterpart to gpcpp.c, here they did a #ifdef TOOL_INCLUDE_DIR around the critical parts, so I did the same for gpcpp.c and restored original cygwin.h. But this gives the same effect as before. > > After that compiling worked, but if I use the compile now, the following > > appears: (gpc -v test.pas) > > Do you have all the latest GNU tools and headers and libraries? You > shouldn't have had to change cygwin.h to be able to build GPC > successfully. Yes, I used the setup utility from cygwin.com and installed experimental releases (gcc package isn't marked experimental anyway). I installed all the tools there. > [...] > > GNU Pascal version 2.95.3-4 (cygwin special) (i586-pc-cygwin32) compiled > > by GNU C version 2.95.3-3 (cygwin special). GNU Pascal version is actually > > 20010512, based on gcc-2.95.3-4 (cygwin special) > > as -o /PlatteC/WINDOWS/TEMP/ccc85291 /PlatteC/WINDOWS/TEMP/ccb85291 > > gpc.exe: Internal compiler error in `do_spec_1', at p/gpc.c:4500 > > I have never seen this problem before. The GPC that you built is > obviously broken. Why? I have no idea. Could it be a problem with your > "specs" file? Perhaps Peter or Frank might have an idea what this error > means. I reinstalled everything, I did some tests, compiling works if I use the following sequence: gpc -c -o test.o test.pas gcc test.o -o test.exe -lgpc So It seems only an error reading the specs file, but I don't understand the spec file syntax :/. So I've attached it along with the changed gpcpp.c to this mail. Matze

3 2

GPC and GCC 3.0
by Vaclav Haisman 16 May '01

16 May '01

Hi, I wonder if gpc will work with GCC 3.0 release? Vaclav Haisman -----BEGIN GEEK CODE BLOCK----- Version: 3.1 GCS/IT d- s+:(+) a-- c++ UB+(++) P++(+++) L+ E W++ N+ o? K? w+ O? M-(--) V? PS(+) PE++ Y PGP t(+) 5? X R+@ tv+ b++ DI+ D+ G e h! r-(--) !z+ ------END GEEK CODE BLOCK------

2 1

Re: gpc on cygwin with dll's (fwd)
by Matthias Braun 16 May '01

16 May '01

On Wed, 16 May 2001, Prof. A Olowofoyeku (The African Chief) wrote: > On 16 May 2001, at 15:29, Matthias Braun wrote: > > [...] > > A typical line from allunit.pas is: > > var > > screen: BITMAP_ptr; asmname 'screen'; external; > > this produces a screen not found when linking the thing, however, linking > > the C files suceed. So I looked at the symbols with objdump -t -T, and saw > > that the C object files use __imp_screen instead of _screen, although C > > Declaration is also > > BITMAP *screen; > > > > So I tried to changed the code to > > screen : BITMAP_ptr; asmname '_impl__screen'; external; > > which linked ok, but produced crashing progs. After some investigation, I > > discovered, that these __imp_screen, aren't the global var itself but a > > pointer to the var. > > Yes. Isn't that what the "*" in the declaration means? No. It's a pointer to a pointer to a BITMAP. I missinterpreted C declaration stuff (There are complicated preprocessor things) The correct declaration is: extern __attribute__((dllimport)) BITMAP *screen; So the thing seems to be the dllimport. But when using dllimport with variables, gpc sometimes seems to do nothing (if attribute(dllimport) stands after asmname), or gets confused (if it stands direct after the var declaration). I tried to use it with functions and procedures and then it does the right thing: It adds a __imp__ in front of the symbol name. So this looks to me like a compiler bug. > > Am I doing something wrong or can't gpc handle dll stuff right? > > GPC can handle dll stuff quite fine. The entire Win32 API is dll-based, > and GPC programs can use the API with no problem. You need to make sure > that you are dereferencing the pointers where appropriate. But may also > need to attach the "stdcall" attribute to the DLL function imports. What > I do to simply it all is this; > > {$define Stdcall attribute(stdcall)} > {$define WINAPI(X) asmname X; Stdcall} > FUNCTION GetDC ( Wnd : HWND ) : HDC; WINAPI ( 'GetDC' ); > blah, blah .... Thanks, didn't know that. But Allegro Library consisted of 2 libs anyway: the all3936.dll and liballeg.a, and I link the liballeg.a with my programs, which seems to be a wrapper to the lib. I don't need to define the procedures and functions like this, it's working with a simpel "C;". Matze

1 0

Compiling latest gpc on latest cygwin
by Matthias Braun 16 May '01

16 May '01

Hello, I've got problems with compiling gpc snapshot from 12.5 and latest cygwin with gcc 2.95.3-4 I did like described in the faq, and I had some problems I solved: -There was no patch for gcc 2.95.3-4 so I took the one for 2.95.3 -GPLUSPLUS_INCLUDE_DIR and TOOL_INCDLUDE_DIR wasn't declared in gpcpp.c, I found an #undeclare in cygwin.h and deletet it. After that compiling worked, but if I use the compile now, the following appears: (gpc -v test.pas) Reading specs from /usr/lib/gcc-lib/i586-pc-cygwin32/2.95.3-4/specs gpc version 20010512, based on 2.95.3-4 (cygwin special) /usr/lib/gcc-lib/i586-pc-cygwin32/2.95.3-4/gpcpp.exe -lang-pascal -v -famtmpfile=/PlatteC/WINDOWS/TEMP/cc985291 -fdelphi-comments -D__GNU_PASCAL__ -undef -D__GNUC__=2 -D__GNUC_MINOR__=95 -D__GPC__=2 -D__GPC_MINOR__=0 -D__GPC_RELEASE__=20010512 -D__BITS_LITTLE_ENDIAN__=1 -D__BYTES_LITTLE_ENDIAN__=1 -D__WORDS_LITTLE_ENDIAN__=1 -D_X86_=1 -D_X86_=1 -Asystem(winnt) -Acpu(i386) -Amachine(i386) -Di386 -D__i386 -D__i386__ -Di586 -Dpentium -D__i586 -D__i586__ -D__pentium -D__pentium__ -D__stdcall=__attribute__((__stdcall__)) -D__cdecl=__attribute__((__cdecl__)) -D_stdcall=__attribute__((__stdcall__)) -D_cdecl=__attribute__((__cdecl__)) -D__declspec(x)=__attribute__((x)) -D__CYGWIN32__ -D__CYGWIN__ -Dunix -D__unix__ -D__unix -isystem /usr/local/include -idirafter /usr/include -idirafter /usr/include/w32api test.pas /PlatteC/WINDOWS/TEMP/cca85291 GNU Pascal Compiler PreProcessor version 20010512, based on gcc-2.95.3-4 (cygwin special) (80386, BSD syntax) #include "..." search starts here: #include <...> search starts here: /usr/local/include /usr/local/include /include /usr/lib/gcc-lib/i586-pc-cygwin32/2.95.3-4/include /usr/include /usr/include /usr/include/w32api End of search list. /usr/lib/gcc-lib/i586-pc-cygwin32/2.95.3-4/gpc1.exe /PlatteC/WINDOWS/TEMP/cca85291 -quiet -dumpbase test.pas -version -famtmpfile=/PlatteC/WINDOWS/TEMP/cc985291 -o /PlatteC/WINDOWS/TEMP/ccb85291 GNU Pascal version 2.95.3-4 (cygwin special) (i586-pc-cygwin32) compiled by GNU C version 2.95.3-3 (cygwin special). GNU Pascal version is actually 20010512, based on gcc-2.95.3-4 (cygwin special) as -o /PlatteC/WINDOWS/TEMP/ccc85291 /PlatteC/WINDOWS/TEMP/ccb85291 gpc.exe: Internal compiler error in `do_spec_1', at p/gpc.c:4500 Please submit a full bug report. See <URL:http://www.gnu.org/software/gcc/bugs.html> for instructions.

3 3

gpc on cygwin with dll's
by Matthias Braun 16 May '01

16 May '01

We're doing a project at school (a small game), because most pupils in my class only program in pascal, we have a project with mixed C / Pascal. As a gfx library we use allegro. This mix worked great under djgpp, but we wanted some tcp/ip networking, so I tried to port things to cygwin. (I'll publish the gpc allegro wrapper I wrote after the project) linking with windows gives some strange problems with global vars: A long description follows: A typical line from allunit.pas is: var screen: BITMAP_ptr; asmname 'screen'; external; this produces a screen not found when linking the thing, however, linking the C files suceed. So I looked at the symbols with objdump -t -T, and saw that the C object files use __imp_screen instead of _screen, although C Declaration is also BITMAP *screen; So I tried to changed the code to screen : BITMAP_ptr; asmname '_impl__screen'; external; which linked ok, but produced crashing progs. After some investigation, I discovered, that these __imp_screen, aren't the global var itself but a pointer to the var. This is bad, because it would mean to change all pascal files. C compiler seems to do this automagically. Am I doing something wrong or can't gpc handle dll stuff right? Matze

3 2

Re: Memory use problem
by david＠tcs01.demon.co.uk 16 May '01

16 May '01

In message <Pine.LNX.4.21.0105142130540.150-100000(a)rusty.russwhit.com> Russ Whitaker writes: > On Tue, 15 May 2001, Frank Heckenbach wrote: > [..] > > Another possibility: I recently read an article in the German c't > > magazin about glibc. If you're using it (most Linux systems do by > > now), you might be able to use its debugging facilities (look for > > mtrace() and $MALLOC_TRACE -- I hope there's something about it in > > the docs or on the net). > > > > Try info glibc. There's a node called "Allocation Debugging" with 4 > sub-nodes. > > Don't know about earlier releases, but it is in glibc-2.2.2 release. Thanks to Frank and Russ for those suggestions. MALLOC_TRACE, mtrace, and muntrace are also in glibc-2.1.3 (when I finally managed to get info libc to tell me anything). So ... I put a call to mtrace at the start of my message handling loop and a call to muntrace at the end of my message handling loop, in such a way that I turn the tracing on for exactly one pass though the loop. Then I ran the mtrace script on the resulting output ... I get 4008 unfreed blocks (that number is not relevant, except as an indication that there's a lot of memory allocation going on), all of them have been called from line 121 of rts/heap.pas. They are for varying memory sizes (a quick glance shows 0x1, 0xd, 0x21, 0x1e, 0x5e and an overwhelming majority for 0xa0). This is with the 20010512 GPC release. I think that source line is p:=GetMemPtr^(Size) in GPC_GetMem. Now what I need to know is where is this being called from (unless anyone is able to say immediately 'ah yes ...'). I'd like to be able to get a call stack listing under program control. Any suggestions on how to do this, please? -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

2 1

Reading boot sector of PC under Linux
by Martin Liddle 15 May '01

15 May '01

Does anybody have a code fragment to read the boot sector of a PC running Linux (Red Hat 6.2 if it matters)? -- Martin Liddle, Tynemouth Computer Services, 27 Garforth Close, Cramlington, Northumberland, England, NE23 6EW. Phone: 01670-712624. Fax: 01670-717324. Web site: <http://www.tynecomp.co.uk>.

5 8

Re: Memory use problem
by david＠tcs01.demon.co.uk 15 May '01

15 May '01

In message <1B07E47F.20010506131757.FOO-5823.frank(a)g-n-u.de> Frank Heckenbach writes: > > Simply using the unit HeapMon should show some report about > non-released pointers at the end of the program. The unit also > provides a function to generate such a report at an arbitrary point > during a program run and to an arbitrary file. > > The report contains the caller address (which can be turned to > source lines using addr2line) which might help find the leaks. Frank, Thank you, I've now downloaded version 20010512, and tried the new HeapMon. It is very useful. Unfortunately, what it seems to show is that my problem is not with non-released pointers. The general structure of this program is (in a sort-of pseudo-code): begin allocate_shared_memory; use HeapMon to report non-released pointers; (*1*) while true begin wait for a message on a System V IPC message queue; process the message; (* a lot of code, usually involves writing a new file*) use HeapMon to report non-released pointers; (*2*) end; (*never gets here - program is terminated by a signal(2) from some other process*) end. I see no difference between the report from HeapMon at point (*1*) and the reports from HeapMon that are generated after each message is processed at point (*2*). Each of them shows the 4 separate pieces of memory that are allocated by new in allocate_shared_memory. However, as the program runs (under Linux) I see the Vsize (and RSS) increasing. I suspect that my problem is allocation within routines from the C run-time libraries that my low-level code is calling, or (possibly) allocation within the GPC RTS. My question now is, what else can I try to see what is being allocated and not released at these lower levels. Is electric fence the tool to use (and if so, how well does it work with GPC)? Anyone any other suggestions? -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

3 2

GRX for GPC: Demo files?
by Markus Gerwinski 12 May '01

12 May '01

Hi folks, are there any demo files for usage of the GRX GNU Pascal interface? Especially I need to know how to just initialize a GRX program - in X11 or - from a shell. Since the Pascal interface of grSetMode has another parameter list as the original function in C, this is a non-trivial problem. Further, I need to know how to handle keyboard events and mouse events with the GRX GPC interface. Thanks in advance for any help Markus -- http://www.gerwinski.de/~markus/

1 0

IRIX problem
by Miklos Cserzo 11 May '01

11 May '01

Hi Folks, I decided to rebuild the GPC under IRIX 6.5 from the gpc-20010502 source on the top of gcc-core-2.95.2. It is not working. Here goes the tail of the log of the make: ../.././xgpc -B../.././ -c -I. -W -Wall -Wpointer-arith -Wwrite-strings -Wmissing-prototypes -Wmissing-declarations -g -O2 -DRTS_RELEASE_STRING="'`cat /usr/local/src/gpc/gcc-2.95.2/gcc/p/rts/rts-version`'" --unit-path=/usr/local/src/gpc/gcc-2.95.2/gcc/p/rts --automake /usr/local/src/gpc/gcc-2.95.2/gcc/p/rts/string.pas /usr/local/src/gpc/gcc-2.95.2/gcc/p/rts/string.pas: In function `Memcompcase': /usr/local/src/gpc/gcc-2.95.2/gcc/p/rts/string.pas:207: Internal compiler error in `add_bound_info', at gcc-2.95.2/gcc/dwarf2out.c:7376 Please submit a full bug report. See <URL:http://www.gnu.org/software/gcc/faq.html#bugreport> for instructions. gmake[2]: *** [string.o] Error 1 gmake[2]: Leaving directory `/usr/local/src/gpc/build/gcc/p/rts' gmake[1]: *** [pascal.rts] Error 2 gmake[1]: Leaving directory `/usr/local/src/gpc/build/gcc' gmake: *** [all-gcc] Error 2 In the configure only the the --enable-languages=pascal switch was used. Then a plain gmake without any extra bells or whistles. What went wrong? Cheers, miklos Miklos Cserzo University of Birmingham c/o School of Biosciences MRC - Bioinformatics Project Tel: +44-121-414-3037 Schools of Biosciences and Medicine Fax: +44-121-414-5925 Edgbaston, Birmingham B15 2TT E-mail: miklos(a)bip.bham.ac.uk United Kingdom

3 4

Re: Problem with unpacking of gpc-20010423_tar.gz
by Maurice Lombardi 11 May '01

11 May '01

Kocherlakota Harikrishna wrote: > Hello, > It's source form only. Not from binary. > It's from : > ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/alpha/gpc-20010423.tar.gz But even a source file, when compressed by gzip, becomes a binary file which must be downloaded in binary mode. -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 51 45 44 mailto:Maurice.Lombardi@ujf-grenoble.fr

1 0

Problem with unpacking of gpc-20010423_tar.gz
by Kocherlakota Harikrishna 11 May '01

11 May '01

Hello, I tried to download the GPC version 'gpc-20010423_tar.gz' which was successful. But while trying to unpapack it with command Gunzip gpc-20010423_tar.gz an error message is seen :' INVALID COMPRESSED DATA - FORMAT VIOLATED'. Could you please help me out. Thanks and Regards Hari

3 2

Re: Memory use problem
by david＠tcs01.demon.co.uk 07 May '01

07 May '01

In message <Pine.LNX.4.21.0011240232590.265-100000(a)rusty.russwhit.com> Russ Whitaker writes: > > Hi > > suggestion: a script to take a snapshot of the /proc filesystem > so you can find what's growing > > take a look at > dir /proc > and cat /proc/<ID>/status > or cat /proc/<ID>/maps The application has been running for some 21 hours now, and I've been taking occasional snapshots both of status and maps. status shows VmSize and VmRSS growing. maps shows the end of the rwxp region that starts at 08171000 growing - can I deduce anything more from this? (for example is it likely to be Pascal heap space or something else?). Both status and maps snapshots follow. Any further suggestions will be gratefully received ... status ====== Name: webmake.e State: S (sleeping) Pid: 27006 PPid: 31555 Uid: 500 500 500 500 Gid: 500 500 500 500 Groups: 500 VmSize: 110776 kB VmLck: 0 kB VmRSS: 108340 kB VmData: 107944 kB VmStk: 84 kB VmExe: 1172 kB VmLib: 1360 kB SigPnd: 0000000000000000 SigBlk: 0000000000000000 SigIgn: 800000000000a006 SigCgt: 0000000008094000 CapInh: 0000000000000000 CapPrm: 0000000000000000 CapEff: 0000000000000000 maps ==== 08048000-0816d000 r-xp 00000000 03:07 32300 /var/rally/bin/webmake.e 0816d000-08171000 rw-p 00124000 03:07 32300 /var/rally/bin/webmake.e 08171000-0e9d0000 rwxp 00000000 00:00 0 40000000-40013000 r-xp 00000000 03:05 34138 /lib/ld-2.1.3.so 40013000-40014000 rw-p 00012000 03:05 34138 /lib/ld-2.1.3.so 40014000-40015000 rw-p 00000000 00:00 0 40015000-40016000 r--p 00000000 03:06 94 /usr/share/locale/en_US/LC_MESSAGES/SYS_LC_MESSAGES 40016000-40017000 r--p 00000000 03:06 96660 /usr/share/locale/en_US/LC_MONETARY 40017000-40018000 r--p 00000000 03:06 96662 /usr/share/locale/en_US/LC_TIME 40018000-40019000 r--p 00000000 03:06 96661 /usr/share/locale/en_US/LC_NUMERIC 4001a000-4001b000 rwxs 00000000 00:00 0 4001b000-4001e000 r-xp 00000000 03:06 96925 /usr/lib/libpanel.so.4.0 4001e000-4001f000 rw-p 00002000 03:06 96925 /usr/lib/libpanel.so.4.0 4001f000-40054000 r-xp 00000000 03:06 96923 /usr/lib/libncurses.so.4.0 40054000-4005d000 rw-p 00034000 03:06 96923 /usr/lib/libncurses.so.4.0 4005d000-40061000 rw-p 00000000 00:00 0 40061000-4007d000 r-xp 00000000 03:05 34156 /lib/libm-2.1.3.so 4007d000-4007e000 rw-p 0001b000 03:05 34156 /lib/libm-2.1.3.so 4007e000-4016b000 r-xp 00000000 03:05 34145 /lib/libc-2.1.3.so 4016b000-4016f000 rw-p 000ec000 03:05 34145 /lib/libc-2.1.3.so 4016f000-40174000 rw-p 00000000 00:00 0 40174000-4017c000 r--p 00000000 03:06 96658 /usr/share/locale/en_US/LC_COLLATE 4017c000-40192000 r--p 00000000 03:06 96659 /usr/share/locale/en_US/LC_CTYPE 40192000-401cc000 rwxs 00000000 00:00 0 401cc000-40292000 rwxs 00000000 00:00 0 bffeb000-c0000000 rwxp fffec000 00:00 0 -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

5 11

Re: GPC on FreeBSD
by Prof Abimbola Olowofoyeku 06 May '01

06 May '01

Frank Heckenbach wrote: [...] > > What I did was install the pgcc port, then followed the gpc build > > instructions using the pgcc source tree in /usr/ports. > > > > It seems to work for me. > > OK, so I'll tell them to just try that. > > But before I do, I'd like to know whether the Makefile problem ("No rule > to make target `choose-temp.o', needed by `xgpc.exe'") is solved or not. > I've seen contradictory statements about that. I.e., does the current > GPC build with gcc-2.95* without this problem (on any platform)? The current GPC builds under Cygwin, Mingw and Solaris 2.5.1 with gcc-2.95.2. It also builds on gcc-2.95.3 with Cygwin and Mingw, but fails with all sorts of problems under Solaris2.5.1 (many of them relate it seems to gcc headers, and the problems start long before it gets to the 'p' directory). Indeed, I have abandoned trying to build with gcc- 2.95.3 under Solaris2.5.1. Best regards, The Chief -------- Prof. Abimbola A. Olowofoyeku (The African Chief) Author of: Chief's Installer Pro for Win32 http://www.bigfoot.com/~African_Chief/chief32.htm Email: African_Chief(a)bigfoot.com

1 0

Re: GPC on FreeBSD
by Maurice Lombardi 06 May '01

06 May '01

Frank Heckenbach wrote: > Stephen Hurd wrote: > But before I do, I'd like to know whether the Makefile problem ("No > rule to make target `choose-temp.o', needed by `xgpc.exe'") is > solved or not. Yes it is solved at least for for djgpp with gpc-20010502 and gcc-2.95.3 I have made the change for HAVE_SELECT. The resulting binary has been uploaded to agnes. Thanks ! Maurice -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 51 45 44 mailto:Maurice.Lombardi@ujf-grenoble.fr

1 0

GPC on FreeBSD
by Frank Heckenbach 06 May '01

06 May '01

Hi, to install some of my programs, a FreeBSD user requires a current GPC version (preferably newer than 20000717). Is there any FreeBSD port available, or can someone provide one? (I have to experience with FreeBSD and no access to a FreeBSD machine myself.) If so, does it take care of installing cc1, cpp and libgcc.a as well, or will that have to be done manually? TIA, Frank -- Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/ GPC To-Do list, latest features, fixed bugs: http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html

3 7

leftover tmp
by Russ Whitaker 04 May '01

04 May '01

Start with something simple, say foo.pas: program foo; begin end. Step 1: note no space betwen "e" and "-" gpc --automake-o foo foo.pas Step 2: do it right gpc --automake -o foo foo.pas Step 3: repeat step 1. Shouldn't there be a built-in "make clean" in there someplace? Russ

2 1

compilation with GCC 2.95.3
by Adam Naumowicz 03 May '01

03 May '01

Hello, I tried to compile the current snapshot of GPC with GCC 2.95.3 under SuSE 6.2. I followed the procedure as I always used to, but there seems to be some error - make complains that there is 'no rule to make choose-temp.o' Any hints? Solutions? Any comments will be appreciated. Adam Naumowicz -------------------------------------- WWW: http://math.uwb.edu.pl/~adamn/ --------------------------------------

3 4

New bug in gpc-20010502?
by Prof Abimbola Olowofoyeku 02 May '01

02 May '01

Hi Frank et. al. A new bug (or incompatibility) seems to have crept into the latest gpc snapshot. In rts.c, in the function _p_SelectHandle(), there are these lines: #ifndef HAVE_SELECT (void) readfds; (void) writefds; (void) exceptfds; if (n) return -1; _p_SleepMicroSeconds (MicroSeconds); Well, each line, except the call to _p_SleepMicroSeconds() causes an error when compiling gpc for Mingw. Basically, I have had to comment out each troublesome line. I am not sure whether the problem is in that code or in the 'configure' script for the RTS or whether it is a gremlin in my system. Best regards, The Chief -------- Prof. Abimbola A. Olowofoyeku (The African Chief) Author of: Chief's Installer Pro for Win32 http://www.bigfoot.com/~African_Chief/chief32.htm Email: African_Chief(a)bigfoot.com

2 1

bug?
by Oldham, Adam 02 May '01

02 May '01

Using gpc-200010502 getting many of these errors: router.pas: In procedure `Sendconsupmsg': router.pas:224: Internal GPC error: no data area in string router.pas:224: Internal compiler error in `declared_string_capacity', at types.c:1031 Please submit a full bug report to the GPC mailing list <gpc(a)gnu.de>. That is just an example. Was compiled with gcc-2.95.2, running on Mandrake Linux 7.2, running 2.2.17 kernel. Router.pas:224 is: VersionStr : STRING18 All of these problems were on string declarations in different areas of my source tree when Idid a full recompile after uprading. gpc-20010115 worked and compiled this same source with no problems. Need any more info, let me know soon before I regress to the older version. Adam ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

2 1

GtkUnits-1.2.10-20010502 Release
by Nicola Girardi 02 May '01

02 May '01

Hi GPC Folks!! This is to announce a new snapshot of the GTK+ unit set. The GTK+ GL library has been introduced! Useful links: For details about the GTK+ GL library: http://www.student.oulu.fi/~jlof/gtkglarea/ To download the new snapshot: http://agnes.dida.physik.uni-essen.de/~nicola/GtkUnits ftp://agnes.dida.physik.uni-essen.de/pub/home/nicola/GtkUnits Greetings, -- Nicola Girardi <nikke(a)swlibero.org>

1 0

Bug in Delay
by Olivier Pécheux 29 Apr '01

29 Apr '01

Hi, Some of my beginners found that Delay work proprely for timing more than 12 ms. Under 11 are no delay but the C'delay do. I don't find it in the Bug list.

6 20

Re: national character sets
by Frank Heckenbach 28 Apr '01

28 Apr '01

Hi Chief, > > > I can send you a sample zip file if you want. > > > > Yes, please. > > Attached. It was produced by a Danish customer, and inside the zip file > is a bitmap that shows exactly what the other filenames should look like > (so that the issue is not confused any further). Windows handles them > correctly if I call OEMToChar (formerly OEMToAnsi) before displaying the > filenames or before calling Rewrite. I'm using: UnZip 5.32 of 3 November 1997, by Info-ZIP. Maintained by Greg Roelofs. Send bug reports to the authors at Zip-Bugs(a)lists.wku.edu; see README for details. and I cannot exactly say that it "fails most miserably". E.g., the small ligature ae is coded in the zip file as #$a1, and unzip converts it to #$e6 which is the correct latin1 code for this character. Both the zip listing (unzip -l) and the directory listing after unpacking look just like the included graphics, both in xterm (XFree86 3.3.2(68)) and on the console after setting the default font (setfont default8x16 ; loadunimap) -- I usually use a different font which does not contain all of the Danish characters, but those that it does are still shown correctly. So I conclude that the charset conversion code in unzip is indeed quite right. Frank -- Frank Heckenbach, frank(a)g-n-u.de http://fjf.gnu.de/ PGP and GPG keys: http://fjf.gnu.de/plan

2 6

agnes up again
by Frank Heckenbach 26 Apr '01

26 Apr '01

Hi, agnes is up again (tentatively), and the GPC pages should be available. Everyone who has an account on agnes, please check if your stuff is undamaged. Anyone else is also invited to try if the public services function as usual. Please report any problems to Peter or me. Frank -- Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/ GPC To-Do list, latest features, fixed bugs: http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html

2 2

mirror for GPC for GCC 2.9.5.3
by CloseBSD 25 Apr '01

25 Apr '01

Hello anyone knows a mirror for the gpc2953.zip file, originally in /home/maurice of agnes (the gpc compiled for djgpp and gcc 2.9.5.3 environnement) Thanks

2 1

national character sets
by Prof. A Olowofoyeku (The African Chief) 24 Apr '01

24 Apr '01

Hi all Are there libraries or routines that are usable with GPC for dealing with character sets? For example the WinAPI has routines such as OemToChar (or OemToAnsi for 16-bit Windows) to deal with converting strings between "oem" character sets and "ansi". I can use these for what I am doing, but I would lose portability while so doing. Best regards, The Chief --------- Prof. Abimbola Olowofoyeku (The African Chief) Author of Chief's Installer Pro for Win32 Email: African_Chief(a)bigfoot.com http://www.bigfoot.com/~african_chief/

4 8

GPC page links
by Thomas White 24 Apr '01

24 Apr '01

GNU.org GPC page links to Web and Documentation are not working. _______________________________________________________ Do You Yahoo!? Get your free @yahoo.ca address at http://mail.yahoo.ca

2 1

C header file in pascal
by Ramalingam Ravekumar 24 Apr '01

24 Apr '01

hello, Can you please tell me how to include "C" header file in a pascal program ( GPC on linux) thanks and regards ravi -- Life is like a mirror, we get the best results when we smile at it. _________________________________________________ R.Rave Kumaar, Generic Data Tools, Alcatel Development Centre, Chennai. Ph : +91-44-2349961 Xtn : 7135

2 1

agnes down
by Peter Gerwinski 24 Apr '01

24 Apr '01

Hello everyone, a denial-of-service (DOS) attack has brought down our server agnes.dida.physik.uni-essen.de: [several 1000 lines snipped ...] Apr 23 04:36:22 agnes proftpd[3130] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): ANON anonymous: Login successful. Apr 23 04:36:45 agnes proftpd[3129] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): FTP session closed. Apr 23 04:37:07 agnes proftpd[3130] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): FTP session closed. Apr 23 04:37:56 agnes proftpd[3134] agnes.dida.physik.uni-essen.de (158.152.84.8[158.152.84.8]): FTP session opened. Apr 23 04:37:56 agnes proftpd[3134] agnes.dida.physik.uni-essen.de (158.152.84.8[158.152.84.8]): ANON anonymous: Login successful. Apr 23 04:37:58 agnes proftpd[3134] agnes.dida.physik.uni-essen.de (158.152.84.8[158.152.84.8]): FTP session closed. Apr 23 04:38:32 agnes proftpd[3135] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): FTP session opened. Apr 23 04:38:39 agnes proftpd[3135] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): ANON anonymous: Login successful. Apr 23 04:39:05 agnes proftpd[3135] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): FTP session closed. Apr 23 04:39:30 agnes proftpd[3136] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): FTP session opened. Apr 23 04:39:32 agnes proftpd[3136] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): ANON anonymous: Login successful. Apr 23 04:39:58 agnes proftpd[3136] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): FTP session closed. Apr 23 04:40:24 agnes proftpd[3137] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): FTP session opened. Apr 23 04:40:30 agnes proftpd[3137] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): ANON anonymous: Login successful. Apr 23 04:40:53 agnes proftpd[3128] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): Data transfer stall timeout: 300 seconds Apr 23 04:40:53 agnes proftpd[3128] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): ProFTPD terminating (signal 11) Apr 23 04:40:53 agnes proftpd[3128] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): ProFTPD terminating (signal 11) Apr 23 04:40:53 agnes proftpd[3128] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): ProFTPD terminating (signal 11) Apr 23 04:40:53 agnes proftpd[3128] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): ProFTPD terminating (signal 11) Apr 23 04:40:53 agnes proftpd[3128] agnes.dida.physik.uni-essen.de (202.107.3.153[202.107.3.153]): ProFTPD terminating (signal 11) [several 1000 lines snipped ...] We are working on its reanimation. Peter -- http://home.pages.de/~Peter.Gerwinski/ - G-N-U GmbH: http://www.g-n-u.de Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - gpc-20010423 GnuPG key fingerprint: 9E7C 0FC4 8A62 5536 1730 A932 9834 65DB 2143 9422 keys: http://www.gerwinski.de/pubkeys/ - AntiSpam: http://spam.abuse.net

2 1

Need date functions to process unix timestamps
by jallan 24 Apr '01

24 Apr '01

Hey Peoples, Since the GNU-GPC site is down i cant check the manual pages... Does GPC have date functions built in to handle unix timestamps? These timestamps seem to be number of seconds since January 1, 1970. I could just write a function taking into account leap years and all.. but why do that when its most likely already included :) Thanks jamie

2 1

Re: Possible Bug About Read?
by Frank Heckenbach 22 Apr '01

22 Apr '01

George L. Yang wrote: > I find the Read function can not read new line correctly. When I input > a new line, Read tells me what I input is 2 spaces. > I am not sure whether it is a bug or is there any way to fix it > quickly? First of all, what you should expect is a space rather than a newline. That's how text files work. (You can test EOLn to differentiate it from a real space.) If you want to read characters directly, maybe a `file of Char' is better suited than `Text'. But, of course, 2 spaces is wrong. I'm fixing it (will be uploaded soon, gpc-20010422). Thanks for the report (george1.pas). Frank -- Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/ GPC To-Do list, latest features, fixed bugs: http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html

1 0

Command lines with GPC
by CJ 22 Apr '01

22 Apr '01

I am trying to compile a program in Pascal with GPC, that uses command lines. I use the module you can find on the GPC's manual. When compile my program i get the next messages: "undefined reference to '_p_paramcount'" "undefined reference to '_p_paramstr'" I use a machine under LINUX and GPC 2.95.2 I would appreciate if somebody can help me. I know is a simple question for you but not for me ;) Thank you.

2 1

Re: Fwd: Re: Need GPC installation
by pavenis＠lanet.lv 20 Apr '01

20 Apr '01

On 12 Apr 2001, at 8:50, Andris Pavenis wrote: > > > Subject: Re: Need GPC installation > Date: Wed, 11 Apr 2001 22:44:28 +0200 > From: Frank Heckenbach <frank(a)g-n-u.de> > To: gpc(a)gnu.de > > In your previous test report (forwarded by Maurice Lombardi), you > also had the following errors in dialdef4.pas, fjf421l.pas and > fjf421m.pas. I didn't understand them, and they didn't appear to > occur now, so I suppose (hope ;-) it was some intermittent problem. > > > c:\djgpp\tmp\cceaaaaa: In function `pascal_main_program': > > fjf421m.pas:8: undefined reference to `_p_stdout' > > fjf421m.pas(.text+0x20): undefined reference to `_p_write' > > fjf421m.pas(.text+0x29): undefined reference to `_p_inoutres' > > fjf421m.pas(.text+0x31): undefined reference to `_p_check_inoutres' > > fjf421m.pas:9: undefined reference to `_p_atexit' > > fjf421m.pas(.text+0x82): undefined reference to `_p_initialize' > > fjf421m.pas(.text+0x91): undefined reference to `_p_finalize' > > collect2: ld returned 1 exit status > > failed I didn't have some packages installed earlier (pdcurses, gpm, ...). Thist time related headers and related libraries were available both at build and tests time (it was on different machines). So it seems that cross-building GPC for DJGPP under Linux worked for me without problems. Andris

6 7

Re: Need GPC installation
by Maurice Lombardi 20 Apr '01

20 Apr '01

pavenis(a)lanet.lv wrote: >>> Can You update this Pascal compiler (gpc2953b.zip) and documentation and inform >>> me (download site), too? >> >> Mmm. There is something broken in gpc under gcc-2.9.5.3. >> It compiles with snapshot gpc-20010315, but it gives lots of errors >> when running the test suite. As a comparison I have compiled the same >> snapshot under gcc-2.9.5.2 (the result is on agnes) and it gives zero error >> for the test suite. >> > > > You need to add one define in gpc.c > > #define MKTEMP_EACH_FILE > > (see gcc.c for example) > It's becoming evident if You run gpc -v --automake .... > and view what it spits out. OK. With this change and the previous replacements of cpp by cpp0, I am able to do a native djgpp build of gpc-20010331. It gives zero error when running the whole test suite, the gpc demos programs and the grx24 pascal demo programs. I have thus uploaded the resulting gpc2953b.zip to agnes under the link: ftp://agnes.dida.physik.uni-essen.de/home/maurice/gpc2953b.zip In the same directory I have uploaded all that I have used to do this native build (to enable compilations of new snapshots): -> the gpc diff file: ftp://agnes.dida.physik.uni-essen.de/home/maurice/gcc-2.95.3.diff (it complains that some hunks are not in proper place. It is easy to correct for that but I prefer to let people to try on other systems with the original diff first in case there would be something special to djgpp) -> the patch to apply to gcc2953s.zip to enable a native build: ftp://agnes.dida.physik.uni-essen.de/home/maurice/build_gpc_djgpp_2953.diff Notice that there is something wrong with the change made by gcc2953s2 to enable better incorporation of gpc into the gcc suite: what is changed in the top level Makefile.in: it produces GPC_FOR_TARGET=gpc instead of GPC_FOR_TARGET=./xgpc -B./ I have not tried to understand, only reverted these changes in the previous diff. -> a batch file ftp://agnes.dida.physik.uni-essen.de/home/maurice/buildgpc2953.bat which automates the whole process: compiling gpc, installing and running the test suite if there is no compilation error. I usually run it during lunch time or at night. Hope this helps Maurice -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 51 45 44 mailto:Maurice.Lombardi@ujf-grenoble.fr

7 35

ennumerated type bug
by Oldham, Adam 19 Apr '01

19 Apr '01

Hello People, I know there is a bug with ennumerated types being declared in one interface and using it in another (at least with passing the type contents as function parameters). This is also a low priority bug, but its one I need fixed.... so can anyone give me a little background on where to look to fix it? And if/when I do, I'll definately submit the code. Thanks! Adam ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

1 0

What do you use to debug with?
by Oldham, Adam 19 Apr '01

19 Apr '01

I have been using stock GDB that comes with Mandrake 7.2, when debugging strings I get this: $1 = {Capacity = 38, length = 0, schema$ = Invalid C/C++ type code 13 in symbol table. So I downloaded and built gdbpas and get this instead: $2 = {Capacity = 38, length = 38, schema$ = B'101100101000011001001110110001101111011'} Both for the same variable.... what s the proper way to debug pascal? Adam ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

1 0

Program return codes
by Ian Sinclair 19 Apr '01

19 Apr '01

I am trying to convert a PASCAL program from an IBM mainframe version to GNU Pascal. I fixed a couple of trival implementation details (such as <> instead of ^= and NOT for ^) but I have one problem left I can't figure out how to solve. The original program had a return code, implemented by a call to RETCODE with a parameter. This was obviously an implementation supplied interface to allow the program to be a function. How can I do this in GNU Pascal? My Pascal is 15 years rusty and I don't have a manual handy. I couldn't find anything in the binary distribution nor in the Web help. Am I going to have to do this by printing a value and then parsing the output? Thanks, Ian Sinclair Software Development Engineer Nortel Networks, Belleville, ON CA mailto:sinclair@nortelnetworks.com

3 2

GNU Pascal and Windows 2000Pro SP1
by Wouter de Klerk [RPN Bestuur] 19 Apr '01

19 Apr '01

OS : Windows 2000 Professional Service Pack 1 Machine : HP Vectra Vli400 (PIII, 128MB RAM) version of GPC : gpc version 2.0(2.7.2.1) errors Gives 'bad command or file name' when compiling. When I run a program, screen starts scrolling Thank You "The views expressed above is not necessarily those of Iscor Limited" ************************************************************************ ************** Wouter de Klerk Tel : (0926463) 274219 Fax : (0926463) 274296

2 1

I can't debug any program!
by Clark Kent 17 Apr '01

17 Apr '01

I had just download the gpc-20010409 package, and followed the instructions to build it and installed. All things looks like well, but I can't debug any program, even like this: ------------------------------------------------------------- program hello; begin writeln('Hello world'); end. ------------------------------------------------------------- I compiled it with `gpc -g -o hello hello.pas', and then issue `gdb hello'. The following is the output from gdb. ------------------------------------------------------------- GNU gdb 4.18 Copyright 1998 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 "i586-pc-linux-gnu"... (gdb) l 1 <implicit code>: No such file or directory. (gdb) l 1 in <implicit code> -------------------------------------------------------------- I'm using a TurboLinux chinese version 6.0, with gcc-2.95.2, binutils 2.9.1.0.25. I also tryed with gcc-2.95.3, gpc-2001331 but failed too. But when I got the suse's version `gpc.rpm' and installed it, move `/usr/lib/gcc-lib/i486-suse-linux/2.95.2/*' to `/usr/lib/gcc-lib/i586-pc-linux/2.95.2/' and change `/usr/lib/gcc-lib/i486-suse-linux/2.95.2' to be a symbolic link. It does work! Why?

2 1

Re: gpc V1 #132
by Tom Schneider 09 Apr '01

09 Apr '01

Eike: "Free Pascal" is not a standard Pascal compiler; it violates ISO standards. p2c works fine for me on a Sun computer. It translates from Pascal to C and then one can compile with gcc. One must also compile a library. It works just fine, but is not being developed like gpc. See http://www.lecb.ncifcrf.gov/~toms/delila.html#How.To.Compile for pointers to further information (and source for p2c). p2c and gpc are the only two Pascal compilers that I know about that are real (ISO) and have source available. Tom Dr. Thomas D. Schneider National Cancer Institute Laboratory of Experimental and Computational Biology Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu http://www.lecb.ncifcrf.gov/~toms/

1 0

Sysutils unit
by Prof Abimbola Olowofoyeku 09 Apr '01

09 Apr '01

Hi all I have released a new version of the Sysutils unit to agnes: ftp://agnes.dida.physik.uni-essen.de/home/chief/sysutils-20010409.zip It should compile with all the recent GPC snapshots. Please report any bugs or problems. Best regards, The Chief -------- Prof. Abimbola A. Olowofoyeku (The African Chief) Author of: Chief's Installer Pro for Win32 http://www.bigfoot.com/~African_Chief/chief32.htm Email: African_Chief(a)bigfoot.com

1 0

[Bug report] 12 bytes LongReal
by f.couperin 09 Apr '01

09 Apr '01

Sorry, I discovered a serious bug. The two smallest subnormal numbers (of 12 bytes LongReal type) cannot be written ; the program hangs and can't be stopped with CTRL+C. :-( (gpc version 20010331, based on 2.95.2 19991024 (release) Machine : Intel Pentium 120 + Windows 98) The first program allows to understand what is happening. The second one is the shorter I can write. -- Â«CouperinÂ» ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Program LRBug1; { ---------------------------------------------------------------------- BUG ! Intel IEEE Double-Extended (12 bytes) real numbers : The two smallest subnormal numbers cannot be written to the screen... The program hangs after : 1.000000000000001e-4950 (three steps above 0) ---------------------------------------------------------------------- } Const LongRealSize = 12; Type T_LongRealBis = Packed Array [1..LongRealSize] Of Byte; String2 = String(2); Var A : LongReal; Abis : T_LongRealBis Absolute A; {to read the binary content of A} I,N : Byte; Function Byte2Hex(X : Byte): String2; Const Hexa : Array [0..15] Of Char = '0123456789ABCDEF'; Begin Byte2Hex := Hexa[X Shr 4] + Hexa[X And 15] End; Begin If LongRealSize <> SizeOf(LongReal) Then Begin Writeln('This LongReal format (',SizeOf(LongReal), ') is unknown to this program.'); End Else Begin A := 3.3621031431120935120e-4932; {biggest subnormal number} For I := 0 To 64 Do Begin Write('16#'); {$ifdef __BYTES_BIG_ENDIAN__} For N := 1 To LongRealSize Do Write(Byte2Hex(Abis[N])); {$else} For N := LongRealSize DownTo 1 Do Write(Byte2Hex(Abis[N])); {$endif} Writeln(' is the representation of ',A); Writeln; A := A/2; End; Writeln; Writeln('OK') End End. ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Program LRBug2; Var A : LongReal; I : Byte; Begin A := 3.3621031431120935120e-4932; {biggest subnormal number} For I := 0 To 64 Do Begin Writeln(A); End; Writeln('OK') End.

2 2

GPC on IRIX - PROBLEMS
by JJ 09 Apr '01

09 Apr '01

Hi There :-) I've recently installed GPC on my SGI-IRIX machine, unfortunately I can't compile any of my programs. Whenever I try to compile I get the following error messages:- id32: WARNING 84 : /usr/local/lib/gcc-lib/mips-sgi-irix6.2/2.8.1/libgpc.a is not used for resolving any symbol. id32: WARNING 84 : /usr/lib32/libm.so is not used for resolving any symbol id32: FATAL 9 : I/O error (-lgcc): No such file or directory The code I'm trying to compile was originally written on my Windows machine using BP7, if that makes any difference. I would be very grateful for any help in resolving this as it's driving me crazy! Thanks in advance Thomas

3 2

[BUG REPORT] Reading LongReal
by f.couperin 09 Apr '01

09 Apr '01

Hello, I don't know if it's really a bug but the result is really surprising. A LongReal variable (of simple integer value) is written into a text file, and when I read this value back : it isn't exactly the same. In the following program, the problem disappears : - if Var A,B : LongReal; is replaced by Var A,B : Real; - or if Writeln(TextFile,A); is replaced by Writeln(TextFile,A:0:18); - or if Readln(TextFile,B); is replaced by Readln(TextFile,B); B := Real(B); I would like to understand this strange behaviour. ---------------------------------------------------------------------------- -- Program LRealBug; Var A,B : LongReal; TextFile : Text; Begin Assign(TextFile,'tmp'); Rewrite(TextFile); A := 103; Writeln(TextFile,A); Close(TextFile); Reset(TextFile); Readln(TextFile,B); Close(TextFile); Erase (TextFile); If A <> B Then Writeln('Failed') Else Writeln('OK'); End. ---------------------------------------------------------------------------- -- I have : gpc version 20000727, based on 2.95.2 19991024 (release) -- Â«CouperinÂ»

7 21

12 bytes LongReal type
by f.couperin 08 Apr '01

08 Apr '01

{ For those who want to understand the structure of the double extended format, here is a little program which may be helpful : (I'll appreciate comments to improve it) -- Â«CouperinÂ» } Program Lr2Scr; { ---------------------------------------------------------------------- What is Intel IEEE Double-Extended format (12 bytes) ? "Couperin" <f.couperin(a)online.fr> ---------------------------------------------------------------------- } Const LongRealSize = 12; Type T_LongRealBis = Packed Array [1..LongRealSize] Of Byte; String2 = String(2); String11 = String(11); String16 = String(16); String27 = String(27); Int16 = Integer(16); Word16 = Word(16); Word64 = Word(64); Var A : LongReal; Abis : T_LongRealBis Absolute A; Function Byte2Hex(X : Byte): String2; Const Hexa : Array [0..15] Of Char = '0123456789ABCDEF'; Begin Byte2Hex := Hexa[X Shr 4] + Hexa[X And 15] End; Function ExtractE(X : T_LongRealBis): Word16; Var E : Word16; Begin E := X[10] And 2#01111111; ExtractE := (E Shl 8) + X[9] End; Function F2Hex(X : T_LongRealBis): String16; Var S : String16 = ''; I : Byte; Begin For I := 8 DownTo 2 Do S := S + Byte2Hex((X[I] Shl 1) + (X[I-1] Shr 7)); S := S + Byte2Hex(X[1] Shl 1); F2Hex := S End; Function Exponent(X : T_LongRealBis): Int16; Var E : Word16; Begin E := ((X[10] And 2#01111111) Shl 8) + X[9]; If E = 0 Then Exponent := -16382 Else Exponent := E - 16383 End; Function Int2String(X:Integer):String11; Var S:String11; Begin Str(X,S); Int2String := S End; Function LR2HexFloat(X : T_LongRealBis): String27; Var S : String27 = '$'; Begin If (Abis[10] And 2#10000000) > 0 {sign} Then S := S + '-' Else S := S + '+'; If (Abis[8] And 2#10000000) > 0 {explicit leading significand bit} Then S := S + '1.' Else S := S + '0.'; LR2HexFloat := S + F2Hex(X) + 'p' + Int2String(Exponent(X)) End; Procedure DisplayA; Var N : Byte; Begin Writeln(A:28,' = '); Writeln(LR2HexFloat(Abis),' ("Hex Float") = '); For N := LongRealSize DownTo 1 Do Write(Byte2Hex(Abis[N])); Writeln(' (internal representation)'); Write('s (sign) = '); Writeln(Ord((Abis[10] And 2#10000000) > 0)); Write('e (biased exponent) = ',ExtractE(Abis)); Writeln(' (e - 16383 = ',ExtractE(Abis) - 16383,')'); Write('j (explicit leading significand bit) = '); Writeln(Ord((Abis[8] And 2#10000000) > 0)); Write('f (fraction) = 16#',F2Hex(Abis)); Writeln End; Begin Writeln('Size of the LongReal type (in Bytes) : ',SizeOf(LongReal)); If LongRealSize <> SizeOf(LongReal) Then Writeln('Sorry, this LongReal format (Size : ',SizeOf(LongReal), ') is unknown to this program.') Else Begin {$ifdef __BYTES_BIG_ENDIAN__} {Is this really useful ?} Writeln('Big endian format.'#10#13, 'Sorry, this program is made for the little endian format.') {$else} Writeln('Little endian format'); Repeat Writeln; Writeln('Enter a real number (0 to Quit)'); Readln(A); Writeln; DisplayA; Until A = 0 {$endif} End End.

1 0

How to host algorithms/web pages donatet to the FSF/GNU
by Pernille Bech & Klaus F. Østergaard 06 Apr '01

06 Apr '01

Hi Everybody, I have been serching for algorithms for the date/time unit, and found some webpages by Peter Baum. I have contacted him regarding the copyrigth of the algorithms, in ordre to make them free for the FSF/GNU. Peter Baum would like to donate the algorithms to the FSF/GNU, but where should the webpages with the descriptions, further development ect. be hosted, under GPC home page or a new? Can any body help with some answares, Thanks Klaus F. Ãstergaard www.capecod.net/~pbaum Dear Peter, I am not so familiar with the GNU organisation my self, but I think your idea is good. To your info I am only programming a couple of hours a week. I am not the normal programmer/"hacker" that sits by his computer several hours a day doing programming just for fun. But I would like to help building a lib/unit for date and time calculations for the GNU Pascal compiler, as I enjoy using this compiler for small programs. I will try to contact development list of the pascal development team and hear how to get your algorithms into/under the FSF/GNU, and hosted on a official FSF/GNU homepage. Kind regards, Klaus ----- Original Message ----- From: Peter Baum <pbaum(a)capecod.net> To: Pernille Bech & Klaus F. Ãstergaard <farremosen(a)mail.tele.dk> Sent: Wednesday, March 28, 2001 6:24 PM Subject: an additional thought Re: Date & time calculations > Dear Klaus, > > I thought of another possibility - would gnu.org be interested in hosting > the documentation for these date algorithms? Then the detailed references > within the source code would be back to your organization. That would > probably be a more stable location than my current website. > > Best Wishes, > -Peter > > ----- Original Message ----- > From: Pernille Bech & Klaus F. Ãstergaard <farremosen(a)mail.tele.dk> > To: <pbaum(a)capecod.net> > Sent: Tuesday, March 27, 2001 3:03 PM > Subject: Date & time calculations > > > Mr. Peter Baum, > > While searching for algorithms for date and time calculations, which I need > for a general unit in GNU Pascal, I did find your home page. > > My question to you is how much is protected by copyright of the algorithms > on your home page? > The reason is that should be possible to make the unit as a part of the free > software under GNU organisation. > www.gnu.org > > Thanks for your answer. > > Kind regards, > > Klaus F. Ãstergaard > Farremosen(a)mail.tele.dk > Dear Klaus, I would be greatly pleased if the algorithms were offered under the GNU organization which I whole heartedly support. I would only ask that if this is done for any of the algorithms that are not known to be fully documented elsewhere, a reference be made to the date document on my home page and that a request be made in the source code requesting that any copies made include this information. Doing so will assure full and consistent documentation, minimize the propagation of any errors that might be discovered, and provide a central location for any improvements that are made in the future. Best Wishes, -Peter

6 14

[Fwd: Re: Need GPC installation]
by Maurice Lombardi 06 Apr '01

06 Apr '01

I forward this message to the list. It is interesting for the maintainers here !! -------- Original Message -------- Objet: Re: Need GPC installation Date: Fri, 6 Apr 2001 19:19:07 +0300 De: pavenis(a)lanet.lv A: Maurice Lombardi <Maurice.Lombardi(a)ujf-grenoble.fr> --Message-Boundary-10552 Content-type: text/plain; charset=US-ASCII Content-transfer-encoding: 7BIT Content-description: Mail message body On 26 Mar 2001, at 16:08, Maurice Lombardi wrote: > Mr. Veli Suorsa wrote: > > > Thanks for your reply! > > > >>> ftp://agnes.dida.physik.uni-essen.de/home/maurice/gpc2952b.zip > >> > >> OK. I try to always give under this same link the lastest gpc snapshot I have > >> compiled, and which give zero error when running the whole test suite. > > > > I just updated gcc-2.95.3 version of Djgpp. Every other compiler seems to work > > well (Thanks to Andris). > > > > Can You update this Pascal compiler (gpc2953b.zip) and documentation and inform > > me (download site), too? > > Mmm. There is something broken in gpc under gcc-2.9.5.3. > It compiles with snapshot gpc-20010315, but it gives lots of errors > when running the test suite. As a comparison I have compiled the same > snapshot under gcc-2.9.5.2 (the result is on agnes) and it gives zero error > for the test suite. > You need to add one define in gpc.c #define MKTEMP_EACH_FILE (see gcc.c for example) It's becoming evident if You run gpc -v --automake .... and view what it spits out. Below is my test results (some stuff is missing so some additional failures) Andris PS. I'm built DJGPP binaries of GPC under Linux. There were some problems and there are some related broken things in gcc2953s2.zip (GPC related, it doesn't harm anything unless one includes GPS sources). Also I didn't nothing GPC related with bat files and scripts for native building with DJGPP --Message-Boundary-10552 Content-type: text/plain; charset=US-ASCII Content-disposition: inline Content-description: Attachment information. The following section of this message contains a file attachment prepared for transmission using the Internet MIME message format. If you are using Pegasus Mail, or any another MIME-compliant system, you should be able to save it or view it from within your mailer. If you cannot, please ask your system administrator for assistance. ---- File information ----------- File: tests.lst Date: 6 Apr 2001, 19:05 Size: 36089 bytes. Type: Text --Message-Boundary-10552 Content-type: Application/Octet-stream; name="tests.lst"; type=Text Content-disposition: attachment; filename="tests.lst" Reading specs from c:/djgpp/lib/gcc-lib/djgpp/2.953/specs gpc version 20010331, based on 2.95.3 20010315/djgpp (release) c:/djgpp/lib/gcc-lib/djgpp/2.953/gpcpp.exe -lang-pascal -v -famtmpfile=c:/djgpp/tmp\ccaaaaaa -fautomake -fdelphi-comments -D__GNU_PASCAL__ -undef -D__GNUC__=2 -D__GNUC_MINOR__=95 -D__GPC__=2 -D__GPC_MINOR__=0 -D__GPC_RELEASE__=20010331 -D__BITS_LITTLE_ENDIAN__=1 -D__BYTES_LITTLE_ENDIAN__=1 -D__WORDS_LITTLE_ENDIAN__=1 -Dunix -Di386 -DGO32 -DDJGPP=2 -DMSDOS -D__OS_DOS__=1 -D__unix__ -D__i386__ -D__GO32__ -D__DJGPP__=2 -D__MSDOS__ -D__OS_DOS__=1 -D__unix -D__i386 -D__GO32 -D__DJGPP=2 -D__MSDOS -Asystem(unix) -Asystem(msdos) -Acpu(i386) -Amachine(i386) -Acpu(i386) -Amachine(i386) -Di386 -D__i386 -D__i386__ -D__tune_pentium__ -imacros c:/djgpp/lib/djgpp.ver -remap hello.pas c:/djgpp/tmp\cccaaaaa GNU Pascal Compiler PreProcessor version 20010331, based on gcc-2.95.3 20010315/djgpp (release) (80386, BSD syntax) #include "..." search starts here: #include <...> search starts here: c:/djgpp/include c:/djgpp/contrib/grx23/include /usr/local/include JDIR/i586-pc-msdosdjgpp/include c:/djgpp/lib/gcc-lib/djgpp/2.953/include c:/djgpp/include End of search list. c:/djgpp/lib/gcc-lib/djgpp/2.953/gpc1.exe c:/djgpp/tmp\cccaaaaa -quiet -dumpbase hello.pas -version -famtmpfile=c:/djgpp/tmp\ccaaaaaa -fautomake -o c:/djgpp/tmp\ccdaaaaa GNU Pascal version 2.95.3 20010315/djgpp (release) (djgpp) compiled by GNU C version 2.95.3 20010315/djgpp (release). GNU Pascal version is actually 20010331, based on gcc-2.95.3 20010315/djgpp (release) c:/djgpp/bin/as.exe -o c:/djgpp/tmp\cceaaaaa c:/djgpp/tmp\ccdaaaaa c:/djgpp/lib/gcc-lib/djgpp/2.953/collect2.exe -o hello.exe c:/djgpp/lib/crt0.o -Lc:/djgpp/lib -Lc:/djgpp/lib/gcc-lib/djgpp/2.953 -Lc:/djgpp/bin -Lc:/djgpp/lib c:/djgpp/tmp\cceaaaaa -lgpc -lm -lgcc -lc -lgcc -Tdjgpp.djl c:/djgpp/bin/stubify.exe -v hello.exe stubify for djgpp V2.X executables, Copyright (C) 1995 DJ Delorie stubify: hello.exe -> hello.000 -> hello.exe rm -f *.dat *.o *.s *.gpm *.gpi *.gpd *.gpc core a.out stderr.out *.exe tmptest.* testmake.tmp \ knownbugs/a.out knownbugs/*.o knownbugs/*.s knownbugs/*.gpm knownbugs/*.gpi knownbugs/*.gpd \ internal/a.out internal/*.o internal/*.s internal/*.gpm internal/*.gpi internal/*.gpd PC="gpc" PFLAGS="--autobuild -g -O3 -Wall -Werror" SRCDIR="." "./test_run" "`cat DTLIST.AA`" GPC-TEST-BEGIN ========================== TEST abso1.pas: OK TEST abso2.pas: OK TEST abso3.pas: OK TEST addr1.pas: OK TEST afileutilstest.pas: OK TEST align.pas: OK TEST alpha1.pas: OK TEST alpha2.pas: OK TEST ancestor.pas: OK TEST ancestor2.pas: OK TEST anja1.pas: OK TEST arctan.pas: OK TEST arrayassignment.pas: OK TEST arval.pas: OK TEST asmnames.pas: OK TEST asmnamw1.pas: OK TEST asmnamw2.pas: OK TEST asmnamw3.pas: OK TEST asmtest.pas: OK TEST asmtest2.pas: OK TEST assgnd1.pas: OK TEST assumptions.pas: OK TEST atexit1.pas: OK TEST atexit2.pas: OK TEST atexit3.pas: OK TEST baby.pas: OK TEST baby2.pas: OK TEST backtracerr.pas: OK TEST basic.pas: OK TEST bench.pas: OK TEST berend1.pas: OK TEST berend2.pas: OK TEST berend3.pas: OK TEST berend3a.pas: OK TEST bernh1.pas: OK TEST bernh2.pas: OK TEST bernh3.pas: OK TEST bernh4.pas: OK TEST bernh5.pas: OK TEST bernh6.pas: OK TEST bigarrays.pas: OK TEST bill.pas: OK TEST bill2.pas: OK TEST bill3.pas: OK TEST bill4.pas: OK TEST bill5.pas: OK TEST bill6.pas: OK TEST binrdwt.pas: OK TEST bitfields.pas: OK TEST bitmanip.pas: OK TEST bitsizes.pas: OK TEST blockop.pas: OK TEST bo4-1.pas: OK TEST bo4-10.pas: OK TEST bo4-11.pas: OK TEST bo4-12.pas: OK TEST bo4-12a.pas: OK TEST bo4-16.pas: OK TEST bo4-17.pas: OK TEST bo4-1a.pas: OK TEST bo4-2.pas: OK TEST bo4-3.pas: OK TEST bo4-4.pas: OK TEST bo4-4a.pas: OK TEST bo4-4b.pas: OK TEST bo4-4c.pas: OK TEST bo4-5.pas: OK TEST bo4-6.pas: OK TEST bo4-7.pas: OK TEST bo4-8.pas: OK TEST bo4-9.pas: OK TEST bo5-1.pas: OK TEST bo5-10.pas: OK TEST bo5-11.pas: OK TEST bo5-12.pas: OK TEST bo5-13.pas: OK TEST bo5-14.pas: OK TEST bo5-15.pas: OK TEST bo5-16.pas: OK TEST bo5-16a.pas: OK TEST bo5-17.pas: OK TEST bo5-17a.pas: OK TEST bo5-18.pas: OK TEST bo5-19.pas: OK TEST bo5-1a.pas: OK TEST bo5-2.pas: OK TEST bo5-20.pas: OK TEST bo5-21.pas: OK TEST bo5-22.pas: OK TEST bo5-23.pas: OK TEST bo5-24.pas: OK TEST bo5-3.pas: OK TEST bo5-4.pas: OK TEST bo5-5.pas: OK TEST bo5-6.pas: OK TEST bo5-7.pas: OK TEST bo5-8.pas: OK TEST bo5-9.pas: OK TEST bool.pas: OK TEST boolsub.pas: OK TEST bpbpreal.pas: OK TEST bpbug.pas: OK TEST bprealtest.pas: OK TEST bpstr.pas: OK TEST c_gpc.pas: OK TEST caglio1.pas: OK TEST capexp.pas: OK TEST caseall1.pas: OK TEST caseall2.pas: OK TEST casebool.pas: OK TEST casechars.pas: OK TEST caseelse.pas: OK TEST casegoto.pas: OK TEST caseotherw.pas: OK TEST casts1.pas: OK TEST casts2.pas: OK TEST casts3.pas: OK TEST cfor.pas: OK TEST chaput1.pas: OK TEST charcmp.pas: OK TEST charcmpw.pas: OK TEST charenum.pas: OK TEST chars.pas: OK TEST chars2.pas: OK TEST charsub.pas: OK TEST chief1.pas: OK TEST chief10.pas: OK TEST chief11.pas: OK TEST chief12.pas: OK TEST chief13.pas: OK TEST chief14.pas: OK TEST chief15.pas: OK TEST chief16.pas: OK TEST chief17.pas: OK TEST chief20.pas: OK TEST chief21.pas: OK TEST chief22.pas: OK TEST chief23.pas: OK TEST chief24.pas: OK TEST chief25.pas: OK TEST chief25a.pas: OK TEST chief26.pas: OK TEST chief27.pas: OK TEST chief28.pas: OK TEST chief29.pas: OK TEST chief3.pas: OK TEST chief30.pas: OK TEST chief34a.pas: OK TEST chief34b.pas: OK TEST chief34c.pas: OK TEST chief34d.pas: OK TEST chief34e.pas: OK TEST chief34f.pas: OK TEST chief36b.pas: OK TEST chief36c.pas: OK TEST chief5.pas: OK TEST chief7.pas: OK TEST chief8.pas: OK TEST chief9.pas: OK TEST chrcmp.pas: OK TEST chris1.pas: OK TEST chris2.pas: OK TEST chris3.pas: OK TEST chris4.pas: OK TEST chris5.pas: OK TEST ciriaco1.pas: OK TEST cntchars.pas: OK TEST comments.pas: OK TEST complex1.pas: OK TEST complex2.pas: OK TEST complex3.pas: OK TEST confarr1.pas: OK TEST confarr2.pas: OK TEST confarr3.pas: OK TEST confarr4.pas: OK TEST confarr5.pas: OK TEST confarr6.pas: OK TEST confarr7.pas: OK TEST confarr8.pas: OK TEST constovfl.pas: OK TEST couper12.pas: OK TEST cptcrash.pas: OK TEST crttest.pas: SKIPPED: no curses library found TEST cstpar1.pas: OK TEST cstpar2.pas: OK TEST cstpar2a.pas: OK TEST cstrassign.pas: OK TEST cstrini1.pas: OK TEST cstrini2.pas: OK TEST cstrpar1.pas: OK TEST cstrpar2.pas: OK TEST cstrpar3.pas: OK TEST cutstr.pas: OK TEST cutter.pas: OK TEST daj13.pas: d:/Devel/gpc/test/a.out: error when writing to file `daj13.dat' (error #466 at 160f) TEST daj7.pas: OK TEST dario.pas: OK TEST dblimp1.pas: OK TEST dblimp2.pas: OK TEST delinspos.pas: OK ========================== GPC-TEST-END rm -f *.dat *.o *.s *.gpm *.gpi *.gpd *.gpc core a.out stderr.out *.exe tmptest.* testmake.tmp \ knownbugs/a.out knownbugs/*.o knownbugs/*.s knownbugs/*.gpm knownbugs/*.gpi knownbugs/*.gpd \ internal/a.out internal/*.o internal/*.s internal/*.gpm internal/*.gpi internal/*.gpd PC="gpc" PFLAGS="--autobuild -g -O3 -Wall -Werror" SRCDIR="." "./test_run" "`cat DTLIST.AB`" GPC-TEST-BEGIN ========================== TEST dialdef.pas: OK TEST dialdef1.pas: OK TEST dialdef2.pas: OK TEST dialdef3.pas: OK TEST dialdef4.pas: c:\djgpp\tmp\cceaaaaa: In function `pascal_main_program': dialdef4.pas:7: undefined reference to `_p_stdout' dialdef4.pas(.text+0x20): undefined reference to `_p_write' dialdef4.pas(.text+0x29): undefined reference to `_p_inoutres' dialdef4.pas(.text+0x31): undefined reference to `_p_check_inoutres' dialdef4.pas:11: undefined reference to `_p_atexit' dialdef4.pas(.text+0x82): undefined reference to `_p_initialize' dialdef4.pas(.text+0x91): undefined reference to `_p_finalize' collect2: ld returned 1 exit status failed TEST dialdef5.pas: OK TEST dialdef6.pas: OK TEST dialec1.pas: OK TEST dialec2.pas: OK TEST dialec3.pas: OK TEST dialec4.pas: OK TEST dialec5.pas: OK TEST dialec6.pas: OK TEST dialec7.pas: OK TEST dnull1.pas: OK TEST dnull2.pas: OK TEST dnull3.pas: OK TEST dollars.pas: OK TEST dostest.pas: OK TEST dostest2.pas: OK TEST dosunixtest.pas: OK TEST drf11.pas: OK TEST eightqueens.pas: OK TEST emptyrec.pas: OK TEST endiantest.pas: OK TEST environ.pas: OK TEST environo.pas: OK TEST error.pas: OK TEST esven1.pas: OK TEST esven2.pas: OK TEST exitpr1.pas: OK TEST expon.pas: OK TEST expotst.pas: OK TEST fail1.pas: OK TEST fail2.pas: OK TEST fail3.pas: OK TEST fay.pas: c:\djgpp\tmp\ccdaaaaa: Assembler messages: c:\djgpp\tmp\ccdaaaaa:934: Fatal error: C_EFCN symbol out of scope failed TEST ffunc.pas: OK TEST fieldw.pas: OK TEST filehand.pas: OK TEST files1.pas: OK TEST files2.pas: OK TEST files2b.pas: OK TEST files3.pas: OK TEST fillch.pas: OK TEST fixstr1.pas: OK TEST fjf0.pas: OK TEST fjf1.pas: OK TEST fjf10.pas: OK TEST fjf100.pas: OK TEST fjf101.pas: OK TEST fjf101a.pas: OK TEST fjf101b.pas: OK TEST fjf102.pas: OK TEST fjf103.pas: OK TEST fjf104.pas: OK TEST fjf106.pas: OK TEST fjf107.pas: OK TEST fjf108.pas: OK TEST fjf109.pas: OK TEST fjf11.pas: OK TEST fjf110.pas: OK TEST fjf111.pas: OK TEST fjf112.pas: OK TEST fjf113.pas: OK TEST fjf114.pas: OK TEST fjf114a.pas: OK TEST fjf115.pas: OK TEST fjf115a.pas: OK TEST fjf116.pas: OK TEST fjf117.pas: OK TEST fjf118.pas: OK TEST fjf119.pas: OK TEST fjf12.pas: OK TEST fjf120.pas: OK TEST fjf121.pas: OK TEST fjf122.pas: OK TEST fjf123.pas: OK TEST fjf124.pas: OK TEST fjf124a.pas: OK TEST fjf124b.pas: OK TEST fjf125.pas: OK TEST fjf126.pas: OK TEST fjf127.pas: OK TEST fjf128.pas: OK TEST fjf129.pas: OK TEST fjf13.pas: OK TEST fjf131.pas: OK TEST fjf132.pas: OK TEST fjf133.pas: OK TEST fjf134.pas: OK TEST fjf135.pas: OK TEST fjf136.pas: OK TEST fjf137.pas: OK TEST fjf138.pas: OK TEST fjf14.pas: OK TEST fjf140a.pas: OK TEST fjf140b.pas: OK TEST fjf141.pas: OK TEST fjf142.pas: OK TEST fjf143.pas: OK TEST fjf144.pas: OK TEST fjf145.pas: OK TEST fjf146.pas: OK TEST fjf147.pas: OK TEST fjf148.pas: OK TEST fjf15.pas: OK TEST fjf150.pas: OK TEST fjf151.pas: OK TEST fjf151a.pas: OK TEST fjf152.pas: OK TEST fjf153.pas: OK TEST fjf154.pas: OK TEST fjf155.pas: OK TEST fjf156.pas: OK TEST fjf157.pas: OK TEST fjf158.pas: OK TEST fjf16.pas: OK TEST fjf161.pas: OK TEST fjf162.pas: OK TEST fjf163.pas: OK TEST fjf164.pas: OK TEST fjf165a.pas: SKIPPED: only for German locale TEST fjf165b.pas: OK TEST fjf166.pas: OK TEST fjf167a.pas: OK TEST fjf167b.pas: OK TEST fjf168.pas: OK TEST fjf169.pas: OK TEST fjf17.pas: OK TEST fjf171.pas: OK TEST fjf172.pas: OK TEST fjf173.pas: OK TEST fjf174.pas: OK TEST fjf174a.pas: OK TEST fjf175a.pas: OK TEST fjf176.pas: OK TEST fjf177.pas: OK TEST fjf178.pas: OK TEST fjf179.pas: OK TEST fjf18.pas: OK TEST fjf180.pas: OK TEST fjf181.pas: OK TEST fjf181a.pas: OK TEST fjf182.pas: OK TEST fjf183.pas: OK TEST fjf184.pas: OK TEST fjf185.pas: OK TEST fjf187.pas: OK TEST fjf188.pas: OK TEST fjf189.pas: OK TEST fjf19.pas: OK TEST fjf190.pas: OK TEST fjf191.pas: OK TEST fjf191b.pas: OK TEST fjf192.pas: OK TEST fjf193.pas: OK TEST fjf193a.pas: OK TEST fjf193b.pas: OK TEST fjf194.pas: OK TEST fjf194a.pas: OK TEST fjf194b.pas: OK TEST fjf194c.pas: OK TEST fjf195.pas: OK TEST fjf196.pas: OK TEST fjf197.pas: OK TEST fjf198.pas: OK TEST fjf2.pas: OK TEST fjf20.pas: OK TEST fjf200.pas: OK TEST fjf200c.pas: OK TEST fjf201a.pas: OK TEST fjf201b.pas: OK TEST fjf201c.pas: OK TEST fjf201d.pas: OK TEST fjf201e.pas: OK TEST fjf201f.pas: OK TEST fjf201g.pas: OK TEST fjf201h.pas: OK TEST fjf202.pas: OK TEST fjf203.pas: OK TEST fjf205.pas: OK TEST fjf207.pas: OK TEST fjf208.pas: OK TEST fjf20a.pas: OK TEST fjf210.pas: OK TEST fjf216.pas: OK TEST fjf217.pas: OK TEST fjf218.pas: OK TEST fjf21a.pas: OK TEST fjf21b.pas: OK TEST fjf22.pas: OK TEST fjf220.pas: OK TEST fjf223.pas: OK TEST fjf224.pas: OK TEST fjf225.pas: OK TEST fjf226a.pas: OK TEST fjf226b.pas: OK TEST fjf226c.pas: OK TEST fjf226e.pas: OK TEST fjf226f.pas: OK TEST fjf226g.pas: OK TEST fjf226h.pas: OK TEST fjf226i.pas: OK TEST fjf226m.pas: OK TEST fjf226o.pas: OK TEST fjf226p.pas: OK TEST fjf226q.pas: OK TEST fjf226t.pas: OK TEST fjf23.pas: OK TEST fjf231.pas: OK TEST fjf232a.pas: OK TEST fjf232b.pas: OK TEST fjf232c.pas: OK TEST fjf236.pas: OK TEST fjf237.pas: OK ========================== GPC-TEST-END rm -f *.dat *.o *.s *.gpm *.gpi *.gpd *.gpc core a.out stderr.out *.exe tmptest.* testmake.tmp \ knownbugs/a.out knownbugs/*.o knownbugs/*.s knownbugs/*.gpm knownbugs/*.gpi knownbugs/*.gpd \ internal/a.out internal/*.o internal/*.s internal/*.gpm internal/*.gpi internal/*.gpd PC="gpc" PFLAGS="--autobuild -g -O3 -Wall -Werror" SRCDIR="." "./test_run" "`cat DTLIST.AC`" GPC-TEST-BEGIN ========================== TEST fjf24.pas: OK TEST fjf241.pas: OK TEST fjf242.pas: OK TEST fjf245.pas: OK TEST fjf245a.pas: OK TEST fjf245b.pas: OK TEST fjf245c.pas: OK TEST fjf245d.pas: OK TEST fjf245e.pas: OK TEST fjf246a.pas: OK TEST fjf246b.pas: OK TEST fjf246c.pas: OK TEST fjf246d.pas: OK TEST fjf246e.pas: OK TEST fjf246f.pas: OK TEST fjf249.pas: OK TEST fjf25.pas: OK TEST fjf253.pas: OK TEST fjf254.pas: OK TEST fjf255a.pas: OK TEST fjf255b.pas: OK TEST fjf255c.pas: OK TEST fjf255d.pas: OK TEST fjf255e.pas: OK TEST fjf255f.pas: OK TEST fjf255g.pas: OK TEST fjf255h.pas: OK TEST fjf255i.pas: OK TEST fjf255j.pas: OK TEST fjf255k.pas: OK TEST fjf255l.pas: OK TEST fjf255m.pas: OK TEST fjf255n.pas: OK TEST fjf255o.pas: OK TEST fjf255p.pas: OK TEST fjf255q.pas: OK TEST fjf255r.pas: OK TEST fjf255s.pas: OK TEST fjf257b.pas: OK TEST fjf257c.pas: OK TEST fjf258a.pas: OK TEST fjf258b.pas: OK TEST fjf258c.pas: OK TEST fjf258d.pas: OK TEST fjf258e.pas: OK TEST fjf26.pas: OK TEST fjf261.pas: OK TEST fjf262.pas: OK TEST fjf264.pas: OK TEST fjf269.pas: OK TEST fjf27.pas: OK TEST fjf270.pas: OK TEST fjf271.pas: OK TEST fjf272.pas: OK TEST fjf273.pas: OK TEST fjf274.pas: OK TEST fjf275.pas: OK TEST fjf278b.pas: OK TEST fjf279.pas: OK TEST fjf28.pas: OK TEST fjf280a.pas: OK TEST fjf281.pas: OK TEST fjf281a.pas: OK TEST fjf282.pas: OK TEST fjf286.pas: OK TEST fjf287a.pas: OK TEST fjf288.pas: OK TEST fjf289.pas: OK TEST fjf29.pas: OK TEST fjf290.pas: OK TEST fjf291.pas: OK TEST fjf292.pas: OK TEST fjf294a.pas: OK TEST fjf294b.pas: OK TEST fjf295.pas: OK TEST fjf295a.pas: OK TEST fjf295b.pas: OK TEST fjf297a.pas: OK TEST fjf297b.pas: OK TEST fjf297c.pas: OK TEST fjf298a.pas: OK TEST fjf298b.pas: OK TEST fjf298c.pas: OK TEST fjf3.pas: OK TEST fjf300.pas: OK TEST fjf302.pas: OK TEST fjf305.pas: OK TEST fjf306.pas: OK TEST fjf307a.pas: OK TEST fjf307b.pas: OK TEST fjf307c.pas: OK TEST fjf307d.pas: OK TEST fjf307e.pas: OK TEST fjf308b.pas: OK TEST fjf308c.pas: OK TEST fjf30a.pas: OK TEST fjf30b.pas: OK TEST fjf30c.pas: OK TEST fjf30d.pas: OK TEST fjf30e.pas: OK TEST fjf30f.pas: OK TEST fjf30g.pas: OK TEST fjf30h.pas: OK TEST fjf30i.pas: OK TEST fjf31.pas: OK TEST fjf311.pas: OK TEST fjf312a.pas: OK TEST fjf312b.pas: OK TEST fjf313a.pas: OK TEST fjf313b.pas: OK TEST fjf313c.pas: OK TEST fjf313d.pas: OK TEST fjf313e.pas: OK TEST fjf313f.pas: OK TEST fjf313g.pas: OK TEST fjf313h.pas: OK TEST fjf313i.pas: OK TEST fjf313j.pas: OK TEST fjf314.pas: OK TEST fjf315a.pas: OK TEST fjf315b.pas: OK TEST fjf317.pas: OK TEST fjf318a.pas: OK TEST fjf318b.pas: OK TEST fjf32.pas: OK TEST fjf322.pas: OK TEST fjf323.pas: OK TEST fjf324.pas: OK TEST fjf325.pas: OK TEST fjf326.pas: OK TEST fjf327.pas: OK TEST fjf329a.pas: OK TEST fjf33.pas: OK TEST fjf331a.pas: OK TEST fjf331b.pas: OK TEST fjf332.pas: OK TEST fjf332a.pas: OK TEST fjf333.pas: OK TEST fjf334.pas: OK TEST fjf337.pas: OK TEST fjf339.pas: OK TEST fjf34.pas: OK TEST fjf340a.pas: OK TEST fjf340b.pas: OK TEST fjf340c.pas: OK TEST fjf340d.pas: OK TEST fjf345a.pas: OK TEST fjf345b.pas: OK TEST fjf345c.pas: OK TEST fjf348.pas: OK TEST fjf35.pas: OK TEST fjf350.pas: OK TEST fjf351.pas: OK TEST fjf352.pas: OK TEST fjf353.pas: OK TEST fjf354.pas: OK TEST fjf355.pas: OK TEST fjf355a.pas: OK TEST fjf358.pas: OK TEST fjf359.pas: OK TEST fjf36.pas: OK TEST fjf362.pas: OK TEST fjf365.pas: OK TEST fjf367.pas: OK TEST fjf369a.pas: OK TEST fjf369b.pas: OK TEST fjf37.pas: OK TEST fjf371.pas: OK TEST fjf373b.pas: OK TEST fjf373c.pas: OK TEST fjf374.pas: OK TEST fjf376.pas: OK TEST fjf379a.pas: OK TEST fjf379b.pas: OK TEST fjf37a.pas: OK TEST fjf37b.pas: OK TEST fjf37c.pas: OK TEST fjf38.pas: OK TEST fjf381.pas: OK TEST fjf384.pas: OK TEST fjf386.pas: OK TEST fjf38a.pas: OK TEST fjf38b.pas: OK TEST fjf38c.pas: OK TEST fjf38d.pas: OK TEST fjf38e.pas: OK TEST fjf38f.pas: OK TEST fjf39.pas: OK TEST fjf393.pas: OK TEST fjf394.pas: OK TEST fjf395a.pas: OK TEST fjf395b.pas: OK TEST fjf397.pas: OK TEST fjf398.pas: OK TEST fjf39a.pas: OK TEST fjf3a.pas: OK TEST fjf4.pas: OK TEST fjf40.pas: OK TEST fjf401.pas: failed 1: d:\Devel\gpc\test\a.ini (expected: d:\devel\gpc\test\a.ini) TEST fjf405.pas: OK TEST fjf406.pas: OK TEST fjf407.pas: OK TEST fjf40a.pas: OK TEST fjf40b.pas: OK TEST fjf40c.pas: OK TEST fjf40e.pas: OK TEST fjf41.pas: OK TEST fjf410.pas: OK TEST fjf411.pas: OK TEST fjf412a.pas: OK TEST fjf412b.pas: OK TEST fjf413b1.pas: OK TEST fjf413b2.pas: OK TEST fjf413b3.pas: OK TEST fjf413c1.pas: OK TEST fjf413c2.pas: OK TEST fjf413c3.pas: OK TEST fjf413c5.pas: OK ========================== GPC-TEST-END rm -f *.dat *.o *.s *.gpm *.gpi *.gpd *.gpc core a.out stderr.out *.exe tmptest.* testmake.tmp \ knownbugs/a.out knownbugs/*.o knownbugs/*.s knownbugs/*.gpm knownbugs/*.gpi knownbugs/*.gpd \ internal/a.out internal/*.o internal/*.s internal/*.gpm internal/*.gpi internal/*.gpd PC="gpc" PFLAGS="--autobuild -g -O3 -Wall -Werror" SRCDIR="." "./test_run" "`cat DTLIST.AD`" GPC-TEST-BEGIN ========================== TEST fjf413c6.pas: OK TEST fjf413c7.pas: OK TEST fjf413c9.pas: OK TEST fjf413ca.pas: OK TEST fjf413cg.pas: OK TEST fjf413d1.pas: OK TEST fjf413d2.pas: OK TEST fjf413d3.pas: OK TEST fjf413d4.pas: OK TEST fjf413d5.pas: OK TEST fjf413d6.pas: OK TEST fjf413d7.pas: OK TEST fjf413d8.pas: OK TEST fjf413d9.pas: OK TEST fjf413e1.pas: OK TEST fjf413e2.pas: OK TEST fjf413e3.pas: OK TEST fjf413e4.pas: OK TEST fjf413e5.pas: OK TEST fjf413e6.pas: OK TEST fjf413e7.pas: OK TEST fjf413e8.pas: OK TEST fjf413e9.pas: OK TEST fjf413f1.pas: OK TEST fjf413g1.pas: OK TEST fjf413h1.pas: OK TEST fjf413h2.pas: OK TEST fjf413h3.pas: OK TEST fjf418a.pas: OK TEST fjf418b.pas: OK TEST fjf418c.pas: OK TEST fjf418d.pas: OK TEST fjf420a.pas: OK TEST fjf420b.pas: OK TEST fjf420c.pas: OK TEST fjf421a.pas: OK TEST fjf421b.pas: OK TEST fjf421c.pas: OK TEST fjf421d.pas: OK TEST fjf421e.pas: OK TEST fjf421f.pas: OK TEST fjf421g.pas: OK TEST fjf421h.pas: OK TEST fjf421i.pas: OK TEST fjf421j.pas: OK TEST fjf421k.pas: OK TEST fjf421l.pas: c:\djgpp\tmp\cceaaaaa: In function `pascal_main_program': fjf421l.pas:8: undefined reference to `_p_stdout' fjf421l.pas(.text+0x20): undefined reference to `_p_write' fjf421l.pas(.text+0x29): undefined reference to `_p_inoutres' fjf421l.pas(.text+0x31): undefined reference to `_p_check_inoutres' fjf421l.pas:9: undefined reference to `_p_atexit' fjf421l.pas(.text+0x82): undefined reference to `_p_initialize' fjf421l.pas(.text+0x91): undefined reference to `_p_finalize' collect2: ld returned 1 exit status failed TEST fjf421m.pas: c:\djgpp\tmp\cceaaaaa: In function `pascal_main_program': fjf421m.pas:8: undefined reference to `_p_stdout' fjf421m.pas(.text+0x20): undefined reference to `_p_write' fjf421m.pas(.text+0x29): undefined reference to `_p_inoutres' fjf421m.pas(.text+0x31): undefined reference to `_p_check_inoutres' fjf421m.pas:9: undefined reference to `_p_atexit' fjf421m.pas(.text+0x82): undefined reference to `_p_initialize' fjf421m.pas(.text+0x91): undefined reference to `_p_finalize' collect2: ld returned 1 exit status failed TEST fjf421n.pas: OK TEST fjf421o.pas: OK TEST fjf423.pas: OK TEST fjf424a.pas: OK TEST fjf424b.pas: OK TEST fjf425.pas: OK TEST fjf426a.pas: OK TEST fjf426b.pas: OK TEST fjf426c.pas: OK TEST fjf426d.pas: OK TEST fjf426e.pas: OK TEST fjf426f.pas: OK TEST fjf426g.pas: OK TEST fjf426h.pas: OK TEST fjf426i.pas: OK TEST fjf426j.pas: OK TEST fjf426k.pas: OK TEST fjf426l.pas: OK TEST fjf426m.pas: OK TEST fjf426n.pas: OK TEST fjf426o.pas: OK TEST fjf426p.pas: OK TEST fjf426q.pas: OK TEST fjf426r.pas: OK TEST fjf426s.pas: OK TEST fjf426t.pas: OK TEST fjf426u.pas: OK TEST fjf426v.pas: OK TEST fjf426w.pas: OK TEST fjf426x.pas: OK TEST fjf426y.pas: OK TEST fjf427a.pas: OK TEST fjf427b.pas: OK TEST fjf427c.pas: OK TEST fjf427d.pas: OK TEST fjf427e.pas: OK TEST fjf427f.pas: OK TEST fjf428.pas: OK TEST fjf429a.pas: OK TEST fjf429b.pas: OK TEST fjf429c.pas: OK TEST fjf429d.pas: OK TEST fjf429e.pas: OK TEST fjf429f.pas: OK TEST fjf43.pas: OK TEST fjf430a.pas: OK TEST fjf430b.pas: OK TEST fjf430c.pas: OK TEST fjf430d.pas: OK TEST fjf430e.pas: OK TEST fjf430f.pas: OK TEST fjf430g.pas: OK TEST fjf430h.pas: OK TEST fjf430i.pas: OK TEST fjf430j.pas: OK TEST fjf430k.pas: OK TEST fjf430l.pas: OK TEST fjf430m.pas: OK TEST fjf430n.pas: OK TEST fjf430o.pas: OK TEST fjf430p.pas: OK TEST fjf430q.pas: OK TEST fjf430r.pas: OK TEST fjf430s.pas: OK TEST fjf430t.pas: OK TEST fjf430u.pas: OK TEST fjf430v.pas: OK TEST fjf431.pas: OK TEST fjf432.pas: OK TEST fjf433a.pas: OK TEST fjf433b.pas: OK TEST fjf433c.pas: OK TEST fjf433d.pas: OK TEST fjf433e.pas: OK TEST fjf433f.pas: OK TEST fjf433g.pas: OK TEST fjf433h.pas: OK TEST fjf433i.pas: OK TEST fjf433j.pas: OK TEST fjf433k.pas: OK TEST fjf433l.pas: OK TEST fjf434a.pas: OK TEST fjf434b.pas: OK TEST fjf435.pas: OK TEST fjf437.pas: OK TEST fjf438a.pas: OK TEST fjf438b.pas: OK TEST fjf438c.pas: OK TEST fjf439b.pas: OK TEST fjf44.pas: OK TEST fjf441.pas: OK TEST fjf442.pas: OK TEST fjf443.pas: OK TEST fjf444b.pas: OK TEST fjf448.pas: OK TEST fjf45.pas: OK TEST fjf450b.pas: OK TEST fjf450d.pas: OK TEST fjf451c.pas: OK TEST fjf451f.pas: OK TEST fjf454.pas: OK TEST fjf457.pas: OK TEST fjf46.pas: OK TEST fjf466a.pas: OK TEST fjf466b.pas: OK TEST fjf466c.pas: OK TEST fjf466d.pas: OK TEST fjf466e.pas: OK TEST fjf466f.pas: OK TEST fjf46a.pas: OK TEST fjf47.pas: OK TEST fjf470a.pas: OK TEST fjf470b.pas: OK TEST fjf470c.pas: OK TEST fjf470d.pas: OK TEST fjf48.pas: OK TEST fjf480a.pas: c:/djgpp/lib/gcc-lib/djgpp/2.953/units/regexc.c:34: rxposix.h: No such file or directory (ENOENT) gpc1.exe: C:/DJGPP/BIN/gpc.exe exited with status 1 gpc1.exe: C:/DJGPP/BIN/gpc.exe exited with status 1 failed TEST fjf480b.pas: c:/djgpp/lib/gcc-lib/djgpp/2.953/units/regexc.c:34: rxposix.h: No such file or directory (ENOENT) gpc1.exe: C:/DJGPP/BIN/gpc.exe exited with status 1 gpc1.exe: C:/DJGPP/BIN/gpc.exe exited with status 1 gpc1.exe: C:/DJGPP/BIN/gpc.exe exited with status 1 failed TEST fjf480c.pas: c:/djgpp/lib/gcc-lib/djgpp/2.953/units/regexc.c:34: rxposix.h: No such file or directory (ENOENT) gpc1.exe: C:/DJGPP/BIN/gpc.exe exited with status 1 gpc1.exe: C:/DJGPP/BIN/gpc.exe exited with status 1 gpc1.exe: C:/DJGPP/BIN/gpc.exe exited with status 1 failed TEST fjf480d.pas: OK TEST fjf480e.pas: OK TEST fjf480f.pas: OK TEST fjf480g.pas: OK TEST fjf49.pas: OK TEST fjf49a.pas: OK TEST fjf5.pas: OK TEST fjf50.pas: OK TEST fjf51a.pas: OK TEST fjf51b.pas: OK TEST fjf51c.pas: OK TEST fjf52.pas: OK TEST fjf53a.pas: OK TEST fjf53b.pas: OK TEST fjf53c.pas: OK TEST fjf54.pas: OK TEST fjf55.pas: OK TEST fjf56.pas: OK TEST fjf57.pas: OK TEST fjf58.pas: OK TEST fjf58a.pas: OK TEST fjf59.pas: OK TEST fjf5a.pas: OK TEST fjf6.pas: OK TEST fjf60.pas: OK TEST fjf61.pas: OK TEST fjf62.pas: OK TEST fjf63.pas: OK TEST fjf64.pas: OK TEST fjf65.pas: OK TEST fjf66.pas: OK TEST fjf67.pas: OK TEST fjf67a.pas: OK TEST fjf68.pas: OK TEST fjf69.pas: OK TEST fjf7.pas: OK TEST fjf70.pas: OK TEST fjf70a.pas: OK TEST fjf71.pas: OK TEST fjf72.pas: OK TEST fjf73.pas: OK TEST fjf74.pas: OK TEST fjf75.pas: OK TEST fjf76.pas: OK TEST fjf77.pas: OK TEST fjf78.pas: OK TEST fjf79.pas: OK TEST fjf7a.pas: OK TEST fjf7b.pas: OK TEST fjf7c.pas: OK TEST fjf8.pas: OK TEST fjf80.pas: OK TEST fjf81.pas: OK TEST fjf82.pas: OK TEST fjf83.pas: OK TEST fjf84a.pas: OK TEST fjf84b.pas: OK TEST fjf85.pas: OK TEST fjf86.pas: OK TEST fjf87.pas: OK TEST fjf88.pas: OK TEST fjf89.pas: OK TEST fjf9.pas: OK ========================== GPC-TEST-END rm -f *.dat *.o *.s *.gpm *.gpi *.gpd *.gpc core a.out stderr.out *.exe tmptest.* testmake.tmp \ knownbugs/a.out knownbugs/*.o knownbugs/*.s knownbugs/*.gpm knownbugs/*.gpi knownbugs/*.gpd \ internal/a.out internal/*.o internal/*.s internal/*.gpm internal/*.gpi internal/*.gpd PC="gpc" PFLAGS="--autobuild -g -O3 -Wall -Werror" SRCDIR="." "./test_run" "`cat DTLIST.AE`" GPC-TEST-BEGIN ========================== TEST fjf90.pas: OK TEST fjf90a.pas: OK TEST fjf91.pas: OK TEST fjf92.pas: OK TEST fjf93.pas: OK TEST fjf94.pas: OK TEST fjf95.pas: OK TEST fjf95a.pas: OK TEST fjf95b.pas: OK TEST fjf96.pas: OK TEST fjf97.pas: OK TEST fjf98.pas: OK TEST fjf99.pas: OK TEST fnested.pas: OK TEST fontana1.pas: OK TEST form.pas: OK TEST formattimetest.pas: failed (1993-3-28 3:52:38): |Sun|Sunday|Mar|March|28|03|03|087|03|52|38|13|0|12|93|1993|%| |Sun|Sunday|Mar|March|28|02|02|087|03|52|38|13|0|12|93|1993|%| TEST forvars1.pas: OK TEST forvars2.pas: OK TEST fproc.pas: OK TEST funcs.pas: OK TEST fupotest.pas: OK TEST getopt1.pas: OK TEST getopt2.pas: OK TEST getopt3.pas: OK TEST gmplink.pas: OK TEST gmptest.pas: SKIPPED: libgmp not installed TEST gordon.pas: OK TEST goto1.pas: OK TEST goto2.pas: OK TEST goto3.pas: OK TEST goto4.pas: OK TEST goto5.pas: OK TEST goto6.pas: OK TEST goto7.pas: OK TEST goto8.pas: OK TEST gpc_c_p.pas: OK TEST gpctest.pas: warning: stange time zone -1193044.50 4294960096 -4294960200 943841988 True True 1999 1999 11 11 29 29 1 1 2 2 21 19 32 48 0 0 Error in UnixTimeToTimeStamp: TEST gpcu_c_u.pas: OK TEST gpcutiltest.pas: OK TEST grx1.pas: OK TEST grx2.pas: OK TEST hamachi.pas: OK TEST hamlet.pas: OK TEST hanoi.pas: OK TEST head.pas: OK TEST heapmontest.pas: OK TEST highlow1.pas: OK TEST highlow2.pas: OK TEST highlow3.pas: OK TEST highlow4.pas: OK TEST highlow5.pas: OK TEST hugereal.pas: OK TEST ian1.pas: OK TEST ian2.pas: OK TEST ian4.pas: OK TEST ifopt.pas: OK TEST incdec.pas: OK TEST index.pas: OK TEST inirec1.pas: OK TEST inirec3.pas: OK TEST insan.pas: OK TEST integ2.pas: OK TEST integers.pas: OK TEST iso.pas: OK TEST jesper1.pas: OK TEST jesper2.pas: OK TEST jesper3.pas: OK TEST jesper4.pas: OK TEST jesper4a.pas: OK TEST jesper4b.pas: OK TEST jesper5.pas: OK TEST jim1.pas: OK TEST jim2.pas: OK TEST jj1.pas: OK TEST jj2.pas: OK TEST jj3.pas: OK TEST jj3a.pas: OK TEST jj4.pas: OK TEST jj5.pas: OK TEST john1a.pas: OK TEST john2a.pas: OK TEST john2b.pas: OK TEST john2c.pas: OK TEST john2d.pas: OK TEST juki1.pas: OK TEST ken1.pas: OK TEST ken1a.pas: OK TEST kevin1.pas: OK TEST kevin10.pas: OK TEST kevin11.pas: OK TEST kevin12.pas: OK TEST kevin14.pas: OK TEST kevin3.pas: OK TEST kevin4.pas: OK TEST kevin5.pas: OK TEST kevin6.pas: OK TEST kevin7.pas: OK TEST kevin8.pas: OK TEST kevin9.pas: OK TEST knuth1.pas: OK TEST knuth1a.pas: OK TEST knuth2.pas: OK TEST knuth3.pas: OK TEST kohl.pas: OK TEST kurzw2.pas: OK TEST larry1.pas: OK TEST larry3.pas: OK TEST lastpos.pas: OK TEST link1.pas: OK TEST link1a.pas: OK TEST link1b.pas: OK TEST link1c.pas: OK TEST link3.pas: OK TEST link5a.pas: OK TEST link5b.pas: OK TEST link6.pas: OK TEST link7a.pas: OK TEST link7b.pas: OK TEST link8.pas: OK TEST longints.pas: OK TEST longr1.pas: OK TEST longr2.pas: SKIPPED: no LongReal math routines available TEST marius1.pas: OK TEST marius2a.pas: OK TEST marius2b.pas: OK TEST markus1.pas: OK TEST markus2.pas: OK TEST markus2a.pas: OK TEST markus3.pas: OK TEST markus4.pas: OK TEST markus5.pas: OK TEST markus6.pas: OK TEST markus7.pas: OK TEST math.pas: OK TEST matt1.pas: OK TEST maur1.pas: OK TEST maur2.pas: OK TEST maur4.pas: OK TEST maur5.pas: OK TEST maur6.pas: OK TEST md5test.pas: OK TEST mem.pas: OK TEST metparm1.pas: OK TEST metparm2.pas: OK TEST miguel1.pas: OK TEST miklos1a.pas: OK TEST miklos2.pas: OK TEST miklos3.pas: OK TEST miklos4.pas: OK TEST minimax.pas: OK TEST mixcom1.pas: OK TEST mixcom10.pas: OK TEST mixcom11.pas: OK TEST mixcom12.pas: OK TEST mixcom13.pas: OK TEST mixcom14.pas: OK TEST mixcom15.pas: OK TEST mixcom2.pas: OK TEST mixcom3.pas: OK TEST mixcom4.pas: OK TEST mixcom5.pas: OK TEST mixcom6.pas: OK TEST mixcom7.pas: OK TEST mixcom8.pas: OK TEST mixcom9.pas: OK TEST mod1.pas: OK TEST mod11.pas: OK TEST mod1a.pas: OK TEST mod2.pas: OK TEST mod3.pas: OK TEST mod4.pas: OK TEST mod5.pas: OK TEST mod6.pas: OK TEST mod8.pas: OK TEST modtype.pas: OK TEST moves.pas: OK TEST moves2.pas: OK TEST moves3.pas: OK TEST moves4.pas: OK TEST moveword.pas: OK TEST nest1.pas: OK TEST nest10.pas: OK TEST nest11.pas: OK TEST nest12.pas: OK TEST nest13.pas: OK TEST nest14.pas: OK TEST nest15.pas: OK TEST nest16.pas: OK TEST nest17.pas: OK TEST nest18.pas: OK TEST nest19.pas: OK TEST nest2.pas: OK TEST nest20.pas: OK TEST nest21.pas: OK TEST nest22.pas: OK TEST nest23.pas: OK TEST nest24.pas: OK TEST nest25.pas: OK TEST nest26.pas: OK TEST nest27.pas: OK TEST nest3.pas: OK TEST nest4.pas: OK TEST nest5.pas: OK TEST nest6.pas: OK TEST nest7.pas: OK TEST nest8.pas: OK TEST nest9.pas: OK TEST nmaze.pas: OK TEST nobool.pas: OK TEST nohead.pas: OK TEST nomatch.pas: OK TEST nonil1.pas: OK TEST nonil2.pas: OK TEST nonlocgoto.pas: OK TEST numericio.pas: OK ========================== GPC-TEST-END rm -f *.dat *.o *.s *.gpm *.gpi *.gpd *.gpc core a.out stderr.out *.exe tmptest.* testmake.tmp \ knownbugs/a.out knownbugs/*.o knownbugs/*.s knownbugs/*.gpm knownbugs/*.gpi knownbugs/*.gpd \ internal/a.out internal/*.o internal/*.s internal/*.gpm internal/*.gpi internal/*.gpd PC="gpc" PFLAGS="--autobuild -g -O3 -Wall -Werror" SRCDIR="." "./test_run" "`cat DTLIST.AF`" GPC-TEST-BEGIN ========================== TEST objcrash.pas: OK TEST objects.pas: OK TEST objsize.pas: OK TEST opath.pas: OK TEST openarr.pas: OK TEST oper1.pas: OK TEST oper2.pas: OK TEST orland1.pas: OK TEST pack1.pas: OK TEST pack10.pas: OK TEST pack11.pas: OK TEST pack12.pas: OK TEST pack2.pas: OK TEST pack3.pas: OK TEST pack4.pas: OK TEST pack5.pas: OK TEST pack6.pas: OK TEST pack9.pas: OK TEST palindromes.pas: OK TEST params.pas: OK TEST pat1.pas: OK TEST pat3.pas: OK TEST pat4.pas: OK TEST pat4w.pas: OK TEST pcextn.pas: OK TEST pd1.pas: OK TEST pd2.pas: OK TEST permute.pas: OK TEST peter.pas: OK TEST pfep1.pas: OK TEST piconst.pas: OK TEST piextn.pas: OK TEST pipetes2.pas: OK TEST pipetest.pas: OK TEST pismo1.pas: OK TEST pmod1.pas: OK TEST powersoftwo.pas: OK TEST predef.pas: OK TEST pretty.pas: OK TEST primes.pas: OK TEST procpar1.pas: OK TEST procpar2.pas: OK TEST procs.pas: OK TEST procvar1.pas: OK TEST procvar2.pas: OK TEST procvar3.pas: OK TEST ptrarith.pas: OK TEST ptrvars.pas: OK TEST pvs1.pas: OK TEST pvs3.pas: OK TEST quicksort.pas: OK TEST random.pas: OK TEST ranges.pas: OK TEST rdcstr1.pas: OK TEST rdcstr2.pas: OK TEST rdpal.pas: OK TEST rdwt.pas: OK TEST real.pas: OK TEST realout.pas: OK TEST redef.pas: OK TEST redefp.pas: OK TEST regextest.pas: SKIPPED: librx not installed TEST reset.pas: OK TEST rick1.pas: OK TEST robert1a.pas: OK TEST robert1b.pas: OK TEST roland1.pas: OK TEST ross1.pas: OK TEST round.pas: OK TEST rphil2.pas: OK TEST rphil3.pas: OK TEST rphil4.pas: OK TEST rphil5.pas: OK TEST rphil5a.pas: OK TEST rphil6.pas: OK TEST rudy1.pas: OK TEST rudy1a.pas: OK TEST russell1.pas: OK TEST sam1.pas: OK TEST sam10.pas: OK TEST sam11.pas: OK TEST sam12.pas: OK TEST sam2.pas: OK TEST sam3.pas: OK TEST sam4.pas: OK TEST sam6.pas: OK TEST sam7.pas: OK TEST sam8.pas: OK TEST sam9.pas: OK TEST sberend.pas: OK TEST schema1.pas: OK TEST schema1a.pas: OK TEST schema1b.pas: OK TEST schema1c.pas: OK TEST schema2.pas: OK TEST schema2a.pas: OK TEST schema3.pas: OK TEST schema3a.pas: OK TEST schema4.pas: OK TEST seekrd.pas: OK TEST sequin.pas: OK TEST setest.pas: OK TEST setfor.pas: OK TEST setforw.pas: OK TEST sets1.pas: OK TEST sets10.pas: OK TEST sets11.pas: OK TEST sets12.pas: OK TEST sets13.pas: OK TEST sets14a.pas: OK TEST sets14b.pas: OK TEST sets2.pas: OK TEST sets3.pas: OK TEST sets4.pas: OK TEST sets5.pas: OK TEST sets5a.pas: OK TEST sets5b.pas: OK TEST sets6.pas: OK TEST sets7.pas: OK TEST sets8.pas: OK TEST sets9.pas: OK TEST shlshr.pas: OK TEST shoemake.pas: OK TEST size.pas: OK TEST sizeofs.pas: OK TEST slength.pas: OK TEST sort.pas: OK TEST srb1.pas: OK TEST srb2.pas: OK TEST stephen1.pas: OK TEST stephen2.pas: OK TEST steve1.pas: OK TEST str1cstr.pas: OK TEST str2cstr.pas: OK TEST str3cstr.pas: OK TEST strbool.pas: OK TEST strcmp1.pas: OK TEST strcmp2.pas: OK TEST strindex.pas: OK TEST stringstest.pas: OK TEST stringutilstest.pas: OK TEST strini.pas: OK TEST strngs.pas: OK TEST strptr1.pas: OK TEST strptr2.pas: OK TEST strptr3.pas: OK TEST strptr4.pas: OK TEST strval.pas: OK TEST subrs.pas: OK TEST subrw.pas: OK TEST subrw2.pas: OK TEST sven0.pas: OK TEST sven1.pas: OK TEST sven10.pas: OK TEST sven11.pas: OK TEST sven13.pas: OK TEST sven14.pas: OK TEST sven14a.pas: OK TEST sven14b.pas: OK TEST sven15.pas: OK TEST sven16.pas: OK TEST sven17.pas: OK TEST sven17a.pas: OK TEST sven3.pas: OK TEST sven3w.pas: OK TEST sven4.pas: OK TEST sven5.pas: OK TEST sven6.pas: OK TEST sven7.pas: OK TEST sven8.pas: OK TEST sven9.pas: OK TEST switches.pas: OK TEST systemtest.pas: OK TEST t01.pas: OK TEST t03.pas: OK TEST t04.pas: OK TEST t05.pas: OK TEST t06.pas: OK TEST t07.pas: OK TEST t08.pas: OK TEST t09.pas: OK TEST t10.pas: OK TEST t11.pas: OK TEST t12.pas: OK TEST t14.pas: OK TEST t16.pas: OK TEST t17.pas: OK TEST t18.pas: OK TEST t19.pas: OK TEST t6331-5.pas: OK TEST t6334-2.pas: OK TEST tagnew2.pas: OK TEST tagnew3.pas: OK TEST tagnew4.pas: OK TEST tagnew5.pas: OK TEST testeoln.pas: OK TEST testio.pas: OK TEST testounit.pas: OK TEST thamm1.pas: OK TEST tom1.pas: OK TEST tom2.pas: OK TEST tom3.pas: OK TEST tom4.pas: OK TEST transpose.pas: OK TEST trap2test.pas: OK TEST traptest.pas: OK TEST truncstr.pas: OK TEST turbo3test.pas: OK TEST typeofs.pas: OK TEST unitinfile.pas: OK TEST unitinfw.pas: OK TEST unum.pas: OK TEST upath1.pas: OK TEST upath2.pas: OK TEST varrec1.pas: OK TEST voidparm.pas: OK TEST warnalign.pas: OK ========================== GPC-TEST-END rm -f *.dat *.o *.s *.gpm *.gpi *.gpd *.gpc core a.out stderr.out *.exe tmptest.* testmake.tmp \ knownbugs/a.out knownbugs/*.o knownbugs/*.s knownbugs/*.gpm knownbugs/*.gpi knownbugs/*.gpd \ internal/a.out internal/*.o internal/*.s internal/*.gpm internal/*.gpi internal/*.gpd PC="gpc" PFLAGS="--autobuild -g -O3 -Wall -Werror" SRCDIR="." "./test_run" "`cat DTLIST.AG`" GPC-TEST-BEGIN ========================== TEST windtes2.pas: OK TEST windtest.pas: OK TEST writebyte.pas: OK TEST y2k.pas: OK ========================== GPC-TEST-END --Message-Boundary-10552-- -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 51 45 44 mailto:Maurice.Lombardi@ujf-grenoble.fr

1 0

Pascal under Linux.
by Geoff Bagley 06 Apr '01

06 Apr '01

Can someone please clarify the "parentage" of the Pascals (plural) available under Linux. There seem to be two distinct ones. There is gpc, the subject of this list, and a seemingly distinct route via p2c and the gcc "C" compiler. Am I confused ? Are they really separate, and why (if true) are there two rival Pascals. How do they differ ? Are they both Gnu ? I would imagine that the adherents of this list prefer gpc :) Which of them is the easiest to provide with a TP7.0 style Graph Unit ? TIA Best regards. -- Geoff Bagley

6 6

GPC "distribution bug"
by Dominique Schuppli 05 Apr '01

05 Apr '01

Hi, I had problems installing the latest GPC distribution (gpc-20010331.tar.gz) on my GNU/Linux system (kernel 2.4.3). It compiled well, but "make pascal.install" didn't install anything. Here's why: In the GPC source subdirectory p/script/ one of the scripts (I think "make-library-interface") didn't have its "executable" file flag set. Setting the flag with chmod and then using "make pascal.install" again solved that problem. (If that problem's common & already known I'm sorry for rereporting it.) dom

2 1

Graph Unit.
by Geoff Bagley 04 Apr '01

04 Apr '01

I now have my gpc working OK under LINUX SuSE 7.1, and would like to use the Borland-style graph mode. Is there a Graph Unit available ? Best regards. -- Geoff Bagley

3 2

Possible Bug About Read?
by George L. Yang 02 Apr '01

02 Apr '01

Hi, everyone, My system configuration is as following: SunOS 5.6 gcc 2.95.2 19991024 (release) gpc 20010324, based on 2.95.2 19991024 (release) I find the Read function can not read new line correctly. When I input a new line, Read tells me what I input is 2 spaces. I am not sure whether it is a bug or is there any way to fix it quickly? Regards, George

1 0

gpc Units.
by Geoff Bagley 30 Mar '01

30 Mar '01

After many years of using Borland Pascal (latest 7.0) under MSDOS, I now have SuSE Linux 7.1 and with it gpc. I have been able to run a few simple Pascal test programmes. Please can anyone tell me how to obtain the equivalent of the Turbo Units crt, and printer ? I guess that if they exist they will be enshrined in the C language. I need to be able to clear a display screen or window, and also to send formatted output to my printer. Regards. -- Geoff Bagley G3FHL.

2 1

Re: Need GPC installation
by Mr. Veli Suorsa 29 Mar '01

29 Mar '01

Hi! >Andris Pavenis wrote: > >> perhaps we should have p/diffs/gcc-2.95.3.diff where this is fixed > >concatenate p/diffs/gcc-2.95.diff and the following: > >--------------------------------------------------------------------- > >*** gcc-2.953/p/gpc.c.orig Tue Feb 27 13:09:54 2001 >--- gcc-2.953/p/gpc.c Tue Mar 27 11:51:20 2001 >*************** static struct compiler default_compilers >! "%{E|M|MM:cpp -lang-c %{ansi:-std=c89} %{std*} %{nostdinc*}\ >! "%{E|M|MM:cpp0 -lang-c %{ansi:-std=c89} %{std*} %{nostdinc*}\ ^^^^ If I understand right, someone added a zero to compiler name (cpp -> cpp0) and Pascal compiler did not know this change at all. I have noticed that Mr. Lombard has very good skills with these compilers. Can You fix this change to final Gnu Pascal version of gcc-2.953 in a minute ;-) !? I am waiting for update. You asked a person who uses GPC and Linux. I would ask from my friends how many thousand there are. Let's keep in touch with you. >But this is not the end of the story So it seems to continue... How long this story is? >-- > Maurice Lombardi P.S. I found some news from communication, traffic, economy, icehockey (semifinals...) and WM-bandy (We hit Usa 12-1, Russia hit us 10-5, and so on...) in local newspaper Kaleva+ ( http://www.kaleva.fi/ or summary http://pda.kaleva.fi/ ). International pages (in english, I suppose) are under construction. With Best Regards! Veli Suorsa --- "People must believe to the future to be able to live!" ---------------------------------- J.V.Snellman, 1890. Oulu, FINLAND Mailto:VJSuorsa@Surfeu.Fi http://members.surfeu.fi/veli.suorsa/ http://www.surfeu.fi

1 0

bug ?
by Maurice Lombardi 29 Mar '01

29 Mar '01

Hi all, Since at least three monthes a bug pops in and pops out in an erratic way while running dostest.bat after a new compilation of a gpc snapshot under djgpp-2.95.2 (nothing to do with the recent discussion about 2.95.3: I have reverted to 2.95.2). It is in one or both of the test programs nicola1.pas and/or nicola2.pas. On the screen (and in the make.out logfile) I have: --------------------------------------------------- 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. TEST fjf165a.pas: SKIPPED: only for German locale TEST longr2.pas: SKIPPED: no LongReal math routines available TEST nicola1.pas: failed: ./nicola1.pas:7: referenced type `T2' undefined ./nicola1.pas:7: Internal compiler error in `handle_forward_pointers', at gpc-de cl.c:9884 Please submit a full bug report to the GPC mailing list <gpc(a)gnu.de>. See <URL:http://home.pages.de/~GNU-Pascal/todo.html> for details. TEST nicola2.pas: failed: ./nicola2.pas:4: referenced type `A' undefined ./nicola2.pas:4: Internal compiler error in `handle_forward_pointers', at gpc-de cl.c:9884 Please submit a full bug report to the GPC mailing list <gpc(a)gnu.de>. See <URL:http://home.pages.de/~GNU-Pascal/todo.html> for details. # of GPC tests 1302 # of GPC tests passed 1298 # of GPC tests skipped 2 # of GPC tests failed 2 ------------------------------------------------------- If I run the compilation directly I see that this corresponds to a SIGSEGV error --------------------------------------------------------- C:\djgpp\gnu\gcc-2.952\gcc\p\test>gpc --autobuild -g -O3 -Wall -Werror nicola1.pas nicola1.pas:7: referenced type `T2' undefined Exiting due to signal SIGSEGV Page fault at eip=0015d86d, error=0004 eax=0000007f ebx=ffe305e0 ecx=00000000 edx=ffe527e4 esi=ffe30574 edi=89000001 ebp=00389d30 esp=00389d08 program=C:\DJGPP\LIB\GCC-LIB\DJGPP\2.952\GPC1.EXE cs: sel=0117 base=83c03000 limit=ffe5dfff ds: sel=011f base=83c03000 limit=ffe5dfff es: sel=011f base=83c03000 limit=ffe5dfff fs: sel=00f7 base=000260d0 limit=0000ffff gs: sel=012f base=00000000 limit=0010ffff ss: sel=011f base=83c03000 limit=ffe5dfff App stack: [0038a3a4..0020a3a4] Exceptn stack: [0020a2b0..00208370] Call frame traceback EIPs: 0x0015d86d 0x001a5bbe 0x0013bad9 0x0013f967 0x001caee2 C:\djgpp\gnu\gcc-2.952\gcc\p\test>gpc --autobuild -g -O3 -Wall -Werror nicola2.pas nicola2.pas:4: referenced type `A' undefined Exiting due to signal SIGSEGV Page fault at eip=0015d86d, error=0004 eax=0000007f ebx=ffe305e0 ecx=00000000 edx=ffe523f0 esi=ffe30574 edi=068b4625 ebp=00389d30 esp=00389d08 program=C:\DJGPP\LIB\GCC-LIB\DJGPP\2.952\GPC1.EXE cs: sel=0117 base=83c03000 limit=ffe5dfff ds: sel=011f base=83c03000 limit=ffe5dfff es: sel=011f base=83c03000 limit=ffe5dfff fs: sel=00f7 base=000260d0 limit=0000ffff gs: sel=012f base=00000000 limit=0010ffff ss: sel=011f base=83c03000 limit=ffe5dfff App stack: [0038a3a4..0020a3a4] Exceptn stack: [0020a2b0..00208370] Call frame traceback EIPs: 0x0015d86d 0x001a5bbe 0x0013bad9 0x0013f967 0x001caee2 --------------------------------------------------------------------------------- Such a bug which appears and disappears without any relationship to the changes in gpc looks like a wandering pointer problem. It may be completely unseen on other systems. Hope this helps Maurice -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 51 45 44 mailto:Maurice.Lombardi@ujf-grenoble.fr

2 1

Re: Need GPC installation
by Mr. Veli Suorsa 29 Mar '01

29 Mar '01

Thanks for your reply! >> ftp://agnes.dida.physik.uni-essen.de/home/maurice/gpc2952b.zip >OK. I try to always give under this same link the lastest gpc snapshot I have compiled, and which give zero error when >running the whole test suite. I just updated gcc-2.95.3 version of Djgpp. Every other compiler seems to work well (Thanks to Andris). Can You update this Pascal compiler (gpc2953b.zip) and documentation and inform me (download site), too? >To force a build in pascal you need to replace --automake by --autobuild as compilation option. >But this is nowhere provided for in rhide (and in particular is not done when you hit compile/build) because of the >different logics: looking into the makefiles generated by rhide you have provision for RHIDE_COMPILE_LINK_AUTOMAKE but >not for RHIDE_COMPILE_LINK_AUTOBUILD I hope they add this --autobuild as a compilation option to next version. >You have probably an older version of rhide. Better upgrade. My version is Rhide 1.4.7.8 (latest). >> PASCAL_TYPE=GPC >OK > >> RHIDE_LD_PASCAL=gcc >? for me it is gpc I change it to gcc, because gpc did not works. I "cheat" from Fortran make. >> RHIDE_COMPILE_GPC=$(RHIDE_GPC) $(RHIDE_GPC_FLAGS) $(LOCAL_OPT) -c $(SOURCE_NAME) >> -o $(OUTFILE) >> RHIDE_COMPILE_LINK_GPC=$(RHIDE_LD_PASCAL) $(RHIDE_LIBDIRS) $(C_EXTRA_FLAGS) >> -o $(OUTFILE) $(OBJFILES) $(LIBRARIES) $(RHIDE_LDFLAGS) $(LDFLAGS) $(RHIDE_LIBS) >> >> RHIDE_COMPILE_LINK_PASCAL_AUTOMAKE=$(RHIDE_COMPILE_LINK_$(PASCAL_TYPE)) > >This is unnecessary since it is identical to the defaults contained in rhide. What is necessary is: > >RHIDE_COMPILE_LINK_GPC_AUTOMAKE=$(RHIDE_LD_PASCAL) $(RHIDE_LIBDIRS) -o $(OUTFILE) --autobuild $(RHIDE_GPC_FLAGS) >$(SOURCE_NAME) $(LIBRARIES) $(LDFLAGS) $(RHIDE_LDFLAGS) $(RHIDE_LIBS) I will try this when you send me the new version of GPC. >i.e. suppress options to automake to avoid those stupid warning messages, and probably replace --automake altogether by >--autobuild. >I am not sure that the latest replacement is still necessary. It was sometimes ago but I have not checked it recently. >It increases compilation time, but it is more secure. >An other convenient way is to use a compilation option --unit-destination-path= (better included automatically in the >default rhide project if you work mainly in pascal) to put all .o .gpi .gpm files into a given directory, and to delete >manually all the content of this directory when you want a rebuild (easy only if you work in a windows dos box not to >need to exit from rhide each time you need to do that, or you can have a .bat file in your path to do that and do it by >exiting temporarilly from rhide by hitting File/Dos shell). >Anyhow be carefull that you have to delete all these files each time you upgrade to a new version of gpc. I use Rhide in Windows Dos box and it works. If you know how to delete in environment file told temporary files automatically, tell me! >Hope this helps, Thank you very much! Veli Suorsa --- "People must believe to the future to be able to live!" ---------------------------------- J.V.Snellman, 1890. Oulu, FINLAND Mailto:VJSuorsa@Surfeu.Fi http://members.surfeu.fi/veli.suorsa/ http://www.surfeu.fi

6 13

bug for external if var is a text...
by Fabio Casamatta 29 Mar '01

29 Mar '01

Dear GPC, I need to do the following thing: in a main program I write on a file but the "text" variable is declared in another unit. The program is the following: program demofile; var test_external_value: integer; external; asmname 'external_value'; var f: text; external; asmname 'f_test_external'; begin writeln('value of test_external_value=', test_external_value); writeln('Create the file FILEDEMO'); {$I-} Assign(f, 'FILEDEMO'); ReWrite(f); {$I+} writeln(f, 'file written by program demofile'); close(f); end. The unit is the following: unit demofileunit; interface implementation var test_value: integer = 7; asmname 'external_value'; var f_test: text; asmname 'f_test_external'; end. Then I compile: gpc -c demofileunit.pas gpc -o demofile demofile.pas demofileunit.o running demofile: value of test_external_value=7 Create the file FILEDEMO demofile: `Unbind' applied to non-bindable TFDD file `(null)' (error #404 at 8049938) this is the errore received and FILEDEMO is not created. If I replace in demofile.pas the line: var f: text; external; asmname 'f_test_external'; in the line var f: text; so that f is not external, compiling and running again demofile: value of test_external_value=7 Create the file FILEDEMO and the content of FILEDEMO is: file written by program demofile Then, all is ok. I installed GPC 2.95.2 with Linux RedHat 7.0 (then gcc is 2.96, but I don't think it is important...) It seems that it is not possible to link "text" variable externally as I do with other types...Is it a bug? Thanks Fabio Casamatta

2 1

"mallinfo" in GPC?
by Tomasz Kowaltowski 27 Mar '01

27 Mar '01

In gcc one can use the function "mallinfo()" in order to know, among other things, the amount of dynamic storage currently allocated by the program through "malloc()". I use it to check for program memory leaks. I would like to know whether there is anything similar for gpc? -- Tomasz Kowaltowski

4 4

glibc et. al.
by Prof. A Olowofoyeku (The African Chief) 26 Mar '01

26 Mar '01

Hi all Pardon this ignorant question - what gives with glibc and how (if at all) does it affect GCC and GPC on any platform? I keep coming across various things about glibc, and AFAIK it has no relevance to GPC at all (it seems to be only for GCC people - and then, only for some platforms). Am I missing something? Best regards, The Chief --------- Prof. Abimbola Olowofoyeku (The African Chief) Author of Chief's Installer Pro for Win32 Email: African_Chief(a)bigfoot.com http://www.bigfoot.com/~african_chief/

1 0

Objects.pas
by Anuradha 26 Mar '01

26 Mar '01

Hello , Is there an equivalent for 'objects.pas'? Regards, Anuradha

2 1

Bug report: Object interface/implementation conflict
by Markus Gerwinski 25 Mar '01

25 Mar '01

Hello Folks! Got the following bug today: type ... tPruzzel = object Procedure amazooka ( proe: pProe ); end (* tPruzzel *); ... tPruzzel.amazooka ( p: pProe ); begin (* tPruzzel.amazooka *) --> if p = nil then ... end (* tPruzzel.amazooka *); The "-->" marked line yields a compiler error: "undefined identifier 'p'". To avoid it, the variable _identifier_ in interface and implementation must be the same. I don't know, if this case intentionally yields an error; anyway, I think it should be a "header does not match", not an "undefined identifier". The latter one's confusing. Yours Markus

3 3

[BUG REPORT] Set in procedure
by f.couperin 25 Mar '01

25 Mar '01

Hello, Here is a surprising bug I discovered. It's about variables of the set type in procedures. ---------------------------------------------------------------------------- -- Program SetBug2; Procedure Try; Var X : Integer = 1; OneSet : Set Of Integer = [1]; Begin If X In OneSet Then Writeln('OK') End; Begin Try End. ---------------------------------------------------------------------------- -- If I define 'OneSet' like this : Const OneSet = [1]; the problem disappears... And if the main program is : Var X : Integer = 1; OneSet : Set Of Integer = [1]; Begin If X In OneSet Then Writeln('OK') End. there is no problem. Here is my command line : gpc -v SetBug.pas -o SetBug.exe And the output is : ---------------------------------------------------------------------------- -- Reading specs from c:/djgpp/lib/gcc-lib/djgpp/2.952/specs gpc version 20000727, based on 2.95.2 19991024 (release) c:/djgpp/lib/gcc-lib/djgpp/2.952/gpcpp.exe -lang-pascal -v -famtmpfile=c:/djgpp/tmp\ccai2csi -fdelphi-comments -D__GNU_PASCAL__ -undef -D__GNUC__=2 -D__GNUC_MINOR__=95 -D__GPC__=2 -D__GPC_MINOR__=0 -D__GPC_RELEASE__=20000727 -D__BITS_LITTLE_ENDIAN__=1 -D__BYTES_LITTLE_ENDIAN__=1 -D__WORDS_LITTLE_ENDIAN__=1 -Dunix -Di386 -DGO3 2 -DDJGPP=2 -DMSDOS -D__OS_DOS__=1 -D__unix__ -D__i386__ -D__GO32__ -D__DJGPP__=2 -D__MSDOS__ -D__OS_DOS__=1 -D__unix -D__i386 -D__GO32 -D__DJGPP=2 -D__MSDOS -Asystem(unix) -Asystem(msdos) -Acpu(i386) -Amachine(i386) -Acpu(i386) -Amachine(i386) -Di386 -D__i386 -D__i386__ -D__tune_pentium__ -imacros c:/djgpp/lib/../include/sys/version.h -remap SetBug2.pas c:/djgpp/tmp\ccbi2csi.i GNU Pascal Compiler PreProcessor version 2.95.2 19991024 (release) (80386, BSD syntax) #include "..." search starts here: #include <...> search starts here: c:/djgpp/lang/pascal c:/djgpp/include c:/djgpp/contrib/grx232/include /usr/local/include JDIR/i586-pc-msdosdjgpp/include $DJDIR/lib/gcc-lib/djgpp/2.952/include $DJDIR/include End of search list. c:/djgpp/lib/gcc-lib/djgpp/2.952/gpc1.exe c:/djgpp/tmp\ccbi2csi.i -quiet -dumpbase SetBug2.pas -version -famtmpfile=c:/djgpp/tmp\ccai2csi -o c:/djgpp/tmp\ccbi2csi.s GNU Pascal version 2.95.2 19991024 (release) (djgpp) compiled by GNU C version 2.95.2 19991024 (release). SetBug2.pas: In function `Try': SetBug2.pas:7: Internal compiler error in `get_set_constructor_bits', at tree.c:5016 Please submit a full bug report. See <URL:http://www.gnu.org/software/gcc/faq.html#bugreport> for instructions. ---------------------------------------------------------------------------- -- Â«CouperinÂ»

2 1

Multithreading in GPC
by Preben Mikael Bohn 24 Mar '01

24 Mar '01

Does anyone know how to do this? Best regards Preben Bohn ===== The two rules for success are: 1. Never tell them everything you know. __________________________________________________ Do You Yahoo!? Get email at your own domain with Yahoo! Mail. http://personal.mail.yahoo.com/

1 0

Re: Problems compiling with gpc
by Steven J. Backus 23 Mar '01

23 Mar '01

Frank Heckenbach <frank(a)g-n-u.de> writes: > Try calling gpc rather than gcc. Hey, that worked. Who would have thought? Duh. Steve

2 1

Problems compiling with gpc
by Steven J. Backus 23 Mar '01

23 Mar '01

After setting up gpc and trying to use it I get: gcc: Internal GPC problem: internal option `--amtmpfile' not given With the command line: gcc -o homog homog.p Can anyone help? Thanks, Steve

3 2

Re: Problems compiling with gpc
by Steven J. Backus 23 Mar '01

23 Mar '01

russ(a)rusty.russwhit.com writes: > What does "gpc -v" show? Older versions of gpc were buggy. Reading specs from /usr/local/lib/gcc-lib/i386-pc-solaris2.8/2.95.2/specs gpc version 20010317, based on 2.95.2 19991024 (release) I just downloaded this today. > Can you reduce (and post) homog.p down to a few lines that still > show the problem? PROGRAM homog(output,infile,outfile); {NDP Pascal} BEGIN writeln; writeln('**********************************':47); writeln('* Program HOMOG version ':41,version,' *'); writeln('* Copyright (C) Jurg Ott 1988 *':47); writeln('**********************************':47); END Thanks, Steve

1 0

constans
by Pernille Bech & Klaus F. Østergaard 22 Mar '01

22 Mar '01

Hi, Can anybody help my with how to make this declaration. I want to make an array as a constant: I have been looking in the extended Pascal ISO standard, and found some thing like this: type t = array [1..3] of integer; const c = t[1:1, 2:2, 3:3]; What I want is a constant called DaysInMonth[0..1, 1..12] with containing the number of days in the particular month, the first 0..1 is wheater it is a leap year or not. program testconstarray; type monthtype = array [0..1, 1..12] of integer; const daysinmonth = monthtype[0:1:31, 0:2:28, 0:3:31, 0:4:30, 0:5:31, 0:6:30, 0:7:31, 0:8:31, 0:9:30, 0:10:31, 0:11:30, 0:12:31, 1:1:31, 1:2:29, 1:3:31, 1:4:30, 1:5:31, 1:6:30, 1:7:31, 1:8:31, 1:9:30, 1:10:31, 1:11:30, 1:12:31]; var i: integer; begin for i := 1 to 12 do begin writeln('normal ', i, ' ', daysinmonth[0,i]); end writeln; for i := 1 to 12 do begin writeln('leap ', i, ' ', daysinmonth[1,i]); end; end. It does not work - is it possible at all or is there a trick? klaus

4 3

record, schema or object has no field named `schema$'
by Anuradha 22 Mar '01

22 Mar '01

Hello, Can somebody tell me what's wrong. I got the following: [root@stwpgt bin]# /root/usr/bin/gpc -DNODLL --extended-syntax --automake -Dwin32 Jmxsad.pas /root/usr/lib/gcc-lib/i686-pc-linux-gnu/2.95.2/units/strings.pas: In function `Strpas': /root/usr/lib/gcc-lib/i686-pc-linux-gnu/2.95.2/units/strings.pas:72: record, schema or object has no field named `schema$' gpc: Internal compiler error: program gpc1 got fatal signal 11 gpc1: /root/usr/bin/gpc exited with status 1 [root@stwpgt bin]# Regards, Anuradha -- S.Anuradha Generic Data Tools, Alcatel Chennai. Alcanet : 2-757-7123

2 3

Re: Validity check before downcasting / exception handling?
by Maurice Lombardi 21 Mar '01

21 Mar '01

Prof. A Olowofoyeku (The African Chief) wrote: > On 21 Mar 2001, at 16:15, Maurice Lombardi wrote: >>> Yes, it does - but I am not sure which destructor you would be calling >>> after such an assignment. Remember that instances of classes are >>> pointers to the objects - so in the assignment, what you are moving >>> around are pointers, and there may be gotchas there. >> >> But as far as I remember delphi knows the actual type of an object at run >> time from the address of the VMT (there is one VMT for each defined object >> type) which he recovers at a fixed displacement from the address given by >> the object pointer. > > > Well, the example code causes an exception at the point where you call > "h1.free" (if you do the assignment "h1 := h2"). This happens both under > Delphi and Virtual Pascal (which is Delphi-compatible). So there is > obviously an issue there. yes but that's because in this code you do two free's. After the assignment h1 and h2 point to the same location. You then can do only one free (h1.free or h2.free), in any order. The exception arises only on the second free because the second pointer points then to nowhere. Cheers, Maurice -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 51 45 44 mailto:Maurice.Lombardi@ujf-grenoble.fr

3 3

gpc return value
by Oldham, Adam 21 Mar '01

21 Mar '01

It doesn't appear that gpc has a return value. I've seen compilers that will return non-0 for a file that failed to compile and a 0 for success. Is there a flag to enable this in GPC? Adam ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

2 1

Re: Need GPC installation
by Mr. Veli Suorsa 21 Mar '01

21 Mar '01

Hi! Thanks for your reply! >Mr. Veli Suorsa wrote >> >> I use latest Rhide and it works fine with Gnu C/ C++ and >> Fortran compiler. Some new features are still hoped ;-). >> >> I have tried to install GPC to Dos / Djgpp (from download >> sites a zip-file, >gpc20bb.zip). >> >> Can You help me, because I need pascal to my test and Gpc >> compiler don't works? Or can you tell me who can solve >> this problem! I have read your instructions and done all >> right, but they are not good enough to succeed >> installation in Dos / Djgpp. >> >> What should I do? > >What have you done exactly ? > From where have you downloaded gpc20bb.zip: may be >outdated. I first download GPC from mirror sites: ftp://ftp.funet.fi/pub/mirrors/simtel.net/pub/simtelnet/gnu/djgpp/v2gnu/gpc… It does not work with latest Rhide and Dos/ Djgpp. I tried (with Big African Chief help) sites: ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/djgpp/gpc20ab.zip It does not work with Rhide, neither. And I got a new download- siteaddress from CloseBSD, which works: ftp://agnes.dida.physik.uni-essen.de/home/maurice/gpc2952b.zip >What exactly does not work and what are error messages ? I saw from Rhide screen command: gpc -o pay3_4.exe --automake="-g" -g pay3_4.pas -lgpc -lm before editing djgpp.env file. and error message was like: ... undefined reference to '-p-inoutres' ... collect2: ld returned 1 exit status Adviced GPC version works with Rhide Menu in two parts: -compiler and -make, not yet -Build all. Can you tell me why -Build all does not works? gpc -g -c pay3_4.p -o pay3_4.o works, ... and make: gcc -o pay3_4.exe pay3_4.o -lgpc -lm works, too. I had to do some adds/ changes to djgpp.env file like: [gpc] COMPILER_PATH=%/>;COMPILER_PATH%%DJDIR%/bin [rhide] RHIDE_TYPED_LIBS_DJGPP.p=gpc m RHIDE_TYPED_LIBS_DJGPP.pas=gpc m PASCAL_TYPE=GPC RHIDE_LD_PASCAL=gcc RHIDE_COMPILE_GPC=$(RHIDE_GPC) $(RHIDE_GPC_FLAGS) $(LOCAL_OPT) -c $(SOURCE_NAME) -o $(OUTFILE) RHIDE_COMPILE_LINK_GPC=$(RHIDE_LD_PASCAL) $(RHIDE_LIBDIRS) $(C_EXTRA_FLAGS) -o $(OUTFILE) $(OBJFILES) $(LIBRARIES) $(RHIDE_LDFLAGS) $(LDFLAGS) $(RHIDE_LIBS) RHIDE_COMPILE_LINK_PASCAL_AUTOMAKE=$(RHIDE_COMPILE_LINK_$(PASCAL_TYPE)) And so on... You can see all these Rhide variables from saved *.mak file. I really hope that someone do a good installation program (and instructions, too) for these variables. My test program (pay3_4.p, that you have seen before) size of .exe file (436 kb) is 3 times larger than Fortran (150 kb). Strip helps to 300 kb, but is there anywhere a better optimizer? I really think that someone can do it with assembler within 1 KB. Thank you very much and see you soon! Veli Suorsa --- "People must believe to the future to be able to live!" ---------------------------------- J.V.Snellman, 1890. Oulu, FINLAND Mailto:VJSuorsa@Surfeu.Fi http://members.surfeu.fi/veli.suorsa/ http://www.surfeu.fi

3 2

Gtk+ Port -- New snapshot available
by Nicola Girardi 21 Mar '01

21 Mar '01

Hi Folks!! A new snapshot is available on agnes, in my public FTP directory. (pub/home/nicola/gtkunit) Changes: more tutorial programs, lots of bugs have been fixed (there will still be many ;)). -- Nicola Girardi <nikke(a)swlibero.org>

1 0

Re: Validity check before downcasting / exception handling?
by Markus Gerwinski 20 Mar '01

20 Mar '01

Hello Folks! Prof Abimbola Olowofoyeku wrote: > object is class > > returns True if object is an instance of the class denoted by class or > one of its descendants, and False otherwise. That's exactly what I need. According to Frank, there's already a plan to put it into GPC, so I'll wait and see... > > Alternatively, I could need a mechanism to absorb the runtime error > > fired by "as" before it interrupts the program. > In Delphi, from what the help file says, the program should not compile > if the typecasting is wrong. GPC could do the same. ??? How should the compiler know? I mean, the object type of a pointer at runtime is a matter of runtime. Yours Markus

4 7

this is probably a really bad question
by Oldham, Adam 20 Mar '01

20 Mar '01

But, I didn't see it in the documentation. When creating a new variable in a function or main part of a program: temp : String[30]; Does the compiled code when run, automatically zero out the new variable temp? It either appears that is does, or the memory used in my apps was already zeroed to begin with. Thanks again, Adam Oldham ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

2 1

set constructor elements must be of ordinal type
by Oldham, Adam 20 Mar '01

20 Mar '01

If I have: DownChrSet : SET OF CHAR; LowerT = '\C2'; DownChrSet := [LowerT]; I get the above error. Isn't Char an ordinal type though? And \C2, being a hex, fits into one char, so shouldn't this be ok? Adam ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

2 1

Suggestion: contributed units
by Eike Lange 20 Mar '01

20 Mar '01

Hi! There are a lot of units, someone has contributed. E.g. there is your email-unit, Nicolas svga-unit, my *sql unit and a lot more, which aren't in the GPC distribution. I'd like to suggest a _short_ description for each of these whithin our documentation. A possible good place could be Using GNU Pascal -> External Resources What d you think? Eike

2 1

Need GPC installation
by Mr. Veli Suorsa 19 Mar '01

19 Mar '01

Hi! I use latest Rhide and it works fine with Gnu C/ C++ and Fortran compiler. Some new features are still hoped ;-). I have tried to install GPC to Dos / Djgpp (from download sites a zip-file, >gpc20bb.zip). Can You help me, because I need pascal to my test and Gpc compiler don't works? Or can you tell me who can solve this problem! I have read your instructions and done all right, but they are not good enough to succeed installation in Dos / Djgpp. What should I do? With Best Regards and Thanks in advance! Veli Suorsa --- "People must believe to the future to be able to live!" ---------------------------------- J.V.Snellman, 1890. Oulu, FINLAND Mailto:VJSuorsa@Surfeu.Fi http://members.surfeu.fi/veli.suorsa/ http://www.surfeu.fi

2 1

Qualified Idents, possible work around...
by Orlando Llanes 19 Mar '01

19 Mar '01

I just thought of something, there could be one of two ways to call a "duplicate" function. The first way is using asmname, would that work with GPC compiled programs? The second way is to call the function by inserting Assembly Language. As for variables, would the above two methods work for them as well? See ya! Orlando

1 0

Networking in GPC
by Markus Gerwinski 18 Mar '01

18 Mar '01

Hello Folks! Are there any standard units for handling HTTP and FTP connections, sending e-mail and writing client/server software in GPC? Yours Markus

2 1

Validity check before downcasting / exception handling?
by Markus Gerwinski 18 Mar '01

18 Mar '01

Hello folks! When downcasting object pointers, I often wish there was a way to check the cast before. Peter has already told, in one of the next alpha releases of GPC there will be a new downcast-operator named 'as' firing a runtime error in case of an invalid downcast; like this: ... tBar = object ( tFoo ) ...; ... foo: pFoo; ... with foo^ as tBar do (* if "foo^" isn't a tBar actually, the 'as' *) ... (* interrupts the program with a runtime error. *) Nevertheless I'd like to have a way to check the validity _before_ casting, thus preventing the runtime error in cases where I don't want the program to be interrupted. Currently, I'd suggest the following additional functions in GPC itself: Function getObjectType ( obj: object ): "type"; Function isOfObjectType ( obj: object; runtimeType: "type" ): boolean; Example: ... p: pObject; ... p:= new ( pBar, init ); ... getObjectType ( p^ ) ... (* returns "tBar" *) ... ... isOfObjectType ( p^, pFoo ) ... (* returns "true", since tBar *) (* is derived from tFoo. *) For downcasting, I'd only need the latter one, but the first function seems useful to me, too. Alternatively, I could need a mechanism to absorb the runtime error fired by "as" before it interrupts the program. Something like this: foo: pFoo; ... with foo^ as tBar do ...; catchRuntimeError ( @procedureToHandleRuntimeError, parameters ); Anyway, when implementing a catchRuntimeError mechanism in GPC, it would not seem reasonable to me to just do it for this special kind of runtime error; thus, here we'd need a general exception handling mechanism to catch and handle _any_ runtime error without interrupting the program. Hope this description of my ideas wasn't too confuse... Yours Markus -- http://www.gerwinski.de/~markus/

4 4

Re: Rép. : Re: gpc en Mac OS X.
by Frank Heckenbach 17 Mar '01

17 Mar '01

Blady wrote: > <flushleft><fontfamily><param>Helvetica</param><x-tabstops><param>28L;56L;84L;112L;140L;168L;196L;224L;252L;280L;308L;336L;0L;</param>Hi, > > [...] First of all: Your mail is *very* hard to read because of all these tags (they don't even appear to be HTML... what is it???). Please, when posting to this list, turn off all such tags, and use a reasonable line length (68 or 72 characters), thanks. > <bold>/Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas:642: undeclared identifier `$f' (first use in this routine) > > <bold>/Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas:650: undeclared identifier `$10' (first use in this routine) > > <bold>/Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas:897: undeclared identifier `$deadbeef' (first use in this routine) Whoa, Borland-style hex numbers are mistaken as identifiers... > then I type this that fix it: > > make CFLAGS="-O -DMACOSX -g -fno-dollars-in-identifiers" I see. The option `--dollars-in-identifiers' enables `$' in identifiers, thereby breaking Borland-style hex numbers. Usually it is off by default, but apparently for some reason it's on by default in Max OS X (perhaps for GCC because there are system routines with `$' in them or something). Well, turning it off, as you did, fixes the problem. I'm now making `-fno-dollars-in-identifiers' the default for GPC on all platforms. General questions: Is this option useful at all? Does someone (or some other Pascal compiler) use `$' in identifiers, so we should retain this for compatibility, or is it just a GCC relic that we can drop? > By default the libm.a library is include in the ld command line so I disable it, since the library is not provided. > > Modifiction of gpc.c : > > << #define MATH_LIBRARY "-lm" > > -- > > > //#define MATH_LIBRARY "-lm" > > > #define MATH_LIBRARY "" AFAIR, the same holds for MS-Windows (at least Mingw, not sure about CygWin). I think the setting of MATH_LIBRARY in ../config/i386/mingw32.h makes sure that -lm is not linked there without haveing to change gpc.c. The same should be possible for Mac OS X, I guess, in the appropriate config file. If you find it, you can send us that change, so we can include it... > 3) link error : > > /usr/bin/ld -arch ppc -dynamic -lcrt1.o /var/tmp/cc0003231.o -lgpc = > -lcc_dynamic -framework System > > /usr/bin/ld: /usr/lib/libgpc.a(error.o) has external relocation entries = > in non-writable section (__TEXT,__text) for symbols: > > _memcpy > > _strlen > > Is there an explanation for that ? It seems to have something to do with GPC using `__builtin_strlen' and `__builtin_memcpy' for some CString operations. Apparently, they don't work well here. Try replacing `__builtin_strlen' (3 times in rts.c) and `__builtin_memcpy' (once in util.c) by simply `strlen' and `memcpy', then rebuild GPC, and let me know if this works. Frank -- Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/ GPC To-Do list, latest features, fixed bugs: http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html

4 5

GNU Pascal Manual
by Clive Rodgers 17 Mar '01

17 Mar '01

A long-standing problem (irritation?) that maybe noone has mentioned is that the index link on every page (that I have tried) takes you to section 9.114 Index (under construction) rather than to section D. GPC Index. Clive ----------------------------------------------------------------------------- Atmospheric, Oceanic and Planetary Physics +44-1865-272905 (desk) Clarendon Laboratory +44-1865-272923 (fax) Parks Road Oxford OX1 3PU c.rodgers(a)physics.ox.ac.uk U.K. http://www.atm.ox.ac.uk/user/rodgers/ MIME, NeXTMail and SunMail attachments welcomed. HTML attachments tolerated Proprietary document formats (especially WORD) binned. Use rtf instead -----------------------------------------------------------------------------

2 1

fail to install gpc on Linux
by Johanna Johnston 16 Mar '01

16 Mar '01

I downloaded gpc-20010315.tar.gz (and per instructions, gcc-2.95.2.tar.gz) and followed the gpc INSTALL instructions with great success, (including "/home/jj/gcc-2.95.1/configure --enable-languages=pascal"and /home/jj/gpc-build/gcc/make) until I came to the install: "make install.pascal" This failed with make: *** No rule to make target `pascal.install'. Stop. I was unable to figure what I had done wrong. Any advice? There is no reference to "pascal" in my Makefile, I don't know where it should come from. My config.status file looks like this: #!/bin/sh # This file was generated automatically by configure. Do not edit. # This directory was configured as follows: /home/jj/gcc-2.95.2/configure --with-gcc-version-trigger=/home/jj/gcc-2.95.2 /gcc/version.c --host=i686-pc-linux-gnu --enable-languages =pascal --norecursion # using "mt-frag" Thank you, Johanna ********************************* * Johanna Johnston * * Bay Computer Associates * * johanna(a)baycomp.com * * http:// www.baycomp.com * *********************************

4 3

Re: const isn't constant?
by Prof. A Olowofoyeku (The African Chief) 16 Mar '01

16 Mar '01

On 16 Mar 2001, at 13:00, Eike Lange wrote: > Hi! > With the following program, I get the error > storage size of 'Bar' isn't constant > Whats wrong? > Is there another way to tell the compiler the storage > size of a const value? > > > program test; > const > Foo : integer = 4; > var > Bar:array[1..foo] of integer; > begin > end. What you have done is to "misuse" an initialized variable as a constant (I think that BP calls them "typed constants"). While that may be accepted (with a warning under GPC) for some uses, it cannot be used as a constant value in declaring data types. Why? Because, as a typed constant, its value can be changed - then what happens to your array? The compiler needs a value that is truly constant (i.e., that cannot be changed) for these purposes. This is what you want; program test; const Foo = 4; var Bar:array[1..foo] of integer; begin end. Best regards, The Chief --------- Prof. Abimbola Olowofoyeku (The African Chief) Author of Chief's Installer Pro v5.24 for Win32 Email: African_Chief(a)bigfoot.com http://www.bigfoot.com/~african_chief/

2 1

PACKED ARRAYS (was Re: Has class become a reserved word?)
by david＠tcs01.demon.co.uk 16 Mar '01

16 Mar '01

In message <20010310012841.A3478(a)esmeralda.gerwinski.de> Peter Gerwinski writes: > David James wrote: > > Have there been any changes in the packing of data in records or > > packed records between 19991030 and 20010306? Or any changes in the > > data transfer between variables and typed files (is that the correct > > name? I mean FILE OF Twhatever, where Twhatever is a TYPE defined in > > the source)? > > I am not aware of any. > > But do not rely too much on such things since they might change, for > instance, when new types of processors show up. My need is that I have FILEs of Twhatever that have been written by executables compiled under GPC 19991030 and I now want to read them using executables compiled under GPC 20010306. Now I'd like to report a difference in this area (actually in the in-memory usage) between GPC19991024 and GPC20010306: The following program: program test9(input,output); const maxnum=4; TYPE T1=RECORD a1:array[1..maxnum] of byte; END; T2=RECORD a2:packed array[1..maxnum] of byte; END; T3=RECORD a3:packed array[1..maxnum] of 0..255; END; T4=RECORD a4:array[1..maxnum] of 0..255; END; begin writeln('t1: ',sizeof(t1):1); writeln('t2: ',sizeof(t2):1); writeln('t3: ',sizeof(t3):1); writeln('t4: ',sizeof(t4):1); end. gives t1: 4 t2: 4 t3: 16 t4: 16 under GPC20010306, and gives 4,4,4,16 under GPC19991030. That is the PACKED ARRAY of 0..255 occupied 4 bytes under the old version and now occupies 16 bytes. Whilst I clearlyu have a workaround by switching from 0..255 to byte, that behaviour doesn't seem right to me. -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

4 6

Re: "mallinfo" in GPC?
by Prof. A Olowofoyeku (The African Chief) 16 Mar '01

16 Mar '01

On 16 Mar 2001, at 8:13, Tomasz Kowaltowski wrote: > In gcc one can use the function "mallinfo()" in order to know, among > other things, the amount of dynamic storage currently allocated by the > program through "malloc()". I use it to check for program memory leaks. > > I would like to know whether there is anything similar for gpc? Try "AllocMemSize" in the SYSTEM unit (only in the more recent snapshots). Best regards, The Chief --------- Prof. Abimbola Olowofoyeku (The African Chief) Author of Chief's Installer Pro v5.24 for Win32 Email: African_Chief(a)bigfoot.com http://www.bigfoot.com/~african_chief/

1 0

const isn't constant?
by Eike Lange 16 Mar '01

16 Mar '01

Hi! With the following program, I get the error storage size of 'Bar' isn't constant Whats wrong? Is there another way to tell the compiler the storage size of a const value? program test; const Foo : integer = 4; var Bar:array[1..foo] of integer; begin end. Eike

1 0

Rép. : Re: gpc en Mac OS X.
by Blady 15 Mar '01

15 Mar '01

<flushleft><fontfamily><param>Helvetica</param><x-tabstops><param>28L;56L;84L;112L;140L;168L;196L;224L;252L;280L;308L;336L;0L;</param>Hi, I bring now more points on my use of gpc on Mac OS X. I use it with gcc 2.95 but I have still some questions. <bold><x-tabstops><param>72L;144L;216L;288L;360L;0L;</param>1) Dollars in error.pas : </x-tabstops></bold><x-tabstops><param>72L;144L;216L;288L;360L;0L;</param> make CFLAGS="-v -O -DMACOSX -g" ... ../.././xgpc -B../.././ -c -I. -W -Wall -Wpointer-arith -Wwrite-strings -Wmissing-prototypes -Wmissing-declarations -v -O -DMACOSX -g -DRTS_RELEASE_STRING="'`cat /Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/rts-version`'" --unit-path=/Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts --automake /Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas Reading specs from ../.././specs Reading specs from /usr/libexec/ppc/specs Apple Computer, Inc. version cc-2, based on gpc version 20010115, based on gcc-2.95.2 19991024 (release) gcc version 2.95.2 19991024 (release) ../.././gpcpp -lang-pascal -v -I. -famtmpfile=/var/tmp/cc000268 -funit-path=/Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts -fautomake -fdelphi-comments -D__GNU_PASCAL__ -undef -D__GNUC__=2 -D__GNUC_MINOR__=95 -D__GPC__=2 -D__GPC_MINOR__=0 -D__GPC_RELEASE__=20010115 -D__BITS_BIG_ENDIAN__=1 -D__BYTES_BIG_ENDIAN__=1 -D__WORDS_BIG_ENDIAN__=1 -D__ppc__ -D__NATURAL_ALIGNMENT__ -D__MACH__ -D__BIG_ENDIAN__ -D__APPLE__ -D__ppc__ -D__NATURAL_ALIGNMENT__ -D__MACH__ -D__BIG_ENDIAN__ -D__APPLE__ -D__OPTIMIZE__ -g -W -Wall -Wpointer-arith -Wwrite-strings -Wmissing-prototypes -Wmissing-declarations -D__STDC__ -D__APPLE_CC__=912 -D__DYNAMIC__ -D__OPTIMIZE__=1 -DMACOSX -DRTS_RELEASE_STRING='20010115' /Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas /var/tmp/cc000268.i GNU Pascal Compiler PreProcessor version 20010115, based on gcc-2.95.2 19991024 (release) #include "..." search starts here: #include <<...> search starts here: . /usr/local/include/c++ /usr/local/include /System/Library/Frameworks/System.framework/Headers /usr/include End of search list. ../.././gpc1 /var/tmp/cc000268.i -fforce-mem -Wno-four-char-constants -quiet -dumpbase error.pas -g -O -W -Wall -Wpointer-arith -Wwrite-strings -Wmissing-prototypes -Wmissing-declarations -version -famtmpfile=/var/tmp/cc000268 -funit-path=/Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts -fautomake -o /var/tmp/cc000268.s GNU Pascal version 2.95.2 19991024 (release) (powerpc-apple-macosx) compiled by GNU C version 2.7.2.1. GNU Pascal version is actually 20010115, based on gcc-2.95.2 19991024 (release) Reading specs from ../.././specs Reading specs from /usr/libexec/ppc/specs Apple Computer, Inc. version cc-2, based on gpc version 20010115, based on gcc-2.95.2 19991024 (release) gcc version 2.95.2 19991024 (release) ../.././gpcpp -lang-pascal -v -I. -fautomake -funit-path=/Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts -famtmpfile=/var/tmp/cc000268 -fdelphi-comments -D__GNU_PASCAL__ -M -undef -D__GNUC__=2 -D__GNUC_MINOR__=95 -D__GPC__=2 -D__GPC_MINOR__=0 -D__GPC_RELEASE__=20010115 -D__BITS_BIG_ENDIAN__=1 -D__BYTES_BIG_ENDIAN__=1 -D__WORDS_BIG_ENDIAN__=1 -D__ppc__ -D__NATURAL_ALIGNMENT__ -D__MACH__ -D__BIG_ENDIAN__ -D__APPLE__ -D__ppc__ -D__NATURAL_ALIGNMENT__ -D__MACH__ -D__BIG_ENDIAN__ -D__APPLE__ -D__OPTIMIZE__ -g -W -Wall -Wpointer-arith -Wwrite-strings -Wmissing-prototypes -Wmissing-declarations -D__STDC__ -D__APPLE_CC__=912 -D__DYNAMIC__ -D__OPTIMIZE__=1 -DMACOSX -DRTS_RELEASE_STRING='20010115' /Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/internal.pas -o /var/tmp/cc000271 GNU Pascal Compiler PreProcessor version 20010115, based on gcc-2.95.2 19991024 (release) #include "..." search starts here: #include <<...> search starts here: . /usr/local/include/c++ /usr/local/include /System/Library/Frameworks/System.framework/Headers /usr/include End of search list. Reading specs from ../.././specs Reading specs from /usr/libexec/ppc/specs Apple Computer, Inc. version cc-2, based on gpc version 20010115, based on gcc-2.95.2 19991024 (release) gcc version 2.95.2 19991024 (release) ../.././gpcpp -lang-pascal -v -I. -fautomake -funit-path=/Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts -famtmpfile=/var/tmp/cc000268 -fdelphi-comments -D__GNU_PASCAL__ -M -undef -D__GNUC__=2 -D__GNUC_MINOR__=95 -D__GPC__=2 -D__GPC_MINOR__=0 -D__GPC_RELEASE__=20010115 -D__BITS_BIG_ENDIAN__=1 -D__BYTES_BIG_ENDIAN__=1 -D__WORDS_BIG_ENDIAN__=1 -D__ppc__ -D__NATURAL_ALIGNMENT__ -D__MACH__ -D__BIG_ENDIAN__ -D__APPLE__ -D__ppc__ -D__NATURAL_ALIGNMENT__ -D__MACH__ -D__BIG_ENDIAN__ -D__APPLE__ -D__OPTIMIZE__ -g -W -Wall -Wpointer-arith -Wwrite-strings -Wmissing-prototypes -Wmissing-declarations -D__STDC__ -D__APPLE_CC__=912 -D__DYNAMIC__ -D__OPTIMIZE__=1 -DMACOSX -DRTS_RELEASE_STRING='20010115' /Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/string.pas -o /var/tmp/cc000271 GNU Pascal Compiler PreProcessor version 20010115, based on gcc-2.95.2 19991024 (release) #include "..." search starts here: #include <<...> search starts here: . /usr/local/include/c++ /usr/local/include /System/Library/Frameworks/System.framework/Headers /usr/include End of search list. /Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas: In function `Returnaddr2hex': <bold>/Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas:642: undeclared identifier `$f' (first use in this routine) </bold>/Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas:642: (Each undeclared identifier is reported only once /Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas:642: for each routine it appears in.) /Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas:642: subrange bounds are not of the same type /Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas:642: ordinal type expected /Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas:643: incompatible types in initialization /Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas:643: initial value is of wrong type <bold>/Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas:650: undeclared identifier `$10' (first use in this routine) </bold>/Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas:654: subscripted object is not an array or string /Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas: In procedure `Signalhandler': <bold>/Users/pascal/Documents/GCC2/gcc-2/gcc/p/rts/error.pas:897: undeclared identifier `$deadbeef' (first use in this routine) </bold>make[1]: *** [error.o] Error 1 make: *** [pascal.rts] Error 2 then I type this that fix it: make CFLAGS="-O -DMACOSX -g -fno-dollars-in-identifiers" <bold>2) lib error : </bold> By default the libm.a library is include in the ld command line so I disable it, since the library is not provided. Modifiction of gpc.c : << #define MATH_LIBRARY "-lm" --- > //#define MATH_LIBRARY "-lm" > #define MATH_LIBRARY "" <bold> 3) link error : </bold> [localhost:~/Documents/CC/essais] pascal% more essai.p program Essai; begin Writeln('Hello World again.'); end. [localhost:~/Documents/CC/essais] pascal% gpc -v essai.p Reading specs from /usr/libexec/ppc/2.95.2/specs Reading specs from /usr/libexec/ppc/specs Apple Computer, Inc. version cc-2, based on gpc version 20010115, based on gcc-2.95.2 19991024 (release) gcc version 2.95.2 19991024 (release) gpcpp -lang-pascal -v -famtmpfile=/var/tmp/cc000323 -fdelphi-comments -D__GNU_PASCAL__ -undef -D__GNUC__=2 -D__GNUC_MINOR__=95 -D__GPC__=2 -D__GPC_MINOR__=0 -D__GPC_RELEASE__=20010115 -D__BITS_BIG_ENDIAN__=1 -D__BYTES_BIG_ENDIAN__=1 -D__WORDS_BIG_ENDIAN__=1 -D__ppc__ -D__NATURAL_ALIGNMENT__ -D__MACH__ -D__BIG_ENDIAN__ -D__APPLE__ -D__ppc__ -D__NATURAL_ALIGNMENT__ -D__MACH__ -D__BIG_ENDIAN__ -D__APPLE__ -D__STDC__ -D__APPLE_CC__=912 -D__DYNAMIC__ essai.p /var/tmp/cc000323.i GNU Pascal Compiler PreProcessor version 20010115, based on gcc-2.95.2 19991024 (release) #include "..." search starts here: #include <<...> search starts here: /usr/local/include/c++ /usr/local/include /System/Library/Frameworks/System.framework/Headers /usr/include End of search list. gpc1 /var/tmp/cc000323.i -Wno-four-char-constants -quiet -dumpbase essai.pas -version -famtmpfile=/var/tmp/cc000323 -o /var/tmp/cc000323.s GNU Pascal version 2.95.2 19991024 (release) (powerpc-apple-macosx) compiled by GNU C version 2.7.2.1. GNU Pascal version is actually 20010115, based on gcc-2.95.2 19991024 (release) /usr/libexec/ppc/as -arch ppc -o /var/tmp/cc0003231.o /var/tmp/cc000323.s /usr/bin/ld -arch ppc -dynamic -lcrt1.o /var/tmp/cc0003231.o -lgpc -lcc_dynamic -framework System /usr/bin/ld: /usr/lib/libgpc.a(error.o) has external relocation entries in non-writable section (__TEXT,__text) for symbols: _memcpy _strlen By this step, I have no more idea. <x-tabstops><param>28L;56L;84L;112L;140L;168L;196L;224L;252L;280L;308L;336L;0L;</param> Is there an explanation for that ? Thank's for your reply, and best whishes for continuation, Pascal Pignard. -------------------------- Le Mardi, Décembre 19, 2000, à 02:36 PM, Frank Heckenbach a écrit : <italic>Hello,</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>> thank's for your reply.</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>> I choose gpc 2.0 release cause of the background release of my cc that is</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>> 2.7.2.1.</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>Yes, this version isn't supported anymore. I.e., you can (probably)</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>compile GPC with gcc-2.7.2.1, but you need the sources of gcc-2.8.1</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>or 2.95.x. Because of increasing internal differences between the</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>gcc versions, we had to drop 2.7.x at some point (and will probably</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>drop 2.8.x sometime next year).</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>> I agree with the fact of using the last release then it becomes more</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>> difficult to</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>> port both cc 2.95 or 3.0 and last gpc.</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>> Though, what are the ports on Mac OS X or Darwin (the unix open souce</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>> layer) ?</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>I'm afraid, I'm not aware of any such ports. If the systems are</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>mostly POSIX compliant (I heard Mac OS X is, and I suppose Darwin is</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>as well), and the backend supports the processor (I'm quite sure it</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>does), and the binutils and system libraries and headers are</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>available (I hope they are), it should not be too difficult to</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>compile the current GCC/GPC versions from sources. There may be</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>problems caused by little incompatibilities, but such problems can</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>usually be sorted out rather easily when you post the error</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>messages. I can't say more at this time...</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>Frank</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>-- </italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>Frank Heckenbach, frank(a)g-n-u.de</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>http://fjf.gnu.de/</italic><color><param>0000,0000,0000</param> <italic></italic></color><italic>PGP and GPG keys: http://fjf.gnu.de/plan</italic><color><param>0000,0000,0000</param> <x-tabstops><param>28L;56L;84L;112L;140L;168L;196L;224L;252L;280L;308L;336L;</param></x-tabstops></color><x-tabstops><param>28L;56L;84L;112L;140L;168L;196L;224L;252L;280L;308L;336L;</param> </x-tabstops></x-tabstops></x-tabstops></x-tabstops></fontfamily></flushleft> F

1 0

Re: Where to place units from the RTS
by david＠tcs01.demon.co.uk 15 Mar '01

15 Mar '01

In message <64B83BAE.20010309232630.FOO-38E5.frank(a)g-n-u.de> Frank Heckenbach writes: > David James wrote: > > > Suppose I have a program that 'uses gpc' (one of the units from the > > GPC RTS). Where should gpc.o and gpc*.gpi be (this is under Linux)? > > And should they have been placed there by the make install when I > > built the compiler? > > > > I'd like to be able to say gpc prog.p and have it automatically find > > the gpc unit at compile time and at link time. At the moment I've > > put gpc.o and gpc*.gpi in the same directory as the program, and am > > specifying gpc.o in the command line, but there must be a neater way > > of doing it ... > > The source of the units should remain in the directory where they're > installed, i.e. <prefix>/lib/gcc-lib/<target>/<gcc-version>/units. That's /usr/local/lib/gcc-lib/i586-pc-linux-gnu/2.95.2/units in my case. > If GPC was built correctly, it should find them there automatically > (try `gpc --print-file-name=units' if not). which shows the directory above. [snip] > --automake > compile units when necessary and link their object files > automatically, so you won't have to specify gpc.o on the command > line Removing gpc.pas, gpc*.o, and gpc*.gpi from my own source directory and using --automake allows the compile and link to succeed. > > --unit-path=DIR:DIR:... > search path for other units, i.e. not those shipped with GPC (they > should be found automatically) and not in the current directory -- I still have a problem here ... for me GPC (20010306) is not finding units in the current directory at link-time. For example: helunit.p ========= unit helunit; interface procedure writeit; implementation procedure writeit; begin writeln('Hello from unit'); end; end. ======== useunit.p ========= program useunit(output); uses helunit; begin writeln('Hello world, and now ... from the unit'); writeit; writeln(' ... and back in main'); end. ======== If I say gpc -c helunit.p and then gpc useunit.p I get: /tmp/cc2caGt51.o: In function `pascal_main_program': /tmp/cc2caGt51.o(.text+0x32): undefined reference to `Writeit' /tmp/cc2caGt51.o: In function `init_pascal_main_program': /tmp/cc2caGt51.o(.text+0x7f): undefined reference to `init_Helunit' collect2: ld returned 1 exit status >From what you say above, I would have expected this to work, and it *did* work with GPC 19991030. Is this the expected behaviour? (I could set --unit-path to include the current directory, but you seem to be saying that should not be necessary.) -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

2 1

Re: GNU Pascal Anfänger
by Dieter Schmitz 14 Mar '01

14 Mar '01

Hello, The German GPC Mailinglist is ready to use. to subscribe send a mail to majordomo(a)gnu.de with the message subscribe gpc-de in the body part, the rest you should know. If you want to write to the list send your mail at gpc-de(a)gnu.de -- Greetings Dieter

1 0

None
by Dieter Schmitz 14 Mar '01

14 Mar '01

1 0

Learning tool for GPC and Forgotten FTP password
by Patrick Sharp 14 Mar '01

14 Mar '01

Greeting all! About 4 years ago, I wrote several units for GPC. There were some BP5-7 compatibility units and few wrapper units for Panels, MySql, SoundIT and others. The BP stuff was almost complete, with panel support included with the CRT units (message box like). This was a work in progress that had functioned perfectly... with the version of GPC that was alive in '97 :) All of this source was deleted, and I had no other copies of it... until last week when, by chance, the ISP that I was using (way) back then called me. They were cleaning off old backups and noticed that I still had source files on their server. Lucky for me the president of that company is a GPC fan, and decided to save this file off for me! Now for the point of all of this. My intention was to upgrade all of these units to work with the newest version of GPC. My problem is that the company I work for now does not (yet :)) want to provide any GNUish code for the public and has (sadly) decided to move everything over to Borland's Kylix.. These units were always meant to be released to the GNU community, and I believe that it would be a shame to let them go again.. IF anyone is interested in learning about GPC and Pascal, I believe that this could be a good resource for it. This code will not compile under the current version of GPC, but all of it could be easily upgraded. It's mostly a problem with types like _cstring and such. For now, I will place it on www.cyberconfused.com/gpc_stuff.tgz and if there is any interest in this source at all, I will place it on the agnes server. There is no real site here as I have lost interest in designing anything for it and since I can never seem to get anonymous FTP working with my server, you will need to get this with your browser.. Sorry about that. **PETER. I have lost my ftp password for the psharp account on agnes. I don't know if you keep records of this stuff, but you know me as psharp(a)nilenet.com and also from some of the programs in the test suites (some of the string tests). Is this something that you can email to me?? Thanks! Patrick Sharp Community Webs Inc. 7211 So. Colorado CT. Littleton CO, 80122 pat(a)communitywebs.com http://www.communitywebs.com

2 1

chown? was it going to be posted to the gnu pascal site?
by jallan 14 Mar '01

14 Mar '01

Hey Peoples, I was very greatful for the code to be able to use crypt()... just wondering if the code to be able to use chown() is on the gnu pascal website yet. Jamie

2 1

Re: delphi equivalents in GPC
by Prof. A Olowofoyeku (The African Chief) 13 Mar '01

13 Mar '01

On 13 Mar 2001, at 9:43, Kocherlakota Harikrishna wrote: > Hello, > I would like to know the equivalents for the following delphi > commands/types/functions/units in GPC(on Linux) > Â > > * Tdatetime > * decodetime > * decodedate > * swap > * extractfilename > * expandfilename > * messagebox > * sysutils > * thandle For an early version of the Sysutils unit, see: ftp://agnes.dida.physik.uni-essen.de/home/chief/sysutils-20000725.zip That version will not compile with the most recent GPC snapshots without some minor amendments. If anyone is interested, I can release a more up- to-date version. MessageBox is a WinAPI function. To use something like that under Linux you will need to write a wrapper for some X apis. Best regards, The Chief --------- Prof. Abimbola Olowofoyeku (The African Chief) Author of Chief's Installer Pro v5.24 for Win32 Email: African_Chief(a)bigfoot.com http://www.bigfoot.com/~african_chief/

1 0

Re: GNU Pascal Anfänger
by Prof Abimbola Olowofoyeku 13 Mar '01

13 Mar '01

On 10 Mar 01, at 7:00, Egbert Seibertz wrote: [...] > But if something interesting comes up in their list, the rest of us on > the > main list would miss out. > > if it's really importent, they'll tell us! How would they know what is "really important" to me (or you?). Best regards, The Chief -------- Prof. Abimbola A. Olowofoyeku (The African Chief) Author of: Chief's Installer Pro for Win32 http://www.bigfoot.com/~African_Chief/chief32.htm Email: African_Chief(a)bigfoot.com

4 6

Linking units/modules
by david＠tcs01.demon.co.uk 13 Mar '01

13 Mar '01

Still continuing my migration from GPC 19991030 to GPC 20010306 ... There seems to me to be a difference in how units/modules are found at link time. With 19991030, if I had a program (prog1.p) which used unit unit1.p, the program had a 'uses unit1' in it, and my build procedure did gpc -c unit1.p on the unit, and then gpc prog1 and everything worked. With 20010306, that scheme gives me unresolved referenecs for everything that prog1 uses that is declared in unit1 and I find (having compiled unit1.p to unit1.o and unit1.gpi by gpc -c unit1.p) I have to issue the command gpc prog1.p unit1.o (Yes I know in this case I could just say gpc prog1.p unit1.p in a single command, but in reality there are many units used by many progams, so the make procedure compiles all the units to .o and .gpi files, and then compiles all the programs). This is all under Linux (Redhat 6.2). Is this the expected behaviour now? -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

2 1

Re: GNU Pascal Anfänger
by Egbert Seibertz 13 Mar '01

13 Mar '01

On Fri, Mar 09, 2001 at 08:22:00AM -0000, Prof Abimbola Olowofoyeku wrote: > > On Thu, Mar 08, 2001 at 08:08:38PM -0000, Prof Abimbola Olowofoyeku > > wrote: > ... > While I can see that, from the number of German speakers > > on this list, > a German language group may be of advantage to them, the > > question >... > - but the question still remains - if a specific > > language list were to be > starited, why not others? And if not, why > > not? And if others are started, > > > > they'd have all own lists, of course! > > > > > who will manage the multiplicationi of efforts? > > > > they can read the main-list (this list) too, > > but maybe they can diskuss better in ohter languages. > > But if something interesting comes up in their list, the rest of us on the > main list would miss out. if it's really importent, they'll tell us! Egbert PS: Postmaster, please, set the "Reply-To:" to <gpc(a)gnu.de> for this list. It isn't nice to change the address every time. Egbert

5 7

Re: How does GPC/RTS work regarding date/time functions?
by david＠tcs01.demon.co.uk 12 Mar '01

12 Mar '01

In message <2BFD2555.20010312143145.FOO-2660.frank(a)g-n-u.de> Frank Heckenbach writes: > > > By the way in timestamp definition: > > Seconds is 0 .. 61 shoulden it be 0 .. 60 (as 0..59 gives a minuet) and 59 + 1 leap second gives 60? > > Somewhere (but I don't remember where) I found a mention of 0 .. 61, > apparently allowing for two leap seconds in a row. I'm not an expert > on these matters, and if someone who is confirms that this can't > happen, we can change it to 0 .. 60. (Otherwise, 0 .. 61 shouldn't > hurt, either.) I believe there is a *theoretical* possibility of adding two leap seconds (I think this would imply something pretty nasty had happened to the earth!) -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

1 0

How does GPC/RTS work regarding date/time functions?
by Pernille Bech & Klaus F. Østergaard 12 Mar '01

12 Mar '01

I would like to help improving GPC with time and date procedure and functions. I have been looking into the GPC unit and found this: { Is the year a leap year? } function IsLeapYear (Year : Integer) : Boolean; asmname '_p_is_leap_year'; { Returns the length of the month, taking leap years into account. } function MonthLength (Month, Year : Integer) : Integer; asmname '_p_month_length'; Are you calling a c routine(asmname '_p_.......' ) ? if so why if in the unit gpc-bp the function is programmed in pascal? In gpc-bp unit : function IsLeapYear (Year : Integer) : Boolean; begin IsLeapYear := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)) end; function MonthLength (Month, Year : Integer) : Integer; const MonthLengths : array [1 .. 12] of Integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); begin if (Month < 1) or (Month > 12) then MonthLength := 0 else MonthLength := MonthLengths [Month] + Ord ((Month = 2) and IsLeapYear (Year)) end; If I want to help improve on the date time routines, what would the strategy be to maintain portability? I think that getting time from the system should be kept in C. All other calculation on date and time should be done in pascal, in the gpc- or a new datetime-unit, what ever that fits best into maintaining the compiler. I would like to begin with reorganizing and implementing following: Is LeapYear (f) validate date (f) validate time (f) calculate day of year (f) calculate week of year (f) calculate day of week (f) calculate standard to business date (year, week, day) (f) calculate business to standard (f) validate business date (f) functions to add/subtract year(s)/month(s)/day(s)/hour(s)/minuet(s)/second(s) funtion to find difference between to timestamps When this is done I think of things like this: formating date/time to strings decode string to date/time several languages to day and month names calculate easter sunday (f) conversion between gregorian and julian dates and reverse use julian day number insted of unix_time to make calculations on dates the airport hours in clik/ticks (1/100) format ect. By the way in timestamp definition: Seconds is 0 .. 61 shoulden it be 0 .. 60 (as 0..59 gives a minuet) and 59 + 1 leap second gives 60? Hope you can help me begin the right place and that all you other comes with idea's of what to put in a date/time unit as time goes, klaus

2 1

assert
by Adam Naumowicz 12 Mar '01

12 Mar '01

Hello, After compiling GPC from the current sources I noticed, that there appears a linking problem when using system unit and my own assert procedure, which was not the case with some precompiled binary distribution I used before. I understand that the routine is added for delphi compatibility, so is there a simple solution to eliminate it when running in --borland-pascal mode or I just have to rename my own procedure since the overloading is not working properly? Adam Naumowicz -------------------------------------- WWW: http://math.uwb.edu.pl/~adamn/ --------------------------------------

2 1

Timestamp format and calculations?
by Pernille Bech & Klaus F. Østergaard 11 Mar '01

11 Mar '01

type TimeStamp = {@@packed} record DateValid, TimeValid : Boolean; Year : Integer; Month : 1 .. 12; Day : 1 .. 31; DayOfWeek : 0 .. 6; { 0 means Sunday } Hour : 0 .. 23; Minute : 0 .. 59; Second : 0 .. 61; { to allow for leap seconds } MicroSecond : 0 .. 999999 end; Is there a function/procedure that calculates the DateValid and TimeValid. Does it proof the DayOfWeek? What is leap seconds and how does one calculate with leap seconds? Does any one know of standard libs/rutines for doing calculations/manipulations with the timestamp, like calculating the day of the week or finding time between two timestamps, with corrections to the diffent length of months ect. Thanks, Klaus

3 5

Re: Has class become a reserved word?
by david＠tcs01.demon.co.uk 10 Mar '01

10 Mar '01

In message <4C6E5C32.20010308193203.FOO-4495.frank(a)g-n-u.de> Frank Heckenbach writes: > Peter Gerwinski wrote: Having now looked at an 'Object Pascal Language Guide' that came with a copy of Borland Delphi for Windows, I'm not convinced that class is being handled in the Delphi manner. This Guide says "Unlike other types, a class type can be declared only in a type declaration part in the outermost scope of a program or unit. Therefore, a class type can't be declared in a variable declaration part or within a procedure, function, or method block." So an example similar to the example I posted last night: program test_class(input,output); type tcomp=packed record name:string[80]; class:1..15; end; var comp:tcomp; begin end. should fail. However, I think the following example: program test_class2(input,output); procedure proc; type tcomp=packed record name:string[80]; class:1..15; end; var comp:tcomp; begin end; begin proc; end. should compile (and it doesn't). I think the "news" section of the first part of the manual should document the introduction of class as a conditionally reserved word. For the moment Russ Whitaker's suggestion of {$define class thing} as a quick and dirty patch looks the easiest way for me to proceed with this upgrade. > > > The question is whether a separate switch, specifically for > > enabling/disabling keywords, makes sense. > > > > [...] I mean something like `--disable-keyword="Class"'. > > Perhaps accept a list of keywords, e.g. > `--disable-keywords="class,object"'. I like that scheme, since, as I posted earlier, I have source code which is such a collection of different dialects within single files that the dialect switches are no use to me. -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

4 4

Re: Has class become a reserved word?
by david＠tcs01.demon.co.uk 10 Mar '01

10 Mar '01

In message <1F902E6F.20010309110245.FOO-6B42.frank(a)g-n-u.de> Frank Heckenbach writes: > David James wrote: > > > Having now looked at an 'Object Pascal Language Guide' that came with > > a copy of Borland Delphi for Windows, I'm not convinced that class is > > being handled in the Delphi manner. This Guide says "Unlike other > > types, a class type can be declared only in a type declaration part > > in the outermost scope of a program or unit. Therefore, a class type > > can't be declared in a variable declaration part or within a > > procedure, function, or method block." [snip] > > should compile (and it doesn't). > > I suppose that, while class declarations are allowed only globally > in the outermost scope, `class' is a reserved word throughout. > That's what the Chief said Delphi does, and what I know TP does with > `object'. I probably read too much into the section I quoted, what you say makes sense. > > We could try to make `class' conditionally reserved only in the > outermost scope, but I don't know how hard this would be (Peter?), But you probably shouldn't (for compatibility) if Delphi makes it reserved in places other than the outermost scope. > and it wouldn't solve the issue completely. So I think I'd prefer > `disable-keyword' as well... > > > I think the "news" section of the first part of the manual should > > document the introduction of class as a conditionally reserved word. > > I'm a little surprised. According my old copy of the 19990118 > sources, `class' was already conditionally reserved there. But > anywaym I will document it, Thank you. There's certainly been a change in behaviour between 19991030 and 20010306. > as well as `attribute' and `published' > which have become (conditional) keywords since that version AFAICT. > If there are more keywords I should mention, let me know. I've not come across any more, and I've now managed to compile our entire suite of programs under GPC 20010306. The next step is to see what happens when I try running them ... Have there been any changes in the packing of data in records or packed records between 19991030 and 20010306? Or any changes in the data transfer between variables and typed files (is that the correct name? I mean FILE OF Twhatever, where Twhatever is a TYPE defined in the source)? -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

4 4

Where to place units from the RTS
by david＠tcs01.demon.co.uk 09 Mar '01

09 Mar '01

I've never really been clear on where units from the RTS are intended to be placed, and I'm even more uncertain now that I'm migrating from GPC 19991030 to GPC 20010306 ... Suppose I have a program that 'uses gpc' (one of the units from the GPC RTS). Where should gpc.o and gpc*.gpi be (this is under Linux)? And should they have been placed there by the make install when I built the compiler? I'd like to be able to say gpc prog.p and have it automatically find the gpc unit at compile time and at link time. At the moment I've put gpc.o and gpc*.gpi in the same directory as the program, and am specifying gpc.o in the command line, but there must be a neater way of doing it ... If this information is in either the GPC Info files (gpc.info*) or the INSTALL file, I've either not found it or not understood it. -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

2 1

Re: Has class become a reserved word?
by david＠tcs01.demon.co.uk 09 Mar '01

09 Mar '01

In message <0873F763.20010309182845.FOO-3141.frank(a)g-n-u.de> Frank Heckenbach writes: [snip] > > > > The strict for keeping legacy apps running, the loose mode for > > interoperability. > > I don't see how this should solve Dave's problem. AFAIUH, he's using > "all" of GPC's features (i.e., not restricted to a particular > standard or dialect) and was only disturbed by a particular keyword. That's correct. This particular code started off in UCSD Pascal, was then migrated to Edinburgh Portable Compilers Extended Pascal (which complied with a subset of the *draft* Extended Pascal Standard, I think), and then migrated to GPC. In the migration to GPC (in late 1999) I found some Extended Pascal features we were using did not work reliably enough, and had to replace then by (probably) Borland/UCSD features. So it's a mismash ... [snip] > As I already said in other mails, I'd prefer some more options to > fine-tune the dialect (like --disable-keywords), so one doesn't have > to use a dialect option just because of one single issue (like in > this case). (Besides, those options are probably quite a bit easier > to implement than new dialect versions because they only affect > specific parts of the compiler.) As a user, that's my preference too. -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

1 0

Has class become a reserved word?
by david＠tcs01.demon.co.uk 09 Mar '01

09 Mar '01

I'm trying to upgrade from gpc version 19991030 to 20010306 both based on 2.95.2 19991024 (released). I've found the change in the positioning of 'asmname', and the removal of the 'char-escapes' directive. It looks as if 'class' has become a reserved word, which is unfortunate as it is a variable name our code uses frequently. First question: is class now reserved in some way? Second question: is there any easy way for me to disable this? Unfortunately I don't think specifying the Pascal dialect (using --extended-pascal, --borland-pascal, etc) will help me because the source code uses a mixture of dialects often in the same file. Is going throughthe source and changing all occurrences of class into something else going to be my easiest course of action? Third question: any thoughts on whether there any other syntax changes I might trip over? David -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

6 10

GNU Pascal Anfänger
by Dieter Schmitz 08 Mar '01

08 Mar '01

Hallo, Bin mir nicht sicher welche Sprache auf dieser Liste gesprochen, da die GNU Pascal Seite kommplett in Englisch ist und ich von der Liste noch keine Mails bekommen hab, ich versichs einfach mal mit Deutsch. Ich bin gerade dabei in GNU Pascal einzusteigen und hatte vorher auch nie mit einer Programmiersprache zu tun. Jetzt suche ich ein biÃchen Dokumentation daz, kennt jemand von euch gute deutsche Dokumnetion zu GNU Pascal? Ich hab schÃ¶n einige BÃ¼cher und Dokumentationen zu Pascal gesehn, kann ich diese auch zum lernen von GNU Pascal verwenden? GruÃ Dieter

5 7

Re: Timestamp format and calculations?
by Tom Verhoeff 08 Mar '01

08 Mar '01

Eike Lange wrote: >IMHO, you should write the unit. We could perhaps improve the unit by >conversions of date/time formats, used in special cases like >"flight-sheduling". AFAIK do the airports calculate an hour based on 100 >"Ticks?" (like swatch-thee-beep :). Maybe, there are some more date/time >calculations available for some special purpose. Here is a wonderful reference for all your calendrical calculations: http://www.amazon.com/exec/obidos/ISBN=0521777526/theinternationscA/ One reviewer noted, however, that this is An excellent book on the history and workings of various calendars. But don't use the source code! The licensing agreement is a trap. Use the code in GNU Emacs from the Free Software Foundation distributed under the General Public License. It does everything the authors code does (except for two obscure calendars) and it's free and always will be. Success, Tom Verhoeff

1 0

RE: Timestamp format and calculations?
by Klaus Friis Østergaard 08 Mar '01

08 Mar '01

I have been looking at the code my self and I think I can rewrite in Pascal, so it fits to the timestamp format. Should I write the code a stand a lone lib and sent it to Frank Heckenbach/Peter Gerwinski or just to the list and then the person that maintains the GPC unit would cut and past it into the unit? Kind Regards, Klaus F. Ãstergaard -----Original Message----- From: Pernille Bech & Klaus F. Ãstergaard [mailto:farremosen@mail.tele.dk] Sent: Monday, March 05, 2001 11:29 PM To: gpc(a)gnu.de Subject: Sv: Timestamp format and calculations? I have been looking for a lib with date calculations, and found this C/PERL lib. As I don't know anything about C and how you make C work together with GPC, could some of you please look at the lib to see if it is an easier way to get more functional lib than starting all over in pascal. http://www.engelschall.com/u/sb/download/ I think this lib contains some nice routines to convert from different date/time notations, also including different languages for text name on dayes, months, converting to and from normal date and business (year week day) format ect. Hope this can help improve GPC kind regards, Klaus F. Ãstergaard ----- Original Message ----- From: Frank Heckenbach <frank(a)g-n-u.de> To: <gpc(a)gnu.de> Sent: Saturday, March 03, 2001 9:00 AM Subject: Re: Timestamp format and calculations? > Eike Lange wrote: > > > On Mon, Feb 26, 2001 at 07:04:38AM +0100, Frank Heckenbach wrote: > > > A routine to check a given date (with or without checking DayOfWeek) > > > would be nice, and I might write it someday (too busy right now), > > > but if you have such a routine to contribute, let me know... > > > > We have such in our GLib-Unit, GDateValid(...). Just wait a few days :-) > > I looked at it. But it operates on a different type (PGDate). > Converting to and from it, and linking glib is probably much more > effort than writing the function in Pascal which shouldn't take more > than a few lines. (I don't mean to put down the project, but using a > set of date/time routines that operate on yet another type (as if > there weren't more than enough already) is probably not such a good > idea unless one is porting a C program that uses glib already...) > > BTW, when I looked at the unit, I saw > `function GPOINTER_TO_INT(x : Pointer) : Integer;' at the end. > That's very dangerous. If you have to cast between pointers and > integers at all for some reason, use PtrInt or PtrCard which is > guaranteed to have the same size. On some 64 bit platforms, Integer > is still 32 bit and Pointer is 64 bit, so this routine is a sure way > to produce invalid addresses. (I don't know if glib uses `int' where > it accepts pointers, but if it does, it's not 64 bit safe, > either...) > > Frank > > -- > Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/ > GPC To-Do list, latest features, fixed bugs: > http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html >

2 1

Re: Has class become a reserved word?
by david＠tcs01.demon.co.uk 08 Mar '01

08 Mar '01

In message <5C2561AB.20010308004600.FOO-6C90.frank(a)g-n-u.de> Frank Heckenbach writes: > David James wrote: > > > I'm trying to upgrade from gpc version 19991030 to 20010306 both > > based on 2.95.2 19991024 (released). > > > > It looks as if 'class' has become a reserved word, which is > > unfortunate as it is a variable name our code uses frequently. > > > > First question: is class now reserved in some way? > > Yes (Delphi compatibility). > [snip] > > I think it's only "conditionally reserved" (like many keywords from > various dialects are). E.g., `var Class: Integer;' seems to work. > But I'm not sure in which situations it works and in which it > doesn't (optimally, in all those situations where it can't be > confused with a class type declaration). Could you post some > problematic example code? Here's about the simplest case I can come up with quickly ... test5.p ======= program test_class; type tcomp=packed record name:string[80]; class:1..15; end; var comp:tcomp; begin end. I get: test5.p:5: parse error before `Class' test5.p:5: extra semicolon > > > Third question: any thoughts on whether there any other syntax changes > > I might trip over? > > Have you checked the `News' chapter of the manual, in particular the > first section and all items marked with `(@)' (as explained there)? Yes, I've scanned it rapidly - I didn't find any mention of 'class' there (which is why I asked if there was anything else I might trip over), but I could easily have missed it. -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

2 1

Is there a problem with FTP on agnes?
by david＠tcs01.demon.co.uk 06 Mar '01

06 Mar '01

Is there a problem with the FTP server on agnes.dida.physik.uni-essen.de (assuming I have the name right)? I've been unable to connect to it with FTP yeterday or today. -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

2 1

Re: Announcement preview
by Eike Lange 05 Mar '01

05 Mar '01

Hi Folks, all stuff related to GtkUnit can be found on agnes. ftp://agnes.dida.physik.uni-essen.de/pub/home/nicola/gtkunit/ Eike

1 0

posix calls like crypt
by jamie 04 Mar '01

04 Mar '01

Hey, Just wondering if GPC supports standard unix things like crypt() I've found GPC to be great for doing little utils under solaris, and the ability to use stuff like crypt() and chown() would be very nice. Thanks Jamie

2 1

units
by Peter Ulrich Kruppa 04 Mar '01

04 Mar '01

Hello, here a beginner's question: Let us say I wrote two units: unit1 unit2 and there is a procedure called HelloWorld in each of them. May I call them by unit1.HelloWorld; unit2.HelloWorld; or is that not supported by gpc? What should I do in the last case? Thanks for your answer. Uli. ======================================================================= www.pukruppa.de www.2000d.de =======================================================================

6 6

compiling gcc/gpc on AIX
by Christopher Ferrall 03 Mar '01

03 Mar '01

I have been attempting to compile gpc on AIX. I encounter this error: ld: 0711-781 ERROR: TOC overflow. TOC size: 67804 Maximum size: 65536 collect2: ld returned 12 exit status Apparently this problem is known, because gcc/p/Makefile includes: # f771 and cc1plus overflow the AIX TOC BOOT_LDFLAGS=-Wl,-bbigtoc and "-bbigtoc" is the ld option that relaxes the TOC limit. I can't find BOOT_LDFLAGS referenced anywhere below its definition. Could this be the problem? Thanks --Chris Ferrall P.S: Thank you, thank you, thank you for continuing to develop GNU Pascal. I had dreaded the thought of quitting Pascal because the demise of AIX Pascal was starting limit my work. It appears GPC might allow me to carry on - if I could get it installed.

3 2

Compiling Problem
by CloseBSD 02 Mar '01

02 Mar '01

Hello I am under Windows 98 and I have installed GPC at the same time that DJGPP with the install.exe tools from www.delorie.com I have changed djgpp.env as indicated in the GPC FAQ, but, when I try to compile I have got an error message : pc -o test test.pas the result is : D:/DJGPP/BIN/ld.exe: cannot open linker script file djgpp.djl: No such file or directory (ENOENT) I have checked and the ld.exe is in the bin directory What can i do to solve the problem ? Thanks.

1 0

RE: Does anyone have . . .
by Oldham, Adam 02 Mar '01

02 Mar '01

Well, the truth is, I need this source, but I am not going to use it. As you may have read in my previous posts, I am porting from an old compiler/platform. 1 1/2 years ago when this port was being looked at, my boss modified the compiler that was current then (the source that I am inquiring about). But now he can't remember what he changed in the compiler, I think he may have just commented some of the reserved words out so we won't have problems because some of our 1000s of variables are reserved words (xor is one example). Anyway, I need to take the source he changed and diff it with the original source so I can see what he changed and hopefully get going on this project again. Just thought I'd give a little explanation :) Adam -----Original Message----- From: Peter Gerwinski [mailto:peter@gerwinski.de] Sent: Thursday, March 01, 2001 5:03 PM To: 'gpc(a)gnu.de' Subject: Re: Does anyone have . . . Oldham, Adam wrote: > If anyone has the source for gpc verson 19990118 could you please send it to > me, I do not see it on the ftp server. It's in ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/beta/. But are you sure that you do not want the current source instead? If you are using gpc-19990118 now, it might be that the current GPC solves a big part of the problems you currently encounter. Hope this helps, Peter -- http://home.pages.de/~Peter.Gerwinski/ - G-N-U GmbH: http://www.g-n-u.de Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - gpc-20010228 GnuPG key fingerprint: 9E7C 0FC4 8A62 5536 1730 A932 9834 65DB 2143 9422 keys: http://www.gerwinski.de/pubkeys/ - AntiSpam: http://spam.abuse.net

1 0

Does anyone have . . .
by Oldham, Adam 01 Mar '01

01 Mar '01

If anyone has the source for gpc verson 19990118 could you please send it to me, I do not see it on the ftp server. Thanks, Adam ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

2 1

enumerated types problem/question
by Oldham, Adam 28 Feb '01

28 Feb '01

First, I want to apologize for bombarding the list with some bad questions. I have been thrown on this job porting Pascal code from one platform/compiler to Linux/GPC and I am having a tough time with it. I am not sure exactly if this is a problem, or a feature of GPC, or a code problem on my end. In a nutshell, I have a makefile that runs through and compiles (but not links) Pascal source into the object files. I have fixed many inconsistencies between the compilers so far.... but this one is a bit stranger. So far it compiles source files fine up to one where I get this error: phileif.pas:1102: incompatible type for argument 1 of `Getcurlangphrase' This function is being called as such: GetCurLangPhrase(Asterisk, 2, AddrType(@SearchStr)); The Prototype for the function is: PROCEDURE GetCurLangPhrase( Phrase_Id : eSysMessages; Buf_Size : INTEGER; Phrase_Buf : AddrType ); And lastly eSysMessages is an enumerated type containing Asterisk from the call. OK.... The Function is declared in a file called sysutl.pas, eSysMessages is in a global.pas, and the call of GetCurLangPhrase is in phileif.pas. Now, sysutl compiles to object code with no errors or warnings as does global. And phileif.pas USES both global and sysutl with the UNITs being defined correctly. This compiles with an old non-standard compiler, but doesn't with GPC and I can't figure it out for the life of me. The odd thing is, I can comment the line out, and this will happen for other function calls where a value in an enumerated type sits in a function call. Has anyone seen anything like this? Or does USES work differently with gpc than with other compilers? Thanks for any help! Adam Oldham Wishing he knew more about Pascal at this point. ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

3 2

File locking?
by Stephen Hurd 28 Feb '01

28 Feb '01

How can I lock a file in GPC? I would like to do something like: type message:array[1..80] of char;

2 1

GtkUnit-20010228 ANNOUNCEMENT
by Nicola Girardi 28 Feb '01

28 Feb '01

Hi, everybody! This is to announce the first public release of GtkUnit. (No real version number by now, just the timestamp "20010228".) GtkUnit is a set of units, test programs and programs from the Gtk+ tutorial written in GPC to allow Pascal programmers to use a comfortable interface to the Gtk+ library. GtkUnit should compile and work successfully on every system supported by GPC with a working Gtk+ library installation. We (Eike and I) invite anyone to code their own programs and help us find out bugs, often due to typos during the port process. In fact, no automagic translator was used. The main web site of the Gtk+ port project is reachable at <http://www.swlibero.org/~nikke/gtkunit/>. In the future, this will contain the updated information about the project as well as pointers to projects based on GtkUnit (in case there are any;-)). I won't be reachable for 4/5 days, because I will be on a school trip, so write to Eike Lange <eike.lange(a)uni-essen.de> instead. We hope we'll get bug reports (and fixes;-)), but also some thanks would be appreciated. :-PP Thanks to Frank Heckenbach for his advice! Have much fun with GtkUnit! -- Nicola Girardi <nikke(a)swlibero.org>

1 0

RE: Strings, Lengths, etc
by Oldham, Adam 26 Feb '01

26 Feb '01

So should I take this to mean, that in GPC, a pointer must point to the exact data type? Meaning a Pointer to a string40 cannot point to a string15 or point to any lesser string than a string40, basically? Adam -----Original Message----- From: Maurice Lombardi [mailto:Maurice.Lombardi@ujf-grenoble.fr] Sent: Monday, February 26, 2001 9:36 AM To: Oldham, Adam Cc: 'gpc(a)gnu.de' Subject: Re: Strings, Lengths, etc "Oldham, Adam" a Ã©crit : > > Hey, the code I am having a problem with is more like: > > TYPE > PString = STRING[40]; > pPString = ^PString; > > VAR > PPtr : pPString; > ConsVers : String(15); > BEGIN > PPtr := @ConsVers; > END. > > test.pas:1425: assignment from incompatible pointer type > > This code has worked with Turbo and SVS, but not GPC. But the behaviour of gpc is logical in this case, TP and SVS are not. -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 51 45 44 mailto:Maurice.Lombardi@ujf-grenoble.fr

2 1

RE: Strings, Lengths, etc
by Oldham, Adam 26 Feb '01

26 Feb '01

Hey, the code I am having a problem with is more like: TYPE PString = STRING[40]; pPString = ^PString; VAR PPtr : pPString; ConsVers : String(15); BEGIN PPtr := @ConsVers; END. test.pas:1425: assignment from incompatible pointer type This code has worked with Turbo and SVS, but not GPC. Thanks, Adam -----Original Message----- From: Frank Heckenbach [mailto:frank@g-n-u.de] Sent: Friday, February 23, 2001 8:51 PM To: gpc(a)gnu.de Subject: Re: Strings, Lengths, etc Oldham, Adam wrote: > Also, if I have a String[15] and String[20] and I want to assign a variable > with the value in string15, is there a way to get the compiler to not > complain that the types are different? What do you mean? Assigning between strings of different capacity works without any warning or error: program Foo; var Foo: String (15); Bar: String (20); begin Foo := Bar; Bar := Foo end. Frank -- Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/ GPC To-Do list, latest features, fixed bugs: http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html

3 2

Gtk+-Port, 2-Byte Character, Offset
by Eike Lange 25 Feb '01

25 Feb '01

Hi! During our port of Gtk+, we found an 2-Byte-Character-Type (GdkWChar, just an Integer) and strings, based on them. Is there any support for these 2-byte characters in GPC? Does anyone have an idea how to port this macro to GPC? #define offsetof(TYPE, MEMBER) ((size_t) &((TYPE *)0)->MEMBER) It just returns an integer with the offset of a member of a structure. Example (in Pascal): --------- Type foo = Record x, y, z : Integer; End; Var result:Integer; Begin result := offsetof(foo, x); (* Result is 0 *) result := offsetof(foo, y); (* Result is 4 *) result := offsetof(foo, z) (* Result is 8 *) End. --------------- I really don't know how to implement offsetof, because its based on a type-declaration, not an instance of foo. Eike

3 2

Strings, Lengths, etc
by Oldham, Adam 24 Feb '01

24 Feb '01

Again, Porting from another version of ancient proprietary Pascal. In GPC, apparently strings run like this: 4 byte Capacity, 4 byte Length, then the string Data. In my old compiler strings stored the length and only the length as a CHR(len) up to a length of 255. Where we could write statements like: string[0] := CHR(length); Is there a way to allow this in GPC, if not is it being planned or could someone point me in the direction to add a compiler flag to switch between the two? Also, if I have a String[15] and String[20] and I want to assign a variable with the value in string15, is there a way to get the compiler to not complain that the types are different? Thanks, Adam Oldham ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

3 2

Schemata
by Sven Sahle 22 Feb '01

22 Feb '01

Hello, while working with schemata in gpc I encountered a problem: In the following program it seems the "array of vektor" a^ is created with the correct size but the components of the array do not know about their own size. I do not know if this is the expected behaviour. May be the compiler should either not allow this construct or otherwise initialize the array. ********************************************************************************* TYPE vektor(n: Integer)=array[0..n-1]of double; vektorarray(n: Integer)=array[1..100]of vektor(n); VAR a: ^vektorarray; BEGIN new(a, 3); WriteLn(a^.n); { gives 3 } WriteLn(a^[10].n); { gives 0, should it be 3 ? } WriteLn(Sizeof(a^) ); {Writeln(Sizeof(a^[10]) );} {would result in compiler error " `SizeOf' applied to an undiscriminated schema " } END. ********************************************************************************** The output is: 3 0 2804 I am using gpc version 19991030, based on 2.95.2 19991024 (release) Sven -- Z * Sven Sahle (tel ++49 721 8100 1002, fax ++49 721 8100 1139) K * Zentrum fuer Kunst und Medientechnologie M * Lorenzstr. 19, D-76135 Karlsruhe, Germany

5 5

(Fwd) Re: Interrupt.
by Marco van de Voort 22 Feb '01

22 Feb '01

Again forgot to CC :-) ------ Forwarded message follows ------- From: Marco van de Voort <marcov(a)stack.nl> To: Opie Pecheux <abcp(a)multimania.com> Subject: Re: Interrupt. Date sent: Thu, 22 Feb 2001 11:43:54 +0100 > I want to know if somewerre, ther is a description of how to write > interrup procedures (like the interrupt in BP). > Like an interrupt is call by an 16 bits adress, I ask me how it is > possible. Via the Go32 (v2) dos extender, using functions like get_rm_callback, but since this is go32v2 specific, I don't know in which unit GPC puts this. ------- End of forwarded message ------- Marco van de Voort (MarcoV(a)Stack.nl or marco(a)freepascal.org)

1 0

bug in type casting?
by bpn 13 Feb '01

13 Feb '01

Hi all IÂ´m using gpc as a cross compiler (from sparc to ppc) and I have many old files from an irix/mips pascal compiler and in one file I got some problem. It seemes that the new gpc (20010201) does not manage to handle a calculation in a type casting statement. The code doesnÂ´t get through the compiler. Example: Program bug; Var m:real; a:integer; begin m :=10.0; a := integer(m*1000); (* line 7 *) writeln; end. ->gpc -c bug.p bug.p: In main program: bug.p:7: warning: cast to type of different size bug.p:7: reference expected, value given -> /BjÃ¶rn Persson

2 1

install gpc on AIX 4.3.3
by Paul Tedaldi 10 Feb '01

10 Feb '01

Hi, installation of gpc-20010111 on AIX 4.3.3 had the following problems: - while linking gpc1 the TOC overflows: ld: d: 0711-781 ERROR: TOC overflow. TOC size: 67732 Maximum size: 65536 The problem can be circumvented by adding the "-Wl,'-bbigtoc'" flag to LDFLAG (assuming gcc is used to call ld, for xlc it's just "-bbigtoc") It strikes me as odd that all other gcc compilers (gcc, g++, f77, objective c and java do not overflow the TOC during install. - while compiling the RTS with xgpc, rts/internal.pas produces invalid assembler code. rts/internal.pas contains procedure RunFinalizers (var AtExitProcs : PProcList); asmname 'gpc$runfinaliz ers'; The AIX assembler does not allow "$" in symbols ! After changing "gpc$runfinalizers" to "_p_runfinalizers" the RTS could be built. Of course the magic name is now destroyed. Is it possible to fix the above problems in the distribution so that GPC can be installed on AIX in a standard manner ? Kind Regards Paul -- ======================================================================== Paul Tedaldi | Zentrum Informatikdienste | Email: Paul.Tedaldi(a)zi.unizh.ch Universitaet Zuerich | Winterthurerstr. 190 | Tel: +41 (0)1 635 4523 CH-8057 Zuerich | Fax: +41 (0)1 635 4505 Switzerland | ========================================================================

2 1

RE: Syntax Question
by Oldham, Adam 10 Feb '01

10 Feb '01

OK, maybe I need a little more detail. I have some C functions called from Pascal that write to a pointer to packed array of chars. Alot of what they write is 0x80 0x3a, etc. When it comes back into pascal, I would like to run the result through an IF statement to check the hex value in the character. With the old compiler we were allowed to do this: IF (character = '/8a') THEN blah; But I can't seem to get anythign like this to work here, and I think its because it is actually comparing a hex value to / (at least that is what I can gather from all the assignments I made from my early post and how Pascal stored those values). Any suggestions? Thanks, Adam -----Original Message----- From: Steve Loft [mailto:steve@nybbles.co.uk] Sent: Friday, February 09, 2001 11:21 AM To: gpc(a)gnu.de Subject: Re: Syntax Question On Friday 09 February 2001 3:54 pm, Oldham, Adam wrote: > Hello, > I'm currently switching compilers from an old proprietary Pascal > compiler to GPC. I've got a problem assigning a hex value to a > character. This is easy in c, you can say char a ='0xa0'; and be I think what you want is CHR(16#a0). -- Steve

3 2

Syntax Question
by Oldham, Adam 09 Feb '01

09 Feb '01

Hello, I'm currently switching compilers from an old proprietary Pascal compiler to GPC. I've got a problem assigning a hex value to a character. This is easy in c, you can say char a ='0xa0'; and be done with it. The syntax for our old compiler was character := '/a0'; I've tried many things trying to assign a hex value to a character but have come up only the hex value of the first charcter: character := '/a0' results in 0x2f which is just the / character := '\a0' results in 0x5c which is the \ character := '16#a0' results in 0x31 which is the 1 character := '$82' results in 0x24, which is the $ I've tried all without the single quotes and get sytnax errors upon compile. Any suggestions? Thanks, Adam Oldham ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

3 2

Bug in StrReadWord?
by Steve Loft 07 Feb '01

07 Feb '01

I'm using StrReadWord to parse a line of input to my program. If the last 'word' is a single character, then it doesn't get read. Is this behaviour intentional? Example: program test(output); uses StringUtils; var src : string ="abc xy"; dest : string; i : integer; begin i := 1; while StrReadWord(src,i,dest) do writeln(i,dest:10) end. This produces, as I expected: 4 abc 7 xy But if the last character of the string is removed: src : string ="abc x"; the output becomes: 4 abc What happened to the 'x'? I'm using gpc 20010115. -- Steve

2 2

A little new to the language
by Siberdemon＠aol.com 07 Feb '01

07 Feb '01

Well, anybody that can help, here's a newbie question about GPC and regular Pascal... I know what ordinal types are, but is it possible to use a case statement with a string type, and how... I need this for a M.U.D. I'm building in Pascal, it would really help... If you wish to help me, please email me, because I'm not a member of the list... Justin (siberdemon(a)aol.com) RPG Developer (on Unix ofcourse)

3 4

Re: Using arrays in macros
by Frank Heckenbach 06 Feb '01

06 Feb '01

Eike Lange wrote (to me personally, forwarded here with his permission): > On Tue, Feb 06, 2001 at 12:36:03AM +0100, Frank Heckenbach wrote: > > Should this be changed? Using parentheses, as Eike suggested, works, > > but perhaps it would be more convenient if the above works. OTOH, it > > would (slightly) reduce the functionality of macros since it would > > then not be possible to use unbalanced brackets in arguments (though > > this is probably not useful unless in very strange situations)... > > Is there a standard available for writing macros with Pascal? Nope. None of the various standards and de-facto standard specify macros at all, AFAIK, and I don't even know if any other Pascal compiler supports them. GPC's macros are basically taken from GCC, somewhat Pascal-ized (#define -> {$define}, support for case-insensitive macros, etc.) > If not, I would suggest to make this work with > multidimensional arrays. That was my first thought too (even though, as you have shown, it works using parantheses). OTOH, as Russ noted, "changing the rules might cause more problems then it solves". I'm not sure what to do... > I never thought that unbalanced expressions work with macros and IMO > they decrease readability. Definitely. (I personally think macros is general decrease readablility, but even more so for macros that don't contain complete syntactical items.) Frank -- Frank Heckenbach, frank(a)g-n-u.de http://fjf.gnu.de/ PGP and GPG keys: http://fjf.gnu.de/plan

1 0

Using arrays in macros
by Steve Loft 06 Feb '01

06 Feb '01

I want to use an element of a multi-dimensional array as a parameter to a macro, e.g.: ------------------------------------------------ program test(output); {$define THING(a,b) writeln(a*b)} var num : array [0..1,0..1] of integer = ((1,2), (3,4)); begin THING(num[1,1], 6) end. ------------------------------------------------ But this gives me an error: test.pas:8: macro `THING' used with too many (3) args Presumably it's taking the first comma as an argument delimiter. Can I get around this? -- Steve

4 4

what is the status?
by bpn 05 Feb '01

05 Feb '01

hi all I am wondering, what is the status of the gpc? How much time is it to the next stable release? /BjÃ¶rn Persson

1 0

Pascal GNU Compiler for Solaris 8 ?
by br＠is.informatik.uni-kiel.de 30 Jan '01

30 Jan '01

Hello, I'm not used to Sun Solaris but I need to work with an Ultra10 for my new projects. Can somebody give me a short reply about: Does the Pascal GNU Compiler work with Solaris 8 ? I saw some 'extra binaries' on a polish website and all other releases only for Solaris 2.x or 7. Thanks Bernd -- Bernd Rehling Institut fuer Informatik Christian-Albrechts-Universitaet Kiel

3 2

[Fwd: Re: memset]
by George Shapovalov 29 Jan '01

29 Jan '01

In Borland Pascal you would use fillchar(var x;value:word [size:word]); so the invoking would look exactly like your example: fillchar(x,0,sizeOf(x)); However with BP you can do it to the <64K in size variables (as this is a maximal size for "regular" variable in BP). Does this work for gpc as well? George Steve Loft wrote: > Is there a fast way to zero a large array, e.g. an equivalent to the > following C fragment? > > int x[100,100]; > memset(x, 0, sizeof(x)); > > -- > Steve

3 4

memset
by Steve Loft 28 Jan '01

28 Jan '01

Is there a fast way to zero a large array, e.g. an equivalent to the following C fragment? int x[100,100]; memset(x, 0, sizeof(x)); -- Steve

2 1

Stack problems?
by Steve Loft 26 Jan '01

26 Jan '01

I'm using gpc 20010115 on a Linux system. I'm having problems with a program I've written which has recursive function calls, which I thought may be down to blowing the stack. If I run the program in gdb, when it crashes I can't get it to display a backtrace: Program received signal SIGSEGV, Segmentation fault. 0x240804e7 in ?? () (gdb) bt #0 0x240804e7 in ?? () Cannot access memory at address 0xbabffff5 So I compiled it with --stack-checking, and now it crashes much earlier, with a segmentation fault on a 'var' statement. It's at about 20 levels of recursion, and the function only uses three of four integers of local variables; uname -s tells me I have 8196k of stack, so I'm puzzled as to why I'm blowing the stack, if indeed I am. Is a SIGSEGV what you would expect to see as a result of turning on stack checking? Are there any known problems in gpc in this area? Any suggestions as to what I can do to investigate further? Steve

4 6

documents on Compiling ASM
by Anuradha 25 Jan '01

25 Jan '01

Hello , I need a good manual to help me convert the Intel syntax into AT&T syntax. I had a look at : ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/contrib/gpcasm.zip Though it is mentioned that i can have more information in http://www.dcs.warwick.ac.uk/~jules/nasm1.html and http://www.tu-chemnitz.de/~rho/rhide.html I am not able to get the right link because there are some missing letters in the link. can you kindly let me know the complete site? Thank you Regards, Anu

2 1

AT&T <-> Intel assembler converter and indentation program
by Thorsten Hindermann 21 Jan '01

21 Jan '01

Hello together! I have a 2 questions: 1. In the GPC ToDo-list is a point for an AT&T <-> Intel assembler converter. Eike Lange and I discusses to implement this feature in pindent (see anouncement earlier this month). But we are both not very good assembler programmers. The questions: is there is anybody (with very good experience in both assembler languages) who want help us to implement this feature in pindent so please feel free to contribute to this little project. We only talk about inline-assembler and pindent doesn't eat .s-files. Contact us in the GPC- or pindent- (pindent(a)mond.dida.physik.uni-essen.de) mailing-list. Thanx 2. Today I've look in the GPC ToDo-list and I see the indentation program request. If there is any reason to have this point in the list now? Because pindent is in its first version availible (http://mond.dida.physik.uni-essen.de/~pindent/) and Eike and I working on the next version. Thorsten

3 3

Re: verbose output of pcamac.pas
by Frank Heckenbach 17 Jan '01

17 Jan '01

Kocherlakota Harikrishna wrote: > Our main program was actually calling many units and we were getting a lot of errors .So we > thought we will concentrate on pcamac.pas alone and make a .o file by compiling it. As I said, use `-c' then. > Now we have written a simple program to use a procedure from pcamac. > Still we get the similar errors.We have attachedÂ the verbose ouput of it. OK, that's already fewer errors... :-) About the undefined reference to `toCall', `Get_loadpath' and `Moved'. These seem to be identifiers from your code, so I can only guess why they are missing: - You declared them `external' and didn't reference the unit containing them. - They were written in C or assembler and you didn't tell the compiler about it (you can use `{$L foo.c}' or `{$L foo.s}' or specify the file on the command line. - They were written in C or assembler or declared with an explicit `asmname' directive, and upper and lower case letters were mixed up. (Note, while Pascal identifiers are case-insensitive, assembler symbols, including `asmname's, and C identifiers, are case-sensitive.) If this doesn't help you find the problem, I can only help you further if you show me the places in the code where they are defined and used. About the multiple definition of `_p_strrscan'. `_p_strrscan' is the assembler symbol for the RTS routine CStringLastChPos. Do you happen to declare a routine of that name in yuor code? Though it's not reserved, that's currently a known bug that GPC will use the same assembler symbol then, resulting in such a problem. Please use another identifier then. If that's not the case, I don't know what's the problem, without seeing the code. You could try temporarily removing parts of pcamac.pas to find out what's causing the problem... Frank -- Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/ GPC To-Do list, latest features, fixed bugs: http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html

1 0

Re: verbose output of pcamac.pas
by Frank Heckenbach 16 Jan '01

16 Jan '01

Kocherlakota Harikrishna wrote: > I am sorry for the inconvenience.Â Herewith we are sending the verbose output again. > > Yes.You are right. pcamac.pas is the main unit and pekxac.pas and pguzaa.pas are called > within it. Oh, pcamac.pas is a unit? I thought it was the main program. To compile a unit, you can use the `-c' option. But normally you don't need to do that at all. Just compile the main program with `--automake', and all units will be compiled when necessary. (Of course, you don't get an executable when compiling just a unit, you need a main program for that -- just like in BP and probably every other compiler.) Frank -- Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/ GPC To-Do list, latest features, fixed bugs: http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html

1 0

test -e (used in GPC's config-lang.in) isn't portable
by Alexandre Oliva 15 Jan '01

15 Jan '01

This patch fixes it. -- Alexandre Oliva Enjoy Guarana', see http://www.ic.unicamp.br/~oliva/ Red Hat GCC Developer aoliva(a){cygnus.com, redhat.com} CS PhD student at IC-Unicamp oliva(a){lsd.ic.unicamp.br, gnu.org} Free Software Evangelist *Please* write to mailing lists, not to me

2 6

None
by John Ollason 13 Jan '01

13 Jan '01

Greetings, I think I might have discovered a bug in gpc. A test program follows. John Ollason ------------------- { The following program illustrates a bug discovered in gpc. The program functions correctly with the set 0..31, but with the set 0..32 or greater the second call to card returns zero, and the contents of the set disappear after the first call. The following is the output from gpc --verbose Using builtin specs. gpc version 19990118, based on gcc-2.8.1 ld -m elf_i386 -dynamic-linker /lib/ld-linux.so.2 /usr/lib/crt1.o /usr/lib/crti.o /usr/lib/gcc-lib/i386-redhat-linux/2.8.1/crtbegin.o -L/usr/lib/gcc-lib/i386-redhat-linux/2.8.1 -L/usr/i386-redhat-linux/lib -lgpc -lm -lgcc -lc -lgcc /usr/lib/gcc-lib/i386-redhat-linux/2.8.1/crtend.o /usr/lib/crtn.o /usr/lib/crt1.o(.text+0x18): undefined reference to `main' } program settest(input,output); var i:integer; a: array[1..1] of record stuff:set of 0..32; end; begin with a[1] do begin stuff:=[]; stuff:=stuff+[2]; stuff:=stuff+[3]; writeln(card(stuff)); for i in stuff do writeln(i); writeln(card(stuff)); for i in stuff do writeln(i); end end.

2 2

compilation problems
by Kocherlakota Harikrishna 13 Jan '01

13 Jan '01

Hello, We have some problems in compilation of BP sources with GPC on Red Hat Linux. The following peice of code in our source is giving copilation problem procvar = procedure; const nilproc : procvar = nil; BP supports assinging pointer values to procedure types and we find that GPc doesnot support it. Expecting your advice on solving the above. regards hari

2 5

GPC bug
by Nicola Girardi 13 Jan '01

13 Jan '01

Hi GPC'ers! >From time to time I get a coredump, and sometimes I manage to find the reason. : nikke@RubberBone(tty4):/tmp$ cat bug.pas : program Bug; : type : Pa = ^a; : begin : end. : nikke@RubberBone(tty4):/tmp$ gpc bug.pas : gpc: Internal compiler error: program gpc1 got fatal signal 11 GPC should warn about the dependency (`a' isn't defined anywhere) but shouldn't coredump... (Sorry if the bug was known.) -- Nicola Girardi <nikke(a)swlibero.org>

2 1

Re: Gtk
by Eike Lange 10 Jan '01

10 Jan '01

Hi Tom! I'll forward this to the list, because it might be interesting to others as well. On Tue, Jan 09, 2001 at 09:48:41PM +0100, Tom Verhoeff wrote: > I read about your effort to port Gtk to GPC on the mailing list. > The URLs given there don't seem to work, at least not for me. E.g.: > ftp://agnes.dida.physik.uni-essen.de/~lange/gtkunit-20001119.tar.gz > Can you tell me what the current status of your porting effort is? We (Nicola and I) are working on it. I removed gtkunit-20001119.tar.gz because this unit is outdated and we have nothing new as stable as the old unit. I hope, we finish the unit at the end of january 2001 :-)) We will give an announcement to the list, where to download. Eike

1 0

[thorsten.hindermann@arcormail.de: pindent (the pascal source-code indentation program) is now available]
by Peter Gerwinski 10 Jan '01

10 Jan '01

(Forwarded from the discussion list to the announce list) ----- Forwarded message from Thorsten Hindermann <thorsten.hindermann(a)arcormail.de> ----- Date: Tue, 09 Jan 2001 23:34:28 +0100 From: Thorsten Hindermann <thorsten.hindermann(a)arcormail.de> To: GPC Mailing-List <gpc(a)gnu.de> Subject: pindent (the pascal source-code indentation program) is now available Hello GPC-community! pindent (the pascal source-code indentation program) is now available. You can download the complete source from http://mond.dida.physik.uni-essen.de/~pindent/ . The mailing list address (e.g. for comments or bug-reports ... ) is pindent(a)mond.dida.physik.uni-essen.de . In the next days (I hope so) pindent runs as a GNU program and the copyright is transfered to the FSF. pindent is now released with version V0.1.3 (20010108). We (Eike Lange and I) are heavy working on it because this version doesn't support all features (but the most of them) and the program isn't 100% bug free. I'm maintain this little project and Eike Lange is the co-maintainer. Please feel free to test the program and write us your suggestions. Thorsten Hindermann ----- End forwarded message -----

1 0

pindent (the pascal source-code indentation program) is now available
by Thorsten Hindermann 09 Jan '01

09 Jan '01

Hello GPC-community! pindent (the pascal source-code indentation program) is now available. You can download the complete source from http://mond.dida.physik.uni-essen.de/~pindent/ . The mailing list address (e.g. for comments or bug-reports ... ) is pindent(a)mond.dida.physik.uni-essen.de . In the next days (I hope so) pindent runs as a GNU program and the copyright is transfered to the FSF. pindent is now released with version V0.1.3 (20010108). We (Eike Lange and I) are heavy working on it because this version doesn't support all features (but the most of them) and the program isn't 100% bug free. I'm maintain this little project and Eike Lange is the co-maintainer. Please feel free to test the program and write us your suggestions. Thorsten Hindermann

1 0

bug in gpc-20010101
by Maurice Lombardi 08 Jan '01

08 Jan '01

Hello I have compiled this snapshot with djgpp (W98 dos box). Seems successfull but the crtdemo.pas, as well as other programs of mine which use crt, fail. To check that nothing has gone wrong with my djgpp setup I have then compiled some previous snapshots. Everything seems correct up to 20001230 (which succeeds with crtdemo and the whole test suite). 20001231 fails to compile with a message: make.exe[2]: *** No rule to make target `/djgpp/gnu/gcc-2.952/gcc/p/../ggc-callbacks.c', needed by `ggc-callbacks.o'. Stop. looks like a mistyping... It seems to have been corrected in 20010101 which compiles OK, but something else is hidden. Since djgpp and linux you mainly use are different with respect to crt and curses it may have been unnoticed in your setup. Hope this helps Maurice -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 51 45 44 mailto:Maurice.Lombardi@ujf-grenoble.fr

4 6

Re: Conditional expressions
by Tom Verhoeff 05 Jan '01

05 Jan '01

Frank wrote: >Tom Verhoeff wrote: > >> >Peter and I are discussing the possibility of including some kind of >> >conditional operator, like `foo ? bar : baz' in C. Since GPC uses >> >GCC's backend, this should be easy to do semantically, the main >> >question is about syntax: >> >> I would like to propose the following syntax: >> >> <expr> if <cond> else <expr> >> >> This is concise and nice (you can view "if <cond> else" as infix operator). >> Disadvantage: it requires priorities/parentheses for proper binding, >> it uses the if/else, which also appears in the conditional statement >> (this is also an advantage, since it does not require new reserved >> words/symbols). > >This doesn't seem to cause parsing conflicts, AFAICS. However, it's >quite different from `if' statements (and therefore maybe >confusing), so I'd tend to favour the if-then-else version... Because it is quite different, it is LESS confusing. If it would be very similar to the way the conditional statement is expressed, then it could be confusing, because when you quickly read some code you wouldn't immediately see whether you are dealing with a large conditional expression or just a conditional statement. On the other hand, if you would only know that GPC supports conditional expressions, but you would not know the exact syntax, then most people would simply try the if-then-else version and not my proposed if-else. Therefore, the if-then-else seems preferable. Tom

3 2

ARGV
by Oldham, Adam 04 Jan '01

04 Jan '01

Hello All, The Support page says you can risk support here so I will try. I am trying to port from an old SVS Pascal compiler under SCO Unix to Linux using GPC, and having a few problems and very little resources to find answers. In the main part of the program I am using this: InputDir := ARGV[2]^; when compiled using so special compiler parameters, I get this: editpars.pas:400: undeclared identifier `Argv' (first use this function) editpars.pas:400: (Each undeclared identifier is reported only once editpars.pas:400: for each function it appears in.) editpars.pas:400: subscripted object is not an array or string I am stumped and can't find any GPC references to using ARGV. Any ideas? Adam ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

2 1

install GPC20001218 on rs6000 with AIX 4.3.2
by nicolas bley 04 Jan '01

04 Jan '01

We are currently using the GPC 2.0, but this version does not provide all the functions we need, especially concerning file handle. To solve these problems, we want to install a more recent GPC version on our RS6000. We intend to use: gcc : 2.95.2 gpc : 20001218 AIX : 4.3.2.0 We run the compile process as following: > ./configure --enable-languages=pascal > make LANGUAGES=pascal We get the following error: make[2]: Entering directory `/usr/local/src/gcc-2.95.2/gcc/p' rm -f ../gpc1 gcc -DIN_GCC -DGPC -g -O2 -DHAIFA `case "gcc" in *gcc*) echo -Wall;; esac` -o ../gpc1 \ `cat stamp-gbe` ../c-aux-info.o ../c-iterate.o ../c-pragma.o gpc-common.o gpc-convert.o gpc-decl.o lang.o gpc-lex.o gpc-typeck.o module.o gpi-hash.o circle-buf.o memfiles.o objects.o parse.o rts.o types.o util.o setop.o `if [ xobstack.o != x ]; then echo ../obstack.o; else true; fi` `case "gcc" in "cc") if [ xalloca.o != x ]; then echo ../alloca.o; else true; fi ;; esac` `if [ x != x ]; then echo ../; else true; fi` -lld ../../libiberty/libiberty.a collect2: ld returned 12 exit status ld : 0711-781 ERROR : TOC capacity overflow. TOC size : 69120. Maximum size : 65536 make[2]: *** [../gpc1] Error 1 make[2]: Leaving directory `/usr/local/src/gcc-2.95.2/gcc/p' make[1]: *** [gpc1] Error 2 make[1]: Leaving directory `/usr/local/src/gcc-2.95.2/gcc' make: *** [all-gcc] Error 2 Note : The LD message was written in french and we translated it in english. We found a way to correct it by modifying the GPC makefile line ALL_WARNINGS = `case "$(CC)" in *gcc*) echo -Wall ;; esac` in ALL_WARNINGS = `case "$(CC)" in *gcc*) echo -Wall -Wl,-bbigtoc;; esac` Is that correction necessary or can we solve the problem another way during the configuration stage? Note : We verified that the systems patches IX75823, IX87327 and IX87913 are installed and used on our AIX platform. After the correction, we still get a warning. The message is: ld : 0711-783 WARNING : TOC capacity overflow. Size : 69120. Maximum size : 65536 Creation of correcting instructions in process for each symbol capacity overflow make[2]: Leaving directory `/usr/local/src/gcc-2.95.2/gcc/p' Nevertheless compilation process goes on, up to other error: make[2]: Leaving directory `/usr/local/src/gcc-2.95.2/gcc' touch stmp-multilib gcc -DIN_GCC -DHAIFA -g -O2 -DHAVE_CONFIG_H -I. -I. -I./config -I./../include \ -DTARGET_MACHINE=\"powerpc-ibm-aix4.3.2.0\" -DUSE_COLLECT2 \ -c `echo ./collect2.c | sed 's,^\./,,'` In file included from collect2.c:98: /usr/include/ldfcn.h:47: #error -qlonglong must be used make[1]: *** [collect2.o] Error 1 make[1]: Leaving directory `/usr/local/src/gcc-2.95.2/gcc' make: *** [all-gcc] Error 2 Did someone already install that GPC version or any GPC version upper than 2.0 on AIX 4.3.2? What can we do to get a succesfull installation on this OS? Thank you for your help.

2 1

Conditional expressions
by Frank Heckenbach 03 Jan '01

03 Jan '01

Hi! First of all: Happy New Millennium! :-) Peter and I are discussing the possibility of including some kind of conditional operator, like `foo ? bar : baz' in C. Since GPC uses GCC's backend, this should be easy to do semantically, the main question is about syntax: - ?: like in C -- the symbols wouldn't conflict AFAICS, but it seems to me quite un-Pascalish... - if foo then bar else baz (i.e., the same syntax as conditional statements, just with expressions, e.g. `x := if cond then 42 else 17'). Possible problems: * dangling else (probably not since each conditional operator will be required to have an else clause) * conflicts with `if' statements when nested into them (maybe not either for the same reason) * issues with precedence (compared to other operators) and associativity (i.e., how nested conditional operators will be interpreted) -- C has the same issues and resolves them with some rules, but like all such issues, they can confuse programmers sometimes (think of precedence of `and' and `or')... - if foo then bar else baz endif (or `fi' instead of `endif') -- this would avoid all the problems and make the syntax somewhat clearer I think... - if foo then bar else baz end -- the same, but without introducing a new reserved word (of which there are already way too many), and `end' is unambiguous in this context AFAICS. - Peter seems to remember that other Pascal compilers and related languages have something like this. Does someone know anything about these? Maybe we don't have to reinvent the wheel... - Other suggestions? Frank -- Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/ GPC To-Do list, latest features, fixed bugs: http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html

5 7

Re: Conditional expressions
by j.logsdon＠lancaster.ac.uk 02 Jan '01

02 Jan '01

On Tue, 2 Jan 2001, Clive Rodgers wrote: > Maurice Lombardi a ecrit : > > Indeed, it was already in Algol60, the first ancestor of Pascal. > > The syntax was as above > > > > x := if cond then 42 else 17 > > > > and I had some trouble in beginning with Pascal to give away this very > > natural syntax ! > > > > No dangling else, use of () to be sure in case of doubt about precedences > > would be the simplest (but I have an historical bias !) > > > > Hope this helps > > > > Maurice > > > > As a native Algol60 speaker, I agree - this was one of the features I > too missed when Algol60 faded away. Syntax is close to natural > language (easy to teach, easy to learn, and a clean syntax - that is > the fundamental principle of Pascal). The rules of precedence for > Algol60 are basically evaluate from left to right unless specific > rules apply - isn't that already the case for Pascal? I don't think > we need anything else. The endif (or end) construction is un-Pascalish > - use parentheses if required, in the same way as begin/end is used > when needed for conditional statements. > As another ex-Algol60 (my first language on an Elliot 503, just to show my age!) this is quite natural but I am not sure that there is that much to recommend it since it would make the program much less portable to other Pascal environments. I think the gpc team should be careful not to go too far down a divergent route. After all, open standards are there for guidance and to avoid some of the more destructive activities of certain Large Companies and it would be a little hypocritical of open source advocates to follow this bad example. However, why restrict it to the RHS? ISTR that in Algol68 (or was it SCL, the ICL VME operating system language) you could say: if cond1 then a else b := if cond2 then expr1 else expr2 or something like that, which could lead for example to (I think in SCL) the following curious-looking statement (until you worked out what it was doing): if if then then else else := if not then while else for since there were no reserved words (the compiler being sufficiently clever to work out when to expect one!). Fun to read anyway! BTW while discussing other Algol/Pascal-like languages, does anyone know why in ADA95, there are no sets? This is a large omission I think. Happy New Millenium too to all of you - the numerate millenium. I noted from DW-TV the other day that there is one town in Germany that refused to celebrate last year and one country (Cuba) also. There is hope for us all! Best wishes John

2 1

unit crt
by robi＠free.fr 02 Jan '01

02 Jan '01

Hello, I see in /usr/lib/gcc-lib/i386-linux/2-95-2/units/ the unit crt.pas, but if I write: uses crt in my program I get the message: module/unit interface 'crt' could not be imported. I read the FAQ on the subject but I did not find the solution. Thanks in advance for eventual help. Gerard.

2 1

Re: Conditional expressions
by Tom Verhoeff 02 Jan '01

02 Jan '01

>Peter and I are discussing the possibility of including some kind of >conditional operator, like `foo ? bar : baz' in C. Since GPC uses >GCC's backend, this should be easy to do semantically, the main >question is about syntax: I would like to propose the following syntax: <expr> if <cond> else <expr> This is concise and nice (you can view "if <cond> else" as infix operator). Disadvantage: it requires priorities/parentheses for proper binding, it uses the if/else, which also appears in the conditional statement (this is also an advantage, since it does not require new reserved words/symbols). This syntax (not the sugar) is preferred by Tony (sir C.A.R.) Hoare in Unifying Theories of Programming C.A.R. Hoare and He Jifeng Prentice-Hall, 1998 Hoare uses sugar with a left-pointing open triangle instead of "if" and a right-pointing open triangle instead of else: ( Expr1 <| Cond |> Expr2 ) I do not think this is a very "urgent" extension (but it would have been nice if it had been taken up in some standard). Tom Verhoeff

1 0

printing tool
by Russ Whitaker 30 Dec '00

30 Dec '00

Hi Merry Xmas If you like to keep paper copies of your source files and would like to print on both sides of the paper you might like the attached source file. Also, it adds a margin for 3-hole punch. enjoy, Russ

2 3

Mery Chrismas
by jpc 23 Dec '00

23 Dec '00

Mery chrismas to all the Pascal programmers all around the world Jean-Philippe Combe (France)

1 0

Getting started ...
by j.logsdon＠lancaster.ac.uk 22 Dec '00

22 Dec '00

Hi This is always the most difficult part! I am porting a very old Pascal program written originally in Prospero Pro-Pascal and I want to use a (relatively) platform independent compiler. Hence gpc. So a few questions - I have already searched in the info pages (aka the 400+ page manual) and found the answers to some of my questions but: 1 A simple program like: program t(Input,Output); var s:string[20]; begin read(s); writeln(s); end. when compiled (and it works) still gives a message: /usr/local/lib/gcc-lib/i686-pc-linux-gnu/2.95.2/libgpc.a(randfile.o): In function `do_seek': /home/elug/pascal-wochenende-20000729/gcc-2.95.2/gcc/p/rts/randfile.c:327: the `llseek' function may be dangerous; use `lseek64' instead. I may be running this at the weekend (RH 6.2 but gpc --version gives 2.95.2 19991024 (release) rather than anything like 20000729) but is this possibly an installation problem? 2 Is there a way of taking the command line arguments into a program? eg for a program foo.pas that compiles to a.out, I want to access argument 1 as 'something' in: ./a.out something Is the whole command line available (like $0)? I saw the demo getopt but when I tried to compile this, I was told that it couldn't find GPC (from uses GPC). Does this mean that I haven't installed it properly? gpc is in the default place (/usr/local/bin/gpc etc) Hope my questions are clear TIA John

5 12

GLib-Unit
by Eike Lange 21 Dec '00

21 Dec '00

Hi! The GLib-Unit for Gnu-Pascal is available at ftp://agnes.dida.physik.uni-essen.de/~lange/ This unit provides: - singly and doubly linked lists, - hash-tables, - caches, - date/time - functions and much more. This unit is also basically needed to port gdk which is needed to port gtk :-) IMHO this unit is very useful for programmers, even without interest on the development of graphical user interfaces. Have fun with it. Eike

4 6

file descriptor problem
by nicolas bley 21 Dec '00

21 Dec '00

We currently face a problem porting pascal Oregon programs on GPC. These programs use files descriptors declared as global variables. These descriptors are declared in a module while they are used in another module. Trying to open one of these files in write mode (rewrite function), we get a strange error message: ?GPC runtime error: (gpc-rts) _p_initfdr() has not been called for file (#701) Does someone know how to manage file descriptors declared as global variables? (See included files for example). #ifndef VARIABLE #define VARIABLE module Variable interface; export Variable = ( GlobalFile,FileType ); type FileType = file of char; var GlobalFile : FileType; end. #endif #include "variable.ph" module Variable implementation; var GlobalFile : FileType; end. #include "variable.ph" program file_test; import variable; var Filename : string(20); procedure assign( var t : FileType; var name : string ); var b : Bindingtype; begin { assign } unbind( t ); b := binding( t ); b.name := name; bind( t, b ); b := binding( t ); end; { assign } begin Filename :='toto.txt'; assign(GlobalFile,Filename); rewrite(GlobalFile); end.

3 2

Internal compiler error
by Tom Verhoeff 17 Dec '00

17 Dec '00

I received the following error: gpc -Wall --executable-file-name --automake --unit-path=/home/wstomv/projects/yahtzee/units --unit-destination-path=/home/wstomv/projects/yahtzee/units testdriver.p testdriver.p: In function `Testgamestatistics': testdriver.p:39: Internal compiler error in `contains_file_p', at util.c:1542 Please submit a full bug report. See <URL:http://www.gnu.org/software/gcc/faq.html#bugreport> for instructions. make: *** [testdriver] Error 1 The URL refers to a page that has moved and is for gcc, not gpc. What is the thing to do? The program that causes this is not so small (thousands of lines), and I don't feel like locating the error unless it is really helpful. By the way, I use gpc version 20001122, based on 2.95.2 19991024 (release) Greetings, Tom

3 2

Re: Internal compiler error (answer?)
by Tom Verhoeff 16 Dec '00

16 Dec '00

It may have been the case that I had an outdated .gpi file. After removing it, and compiling again the internal compiler error disappeared. I am still confused that the compiler refers to Testgamestatistics as a function, because it actually is a procedure. On the line where it complains, there is a call of a procedure in the unit whose .gpi file may have been outdated. Thanks, Tom

1 0

A very minor documentation error
by Bernard Leak 14 Dec '00

14 Dec '00

Dear Sirs, Mesdames, Unspecified Neuters, and others: The heading to the page http://agnes.dida.physik.uni-essen.de/~gnu-pascal/gpc_4.html#SEC4 3.1 General Changes And Possible Incompatibilies To Previous Versions and the link to it on the page http://agnes.dida.physik.uni-essen.de/~gnu-pascal/news.html (there may be other links - I haven't searched) is not in English (not even International English). It should read "Incompatibilies To" <- "Incompatibilities With" Normally, the preposition "With", articles and conjunctions shouldn't be capitalised either, except at the start of a sentence. The site is notably inconsistent in its capitalisation style, so I feel free to suggest a merely local change. I propose a squeakily-clean replacement with 3.1 General Changes and Possible Incompatibilities with Previous Versions You could also port the documentation to early modern English printing style and write 3.1 General Changes And possible Incompatibilities with previous Versions, but I won't undertake this task myself. Good luck! Bernard Leak.

2 1

gpc en Mac OS X.
by Blady 14 Dec '00

14 Dec '00

Hello, found of Pascal language, I try to port gpc en Mac OS X, my favorite system. I download gpc 2.0 version that meets my cc version : [localhost:gpc-2.0/test/misc] pascal% cc -v Reading specs from /usr/libexec/ppc/2.8.1-egcs/specs Apple Computer, Inc. version cc-2, based on gcc driver version 2.7.2.1 executing gcc version 2.8.1-egcs After several minor modifications, I produce a binary set for Mac OS X. It works quite well, but have some troubles with test set : [localhost:gpc-2.0/test/misc] pascal% gpc -o txtfile txtfile.pas ld: /var/tmp/cc0033521.o has external relocation entries in non-writable section (__TEXT,__text) for symbols: _memcpy [localhost:gpc-2.0/test/misc] pascal% gpc -v gpc version 2.0(2.7.2.1) [localhost:gpc-2.0/test/misc] pascal% uname -a Darwin localhost 1.2 Darwin Kernel Version 1.2: Wed Aug 30 23:32:53 PDT 2000; root:xnu/xnu-103.obj~1/RELEASE_PPC Power Macintosh powerpc Is there an explanation for that ? Thank's for your reply, and best whishes for continuation, Pascal Pignard.

2 1

Help getting compiler to compile
by Patrick Sharp 14 Dec '00

14 Dec '00

Greetings all, I have installed the latest beta binary (gpc-19990118-egcs-1.1.1-i586-pc-linux-gnulibc1) on my Redhat system. gcc --version reports egcs-2.91.66 Any source, including the demos, that I try to compile produces the following error message: /tmp/<filename>.i:1: numeric constant with no digits /tmp/<filename>.i:1: numeric constant with no digits /tmp/<filename>.i:1: invalid #line /tmp/<filename>.i:1: warning: missing program header /tmp/<filename>.i:1: parse error at null character I've gone through the documentation and have not been able to resolve this problem. Has anyone else run into this? Thanks in advance, -Pat pat(a)communitywebs.com

3 2

.asm compilation problems
by Kocherlakota Harikrishna 14 Dec '00

14 Dec '00

We are in the process of porting pascal sources compatable to windows NT to Red Hat Linux . Our GPC installation is OK and we are able to compile and run some simple pascal programs. We have difficulty in compiling assembly (.asm) files which are written in MASM 5.0 for Intel processor. As we find that GPC supports AT&T syntax, Should we need to change the entire intel syntax into AT&T syntax ? . We find the command " .intel_syntax noprefix" supporting the compilation, though not for all statements. As our programs are 16 bit and GPC is a 32 bit compiler, could u please tell us if there is any tool for automatic conversion ? can you also help us in knowing how GPC (gas) interprets the keywords " STRUC " and " TEST " etc..? >From as.info We got good amount of information but we find it is not sufficient .We also had a good look at the asm sources in the gas/testsuite/ directories. thanks and regards hari

1 0

Help getting compiler to compile
by Patrick Sharp 13 Dec '00

13 Dec '00

Greetings all, I have installed the latest beta binary (gpc-19990118-egcs-1.1.1-i586-pc-linux-gnulibc1) on my Redhat system. gcc --version reports egcs-2.91.66 Any source, including the demos, that I try to compile produces the following error message: /tmp/<filename>.i:1: numeric constant with no digits /tmp/<filename>.i:1: numeric constant with no digits /tmp/<filename>.i:1: invalid #line /tmp/<filename>.i:1: warning: missing program header /tmp/<filename>.i:1: parse error at null character I've gone through the documentation and have not been able to resolve this problem. Has anyone else run into this? Thanks in advance, -Pat pat(a)communitywebs.com ---SORRY FOR THIS REPEAT MESSAGE-- Our mail server crashed and it's acting weird.

1 0

Problems with making gpc under Irix6.5
by Hans Hauska 10 Dec '00

10 Dec '00

Hi, I am trying to make a version of gpc on an Irix6.5 system with MIPS Compiler 7.3. I have built gcc (version 2.95.2) separately and it seemed OK. When trying to make pascal.install (version gpc-20001122) i run into a stop after some time. I had problems with mixing o32 and n32, as 6.5 prefers the latter, but that seems fixed. However, I have not been able to find where the error occurs. Is there someone out there with more experience and knowledge regarding SGI systems? The make stops with the following message (some lines above) there is some more before it...... "CC=cc -n32" "CROSS=" "X_CFLAGS=" "EXTRA_LIBS=" "MAYBE_TARGET_DEFAULT=" "MAYBE_USE_COLLECT2=" "SCHED_CFLAGS=" "includedir=`echo '/usr/local/include'|sed -e 's/\\$/\\\\&&/g'`" "libsubdir=`echo '/usr/local/lib/gcc-lib/mips-sgi-irix6.5/2.95.2'|sed -e 's/\\$/\\\\&&/g'`" "target_alias=mips-sgi-irix6.5" "version=2.95.2" "target_alias=mips-sgi-irix6.5" "program_transform_name=s,x,x," "program_transform_cross_name=s,^,mips-sgi-irix6.5-," "exeext=" "GCC_FOR_TARGET=./xgcc -B/usr/local/mips-sgi-irix6.5/bin/ -B./ -I/usr/local/mips-sgi-irix6.5/include" "GPC_FOR_TARGET=./xgpc -B./" "GPCSOLIBSHORTNAME=libgpc.so" "GPCSOLIBDIR=lib" "WITH_SHARED=@with_shared@" ../gpc1 echo " `cat ../stamp-objlist | sed -e 's: : :g' -e 's:../convert.o::g' -e 's:../dbxout.o::g' -e 's:../expr.o::g' -e 's:../fold-const.o::g' -e 's:../function.o::g' -e 's:../optabs.o::g' -e 's:../stor-layout.o::g' -e 's:../toplev.o::g' -e 's:../tree.o::g'` convert.o dbxout.o expr.o fold-const.o function.o optabs.o stor-layout.o toplev.o tree.o" >stamp-gbe cc -n32 -c -DIN_GCC -DGPC -g -Wall -I. -I.. -I. -I./.. -I./../config -I./../../include gpc-common.c cc ERROR parsing -Wall: bad syntax for option cc ERROR parsing -Wall: unknown flag *** Error code 2 (bu21) *** Error code 1 (bu21) Your advice is appreciated, however I am not subscribed to the mailing list. Thanks in advance Hans Hauska -- __________________________________________________________ Hans Hauska phone: +46-8-790 7341 Assoc. Prof. and fax: +46-8-790 7343 Director, Centre for geoinformatics e-mail: hans(a)geomatics.kth.se Dept of geodesy and photogrammetry personal phone (GSM): +46-70-764 8269 KTH S-100 44 Stockholm Sweden WWW address CGI: http://www.ce.kth.se/geofoto/CGI/ HH's home page: http://www.geomatics.kth.se/~hans __________________________________________________________

2 1

bounds checking
by Russ Whitaker 10 Dec '00

10 Dec '00

Hi At site gcc.gnu.org, under 'Extensions', there is a blurb on bounds checking. Included is a pointer to <www.inter.NL.net/hcc/Haj.Ten.Brugee>. (also note the gcc group *eventually* plans to go the fat-pointer method.) Downloaded a tar.gz file fromm Haj.Ten.Brugee's site. Tried to compile gcc + bounds + gpc but got an undefined reference error about half way thru stage1. However, there is a nice write-up about bounds checking, several methods to do it, and why he chode the one he did. Based on that write-up, here's a pascal example: program bounds2; type a = array[1..10] of integer; var i : integer; x,y : a; begin for i := 1 to 100 do begin x[i] := i; y[i] := i; end; for i := 1 to 20 do writeln( x[i], ' ', y[i] ); end. So my query is: why not include bounds checking for pascal source? Thanks, Russ

1 0

strange bug in test gpc20001122 / djgpp
by Maurice Lombardi 06 Dec '00

06 Dec '00

Hi After seing the message of Russ I have also run the tests for this snapshot. (djgpp v2.03 in W98 DOS box). No problem with gpctest.pas (the unmodified one). Two skipped as usual: longr2 (no long real in djgpp OK), fjf165a (no german locale OK). But six failed, whereas last time I did it (one or two month ago IIRC) none failed: fieldw.pas fjf101[a-b].pas fjf38f.pas fjf394.pas fjf421j.pas After cleaning everything, rebooting (W98 you know), I obtain simplified test by booting bash and running directly test_run as ./test_run fieldw.pas fjf101[a-b].pas fjf38f.pas fjf394.pas fjf421j.pas abso1.pas >ta i.e. on all failing test program and one successfull test program. The result is GPC-TEST-BEGIN ========================== TEST fieldw.pas: c:/djgpp/tmp\ccbq0vjj1.o: In function `pascal_main_program': fieldw.pas:11: undefined reference to `_p_writestr' fieldw.pas(.text+0x5e): undefined reference to `_p_inoutres' fieldw.pas(.text+0x66): undefined reference to `_p_check_inoutres' fieldw.pas:16: undefined reference to `_p_writestr' fieldw.pas(.text+0xb8): undefined reference to `_p_inoutres' fieldw.pas(.text+0xc0): undefined reference to `_p_check_inoutres' fieldw.pas:18: undefined reference to `_p_stdout' fieldw.pas(.text+0xe3): undefined reference to `_p_write' fieldw.pas(.text+0xec): undefined reference to `_p_inoutres' fieldw.pas(.text+0xf4): undefined reference to `_p_check_inoutres' fieldw.pas:20: undefined reference to `_p_stdout' fieldw.pas(.text+0x116): undefined reference to `_p_write' fieldw.pas(.text+0x11f): undefined reference to `_p_inoutres' fieldw.pas(.text+0x127): undefined reference to `_p_check_inoutres' fieldw.pas:22: undefined reference to `_p_atexit' fieldw.pas(.text+0x182): undefined reference to `_p_initialize' fieldw.pas(.text+0x191): undefined reference to `_p_finalize' collect2: ld returned 1 exit status failed TEST fjf101a.pas: c:/djgpp/tmp\ccbycwjj1.o: In function `pascal_main_program': fjf101a.pas:6: undefined reference to `O' fjf101a.pas:7: undefined reference to `K' fjf101a.pas(.text+0x2b): undefined reference to `init_Fjf101au' fjf101a.pas(.text+0x30): undefined reference to `init_Fjf101av' fjf101a.pas(.text+0x3d): undefined reference to `_p_atexit' fjf101a.pas(.text+0x66): undefined reference to `_p_initialize' fjf101a.pas(.text+0x75): undefined reference to `_p_finalize' collect2: ld returned 1 exit status failed <snip same for others> TEST abso1.pas: OK ========================== GPC-TEST-END All fail at link stage and this is bogus since all other test succeed to find these functions. I then played with the options by typing e.g. PFLAGS="--autobuild -g -O3 -Wall -Werror" ./test_run fieldw.pas fjf101[a-b].pas fjf38f.pas fjf394.pas fjf421j.pas abso1.pas >tb This changes nothing since there are the default PFLAGS. But I found then that things go wrong only if I have exactly _five_ PFLAGS, what they may be (I have always included --autobuild, but tried e.g. -g -g -g -g), and succeed for four or six (or any number I have tried). So I replace the fifth by -v, typing PFLAGS="--autobuild -g -O3 -Wall -v" ./test_run fieldw.pas fjf101[a-b].pas fjf38f.pas fjf394.pas fjf421j.pas abso1.pas >tb The output is: GPC-TEST-BEGIN ========================== TEST fieldw.pas: Reading specs from c:/djgpp/lib/gcc-lib/djgpp/2.952/specs gpc version 20001122, based on 2.95.2 19991024 (release) c:/djgpp/lib/gcc-lib/djgpp/2.952/gpcpp.exe -lang-pascal -v -I c:/djgpp/lib/gcc-lib/djgpp/2.952/units -I . -I ./../units -famtmpfile=c:/djgpp/tmp\ccaakjgj -fautobuild -ffield-widths=1,2,3,41,42 -funit-path=. -funit-path=./../rts -funit-path=./../units -funit-path=c:/djgpp/lib/gcc-lib/djgpp/2.952/units -fexecutable-path=. -fdelphi-comments -D__GNU_PASCAL__ -undef -D__GNUC__=2 -D__GNUC_MINOR__=95 -D__GPC__=2 -D__GPC_MINOR__=0 -D__GPC_RELEASE__=20001122 -D__BITS_LITTLE_ENDIAN__=1 -D__BYTES_LITTLE_ENDIAN__=1 -D__WORDS_LITTLE_ENDIAN__=1 -Dunix -Di386 -DGO32 -DDJGPP=2 -DMSDOS -D__OS_DOS__=1 -D__unix__ -D__i386__ -D__GO32__ -D__DJGPP__=2 -D__MSDOS__ -D__OS_DOS__=1 -D__unix -D__i386 -D__GO32 -D__DJGPP=2 -D__MSDOS -Asystem(unix) -Asystem(msdos) -Acpu(i386) -Amachine(i386) -D__OPTIMIZE__ -g -Wall -Acpu(i386) -Amachine(i386) -Di386 -D__i386 -D__i386__ -D__tune_pentium__ -imacros c:/djgpp/bin/../include/sys/version.h -remap ./fieldw.pas c:/djgpp/tmp\ccbakjgj.i GNU Pascal Compiler PreProcessor version 2.95.2 19991024 (release) (80386, BSD syntax) #include "..." search starts here: #include <...> search starts here: c:/djgpp/lib/gcc-lib/djgpp/2.952/units . ./../units /usr/local/include JDIR/i586-pc-msdosdjgpp/include $DJDIR/lib/gcc-lib/djgpp/2.952/include $DJDIR/include End of search list. c:/djgpp/lib/gcc-lib/djgpp/2.952/gpc1.exe c:/djgpp/tmp\ccbakjgj.i -quiet -dumpbase fieldw.pas -g -O3 -Wall -version -famtmpfile=c:/djgpp/tmp\ccaakjgj -fautobuild -ffield-widths=1,2,3,41,42 -funit-path=. -funit-path=./../rts -funit-path=./../units -funit-path=c:/djgpp/lib/gcc-lib/djgpp/2.952/units -fexecutable-path=. -o c:/djgpp/tmp\ccbakjgj.s GNU Pascal version 2.95.2 19991024 (release) (djgpp) compiled by GNU C version 2.95.2 19991024 (release). c:/djgpp/bin/as.exe -o c:/djgpp/tmp\ccbakjgj1.o c:/djgpp/tmp\ccbakjgj.s c:/djgpp/lib/gcc-lib/djgpp/2.952/collect2.exe -o a.out c:/djgpp/lib/crt0.o -Lc:/djgpp/lib/gcc-lib/djgpp/2.952 -Lc:/djgpp/bin -Lc:/djgpp/lib c:/djgpp/tmp\ccbakjgj1.o -lgcc -lc -lgcc -Tdjgpp.djl c:/djgpp/tmp\ccbakjgj1.o: In function `pascal_main_program': fieldw.pas:11: undefined reference to `_p_writestr' fieldw.pas(.text+0x5e): undefined reference to `_p_inoutres' fieldw.pas(.text+0x66): undefined reference to `_p_check_inoutres' fieldw.pas:16: undefined reference to `_p_writestr' fieldw.pas(.text+0xb8): undefined reference to `_p_inoutres' fieldw.pas(.text+0xc0): undefined reference to `_p_check_inoutres' fieldw.pas:18: undefined reference to `_p_stdout' fieldw.pas(.text+0xe3): undefined reference to `_p_write' fieldw.pas(.text+0xec): undefined reference to `_p_inoutres' fieldw.pas(.text+0xf4): undefined reference to `_p_check_inoutres' fieldw.pas:20: undefined reference to `_p_stdout' fieldw.pas(.text+0x116): undefined reference to `_p_write' fieldw.pas(.text+0x11f): undefined reference to `_p_inoutres' fieldw.pas(.text+0x127): undefined reference to `_p_check_inoutres' fieldw.pas:22: undefined reference to `_p_atexit' fieldw.pas(.text+0x182): undefined reference to `_p_initialize' fieldw.pas(.text+0x191): undefined reference to `_p_finalize' collect2: ld returned 1 exit status failed <snip> TEST abso1.pas: Reading specs from c:/djgpp/lib/gcc-lib/djgpp/2.952/specs gpc version 20001122, based on 2.95.2 19991024 (release) c:/djgpp/lib/gcc-lib/djgpp/2.952/gpcpp.exe -lang-pascal -v -I c:/djgpp/lib/gcc-lib/djgpp/2.952/units -I . -I ./../units -famtmpfile=c:/djgpp/tmp\ccayplgj -fautobuild -funit-path=. -funit-path=./../rts -funit-path=./../units -funit-path=c:/djgpp/lib/gcc-lib/djgpp/2.952/units -fexecutable-path=. -fdelphi-comments -D__GNU_PASCAL__ -undef -D__GNUC__=2 -D__GNUC_MINOR__=95 -D__GPC__=2 -D__GPC_MINOR__=0 -D__GPC_RELEASE__=20001122 -D__BITS_LITTLE_ENDIAN__=1 -D__BYTES_LITTLE_ENDIAN__=1 -D__WORDS_LITTLE_ENDIAN__=1 -Dunix -Di386 -DGO32 -DDJGPP=2 -DMSDOS -D__OS_DOS__=1 -D__unix__ -D__i386__ -D__GO32__ -D__DJGPP__=2 -D__MSDOS__ -D__OS_DOS__=1 -D__unix -D__i386 -D__GO32 -D__DJGPP=2 -D__MSDOS -Asystem(unix) -Asystem(msdos) -Acpu(i386) -Amachine(i386) -D__OPTIMIZE__ -g -Wall -Acpu(i386) -Amachine(i386) -Di386 -D__i386 -D__i386__ -D__tune_pentium__ -imacros c:/djgpp/bin/../include/sys/version.h -remap ./abso1.pas c:/djgpp/tmp\ccbyplgj.i GNU Pascal Compiler PreProcessor version 2.95.2 19991024 (release) (80386, BSD syntax) #include "..." search starts here: #include <...> search starts here: c:/djgpp/lib/gcc-lib/djgpp/2.952/units . ./../units /usr/local/include JDIR/i586-pc-msdosdjgpp/include $DJDIR/lib/gcc-lib/djgpp/2.952/include $DJDIR/include End of search list. c:/djgpp/lib/gcc-lib/djgpp/2.952/gpc1.exe c:/djgpp/tmp\ccbyplgj.i -quiet -dumpbase abso1.pas -g -O3 -Wall -version -famtmpfile=c:/djgpp/tmp\ccayplgj -fautobuild -funit-path=. -funit-path=./../rts -funit-path=./../units -funit-path=c:/djgpp/lib/gcc-lib/djgpp/2.952/units -fexecutable-path=. -o c:/djgpp/tmp\ccbyplgj.s GNU Pascal version 2.95.2 19991024 (release) (djgpp) compiled by GNU C version 2.95.2 19991024 (release). c:/djgpp/bin/as.exe -o c:/djgpp/tmp\ccbyplgj1.o c:/djgpp/tmp\ccbyplgj.s c:/djgpp/lib/gcc-lib/djgpp/2.952/collect2.exe -o a.out c:/djgpp/lib/crt0.o -Lc:/djgpp/lib/gcc-lib/djgpp/2.952 -Lc:/djgpp/bin -Lc:/djgpp/lib c:/djgpp/tmp\ccbyplgj1.o -lgpc -lm -lgcc -lc -lgcc -Tdjgpp.djl c:/djgpp/bin/stubify.exe -v a.out stubify for djgpp V2.X executables, Copyright (C) 1995 DJ Delorie stubify: a.out -> a.000 -> a.exe OK ========================== GPC-TEST-END On inspection, in the linking stage (collect2) -lgpc -lm are not inserted in the failing cases, whereas they do are in the successfull case. To check I type (only four PFLAGS) PFLAGS="--autobuild -g -O3 -v" ./test_run fieldw.pas fjf101[a-b].pas fjf38f.pas fjf394.pas fjf421j.pas abso1.pas >tc and the result is GPC-TEST-BEGIN ========================== TEST fieldw.pas: Reading specs from c:/djgpp/lib/gcc-lib/djgpp/2.952/specs gpc version 20001122, based on 2.95.2 19991024 (release) c:/djgpp/lib/gcc-lib/djgpp/2.952/gpcpp.exe -lang-pascal -v -I c:/djgpp/lib/gcc-lib/djgpp/2.952/units -I . -I ./../units -famtmpfile=c:/djgpp/tmp\ccaaqypj -fautobuild -ffield-widths=1,2,3,41,42 -funit-path=. -funit-path=./../rts -funit-path=./../units -funit-path=c:/djgpp/lib/gcc-lib/djgpp/2.952/units -fexecutable-path=. -fdelphi-comments -D__GNU_PASCAL__ -undef -D__GNUC__=2 -D__GNUC_MINOR__=95 -D__GPC__=2 -D__GPC_MINOR__=0 -D__GPC_RELEASE__=20001122 -D__BITS_LITTLE_ENDIAN__=1 -D__BYTES_LITTLE_ENDIAN__=1 -D__WORDS_LITTLE_ENDIAN__=1 -Dunix -Di386 -DGO32 -DDJGPP=2 -DMSDOS -D__OS_DOS__=1 -D__unix__ -D__i386__ -D__GO32__ -D__DJGPP__=2 -D__MSDOS__ -D__OS_DOS__=1 -D__unix -D__i386 -D__GO32 -D__DJGPP=2 -D__MSDOS -Asystem(unix) -Asystem(msdos) -Acpu(i386) -Amachine(i386) -D__OPTIMIZE__ -g -Acpu(i386) -Amachine(i386) -Di386 -D__i386 -D__i386__ -D__tune_pentium__ -imacros c:/djgpp/bin/../include/sys/version.h -remap ./fieldw.pas c:/djgpp/tmp\ccbaqypj.i GNU Pascal Compiler PreProcessor version 2.95.2 19991024 (release) (80386, BSD syntax) #include "..." search starts here: #include <...> search starts here: c:/djgpp/lib/gcc-lib/djgpp/2.952/units . ./../units /usr/local/include JDIR/i586-pc-msdosdjgpp/include $DJDIR/lib/gcc-lib/djgpp/2.952/include $DJDIR/include End of search list. c:/djgpp/lib/gcc-lib/djgpp/2.952/gpc1.exe c:/djgpp/tmp\ccbaqypj.i -quiet -dumpbase fieldw.pas -g -O3 -version -famtmpfile=c:/djgpp/tmp\ccaaqypj -fautobuild -ffield-widths=1,2,3,41,42 -funit-path=. -funit-path=./../rts -funit-path=./../units -funit-path=c:/djgpp/lib/gcc-lib/djgpp/2.952/units -fexecutable-path=. -o c:/djgpp/tmp\ccbaqypj.s GNU Pascal version 2.95.2 19991024 (release) (djgpp) compiled by GNU C version 2.95.2 19991024 (release). c:/djgpp/bin/as.exe -o c:/djgpp/tmp\ccbaqypj1.o c:/djgpp/tmp\ccbaqypj.s c:/djgpp/lib/gcc-lib/djgpp/2.952/collect2.exe -o a.out c:/djgpp/lib/crt0.o -Lc:/djgpp/lib/gcc-lib/djgpp/2.952 -Lc:/djgpp/bin -Lc:/djgpp/lib c:/djgpp/tmp\ccbaqypj1.o -lgpc -lm -lgcc -lc -lgcc -Tdjgpp.djl c:/djgpp/bin/stubify.exe -v a.out stubify for djgpp V2.X executables, Copyright (C) 1995 DJ Delorie stubify: a.out -> a.000 -> a.exe OK <snip> all other succeed and you see that -lgpc -lm are there ! I cannot say more, especially if it is only a gpc bug, of if djgpp plays a role. Hope this helps. -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 51 45 44 mailto:Maurice.Lombardi@ujf-grenoble.fr

2 2

with statement using tags (for the gpc wish list)
by Tom Verhoeff 05 Dec '00

05 Dec '00

I would like to propose to include in gpc the "tagging feature for with statements" as found in (the now obsolete) Sun Pascal. Example: program WithTag; type Rec = record i: integer; r: real; ... end; var c, d, e: char; a: array [ char, char ] of Rec; begin readln ( c, d, e ) ; with a [ UpCase(c), d ] : x, a [ succ(d), e ] : y do begin ; y.r := sqrt ( x.i ) ; ... end { with } end. This way, you introduce shorthand names (the tags) for records. This is especially interesting when these records are of the same type (as in the example above), or when the records share field names (because then the records cannot be distinguished on the basis of the field name only). The addresses of the records in the with statement are determined once (and associated with the tag). This cannot easily be accomplished otherwise in general, especially when the records are big, and the address involves some "expensive" address calculation (indexing in multiple dimensions). When records are small, you can copy the contents to a local record variable; otherwise, you have to use explicit pointers, or work with an auxiliary procedure and parameters: procedure WithTwoRec ( const x, y: Rec ); begin ; y.r := sqrt ( x.i ) ; ... end; begin readln ( c, d, e ) ; WithTwoRec ( a [ UpCase(c), d ], a [ succ(d), e ] ) end. Cheers, Tom Verhoeff

2 1

GetUnixTime, GetCPUTime
by Tom Verhoeff 04 Dec '00

04 Dec '00

I am using gpc version 20001122 under Linux and want to call GetUnixTime and GetCPUTime. These functions are mentioned under Run Time System and appear in gpc.pas, but the compiler does not recognize them. I can use GetTimeStamp, but I would like to use the others. What do I do wrong? I have no special options selected. Example: program TimeTest; begin writeln('Test for date/time functions') ; writeln(GetUnixTime(null)) ; writeln(GetCPUTime(null)) end. $ gpc -o time-test time-test.p time-test.p: In function `pascal_main_program': time-test.p:5: undeclared identifier `Getunixtime' (first use in this routine) time-test.p:5: (Each undeclared identifier is reported only once time-test.p:5: for each routine it appears in.) time-test.p:6: undeclared identifier `Getcputime' (first use in this routine) Thanks, Tom Verhoeff

2 1

gpc1 got fatal signal 11
by Nicola Girardi 03 Dec '00

03 Dec '00

Hi GPC'ers! Before I forget: Reading specs from /usr/local/stow/gpc-CVS/lib/gcc-lib/i686-pc-linux-gnu/2.95.2/specs gpc version 20001116, based on 2.95.2 19991024 (release) The following test program crashes GPC. Maybe my statement is not legal, but anyway the compiler should just complain, not just lie down and die. : program Test; : : type : PT1 = ^T1; : PT2 = ^T2; : : type : T1 = record : a : Integer; : b : Real; : end; : T2 = record : a : Integer; : b : Real; : end; : : begin : end. Splicing together the type definitions, the program compiles fine. So there's no real problem for me, except that I think the compiler should just complain. OTOH, I don't know if the statement was correct, either. : program Test; : : type : PT1 = ^T1; : PT2 = ^T2; : T1 = record : a : Integer; : b : Real; : end; : T2 = record : a : Integer; : b : Real; : end; : : begin : end. Greetings, -- Nicola Girardi, nikke(a)swlibero.org

2 1

latest gpc builds on i386-hurd again.
by Matthias Klose 01 Dec '00

01 Dec '00

at least for the Debian distribution ;-)

1 0

From C To Pascal, unions and variant records
by Eike Lange 01 Dec '00

01 Dec '00

Hi! Actually, I translate the Gdk (basically needed for Gtk) to Pascal and I need help with the following C-Struct: struct _GdkEventClient { ... GdkAtom message_type; gushort data_format; union { char b[20]; short s[10]; long l[5]; } data; }; How do I pass the union to a case-selector ? Eike

2 1

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