Gpc

gpc@gnu.de

5400 discussions

Bug report on nonstatic types at HP systems
by Rudy Moddemeyer 21 Oct '00

21 Oct '00

Hello, I have tried to execute the simple program PROGRAM test(input, output); TYPE s(a,b:integer) = ARRAY[a..b] OF real; VAR x:s(5,6); i:integer; BEGIN writeln(x.a:3,x.b:3); END. It should write "5 6" on the output. At a HP system it writes "0 0". I am sorry but i am using a rather old version of gpc: version 19980830, based on gcc-egcs-2.91.57 19980901 (egcs-1.1 release) on a HP-system: HP-UX rug102 B.10.20 A 9000/735 2011278599 The Linux implementation, which I have also checked, does not suffer from this bug. I have not found this bug in neither the list of known bugs nor the list of fixed bugs. With kind regards, Rudy Moddemeijer --------------------------------------------------------------------- | R. Moddemeijer | Department of Computing Science | | | University of Groningen | | Phone +31/50 - 363 3940 | Blauwborgje 3 room IWI 228 | | Telefax +31/50 - 363 3800 | P.O. Box 800 | | e-Mail rudy(a)cs.rug.nl | NL-9700 AV Groningen | | r.moddemeijer(a)cs.rug.nl | The Netherlands | | | | ---------------------------------------------------------------------

2 1

Re: X11, tty7, Debian
by U. Bauermann 19 Oct '00

19 Oct '00

Eike Lange wrote: > > Hi zusammen. > Hallo Eike Ich benutzeschon laenger Debian. > Ich mÃ¶chte gerne die Ausgabe von X11 nicht auf > der Konsole 7 haben (mit Alt+F7 komme ich so in X) Der X-Server wird automatisch auf die erste freie virtuelle Console gelegt: Hier ein Ausszug aus meiner /etc/inittab: # <id>:<runlevels>:<action>:<process> 1:2345:respawn:/sbin/getty 38400 tty1 2:23:respawn:/sbin/getty 38400 tty2 3:23:respawn:/sbin/getty 38400 tty3 4:23:respawn:/sbin/getty 38400 tty4 5:23:respawn:/sbin/getty 38400 tty5 6:23:respawn:/sbin/getty 38400 tty6 7:23:respawn:/sbin/getty 38400 tty7 #8:23:respawn:/sbin/getty 38400 tty8 9:23:respawn:/sbin/getty 38400 tty9 10:23:respawn:/sbin/getty 38400 tty10 11:23:respawn:/sbin/getty 38400 tty11 12:23:respawn:/sbin/getty 38400 tty12 13:23:respawn:/sbin/getty 38400 tty13 14:23:respawn:/sbin/getty 38400 tty14 Damit habe ich die Anzahl meiner vituellen Consolen auf 14(-1) erhoeht. Da die vituelle Console tty8 auskommentiert ist benutzt der X-Server diese Position. Du kannst damit dann bei Dir die entsprechende virtuelle Console frei halten. Hoffe geholfen zu haben Uwe -- Zu Fragen, Risiken und Nebenwirkungen wenden Sie sich bitte an: Email: uwe(a)bauermann.de Homepage: http://www.bauermann.de

1 0

None
by Peter Ulrich Kruppa 18 Oct '00

18 Oct '00

Hi, does anyone know who wrote the gpc-port for FreeBSD? There are two small bugs in it, which (I believe) can easily be corrected by someone, who knows how to. But they should be fixed, because they might keep people off using gpc. Thanks for your answer! Uli. ======================================================================= www.pukruppa.de www.2000d.de =======================================================================

3 4

Re: StringUtils, FileUtils
by Stuart Pope 17 Oct '00

17 Oct '00

Dear Mr. Heckenbach, I apologize for belaboring my issue, but hopefully, your answers are of benefit to others as well as myself. I took your suggestion and used the --automake flag when compiling my test program and your solution worked great! There is one additional twist, though. Real numbers are only output correctly if there is no precision needed beyond the decimal point. For example, this test code, program testprog(input,output); uses GPC; var x : real; fieldwidth : integer; fieldprec : integer; begin x := 1000.909; fieldwidth := 0; fieldprec := 0; writeln('The value of x is ', longReal2Str (x,fieldwidth,fieldprec)); fieldwidth := 0; fieldprec := 3; writeln('The value of x is ', longReal2Str (x,fieldwidth,fieldprec)); end. produces the following output: The value of x is 1001 The value of x is 10091009 Is there a solution for the case where decimal precision is needed? Thanks again for your help. --- Frank Heckenbach <frank(a)g-n-u.de> wrote: > Ernst-Ludwig Bohnen wrote: > > > On Wed, 13 Sep 2000, Frank Heckenbach wrote: > > > > > 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). > > > > May be a unit in my tool box is a candidate. Everybody can read it at: > > http://www.desy.de/~bohnen/gpc/dictionary.pas > > I think this unit is good as a standalone unit. Be welcome to > contribute it to GPC (if you agree to release it under some free > license). If you like to upload it to some "official" place, > Peter Gerwinski can arrange for that. > > 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 ===== --------------------------------------------------------- ! Stuart Pope ! ! GEOLAB/Computer Sciences Corporation ! ! Hampton, VA (757) 864-5775 ! ! ! ! This email was generated without any harm ! ! whatsoever to laboratory animals. ! __________________________________________________ Do You Yahoo!? Get Yahoo! Mail - Free email you can access from anywhere! http://mail.yahoo.com/

