March 2001 - Gpc

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

Re: Memory use problem
by david＠tcs01.demon.co.uk 07 May '01

07 May '01

In message <Pine.LNX.4.21.0011240232590.265-100000(a)rusty.russwhit.com> Russ Whitaker writes: > > Hi > > suggestion: a script to take a snapshot of the /proc filesystem > so you can find what's growing > > take a look at > dir /proc > and cat /proc/<ID>/status > or cat /proc/<ID>/maps The application has been running for some 21 hours now, and I've been taking occasional snapshots both of status and maps. status shows VmSize and VmRSS growing. maps shows the end of the rwxp region that starts at 08171000 growing - can I deduce anything more from this? (for example is it likely to be Pascal heap space or something else?). Both status and maps snapshots follow. Any further suggestions will be gratefully received ... status ====== Name: webmake.e State: S (sleeping) Pid: 27006 PPid: 31555 Uid: 500 500 500 500 Gid: 500 500 500 500 Groups: 500 VmSize: 110776 kB VmLck: 0 kB VmRSS: 108340 kB VmData: 107944 kB VmStk: 84 kB VmExe: 1172 kB VmLib: 1360 kB SigPnd: 0000000000000000 SigBlk: 0000000000000000 SigIgn: 800000000000a006 SigCgt: 0000000008094000 CapInh: 0000000000000000 CapPrm: 0000000000000000 CapEff: 0000000000000000 maps ==== 08048000-0816d000 r-xp 00000000 03:07 32300 /var/rally/bin/webmake.e 0816d000-08171000 rw-p 00124000 03:07 32300 /var/rally/bin/webmake.e 08171000-0e9d0000 rwxp 00000000 00:00 0 40000000-40013000 r-xp 00000000 03:05 34138 /lib/ld-2.1.3.so 40013000-40014000 rw-p 00012000 03:05 34138 /lib/ld-2.1.3.so 40014000-40015000 rw-p 00000000 00:00 0 40015000-40016000 r--p 00000000 03:06 94 /usr/share/locale/en_US/LC_MESSAGES/SYS_LC_MESSAGES 40016000-40017000 r--p 00000000 03:06 96660 /usr/share/locale/en_US/LC_MONETARY 40017000-40018000 r--p 00000000 03:06 96662 /usr/share/locale/en_US/LC_TIME 40018000-40019000 r--p 00000000 03:06 96661 /usr/share/locale/en_US/LC_NUMERIC 4001a000-4001b000 rwxs 00000000 00:00 0 4001b000-4001e000 r-xp 00000000 03:06 96925 /usr/lib/libpanel.so.4.0 4001e000-4001f000 rw-p 00002000 03:06 96925 /usr/lib/libpanel.so.4.0 4001f000-40054000 r-xp 00000000 03:06 96923 /usr/lib/libncurses.so.4.0 40054000-4005d000 rw-p 00034000 03:06 96923 /usr/lib/libncurses.so.4.0 4005d000-40061000 rw-p 00000000 00:00 0 40061000-4007d000 r-xp 00000000 03:05 34156 /lib/libm-2.1.3.so 4007d000-4007e000 rw-p 0001b000 03:05 34156 /lib/libm-2.1.3.so 4007e000-4016b000 r-xp 00000000 03:05 34145 /lib/libc-2.1.3.so 4016b000-4016f000 rw-p 000ec000 03:05 34145 /lib/libc-2.1.3.so 4016f000-40174000 rw-p 00000000 00:00 0 40174000-4017c000 r--p 00000000 03:06 96658 /usr/share/locale/en_US/LC_COLLATE 4017c000-40192000 r--p 00000000 03:06 96659 /usr/share/locale/en_US/LC_CTYPE 40192000-401cc000 rwxs 00000000 00:00 0 401cc000-40292000 rwxs 00000000 00:00 0 bffeb000-c0000000 rwxp fffec000 00:00 0 -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

5 11

Bug in Delay
by Olivier Pécheux 29 Apr '01

29 Apr '01

Hi, Some of my beginners found that Delay work proprely for timing more than 12 ms. Under 11 are no delay but the C'delay do. I don't find it in the Bug list.

6 20

