- Gpc - gnu.de

Objects.pas
by Anuradha 26 Mar '01

26 Mar '01

Hello , Is there an equivalent for 'objects.pas'? Regards, Anuradha

2 1

Bug report: Object interface/implementation conflict
by Markus Gerwinski 25 Mar '01

25 Mar '01

Hello Folks! Got the following bug today: type ... tPruzzel = object Procedure amazooka ( proe: pProe ); end (* tPruzzel *); ... tPruzzel.amazooka ( p: pProe ); begin (* tPruzzel.amazooka *) --> if p = nil then ... end (* tPruzzel.amazooka *); The "-->" marked line yields a compiler error: "undefined identifier 'p'". To avoid it, the variable _identifier_ in interface and implementation must be the same. I don't know, if this case intentionally yields an error; anyway, I think it should be a "header does not match", not an "undefined identifier". The latter one's confusing. Yours Markus

3 3

[BUG REPORT] Set in procedure
by f.couperin 25 Mar '01

25 Mar '01

Hello, Here is a surprising bug I discovered. It's about variables of the set type in procedures. ---------------------------------------------------------------------------- -- Program SetBug2; Procedure Try; Var X : Integer = 1; OneSet : Set Of Integer = [1]; Begin If X In OneSet Then Writeln('OK') End; Begin Try End. ---------------------------------------------------------------------------- -- If I define 'OneSet' like this : Const OneSet = [1]; the problem disappears... And if the main program is : Var X : Integer = 1; OneSet : Set Of Integer = [1]; Begin If X In OneSet Then Writeln('OK') End. there is no problem. Here is my command line : gpc -v SetBug.pas -o SetBug.exe And the output is : ---------------------------------------------------------------------------- -- Reading specs from c:/djgpp/lib/gcc-lib/djgpp/2.952/specs gpc version 20000727, based on 2.95.2 19991024 (release) c:/djgpp/lib/gcc-lib/djgpp/2.952/gpcpp.exe -lang-pascal -v -famtmpfile=c:/djgpp/tmp\ccai2csi -fdelphi-comments -D__GNU_PASCAL__ -undef -D__GNUC__=2 -D__GNUC_MINOR__=95 -D__GPC__=2 -D__GPC_MINOR__=0 -D__GPC_RELEASE__=20000727 -D__BITS_LITTLE_ENDIAN__=1 -D__BYTES_LITTLE_ENDIAN__=1 -D__WORDS_LITTLE_ENDIAN__=1 -Dunix -Di386 -DGO3 2 -DDJGPP=2 -DMSDOS -D__OS_DOS__=1 -D__unix__ -D__i386__ -D__GO32__ -D__DJGPP__=2 -D__MSDOS__ -D__OS_DOS__=1 -D__unix -D__i386 -D__GO32 -D__DJGPP=2 -D__MSDOS -Asystem(unix) -Asystem(msdos) -Acpu(i386) -Amachine(i386) -Acpu(i386) -Amachine(i386) -Di386 -D__i386 -D__i386__ -D__tune_pentium__ -imacros c:/djgpp/lib/../include/sys/version.h -remap SetBug2.pas c:/djgpp/tmp\ccbi2csi.i GNU Pascal Compiler PreProcessor version 2.95.2 19991024 (release) (80386, BSD syntax) #include "..." search starts here: #include <...> search starts here: c:/djgpp/lang/pascal c:/djgpp/include c:/djgpp/contrib/grx232/include /usr/local/include JDIR/i586-pc-msdosdjgpp/include $DJDIR/lib/gcc-lib/djgpp/2.952/include $DJDIR/include End of search list. c:/djgpp/lib/gcc-lib/djgpp/2.952/gpc1.exe c:/djgpp/tmp\ccbi2csi.i -quiet -dumpbase SetBug2.pas -version -famtmpfile=c:/djgpp/tmp\ccai2csi -o c:/djgpp/tmp\ccbi2csi.s GNU Pascal version 2.95.2 19991024 (release) (djgpp) compiled by GNU C version 2.95.2 19991024 (release). SetBug2.pas: In function `Try': SetBug2.pas:7: Internal compiler error in `get_set_constructor_bits', at tree.c:5016 Please submit a full bug report. See <URL:http://www.gnu.org/software/gcc/faq.html#bugreport> for instructions. ---------------------------------------------------------------------------- -- Â«CouperinÂ»

2 1

Multithreading in GPC
by Preben Mikael Bohn 25 Mar '01

25 Mar '01

Does anyone know how to do this? Best regards Preben Bohn ===== The two rules for success are: 1. Never tell them everything you know. __________________________________________________ Do You Yahoo!? Get email at your own domain with Yahoo! Mail. http://personal.mail.yahoo.com/

1 0

Re: Problems compiling with gpc
by Steven J. Backus 23 Mar '01

23 Mar '01

Frank Heckenbach <frank(a)g-n-u.de> writes: > Try calling gpc rather than gcc. Hey, that worked. Who would have thought? Duh. Steve

2 1

Problems compiling with gpc
by Steven J. Backus 23 Mar '01

23 Mar '01

After setting up gpc and trying to use it I get: gcc: Internal GPC problem: internal option `--amtmpfile' not given With the command line: gcc -o homog homog.p Can anyone help? Thanks, Steve