3 2

[Fwd: Re: Novice question]
by Maurice Lombardi 14 Oct '00

14 Oct '00

Nicola Girardi a Ã©crit : > > Hi fine GPC hackers, please take a look at this foolish code, I, as > a novice, have a little problem with pointers in Pascal ;-) (I > wonder why I don't just keep using C:)) > > : type > : PStrList = ^TStrList; > : TStrList = record > : Next : PStrList; > : S : TString; > : end; > : > : var > : StringList : PStrList; > : > : procedure Foobar; > : var > : Str : PStrList = StringList; > : begin > : repeat > : New(Str); > : Readln(F (* : Text *), Str^.S); > : if Length(Hdr^.S) = 0 then > : break; > : Str := Str^.Next; Here Str^.next contains only garbage and you put this garbage into Str... > : until False; > : end; > > Due to the assignment of StringList to Str, at the end of Foobar I'd > get StringList not to be the head of the list but the last element. > How can I keep a pointer which always points to the first element? > Maybe that's really easily done, but of course in Pascal it doesn't > seem that it works like in C, and I'm out of manuals ;-) Look to iteratordemo.pas in the demo programs which come with gpc, especially the procedure ReadList which does exactly what you want. You need an extra level of indirection. 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 2

Novice question
by Nicola Girardi 11 Oct '00

11 Oct '00

Hi fine GPC hackers, please take a look at this foolish code, I, as a novice, have a little problem with pointers in Pascal ;-) (I wonder why I don't just keep using C:)) : type : PStrList = ^TStrList; : TStrList = record : Next : PStrList; : S : TString; : end; : : var : StringList : PStrList; : : procedure Foobar; : var : Str : PStrList = StringList; : begin : repeat : New(Str); : Readln(F (* : Text *), Str^.S); : if Length(Hdr^.S) = 0 then : break; : Str := Str^.Next; : until False; : end; Due to the assignment of StringList to Str, at the end of Foobar I'd get StringList not to be the head of the list but the last element. How can I keep a pointer which always points to the first element? Maybe that's really easily done, but of course in Pascal it doesn't seem that it works like in C, and I'm out of manuals ;-) TIA Nicola

1 0

informacion
by Juan Pablo Rumie Vittar 09 Oct '00

09 Oct '00

hola, me llamo juan pablo y me gustaria saber donde puedo obtener el compilador de pascal para linux conectiva 4.0 de la licencia gnu. _________________________________________________________ Do You Yahoo!? Obtenga su direcciÃ³n de correo-e gratis @yahoo.com en http://correo.espanol.yahoo.com

2 1

CVS overhead
by Matthias Klose 08 Oct '00

08 Oct '00

Having CVS read access is nice, but currently, there seems to be something wrong with the configuration. Doing a daily update, you get every day all files; do they get touched when making the daily snapshot releases?

3 2

Problem with writing real numbers
by Stuart Pope 07 Oct '00

07 Oct '00

Sirs, I am puzzled. I am using gpc on a unix system (Irix 6.5). When the compiler was built, we had to turn off the -g flag everywhere in the Makefiles(which, we understand, is a common problem) in order to complete the build. Below is a small program which simply writes out a real number using 'writeln'. It compiles fine, but generates garbage output: program testprog(input,output); var x : real; begin x := 10.0; writeln('The value of x is ',x); end. This code produces the following line of output on my machine(SGI): The value of x is /// /////////e-//8//8 What's up with this???? Thanks for any help you can give. Stuart Pope ***************************************************************************** Stuart Pope Mail Stop 931 COMPUTER SCIENCES CORP. (757) 864-5775 (Voice) GEOLAB/ISSD (757) 864-8910 (FAX) Hampton, VA Email: d.s.pope@larc Check out our webpage at http://geolab.larc.nasa.gov/ (No animals were harmed or killed in the generation of this mail message) *****************************************************************************

3 2

Re: Problem with writing real numbers
by Stuart Pope 07 Oct '00

07 Oct '00

Hello Peter Gerwinski, Thanks for responding to my request. Per your request, when typing 'gpc -v', I get the following display: gpc version 20000917, based on 2.95.2 19991024 (release) Thanks for your interest! Stuart Pope --- Peter Gerwinski <peter(a)gerwinski.de> wrote: > Hello, Stuart Pope, > > you wrote: > > writeln('The value of x is ',x); > > [...] > > The value of x is /// /////////e-//8//8 > > Which version of GPC are you running? This information is important > for us if we want to give useful help. (If you are not sure, please > type `gpc -v'.) > > 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-20001006 > GnuPG key fingerprint: 9E7C 0FC4 8A62 5536 1730 A932 9834 65DB 2143 9422 > keys: http://www.gerwinski.de/pubkeys/ - AntiSpam: http://spam.abuse.net ===== --------------------------------------------------------- ! Stuart Pope ! ! GEOLAB/Computer Sciences Corporation ! ! Hampton, VA (757) 864-5775 ! ! ! ! This email was generated without any harm ! ! whatsoever to laboratory animals. ! __________________________________________________ Do You Yahoo!? Yahoo! Photos - 35mm Quality Prints, Now Get 15 Free! http://photos.yahoo.com/

1 0

Jump to page:

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