Gpc May 2001

gpc@gnu.de

26 participants
40 discussions

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

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

operators pow and **
by Maurice Lombardi 01 Feb '02

01 Feb '02

Hi all, It seems that operators pow and ** cannot be redefined in gpc. Is that expected ? I work with djgpp / w98 dos box (should be irrelevant I think) 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

4 4

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

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

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 2001