Gpc May 2002

gpc@gnu.de

19 participants
28 discussions

Comparision Cardinal/Integer Bug?
by Eike Lange 05 Sep '02

05 Sep '02

Hi Folks! I don't know whether it's a feature or a bug, I didn't find it on the list of known bugs so here is my report: Comparisions between Cardinal and Integer may fail, if the Integer value is negative. Version: 2.1 (20020510), based on gcc-2.95.2 19991024 (release) program testcase; var aCard: Cardinal; aInt: Integer; begin aCard := 1; aInt := -1; { "FAIL" } if (aCard > aInt) then WriteLn ('OK') else WriteLn ('FAIL'); { "FAIL" } if (aCard > -1) then WriteLn ('OK') else WriteLn ('FAIL'); { just for completness: "OK" } if (1 > -1) then WriteLn ('OK') else WriteLn ('FAIL') end. BTW: The gcc C fontend does the same. Eike

2 1

StringUtils, FileUtils
by Frank Heckenbach 31 May '02

31 May '02

Hi, in the current GPC version, I've included a StringUtils unit for general string handling routines (on a higher level than the built-in and RTS routines). Up to now, it only contains routines for a string hash table, but I'm planning to add some more routines. Perhaps some of you also have some routines to contribute (or features to request). Conditions for inclusion into this unit should be, IMHO: - Generally useful (not meant specifically for a certain program or something), - self-contained (not relying on an external library etc.), - new functionality compared to the existing routines (whereas the same or similar functionality under a different interface for compatibility purposes should go into other units, like GPCUtil for compatibility to `Turbo Power' units), - and, of course, compilable with the current GPC version, portable, bug-free, etc. ;-) The same goes for the FileUtils unit which has been there for some months already. 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 10

Speed Issue
by Silvio a Beccara 31 May '02

31 May '02

Hi everybody, anyone knows how the speed of a program making intensive use of floating point operations compares between a GPC and GCC executable? Thanks, regards Silvio a Beccara

1 0

Re: GPC for DOS instructions
by da Silva, Joe 30 May '02

30 May '02

Thanks for that tip Maurice. I'll may wait a few days to see if any other changes are required, then I'll update the document accordingly. Joe. > -----Original Message----- > From: Maurice Lombardi [SMTP:Maurice.LOMBARDI@ujf-grenoble.fr] > Sent: Wednesday, May 29, 2002 11:25 PM > To: gpc(a)gnu.de > Subject: Re: GPC for DOS instructions > > "da Silva, Joe" <Joe.daSilva(a)emailmetering.com> a dit : > > > For anyone interested, I have written instructions for obtaining and > > installing GPC for DOS, based on DJGPP. This brings together > > information from various sources, and from my own findings. The > > information is concise but does not assume previous experience > > with DJGPP. You can obtain this document via the following URL : > > http://jds-freeware.hypermart.net/pascal/how2gpc.dos.txt > > (Feedback welcome) > > Seems OK > Only the following is no more necessary > > --------------------------------------------------------------------- > > - In the 'lib' subdirectory, check for a file called 'libcurso.a'. > If it does not exist, create it by copying the 'libpdcurses.a' > file (or, if not using long file names, 'LIBPDCUR.A'). > Eg. : CD lib > COPY libpdcurses.a libcurso.a > > --------------------------------------------------------------------- > > Frank changed recently the {$L } instruction in crt.pas for the official > new > name libpdcurses.a: official since pdcurses 2.4 release, which is the one > present now both on the gpc/djgpp download areas and on djgpp repositories > on > simtelnet and mirrors. > > Maurice > > -- > Maurice Lombardi > Laboratoire de Spectrometrie Physique, > Universite Joseph Fourier de Grenoble, BP87 > 38402 Saint Martin d'Heres Cedex FRANCE > Tel: 33 (0)4 76 51 47 51 > Fax: 33 (0)4 76 63 54 95 > mailto:Maurice.Lombardi@ujf-grenoble.fr > > >

1 0

Re: GPC for DOS instructions
by Maurice Lombardi 29 May '02

29 May '02

"da Silva, Joe" <Joe.daSilva(a)emailmetering.com> a dit : > For anyone interested, I have written instructions for obtaining and > installing GPC for DOS, based on DJGPP. This brings together > information from various sources, and from my own findings. The > information is concise but does not assume previous experience > with DJGPP. You can obtain this document via the following URL : > http://jds-freeware.hypermart.net/pascal/how2gpc.dos.txt > (Feedback welcome) Seems OK Only the following is no more necessary --------------------------------------------------------------------- - In the 'lib' subdirectory, check for a file called 'libcurso.a'. If it does not exist, create it by copying the 'libpdcurses.a' file (or, if not using long file names, 'LIBPDCUR.A'). Eg. : CD lib COPY libpdcurses.a libcurso.a --------------------------------------------------------------------- Frank changed recently the {$L } instruction in crt.pas for the official new name libpdcurses.a: official since pdcurses 2.4 release, which is the one present now both on the gpc/djgpp download areas and on djgpp repositories on simtelnet and mirrors. Maurice -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 63 54 95 mailto:Maurice.Lombardi@ujf-grenoble.fr

1 0

GPC for DOS instructions
by da Silva, Joe 29 May '02

29 May '02

For anyone interested, I have written instructions for obtaining and installing GPC for DOS, based on DJGPP. This brings together information from various sources, and from my own findings. The information is concise but does not assume previous experience with DJGPP. You can obtain this document via the following URL : http://jds-freeware.hypermart.net/pascal/how2gpc.dos.txt (Feedback welcome) Joe.

1 0

GPC EMX build
by Mike 24 May '02

24 May '02

Hello! Could you provide also EMX binaries of GPC ? Thank you!

3 2

gpcbuild on solaris 8
by Tom Schneider 24 May '02

24 May '02

Frank: > > (It gives lots of errors on the c compile on solaris ... > > don't these scripts detect their environment?) > > What scripts, what errors? Your statement is rather vague ... Here is a precise record for solaris: http://www.lecb.ncifcrf.gov/~toms/gpc/ I ran the gpcbuild script and captured the result with script. 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/

2 1

Question on NEW(Ptr : Pointer_to_variant_Record; Tag)
by Jing Gloria 24 May '02

24 May '02

I have searched the mailing list archive and have not found the information that I needed. I hope somebody here can provide the answers or point me to where I can find them. I am porting existing code from a RISC/SunOS system to an Intel(PC)/Solaris7 system. I am using gpc version 20010623, based on gcc-2.95.2 19991024 (release). In the program below, GPC and the RISC/SunOS compiler do not produce the same results in the NEW call: New(point3, No). GPC will allocate the total size (168 bytes) of the record (ItemData) and will initialize the field 'tag' to 1 (which is NO in the enumeration type Answer). In the SunOS compiler, this same statement will allocate memory (92 bytes) to accomodate the following fields for ItemData: number, tag, A_string, False_entries) and will NOT initialize the tag field. How do I get GPC to compile the NEW call in the same way as the SunOS Pascal compiler? BTW, the Dispose call in SunOS Pascal passes both pointer and size (based on the second parameter to the dispose call) to the Dispose routine. program AlignOfDemo; Type Item_ptr = ^ItemData; Answer = (Yes, No, DontKnow, whatever); ItemData = Record number : Integer; Case tag : Answer of Yes : (RealData : Array [1..10] of Real; Num_entries : Integer); No : (A_String : Array [1..80] of char; False_entries : Integer); Whatever, DontKnow: (DontCare : Array [1..40] of Integer); End; var a: Integer; b: array [1 .. 8] of Char; c: Integer (12); d: packed record x: Integer (12); y: 0 .. 3; z: Integer end; point1, point2, point3 : Item_ptr; begin New(point1); New(point2, Whatever); (* Make sure to use same tag as in dispose *) New(Point3, No); (* Make sure to use same tag as in dispose *) Dispose (point1); Dispose(point2, Whatever); (* Make sure to use same tag as in NEW *) Dispose(Point3, No); (* Make sure to use same tag as in NEW *) WriteLn (AlignOf (a)); { Alignment of `Integer'; usually 4 bytes. } WriteLn (AlignOf (Integer)); { The same. } WriteLn (AlignOf (b)); { Alignment of `Char'; usually 1 byte. } Writeln (AlignOf (c)); Writeln ('AlingOf d is ', AlignOf (d)); { Alignment of 1 if packed record; 4 if record} { The following 3 statements cannot be compiled by AlignOf (cannot handle bit fields) if used with PACKED RECORD. Writeln ('d.x: Integer (12) is ', AlignOf (d.x)); (*Alginment of 2*) Writeln ('d.y: 1 ..3 is ', AlignOf (d.y)); (*Alginment of 4*) Writeln ('d.z: Integer is ', AlignOf (d.z)); (*alignment of 4*) {} Writeln('that''s all folks!!!') end. Here is the GPC compiled code for New(point3,NO) 108 0040 83C4F4 addl $-12,%esp 109 0043 68A80000 pushl $168 <<<<<<size to be allocated...... 109 00 110 0048 E8FCFFFF call _p_new 110 FF 111 004d 83C410 addl $16,%esp 112 0050 89C0 movl %eax,%eax 113 0052 A31C0000 movl %eax,Point3 113 00 114 0057 A11C0000 movl Point3,%eax 114 00 115 005c C7400401 movl $1,4(%eax) <<<initializes tag field.... 115 000000 34:align_demo.p **** New(Point3, No); (* Make sure to use same tag as in dispose *) and the correspoding SunOS Pascal translation: ! New(Point3, No); (* Make sure to use same tag as in dispose *) set _point3,%o0 mov 0x5c,%o1 <<<<<size to be allocated.......... call _NEW,2 nop The SunOS dispose call is translated as: ! Dispose(Point3, No); (* Make sure to use same tag as in NEW *) set _point3,%o0 mov 0x5c,%o1 call _DISPOSE,2 nop Thanks in advance for any inputs and suggestions. Regards, Jing Gloria Texas Instruments Sherman, Tx __________________________________________________ Do You Yahoo!? LAUNCH - Your Yahoo! Music Experience http://launch.yahoo.com

4 3

$define - problems
by Eike Lange 22 May '02

22 May '02

Hi Folks! SetDate (from unit DOS) is a procedure, which is only available, if "__BP_UNPORTABLE_ROUTINES__" is defined. The following program does not work: 8<------------------- program foo; {$define __BP_UNPORTABLE_ROUTINES__} uses DOS; begin SetDate (2000, 3, 3) end. ------------------->8 Defining __BP_UNPORTABLE_ROUTINES__ on the command line (-D or --define) works well. What do I wrong? I'm using 2.1 (20020510), based on gcc-2.95.2 19991024 (release) Eike

2 1

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 May 2002