March 2001 - Gpc

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

gpc return value
by Oldham, Adam 21 Mar '01

21 Mar '01

It doesn't appear that gpc has a return value. I've seen compilers that will return non-0 for a file that failed to compile and a 0 for success. Is there a flag to enable this in GPC? Adam ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

2 1

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

21 Mar '01

Hi! Thanks for your reply! >Mr. Veli Suorsa wrote >> >> I use latest Rhide and it works fine with Gnu C/ C++ and >> Fortran compiler. Some new features are still hoped ;-). >> >> I have tried to install GPC to Dos / Djgpp (from download >> sites a zip-file, >gpc20bb.zip). >> >> Can You help me, because I need pascal to my test and Gpc >> compiler don't works? Or can you tell me who can solve >> this problem! I have read your instructions and done all >> right, but they are not good enough to succeed >> installation in Dos / Djgpp. >> >> What should I do? > >What have you done exactly ? > From where have you downloaded gpc20bb.zip: may be >outdated. I first download GPC from mirror sites: ftp://ftp.funet.fi/pub/mirrors/simtel.net/pub/simtelnet/gnu/djgpp/v2gnu/gpc… It does not work with latest Rhide and Dos/ Djgpp. I tried (with Big African Chief help) sites: ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/djgpp/gpc20ab.zip It does not work with Rhide, neither. And I got a new download- siteaddress from CloseBSD, which works: ftp://agnes.dida.physik.uni-essen.de/home/maurice/gpc2952b.zip >What exactly does not work and what are error messages ? I saw from Rhide screen command: gpc -o pay3_4.exe --automake="-g" -g pay3_4.pas -lgpc -lm before editing djgpp.env file. and error message was like: ... undefined reference to '-p-inoutres' ... collect2: ld returned 1 exit status Adviced GPC version works with Rhide Menu in two parts: -compiler and -make, not yet -Build all. Can you tell me why -Build all does not works? gpc -g -c pay3_4.p -o pay3_4.o works, ... and make: gcc -o pay3_4.exe pay3_4.o -lgpc -lm works, too. I had to do some adds/ changes to djgpp.env file like: [gpc] COMPILER_PATH=%/>;COMPILER_PATH%%DJDIR%/bin [rhide] RHIDE_TYPED_LIBS_DJGPP.p=gpc m RHIDE_TYPED_LIBS_DJGPP.pas=gpc m PASCAL_TYPE=GPC RHIDE_LD_PASCAL=gcc RHIDE_COMPILE_GPC=$(RHIDE_GPC) $(RHIDE_GPC_FLAGS) $(LOCAL_OPT) -c $(SOURCE_NAME) -o $(OUTFILE) RHIDE_COMPILE_LINK_GPC=$(RHIDE_LD_PASCAL) $(RHIDE_LIBDIRS) $(C_EXTRA_FLAGS) -o $(OUTFILE) $(OBJFILES) $(LIBRARIES) $(RHIDE_LDFLAGS) $(LDFLAGS) $(RHIDE_LIBS) RHIDE_COMPILE_LINK_PASCAL_AUTOMAKE=$(RHIDE_COMPILE_LINK_$(PASCAL_TYPE)) And so on... You can see all these Rhide variables from saved *.mak file. I really hope that someone do a good installation program (and instructions, too) for these variables. My test program (pay3_4.p, that you have seen before) size of .exe file (436 kb) is 3 times larger than Fortran (150 kb). Strip helps to 300 kb, but is there anywhere a better optimizer? I really think that someone can do it with assembler within 1 KB. Thank you very much and see you soon! 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

3 2

Gtk+ Port -- New snapshot available
by Nicola Girardi 21 Mar '01

21 Mar '01

Hi Folks!! A new snapshot is available on agnes, in my public FTP directory. (pub/home/nicola/gtkunit) Changes: more tutorial programs, lots of bugs have been fixed (there will still be many ;)). -- Nicola Girardi <nikke(a)swlibero.org>

1 0

Re: Validity check before downcasting / exception handling?
by Markus Gerwinski 21 Mar '01

21 Mar '01

Hello Folks! Prof Abimbola Olowofoyeku wrote: > object is class > > returns True if object is an instance of the class denoted by class or > one of its descendants, and False otherwise. That's exactly what I need. According to Frank, there's already a plan to put it into GPC, so I'll wait and see... > > Alternatively, I could need a mechanism to absorb the runtime error > > fired by "as" before it interrupts the program. > In Delphi, from what the help file says, the program should not compile > if the typecasting is wrong. GPC could do the same. ??? How should the compiler know? I mean, the object type of a pointer at runtime is a matter of runtime. Yours Markus

4 7

this is probably a really bad question
by Oldham, Adam 20 Mar '01

20 Mar '01

But, I didn't see it in the documentation. When creating a new variable in a function or main part of a program: temp : String[30]; Does the compiled code when run, automatically zero out the new variable temp? It either appears that is does, or the memory used in my apps was already zeroed to begin with. Thanks again, Adam Oldham ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

2 1

set constructor elements must be of ordinal type
by Oldham, Adam 20 Mar '01

20 Mar '01

If I have: DownChrSet : SET OF CHAR; LowerT = '\C2'; DownChrSet := [LowerT]; I get the above error. Isn't Char an ordinal type though? And \C2, being a hex, fits into one char, so shouldn't this be ok? Adam ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

2 1