Gpc

gpc@gnu.de

5400 discussions

gpcbuild on solaris 8
by Tom Schneider 24 May '02

24 May '02

Frank: > > (It gives lots of errors on the c compile on solaris ... > > don't these scripts detect their environment?) > > What scripts, what errors? Your statement is rather vague ... Here is a precise record for solaris: http://www.lecb.ncifcrf.gov/~toms/gpc/ I ran the gpcbuild script and captured the result with script. Tom Dr. Thomas D. Schneider National Cancer Institute Laboratory of Experimental and Computational Biology Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu http://www.lecb.ncifcrf.gov/~toms/

2 1

Question on NEW(Ptr : Pointer_to_variant_Record; Tag)
by Jing Gloria 23 May '02

23 May '02

I have searched the mailing list archive and have not found the information that I needed. I hope somebody here can provide the answers or point me to where I can find them. I am porting existing code from a RISC/SunOS system to an Intel(PC)/Solaris7 system. I am using gpc version 20010623, based on gcc-2.95.2 19991024 (release). In the program below, GPC and the RISC/SunOS compiler do not produce the same results in the NEW call: New(point3, No). GPC will allocate the total size (168 bytes) of the record (ItemData) and will initialize the field 'tag' to 1 (which is NO in the enumeration type Answer). In the SunOS compiler, this same statement will allocate memory (92 bytes) to accomodate the following fields for ItemData: number, tag, A_string, False_entries) and will NOT initialize the tag field. How do I get GPC to compile the NEW call in the same way as the SunOS Pascal compiler? BTW, the Dispose call in SunOS Pascal passes both pointer and size (based on the second parameter to the dispose call) to the Dispose routine. program AlignOfDemo; Type Item_ptr = ^ItemData; Answer = (Yes, No, DontKnow, whatever); ItemData = Record number : Integer; Case tag : Answer of Yes : (RealData : Array [1..10] of Real; Num_entries : Integer); No : (A_String : Array [1..80] of char; False_entries : Integer); Whatever, DontKnow: (DontCare : Array [1..40] of Integer); End; var a: Integer; b: array [1 .. 8] of Char; c: Integer (12); d: packed record x: Integer (12); y: 0 .. 3; z: Integer end; point1, point2, point3 : Item_ptr; begin New(point1); New(point2, Whatever); (* Make sure to use same tag as in dispose *) New(Point3, No); (* Make sure to use same tag as in dispose *) Dispose (point1); Dispose(point2, Whatever); (* Make sure to use same tag as in NEW *) Dispose(Point3, No); (* Make sure to use same tag as in NEW *) WriteLn (AlignOf (a)); { Alignment of `Integer'; usually 4 bytes. } WriteLn (AlignOf (Integer)); { The same. } WriteLn (AlignOf (b)); { Alignment of `Char'; usually 1 byte. } Writeln (AlignOf (c)); Writeln ('AlingOf d is ', AlignOf (d)); { Alignment of 1 if packed record; 4 if record} { The following 3 statements cannot be compiled by AlignOf (cannot handle bit fields) if used with PACKED RECORD. Writeln ('d.x: Integer (12) is ', AlignOf (d.x)); (*Alginment of 2*) Writeln ('d.y: 1 ..3 is ', AlignOf (d.y)); (*Alginment of 4*) Writeln ('d.z: Integer is ', AlignOf (d.z)); (*alignment of 4*) {} Writeln('that''s all folks!!!') end. Here is the GPC compiled code for New(point3,NO) 108 0040 83C4F4 addl $-12,%esp 109 0043 68A80000 pushl $168 <<<<<<size to be allocated...... 109 00 110 0048 E8FCFFFF call _p_new 110 FF 111 004d 83C410 addl $16,%esp 112 0050 89C0 movl %eax,%eax 113 0052 A31C0000 movl %eax,Point3 113 00 114 0057 A11C0000 movl Point3,%eax 114 00 115 005c C7400401 movl $1,4(%eax) <<<initializes tag field.... 115 000000 34:align_demo.p **** New(Point3, No); (* Make sure to use same tag as in dispose *) and the correspoding SunOS Pascal translation: ! New(Point3, No); (* Make sure to use same tag as in dispose *) set _point3,%o0 mov 0x5c,%o1 <<<<<size to be allocated.......... call _NEW,2 nop The SunOS dispose call is translated as: ! Dispose(Point3, No); (* Make sure to use same tag as in NEW *) set _point3,%o0 mov 0x5c,%o1 call _DISPOSE,2 nop Thanks in advance for any inputs and suggestions. Regards, Jing Gloria Texas Instruments Sherman, Tx __________________________________________________ Do You Yahoo!? LAUNCH - Your Yahoo! Music Experience http://launch.yahoo.com

4 3

$define - problems
by Eike Lange 22 May '02

22 May '02

Hi Folks! SetDate (from unit DOS) is a procedure, which is only available, if "__BP_UNPORTABLE_ROUTINES__" is defined. The following program does not work: 8<------------------- program foo; {$define __BP_UNPORTABLE_ROUTINES__} uses DOS; begin SetDate (2000, 3, 3) end. ------------------->8 Defining __BP_UNPORTABLE_ROUTINES__ on the command line (-D or --define) works well. What do I wrong? I'm using 2.1 (20020510), based on gcc-2.95.2 19991024 (release) Eike

2 1

gpcbuild - still failing
by toms＠ncifcrf.gov 17 May '02

17 May '02

Joe: > Well, perhaps there was a problem because you elected to use > a different directory to the default (ie. /usr/local)? OTOH, I would > expect that one of the steps should have stopped with an error > message, if there was a problem? Thanks. No errors to indicate that. OTOH there is so much stuff going by on the screen - how is one to know if a warning is a problem? I get ../../gcc-2.95.2/gcc/toplev.c:1178: warning: initialization from incompatible po is that a problem? > I was able to compile without problems by following the instructions > verbatim (except that I chose "/temp/build" rather than "/home/fred" > as the working directory and GCC 2.95.3 instead of 2.95.1). So, it > does work and the instructions are correct. I have Mandrake 8.0 > and build GPC based on the SuSE GCC source code (I was logged > as "root", so I didn't need to worry about write privileges). > > BTW, shouldn't "gpc-20020410" be "gpc-20020510", instead? I wish. I modified the code of gpcbuild so it would not make a mistake like that again. The problem was that, unfortunately, the directory inside package.tar.gz is NOT 'package'; that was a pain until I realized I could use tar tzf to get the current name. (The intent of gpcbuild is that it can just figure out all the names by itself. If there is an upgrade, I'll just run it again and get a complete build next time with one command. Only ... it doesn't work yet! :-) So it now seems to run just fine, doing all the steps. There is a cryptic statement at http://www.gnu-pascal.de/gpc_51.html#SEC51 to 'Make sure that GNU make is installed.' A clue as to how to check that would be useful!!! Please add something there in the manual, thanks. To be safe I switched to gmake but it made no difference. Does my script work on other systems? (It gives lots of errors on the c compile on solaris ... don't these scripts detect their environment?) Tom Dr. Thomas D. Schneider National Cancer Institute Laboratory of Experimental and Computational Biology Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu http://www.lecb.ncifcrf.gov/~toms/

2 1

Can't compile GPC for FreeBSD 4
by Michael Kochiashvili 16 May '02

16 May '02

Hello, trying compile GPC for FreeBsd... Have download packages from your page gpc-2.1.tar.gz gcc-core-2.95.2.tar.gz Have perform steps 2,3 (Unpacking the source, Configuring and building GCC) as described at http://www.gnu-pascal.de/gpc_51.html#SEC51 When make step 5 Compiling GPC I get this error =================================================================== ... src=`cd /usr/local/mine_sources/gcc-2.95.2/gcc && pwd` && cd /usr/local/mine_sources/gcc-2.95.2/gcc/p/rts && make -f Makefile.in srcdir=. SCRIPTDIR="$src/p/script" SHELL="/bin/sh" CFLAGS="-g -O2" AR="ar" AR_FLAGS="rc" RANLIB="ranlib" RANLIB_TEST="[ -f ranlib ] || ( [ "i386-unknown-freebsdelf" = "i386-unknown-freebsdelf" ] && [ -f /usr/bin/ranlib -o -f /bin/ranlib ] )" RTSFLAGS="" DESTDIR="../.." generated-files src=`cd /usr/local/mine_sources/gcc-2.95.2/gcc && pwd` && cd /usr/local/mine_sources/gcc-2.95.2/gcc/p/rts && make -f Makefile.in srcdir=. SCRIPTDIR="$src/p/script" SHELL="/bin/sh" CFLAGS="-g -O2" AR="ar" AR_FLAGS="rc" RANLIB="ranlib" RANLIB_TEST="[ -f ranlib ] || ( [ "i386-unknown-freebsdelf" = "i386-unknown-freebsdelf" ] && [ -f /usr/bin/ranlib -o -f /bin/ranlib ] )" RTSFLAGS="" DESTDIR="../.." generated-files /usr/local/mine_sources/gcc-2.95.2/gcc/p/script/mkdir-p p/rts src=`cd /usr/local/mine_sources/gcc-2.95.2/gcc && pwd` && cd p/rts && CC="`echo /usr/local/mine_sources/gpc-build/gcc/xgcc -B/usr/local/mine_sources/gpc-build/gcc/ -B/usr/local/i386-unknown-freebsdelf/bin/ -I/usr/local/i386-unknown-freebsdelf/include' ' | sed -e 's,-B$[^/][^:]$,-B../../\1,g;s,^$[^/][^:]$,../../\1,'`" PC="`echo ./xgpc -B./' ' | sed -e 's,-B$[^/][^:]$,-B../../\1,g;s,^$[^/][^:]$,../../\1,'`" CONFIG_SITE=nonexisting-file $src/p/rts/configure --silent > /dev/null --srcdir=$src/p/rts `if [ x@with_shared@ = xyes ]; then echo '--with-shared'; fi` src=`cd /usr/local/mine_sources/gcc-2.95.2/gcc && pwd` && cd p/rts && make CC="`echo /usr/local/mine_sources/gpc-build/gcc/xgcc -B/usr/local/mine_sources/gpc-build/gcc/ -B/usr/local/i386-unknown-freebsdelf/bin/ -I/usr/local/i386-unknown-freebsdelf/include' ' | sed -e 's,-B$[^/][^:]$,-B../../\1,g;s,^$[^/][^:]$,../../\1,'`" PC="`echo ./xgpc -B./' ' | sed -e 's,-B$[^/][^:]$,-B../../\1,g;s,^$[^/][^:]$,../../\1,'`" SCRIPTDIR="$src/p/script" SHELL="/bin/sh" CFLAGS="-g -O2" AR="ar" AR_FLAGS="rc" RANLIB="ranlib" RANLIB_TEST="[ -f ranlib ] || ( [ "i386-unknown-freebsdelf" = "i386-unknown-freebsdelf" ] && [ -f /usr/bin/ranlib -o -f /bin/ranlib ] )" RTSFLAGS="" DESTDIR="../.." all ../.././xgpc -B../.././ -I. -W -Wall -Wpointer-arith -Wwrite-strings -Wmissing-prototypes -Wmissing-declarations -g -O2 -DRTS_RELEASE_STRING="'`cat /usr/local/mine_sources/gcc-2.95.2/gcc/p/rts/rts-version`'" --unit-path=/usr/local/mine_sources/gcc-2.95.2/gcc/p/rts --automake --print-needed-options "" 2> "needed-options" || true if grep -v '^--' "needed-options" > /dev/null; then echo "needed-options: `cat "needed-options"`"; rm -f "needed-options"; false; else true; fi needed-options: xgpc: : No such file or directory xgpc: No input files *** Error code 1 Stop in /usr/local/mine_sources/gpc-build/gcc/p/rts. *** Error code 1 Stop in /usr/local/mine_sources/gpc-build/gcc. *** Error code 1 Stop in /usr/local/mine_sources/gpc-build. =================================================================== Can you help me with any suggestion? Thank you -- Michael Kochiashvili http://www.iberiapac.ge/~kochini/

2 1

Re: almost there?
by da Silva, Joe 16 May '02

16 May '02

Well, perhaps there was a problem because you elected to use a different directory to the default (ie. /usr/local)? OTOH, I would expect that one of the steps should have stopped with an error message, if there was a problem? I was able to compile without problems by following the instructions verbatim (except that I chose "/temp/build" rather than "/home/fred" as the working directory and GCC 2.95.3 instead of 2.95.1). So, it does work and the instructions are correct. I have Mandrake 8.0 and build GPC based on the SuSE GCC source code (I was logged as "root", so I didn't need to worry about write privileges). BTW, shouldn't "gpc-20020410" be "gpc-20020510", instead? Joe. > -----Original Message----- > From: toms(a)ncifcrf.gov [SMTP:toms@ncifcrf.gov] > Sent: Thursday, May 16, 2002 3:57 PM > To: gpc(a)gnu.de; tds(a)fred.net > Subject: almost there? > > Folks: > > I seem to have done most everything to compile, but > > have nothing in my bin directory: > > /users/tds/now/gpc/current>ls > bin/ info/ > i386-unknown-freebsdelf/ lib/ > include/ man/ > /users/tds/now/gpc/current>ls bin > cpp* i386-unknown-freebsdelf-gcc* > gcc* protoize* > gcov* unprotoize* > > Any clues about where the binary went?? > > I didn't find this process simple at all. I'm building a script to do the > entire job automatically, because this process is pretty complicated to > repeat by hand each time: > > http://www.fred.net/tds/gpcbuild > > What's wrong with it? > > Tom > > Dr. Thomas D. Schneider > National Cancer Institute > Laboratory of Experimental and Computational Biology > Frederick, Maryland 21702-1201 > toms(a)ncifcrf.gov > permanent email: toms(a)alum.mit.edu > http://www.lecb.ncifcrf.gov/~toms/

1 0

almost there?
by toms＠ncifcrf.gov 16 May '02

16 May '02

Folks: I seem to have done most everything to compile, but have nothing in my bin directory: /users/tds/now/gpc/current>ls bin/ info/ i386-unknown-freebsdelf/ lib/ include/ man/ /users/tds/now/gpc/current>ls bin cpp* i386-unknown-freebsdelf-gcc* gcc* protoize* gcov* unprotoize* Any clues about where the binary went?? I didn't find this process simple at all. I'm building a script to do the entire job automatically, because this process is pretty complicated to repeat by hand each time: http://www.fred.net/tds/gpcbuild What's wrong with it? Tom Dr. Thomas D. Schneider National Cancer Institute Laboratory of Experimental and Computational Biology Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu http://www.lecb.ncifcrf.gov/~toms/

1 0

compiler warning on shortCard
by Toby Ewing 15 May '02

15 May '02

Hi, all Having fun with Schema; thanks, Frank! I mentioned yesterday that I was getting a compiler warning when I used Cards rather than Integers for Schema, and Frank wanted to know more. Below is a (remarkably familiar) test program. When I compile the program, I get the warning: Warning: comparison is always "True" due to limited range of data type for the three "i" loops. Oddly enough, the "j" and "k" loops get no warning, though in other similar programs I've had warnings for each of nested loops. The medCard variables do not produce warnings when changed to shortCard, nor does the shortCard variable produce an error if it is changed to medCard. As you might guess, byteCard produces the same warning as shortCard. regards, Toby ----------------------------------- program testmem; type Fieldary(sY, sZ : medCard) = array[1..sY,1..sZ] of Real; FPary(sX : medCard) = array[0..sX] of ^Fieldary; var Field : ^FPary; i, j, k : byteCard; nx, ny, nz : medCard; begin write('Enter sizes in x, y, and z: '); readln(nx, ny, nz); New(Field, nx); for i := 0 to nx do New(Field^[i], ny, nz); writeln('Memory allocated OK'); for i := 0 to nx do for j := 1 to nx do for k := 1 to nx do Field^[i]^[j,k] := 1.0 * i * j * k; writeln('Freeing memory...'); for i := 0 to nx do Dispose(Field^[i]); Dispose(Field); end.

3 3

Record Field Alignment
by KOCHERALKOTA harikrishna 15 May '02

15 May '02

Hello, Is there any way in GPC for doing record field alignment to a byte which is default in Borland Pascal.? One more Clarification on the line given below which is taken from the GPC documetation? gpc.info-1(297): - True packed records and arrays. Pack 8 Booleans into 1 byte. I understood that GPC Does true packing on records and arrays. And i also tried the sample program (packingdemo.pas) given by gpc. see the declaration below var A: packed array [1 ..7] of Boolean; The size of A is expected to be 1 byte but it is 2 bytes. For values 9..16 the size is 2 bytes which is ok. once again for values 17...24 it gives 4 bytes(3 bytes expected). why it is so? Thanks and Regards Karthic And Harikrishna

1 0

accessing packed record fields
by KOCHERALKOTA harikrishna 14 May '02

14 May '02

Hello, When accessing the address of a field in a Packed record, it gives an compilation error(platform is solaris 2.6). The error says "cannot take address of bitfield <field name>". Is that true in gpc that one cannot take the address of a field in a packed record ? Is there any other way of solving it? Thanks and Regards, Harikrishna

3 2

Jump to page:

2025

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