Gpc August 2001

gpc@gnu.de

23 participants
33 discussions

Re: Need a complete set implementation in GPC (data alignment)
by da Silva, Joe 23 Aug '01

23 Aug '01

Please see below ... Joe. > -----Original Message----- > From: Sven Jauring [SMTP:sven.jauring@hiq.se] > Sent: Thursday, August 23, 2001 6:52 PM > To: gpc(a)gnu.de > Subject: Re: Need a complete set implementation in GPC (data > alignment) > > Hi Frank > > Thank you for your help. I modifed the compiler according to your > instructions so that it uses Byte instead of MedCard for sets. > It worked wonders for the two 8 bit sets. (BSLB and BSHB in my example > code below). > Unfortunately I ran into trouble with the 16 bit sets. > > I need BIT0 to represent the least and BIT15 the most significant bit, but > since the 16 bit set is split into two bytes, BIT8 represents the least > and BIT7 the most significant bit: > > +-----+---+----+-----+---+----+ > USRINT |bit15|...|bit8|bit7 |...|bit0| > +-----+---+----+-----+---+----+ > BT |BIT7 |...|BIT0|BIT15|...|BIT8| > +-----+---+----+-----+---+----+ > > This seems like some sort of LittleEndianness? > [Joe da Silva] It sure does! Since this code seems to still be supported by it's creators, perhaps you can request them to put some sort of conditional compilation in the code, to take care of big/little-endianness? > Is it possible to have the byte order shifted, so that USRINT and BT > aligns? > > I can't just change the order of declaration for BITS, e.g > BITS=(BIT8,...,BIT15,...,BIT0,...,BIT7), since that would "undermine" the > use of ord() and subsets (e.g [BIT6..BIT8]). > > The Pascal code that I need to compile is not actually ours, so any > changes to the code has to be done everytime a new version is released. > (It is also rather large...) > The code would not have had this kind of contructions had it been ours. > ;-) > > Best Regards > Sven Jauring > > Frank Heckenbach wrote: > > Sven Jauring wrote: > > > Recently I posted some questions concerning problems with 16 bit > sets. > > I got good suggestions from some of you, but further analysis of > the > > code revealed this kind of construct: > > **************************** > > TYPE > > INT16 = INTEGER(16); > > INT8 = packed 0.. > > INT0_65535 = packed 0..65535; > > B_TYPE = (B1, B2, B3, B4, B5, B6, B7, B8); > > BITS = > (BIT0,BIT1,BIT2,BIT3,BIT4,BIT5,BIT6,BIT7,BIT8,BIT9, > > > > BIT10,BIT11,BIT12,BIT13,BIT14,BIT15); > > B_TYPE_SET = set of B_TYPE; > > BIT_SET = set of BITS; > > > > VAR > > OUT_REC = record case INT16 of > > 0 : (BSLB: B_TYPE_SET; > > BSHB: B_TYPE_SET); > > 1 : (USRINT : INT0_65535); > > 2 : (BT: BIT_SET); > > END; > > > > ****************************** > > I haven't followed the thread too intensely since I was out of town > last week. If I understand it correctly, what you need is that a set > > of a type of, say 8, elements is only 1 byte large. (However, in the > > code above, there will also be endianness problems, i.e. on a > little-endian system BSLB would align with the least significant > bits of USRINT and on a big-endian system with the most significant > bits; this problem could be overcome with a conditional compilation, > > see, e.g., the declaration of TWindowXY in GPC's CRT unit). > > GPC internally stores sets as arrays of a certain type, currently > MedCard. It is fairly easy to change that type to Byte (requires a > small change in p/rts/sets.pas (TSelElement) and two in p/util.c > (set_word_size and set_alignment)). > > However note: > > - This will slightly decrease the performance of set routines since > they will use byte rather than word operations internally. > > - Sets with and without this change will be incompatible. Don't try > to mix object files created by a patched and an unpatched > compiler. > > - This works only down to bytes. Trying even smaller types (like > Cardinal (4)) there will not work. > > Another approach would be to keep the array of words for sets at > least as big as a word, and use a single smaller type for smaller > sets. Then they would take only as many bits as required within a > packed record. However, this would require quite some effort. > Basically, every set operation would have to check if their > arguemnts are of the second type and convert them, and likewise > convert back the result. > > Personally, I'd suggest to change your Pascal code to not rely on > the variant alignment and such ... > > 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> > << File: Card for Sven Jauring >>

