Gpc December 1998

gpc@gnu.de

17 participants
32 discussions

Files
by berend＠beard.nest.nl 01 Feb '02

01 Feb '02

* Moved (from: gpc) by Berend de Boer using timEd 1.10.b3+. Peter Gerwinski wrote in a message to Berend de Boer: PG> I tried to use Extended Pascal "binding" to assign a file PG> variable to an external -- existing -- file. I just copied PG> the "Assign" pro- cedure by Berend as published in PG> borland2ep.doc. It does not always work: I often get a PG> runtime error saying that the file did not exist. If you can repeat it, compile with another Extended Pascal compiler, for example Prospero's one. If that fails too, there is really something wrong with the code. But I suspect gpc. You're using which OS? Groetjes, Berend (-: fido: 2:281/527.23 email: berend(a)beard.nest.nl

4 3

None
by The Magician 31 Dec '98

31 Dec '98

I study in the University of Coruña I.S.Informatica and we use the G.N.U. compiler. I need your help, please. I need the font codig ('codigo fuente' en español) of a function to Append like append of Turbo Pascal. Please, hurry up. Thanks. ================================================== Obtenga GRATIS su E-Mail permanente en http://www.mixmail.com

1 0

gpc bug?
by Miguel Lobo 31 Dec '98

31 Dec '98

I wrote a week ago about some 'Internal compiler error' message. Unfortunately I was using gpc 2.0 and, as Peter Gerwinsky pointed, that was the cause of the error; I downloaded gpc-19981124 from debian.org and now that bug has disappeared. I am glad to see that the compiler is now much better (although compiling a file with errors often causes strange messages), but I think that I might have found a new bug. The problem arises when calling a destructor inside a dispose statement. I send a program which manifests the problem attached to this message. Specifically, when the list.done method is called, it should dispose all the items in the list by calling their 'done' destructor. But apparently sometimes this does not happen. When I run the program I get: descend-init: 1 descend-init: 2 descend-init: 3 descend-init: 4 extracting: descend: 1 descend-done: 1 extracting: descend: 2 extracting: descend: 3 descend-done: 3 extracting: descend: 4 So items 2 and 4 are not freed (or at least their destructors are not called). Changing the line "dispose(extfirst, done);" to "item :=extfirst; dispose(item,done);" solves the problem. I have checked the program in Borland Pascal and it works, so I think is a GPC bug. BTW, although I plan to join the mailing list in the future I haven't done so yet, so please mail me any answer. Thank you. type pitem = ^item; item = object prev,next: pitem; constructor init; destructor done; virtual; procedure write; virtual; end; pdescend = ^descend; descend = object(item) i: integer; constructor init(ii: integer); destructor done; virtual; procedure write; virtual; end; plist = ^list; list = object first,last: pitem; constructor init; destructor done; function extfirst: pitem; procedure add(l: pitem); procedure adddesc(i: integer); end; constructor item.init; begin prev :=nil; next :=nil; end; destructor item.done; begin end; procedure item.write; begin writeln('item'); end; constructor descend.init(ii: integer); begin inherited init; i :=ii; writeln('descend-init: ',i); end; destructor descend.done; begin writeln('descend-done: ',i); inherited done; end; procedure descend.write; begin writeln('descend: ',i); end; constructor list.init; begin first :=nil; last :=nil; end; destructor list.done; begin while (first<>nil) do dispose(extfirst,done); end; function list.extfirst: pitem; var item: pitem; begin write('extracting: '); first^.write; extfirst :=first; if (first=nil) then exit; item :=first; first :=first^.next; item^.next :=nil; if (first<>nil) then first^.prev :=nil else last :=nil; end; procedure list.add(l: pitem); begin if (first=nil) then first :=l else last^.next :=l; l^.prev :=last; last :=l; end; procedure list.adddesc(i: integer); begin add(new(pdescend,init(i))); end; var alist: plist; begin new(alist,init); alist^.adddesc(1); alist^.adddesc(2); alist^.adddesc(3); alist^.adddesc(4); dispose(alist,done); end.

2 2

Re: Help for G.N.U.
by Peter Gerwinski 31 Dec '98

31 Dec '98

Hello, "The Magician"! (I'd prefer to know to whom I speak. Also, your other, identical email came without subject.)-: > I study in the University of CoruÃ±a I.S.Informatica and we > use the G.N.U. compiler. Which version? (Run `gpc -v' if you are not sure.) > I need your help, please. I need > the font codig ('codigo fuente' en espaÃ±ol) of a function > to Append like append of Turbo Pascal. I do not understand what you mean with "font codig", but recent versions of GNU Pascal have a built-in `Append' procedure; all versions of GNU Pascal have an `Extend' procedure (according to ISO-10206 Extended Pascal) which does the same. > Please, hurry up. Please be aware that I am giving you this help in my free time without being paid for it. (Of course if you want that I assign a high priority to your specific problems, you can pay me for that.;-) Hope this helps, Peter -- Peter Gerwinski, Essen, Germany, http://home.pages.de/~Peter.Gerwinski/ Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - gpc-980830 PGP key on request - 6C 94 45 BE 28 A4 96 - 0E CC E9 12 47 25 82 75 Fight the SPAM and UBE! - http://spam.abuse.net/ - http://maps.vix.com/

1 0

Re: "keypressed" from TP/BP?
by Frank Heckenbach 31 Dec '98

31 Dec '98

Peter Gerwinski wrote: > GRX? If so, your `KeyPressed' problem can easily be solved; see > the `MouseEvent'-related functions of GRX. (Although they are > named `MouseEvent', they cover the keyboard as well and in a > more flexible way than `KeyPressed' and `ReadKey' do.) > > > I'm now hung up on a little side issue. In TP and BP, there > > was a useful Boolean function "keypressed". This let you > > do things like: [...] > > The next (beta) release of GPC (scheduled for ... er ... last > week #-) will come with a portable standard unit that will cover > this. Yes, a BP compatible CRT unit. However, it does not (yet?) work well together with graphics under all circumstances. So you can try it on your own risk (and perhaps improve the unit's ability to work together with graphics), but when working with GRX, it might be easier to use the GRX keyboard functions (at least for now). Frank -- Frank Heckenbach, frank(a)fjf.gnu.de http://fjf.gnu.de/ PGP and GPG keys: http://fjf.gnu.de/plan

1 0

"keypressed" from TP/BP?
by Robert P. Ewing 30 Dec '98

30 Dec '98

Hi, all. I've been enjoying great success with GPC since Maurice and others helped me get the graphics going. I'm now hung up on a little side issue. In TP and BP, there was a useful Boolean function "keypressed". This let you do things like: begin massive loop if keypressed then begin ch := readkey; [ process keystroke here] end; [do the rest of the massive loop here] end; I can drag in "getch" from C to do the readkey, but I don't know how to do a "keypressed" function. So now I either have to wait for keystrokes at each pass through the loop, or take the getch completely out of the loop. Surely someone in the group knows how to do this, either with a (undocumented) GPC function, or by dragging in some other obscure C function! Toby Ewing ewing(a)iastate.edu 515/294-7856 http://www.agron.iastate.edu/soilphysics/ewing.html Soil Scientist, Iowa State University

2 1

Hello???
by Ken Linder (KC7RAD) 30 Dec '98

30 Dec '98

Hey, is anybody out there or was I removed from the list after the my 'problem' with UNAME? :-) At any rate, am going to attempt to compile the alpha GPC on Red Hat 5.1 this weekend. Unfortunately the Debian compiled binary didn't work too well (at all). I know for some of you compiling this may be an easy exercise but for me... Well, wish me luck! Later & happy holidays where ever you are! Ken L. kc7rad(a)vegasnet.net

2 1

RHIDE question
by Pablo Bendersky 30 Dec '98

30 Dec '98

I know it might be offtopic, but I need some help configuring RHIDE for DOS / Windows. I want RHIDE to compile .RC files, and I don't know where to configure it. In the documentation it talks about an enviroment variable, but I tried and it didn't work. Thank you, --- Pablo Gabriel Bendersky bender(a)einstein.com.ar UIN : 1916679 Buenos Aires - Argentina

2 1

GPC bug involving rewrite?
by John C. Beatty 27 Dec '98

27 Dec '98

I'm in the process of moving some pascal code from an old sun compiler to gpc, and encountered a problem with rewrite. Here's a little program that illustrates it: Program Main(input,output); Var assembly : text; begin rewrite(assembly,'output.file'); writeln(assembly,'Hello'); writeln(assembly,'Goodbye...'); end. Ths compiles ok, but when I run it, I get the error message ?GPC runtime error: (gpc-rts) Internal file namei wrong (#700) when the rewrite is executed. We appear to have version 2.7.2.1 of gpc installed, and I'm running it on a Sun UltraSPARC (Solaris 2.5). I'd be grateful if someone could tell me whether this is a known bug, and if it is, whether it's fixed in a later version of gpc. Please reply directly to me at jcbeatty(a)uwaterloo.ca - I'm not yet a member of the gpc mailing list. Thanks immensely. regards, john beatty ------------------------------ Prof. John C. Beatty Computer Science Department University of Waterloo 200 University Avenue Waterloo, Ontario Canada N2L 3G1 +1 (519) 888-4567 x 4525 voice +1 (519) 885-1208 fax

2 1

case/break bug?
by Miguel Lobo 26 Dec '98

26 Dec '98

Actually, I don't know if it's a bug or a feature, but apparently in GPC when you use 'break' inside a case statement the execution jumps to the end of the case. In Borland Pascal executing break would exit the enclosing block. For example, in while ... do begin ... case ... of ...: ... break; end; {case} end; {while} when break is executed, the 'while' loop should be stopped. Of course, this is different from C. I have not found reference to this 'break' incompatibility in the GPC documentation, so I thought I should report it, just in case.

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 December 1998