3 2

Re: Problems compiling with gpc
by Steven J. Backus 23 Mar '01

23 Mar '01

russ(a)rusty.russwhit.com writes: > What does "gpc -v" show? Older versions of gpc were buggy. Reading specs from /usr/local/lib/gcc-lib/i386-pc-solaris2.8/2.95.2/specs gpc version 20010317, based on 2.95.2 19991024 (release) I just downloaded this today. > Can you reduce (and post) homog.p down to a few lines that still > show the problem? PROGRAM homog(output,infile,outfile); {NDP Pascal} BEGIN writeln; writeln('**********************************':47); writeln('* Program HOMOG version ':41,version,' *'); writeln('* Copyright (C) Jurg Ott 1988 *':47); writeln('**********************************':47); END Thanks, Steve

1 0

constans
by Pernille Bech & Klaus F. Østergaard 22 Mar '01

22 Mar '01

Hi, Can anybody help my with how to make this declaration. I want to make an array as a constant: I have been looking in the extended Pascal ISO standard, and found some thing like this: type t = array [1..3] of integer; const c = t[1:1, 2:2, 3:3]; What I want is a constant called DaysInMonth[0..1, 1..12] with containing the number of days in the particular month, the first 0..1 is wheater it is a leap year or not. program testconstarray; type monthtype = array [0..1, 1..12] of integer; const daysinmonth = monthtype[0:1:31, 0:2:28, 0:3:31, 0:4:30, 0:5:31, 0:6:30, 0:7:31, 0:8:31, 0:9:30, 0:10:31, 0:11:30, 0:12:31, 1:1:31, 1:2:29, 1:3:31, 1:4:30, 1:5:31, 1:6:30, 1:7:31, 1:8:31, 1:9:30, 1:10:31, 1:11:30, 1:12:31]; var i: integer; begin for i := 1 to 12 do begin writeln('normal ', i, ' ', daysinmonth[0,i]); end writeln; for i := 1 to 12 do begin writeln('leap ', i, ' ', daysinmonth[1,i]); end; end. It does not work - is it possible at all or is there a trick? klaus

4 3

record, schema or object has no field named `schema$'
by Anuradha 22 Mar '01

22 Mar '01

Hello, Can somebody tell me what's wrong. I got the following: [root@stwpgt bin]# /root/usr/bin/gpc -DNODLL --extended-syntax --automake -Dwin32 Jmxsad.pas /root/usr/lib/gcc-lib/i686-pc-linux-gnu/2.95.2/units/strings.pas: In function `Strpas': /root/usr/lib/gcc-lib/i686-pc-linux-gnu/2.95.2/units/strings.pas:72: record, schema or object has no field named `schema$' gpc: Internal compiler error: program gpc1 got fatal signal 11 gpc1: /root/usr/bin/gpc exited with status 1 [root@stwpgt bin]# Regards, Anuradha -- S.Anuradha Generic Data Tools, Alcatel Chennai. Alcanet : 2-757-7123

2 3

Re: Validity check before downcasting / exception handling?
by Maurice Lombardi 21 Mar '01

21 Mar '01

Prof. A Olowofoyeku (The African Chief) wrote: > On 21 Mar 2001, at 16:15, Maurice Lombardi wrote: >>> Yes, it does - but I am not sure which destructor you would be calling >>> after such an assignment. Remember that instances of classes are >>> pointers to the objects - so in the assignment, what you are moving >>> around are pointers, and there may be gotchas there. >> >> But as far as I remember delphi knows the actual type of an object at run >> time from the address of the VMT (there is one VMT for each defined object >> type) which he recovers at a fixed displacement from the address given by >> the object pointer. > > > Well, the example code causes an exception at the point where you call > "h1.free" (if you do the assignment "h1 := h2"). This happens both under > Delphi and Virtual Pascal (which is Delphi-compatible). So there is > obviously an issue there. yes but that's because in this code you do two free's. After the assignment h1 and h2 point to the same location. You then can do only one free (h1.free or h2.free), in any order. The exception arises only on the second free because the second pointer points then to nowhere. Cheers, 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 3