1 0

Need a complete set implementation in GPC (data alignment)
by Sven Jauring 23 Aug '01

23 Aug '01

Hi Recently I posted some questions concerning problems with 16 bit sets. I got good suggestions from some of you, but further analysis of the code revealed this kind of construct: **************************** TYPE INT16 = INTEGER(16); INT8 = packed 0.. INT0_65535 = packed 0..65535; B_TYPE = (B1, B2, B3, B4, B5, B6, B7, B8); BITS = (BIT0,BIT1,BIT2,BIT3,BIT4,BIT5,BIT6,BIT7,BIT8,BIT9, BIT10,BIT11,BIT12,BIT13,BIT14,BIT15); B_TYPE_SET = set of B_TYPE; BIT_SET = set of BITS; VAR OUT_REC = record case INT16 of 0 : (BSLB: B_TYPE_SET; BSHB: B_TYPE_SET); 1 : (USRINT : INT0_65535); 2 : (BT: BIT_SET); END; ****************************** The code heavily depends on the record variants to be aligned exactly on top of each other. Is there anyone in the GPC project that is working, or planning to work, on this issue? ("optimized set constructor"??) How long would it take? The company I'm working for, HiQ Approve AB, is willing to discuss a financial contribution to get this done. Best Regards Sven Jauring

2 2

Variables not on the stack
by Oldham, Adam 22 Aug '01

22 Aug '01

I was wondering if anyone could tell me where variables not are not declared within procedures (aka not on the stack) are stored? And can this address space be changed by the user easily? Thanks, 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. -----------------------------------------------------------------------

4 3

gpc compilation error under Solaris 7
by Thomas Keller 20 Aug '01

20 Aug '01

