April 2001 - Gpc

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 07 Apr '01

07 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