[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

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

gpc Units.
by Geoff Bagley 30 Mar '01

30 Mar '01

After many years of using Borland Pascal (latest 7.0) under MSDOS, I now have SuSE Linux 7.1 and with it gpc. I have been able to run a few simple Pascal test programmes. Please can anyone tell me how to obtain the equivalent of the Turbo Units crt, and printer ? I guess that if they exist they will be enshrined in the C language. I need to be able to clear a display screen or window, and also to send formatted output to my printer. Regards. -- Geoff Bagley G3FHL.

2 1

Re: Need GPC installation
by Mr. Veli Suorsa 29 Mar '01

29 Mar '01

Hi! >Andris Pavenis wrote: > >> perhaps we should have p/diffs/gcc-2.95.3.diff where this is fixed > >concatenate p/diffs/gcc-2.95.diff and the following: > >--------------------------------------------------------------------- > >*** gcc-2.953/p/gpc.c.orig Tue Feb 27 13:09:54 2001 >--- gcc-2.953/p/gpc.c Tue Mar 27 11:51:20 2001 >*************** static struct compiler default_compilers >! "%{E|M|MM:cpp -lang-c %{ansi:-std=c89} %{std*} %{nostdinc*}\ >! "%{E|M|MM:cpp0 -lang-c %{ansi:-std=c89} %{std*} %{nostdinc*}\ ^^^^ If I understand right, someone added a zero to compiler name (cpp -> cpp0) and Pascal compiler did not know this change at all. I have noticed that Mr. Lombard has very good skills with these compilers. Can You fix this change to final Gnu Pascal version of gcc-2.953 in a minute ;-) !? I am waiting for update. You asked a person who uses GPC and Linux. I would ask from my friends how many thousand there are. Let's keep in touch with you. >But this is not the end of the story So it seems to continue... How long this story is? >-- > Maurice Lombardi P.S. I found some news from communication, traffic, economy, icehockey (semifinals...) and WM-bandy (We hit Usa 12-1, Russia hit us 10-5, and so on...) in local newspaper Kaleva+ ( http://www.kaleva.fi/ or summary http://pda.kaleva.fi/ ). International pages (in english, I suppose) are under construction. With Best Regards! Veli Suorsa --- "People must believe to the future to be able to live!" ---------------------------------- J.V.Snellman, 1890. Oulu, FINLAND Mailto:VJSuorsa@Surfeu.Fi http://members.surfeu.fi/veli.suorsa/ http://www.surfeu.fi

1 0

bug ?
by Maurice Lombardi 29 Mar '01

29 Mar '01

Hi all, Since at least three monthes a bug pops in and pops out in an erratic way while running dostest.bat after a new compilation of a gpc snapshot under djgpp-2.95.2 (nothing to do with the recent discussion about 2.95.3: I have reverted to 2.95.2). It is in one or both of the test programs nicola1.pas and/or nicola2.pas. On the screen (and in the make.out logfile) I have: --------------------------------------------------- Running the GPC Test Suite. This may take a while... NOTE, if you've used the Test Suite before: To get the long output format, run `make pascal.check-long' now. TEST fjf165a.pas: SKIPPED: only for German locale TEST longr2.pas: SKIPPED: no LongReal math routines available TEST nicola1.pas: failed: ./nicola1.pas:7: referenced type `T2' undefined ./nicola1.pas:7: Internal compiler error in `handle_forward_pointers', at gpc-de cl.c:9884 Please submit a full bug report to the GPC mailing list <gpc(a)gnu.de>. See <URL:http://home.pages.de/~GNU-Pascal/todo.html> for details. TEST nicola2.pas: failed: ./nicola2.pas:4: referenced type `A' undefined ./nicola2.pas:4: Internal compiler error in `handle_forward_pointers', at gpc-de cl.c:9884 Please submit a full bug report to the GPC mailing list <gpc(a)gnu.de>. See <URL:http://home.pages.de/~GNU-Pascal/todo.html> for details. # of GPC tests 1302 # of GPC tests passed 1298 # of GPC tests skipped 2 # of GPC tests failed 2 ------------------------------------------------------- If I run the compilation directly I see that this corresponds to a SIGSEGV error --------------------------------------------------------- C:\djgpp\gnu\gcc-2.952\gcc\p\test>gpc --autobuild -g -O3 -Wall -Werror nicola1.pas nicola1.pas:7: referenced type `T2' undefined Exiting due to signal SIGSEGV Page fault at eip=0015d86d, error=0004 eax=0000007f ebx=ffe305e0 ecx=00000000 edx=ffe527e4 esi=ffe30574 edi=89000001 ebp=00389d30 esp=00389d08 program=C:\DJGPP\LIB\GCC-LIB\DJGPP\2.952\GPC1.EXE cs: sel=0117 base=83c03000 limit=ffe5dfff ds: sel=011f base=83c03000 limit=ffe5dfff es: sel=011f base=83c03000 limit=ffe5dfff fs: sel=00f7 base=000260d0 limit=0000ffff gs: sel=012f base=00000000 limit=0010ffff ss: sel=011f base=83c03000 limit=ffe5dfff App stack: [0038a3a4..0020a3a4] Exceptn stack: [0020a2b0..00208370] Call frame traceback EIPs: 0x0015d86d 0x001a5bbe 0x0013bad9 0x0013f967 0x001caee2 C:\djgpp\gnu\gcc-2.952\gcc\p\test>gpc --autobuild -g -O3 -Wall -Werror nicola2.pas nicola2.pas:4: referenced type `A' undefined Exiting due to signal SIGSEGV Page fault at eip=0015d86d, error=0004 eax=0000007f ebx=ffe305e0 ecx=00000000 edx=ffe523f0 esi=ffe30574 edi=068b4625 ebp=00389d30 esp=00389d08 program=C:\DJGPP\LIB\GCC-LIB\DJGPP\2.952\GPC1.EXE cs: sel=0117 base=83c03000 limit=ffe5dfff ds: sel=011f base=83c03000 limit=ffe5dfff es: sel=011f base=83c03000 limit=ffe5dfff fs: sel=00f7 base=000260d0 limit=0000ffff gs: sel=012f base=00000000 limit=0010ffff ss: sel=011f base=83c03000 limit=ffe5dfff App stack: [0038a3a4..0020a3a4] Exceptn stack: [0020a2b0..00208370] Call frame traceback EIPs: 0x0015d86d 0x001a5bbe 0x0013bad9 0x0013f967 0x001caee2 --------------------------------------------------------------------------------- Such a bug which appears and disappears without any relationship to the changes in gpc looks like a wandering pointer problem. It may be completely unseen on other systems. Hope this helps 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

2 1