Dear support I just tried to compile gpc on Sun Solaris 7 with gcc 2.95.3. I got the following error message: Making info file `gpc.info' from `gpc.texi'. ../install.texi:143: Unknown command `smallformat'. ../install.texi:145: Unmatched `@end'. ../install.texi:155: Unknown command `smallformat'. ../install.texi:158: Unmatched `@end'. ../reference.texi:8587: itemize requires an argument: the formatter for @item. ../reference.texi:8599: itemize requires an argument: the formatter for @item. makeinfo: Removing output file `gpc.info' due to errors; use --force to preserve. make: *** [p/doc/en/info/gpc.info] Error 2 Can you give some hints how to overcome this problem? Thomas

2 1

output segmentation fault
by Christopher Ferrall 17 Aug '01

17 Aug '01

Before I spent a lot of time getting RewriteDemo to fail in the same way, any short answer to the following? A program that was running under Linux is failing on a sunfire cluster with GPC recently installed. The "RewriteDemo" in the manual executes normally, and I've tried several variants of the following code segments with the same results. var dmp_file : text; envname : string; ... assign(dmp_file,envname+'.output'); extend(dmp_file); ... A gdb backtrace: (gdb) run Starting program: /home/hpc1014/fmtest/./a.out Program received signal SIGSEGV, Segmentation fault. 0xff2b303c in strlen () from /usr/lib/libc.so.1 (gdb) bt #0 0xff2b303c in strlen () from /usr/lib/libc.so.1 #1 0xff302890 in _doprnt () from /usr/lib/libc.so.1 #2 0xff304658 in sprintf () from /usr/lib/libc.so.1 #3 0x2f664 in _p_get_file_name (File=0x690d8) at file.c:1512 #4 0x358b8 in Ioerrorfile (N=404, F=@0x690d8) at error.pas:849 #5 0x43050 in _p_unbind (File=0x690d8) at bind.c:271 #6 0x3d20c in Assignfile (T=@0x690d8, Name=@0xffbed128) at files.pas:198 #7 0x1bcec in Client_create (Environment=0x6da88, Starting_point=0x0, Starting_options=0x0) at /home/hpc1014/fmopt/fmopt_client.pas:215 #8 0x17804 in Fm_create (Environment=@0xffbed8b8, Fmobject=@0xffbed890, Starting_point=0x0, Starting_options=0x0, Sname=@0xffbed8a8) at /home/hpc1014/fmopt/fmopt.pas:86 #9 0x2b700 in Tmain () at /home/hpc1014/fmtest/testsh.pas:72 #10 0x2b794 in pascal_main_program () at /home/hpc1014/fmtest/testsh.pas:80 #11 0x2bb80 in main (argc=1, argv=0xffbefdec, envp=0xffbefdf4) at <implicit code>:81

2 1

gpc compilation error
by Thomas Keller 17 Aug '01

17 Aug '01

Hi I just tried to compile gpc on Sun Solaris 7 with gcc 2.95.3. I got the following error message: In file included from gpc-common.c:29: gbe.h:152: conflicting types for `xmalloc' ../../include/libiberty.h:129: previous declaration of `xmalloc' In file included from gpc-common.c:35: util.h:196: conflicting types for `concat' ../../include/libiberty.h:48: previous declaration of `concat' make[2]: *** [gpc-common.o] Error 1 make[2]: Leaving directory `/usr/local/gcc-2.95.3/gcc/p' make[1]: *** [gpc1] Error 2 make[1]: Leaving directory `/usr/local/gcc-2.95.3/gcc' make: *** [all-gcc] Error 2 Can you give some hints how to overcome this problem? with best regards Thomas

2 1

GPC Pedigree
by Loris Caren 17 Aug '01

17 Aug '01

Forgive me if this is a FAQ - the archive is still down and I haven't seen the question in the last month! Can anybody point to 'significant' users of GPC that I can offer to management to demonstate it's pedigree? I'd particularly like to hear of users in the aerospace / safty industries and in embedded environments.

1 0

GPC on Mac OS X / Darwin.
by pascal.pignard 16 Aug '01

16 Aug '01

Hello, I try and retry to port GPC - GNU Pascal compiler - on Mac OS X, all details are on my french web site http://perso.wanadoo.fr/blady section "Créations". I try the port with gcc 2.95.2 - (926-3) and gpc 2.1 (20010417). My strategy is to modified compiler files with the Apple gcc modified files, as it has been done for gpc based on GNU gcc files. I obtain some internal error when launching gpc - please see results file at http://perso.wanadoo.fr/blady/telechargements/gpc/resultats.pdf. The compiler don't seem to accept CALL instr for reload operation. Perhaps, I may have modify some critical sections for the compiler - please see http://perso.wanadoo.fr/blady/telechargements/gpc/CompGPC2_1.pdf for my instructions to build the compiler and http://perso.wanadoo.fr/blady/telechargements/gpc/gpc_a.tgz for the modified source files. Can you indicate where are these errors ? Otherwise, can you indicate me an other person to contact ? Is there any other person who is involved in the same port ? Thanks for all your effort, I apologize for my bad English and the French texts. Best regards, Pascal Pignard.

1 0

None
by Oldham, Adam 16 Aug '01

16 Aug '01

I was wondering if one of the GPC developers could email me privately regarding feature implementations, please. Thank youm 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. -----------------------------------------------------------------------

1 0

Building GPC on sparc-solaris
by Anuradha 16 Aug '01

16 Aug '01

Hello, We still have not solved the problem. the error in "unsetenv" of strng2.pas still persists. we commented out the procedure itself and i get a big series of errors in other lines that i attach. can you kindly tell me what the problem could be? Thanks and Regards, Anu KOCHERLAKOTA.HARIKRISHNA/OU=DCCH1(a)bt0200.net.alcatel.be wrote: > frank(a)g-n-u.de wrote: > > > Kocherlakota Harikrishna wrote: > > > > > Now we are trying to use the same sources to build the compiler on > > > solaris and while executing the command > > > "make LANGUAGES=pascal" > > > > The LANGUAGES=pascal thing is only for gcc-2.8.1, not gcc-2.95.* > > where the languages are selected with configure. Please see the > > install instructions. > > > > 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 > > KOCHERLAKOTA.HARIKRISHNA/OU=DCCH1(a)bt0200.net.alcatel.be wrote: > > > Hello > > we previously had built the compiler on Linux with the sources from > > > > ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/alpha site. > > > > Now we are trying to use the same sources to build the compiler on > > solaris and while executing the command > > "make LANGUAGES=pascal" > > > > The following error is seen: > > > > make: Fatal error in reader: Makefile, line 2219: Unexpected end of line > > seen > > > > Current working directory /home/users/gcc-2.95.2/gcc > > > > *** Error code 1 > > > > make: Fatal error: Command failed for target `all-gcc' > > > > Please help us how to proceed further . > > > > Thanks and kind Regards > > hari > > ------------------------------------------------------------------------ > /users/anuradas/anu/gcc-2.95.2/gcc/p/rts --automake /home/users/anuradas/anu/gcc-2.95.2/gcc/p/rts/string2.pas > /home/users/anuradas/anu/gcc-2.95.2/gcc/p/rts/string2.pas: In procedure `Unsetenv': > /home/users/anuradas/anu/gcc-2.95.2/gcc/p/rts/string2.pas:249: parse error before `Cstrings' > /home/users/anuradas/anu/gcc-2.95.2/gcc/p/rts/string2.pas:250: parse error before `Cstrings' > /home/users/anuradas/anu/gcc-2.95.2/gcc/p/rts/string2.pas:250: parse error before `Cstrings' > /home/users/anuradas/anu/gcc-2.95.2/gcc/p/rts/string2.pas:250: warning: expression used as a statement - value is ignored > /home/users/anuradas/anu/gcc-2.95.2/gcc/p/rts/string2.pas:250: warning: statement with no effect > /home/users/anuradas/anu/gcc-2.95.2/gcc/p/rts/string2.pas:250: warning: expression used as a statement - value is ignored > /home/users/anuradas/anu/gcc-2.95.2/gcc/p/rts/string2.pas:250: warning: statement with no effect > /home/users/anuradas/anu/gcc-2.95.2/gcc/p/rts/string2.pas:251: parse error before `Cstrings' > /home/users/anuradas/anu/gcc-2.95.2/gcc/p/rts/string2.pas:251: warning: expression used as a statement - value is ignored > /home/users/anuradas/anu/gcc-2.95.2/gcc/p/rts/string2.pas:251: warning: statement with no effect > xgpc: Internal compiler error: program gpc1 got fatal signal 11 > make[2]: *** [string2.o] Error 1 > make[2]: Leaving directory `/home/users/anuradas/anu/gcc/p/rts' > make[1]: *** [pascal.rts] Error 2 > make[1]: Leaving directory `/home/users/anuradas/anu/gcc' > make: *** [install-gcc] Error 2 -- S.Anuradha Generic Data Tools, Alcatel Chennai. Alcanet : 2-757-7123 ../.././xgpc -B../.././ -c -I. -W -Wall -Wpointer-arith -Wwrite-strings -Wmissi ng-prototypes -Wmissing-declarations -g -O2 -DRTS_RELEASE_STRING="'`cat /home/u sers/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/rts-version`'" --unit-path=/home/user s/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts --automake /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:93: pointer domain type undefined /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:93: parse error be fore `Asmname' /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:93: comma missing after identifier `Environment' /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:93: parse error be fore `;' /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:94: comma missing after identifier `Environment' /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:96: `Penvironment' redeclared as different kind of symbol /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:86: previous decla ration of `Penvironment' /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:96: redefinition o f `Environment' /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:96: `Environment' previously declared here /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas: In procedure `Set env': /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:198: type name exp ected, identifier `Penvironment' given /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:199: initial value is of wrong type /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:199: warning: type defaults to `int' in declaration of `Newenvironment' /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:208: pointer type required for `New' /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:209: invalid type argument of ``^'' /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:209: accessing fie lds of a restricted type object is not allowed /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:209: accessing a c omponent of a restricted type object is not allowed /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:209: subscripted o bject is not an array or string /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:210: invalid type argument of ``^'' /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:210: accessing fie lds of a restricted type object is not allowed /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:213: incompatible types in assignment /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas: In procedure `Uns etenv': /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:225: warning: unus ed variable `J' /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:225: warning: unus ed variable `I' /home/users/nagarajb/vinayak/gcc-2.95.2/gcc/p/rts/string2.pas:113: warning: unus ed parameter `Varname' xgpc: Internal compiler error: program gpc1 got fatal signal 11 make[2]: *** [string2.o] Error 1 make[2]: Leaving directory `/home/users/nagarajb/una/gcc/p/rts' make[1]: *** [pascal.rts] Error 2 make[1]: Leaving directory `/home/users/nagarajb/una/gcc' make: *** [all-gcc] Error 2 $

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 August 2001