- Gpc - gnu.de

ptags utility
by Loris Caren 11 Dec '01

11 Dec '01

Does anyone know of a ctags compatiable utility which was been extended to swallow pascal as well as c - I've found some hints that such a beast might exist, but the one that ships with Linux systems doesn't seem to.

1 0

Problems with iso-8859-2 charset and nroff source manpage X-lation
by Mirsad Todorovac 11 Dec '01

11 Dec '01

Hi, everybody, Anybody help me? I'm puzzled with this - I don't know how to display non-ASCII letters on a man page, and this seriously affects my efforts to translate docs to Croatian (considers everybody from non-US locales, I guess). So, the original looks like: ----------------------------------------------------------------- .SH DESCRIPTION This man page does not contain much information about GNU Pascal because the unstructured man page format is not well suited for documenting a large program such a GNU Pascal. You can find the relevant information in the GNU Pascal Manual which is avilable in ... ----------------------------------------------------------------- My translation is: ----------------------------------------------------------------- .SH OPIS Ova man stranica ne sadr¾i previ¹e informacija o GNU Pascalu jer nestrukturiran format man stranice nije prikladan za dokumentiranje tako velikog programa kao ¹to je GNU Pascal. Relevantne informacije mo¾ete pronaæi u GNU Pascal priruèniku koji je raspolo¾iv u Texinfo formatu i formatima proivedenima iz njega, ... ------------------------------------------------------------------ But it gets printed like (messy): ------------------------------------------------------------------ OPIS Ova man stranica ne sadrM->i previM-9e informacija o GNU Pascalu jer nestruktu - riran format man stranice nije prikladan za dokumentiranje tako velikog programa kao M-9to je GNU Pascal. Relevantne informacije moM->ete pronaM-fi u GNU Pascal priruM-hniku koji je raspoloM->iv u Texinfo formatu i formatima ... ------------------------------------------------------------------ In other words, '¾' ('z' with caret above) becomes M->, '¹' ('s' with caret above) becomes M-9, 'æ' ('c' with apostrophe above) becomes M-f ... and so on. It doesn't look pretty. Notice that I have iso-8859-2 (latin 2) font installed in terminal, and Pine displays so-called diacritic signs correctly. The problem is in ``more'' and it could be in ``info'' too, but I haven't translated all .texi files yet so I don't know. It's easy for me to write ``sed -e 's/¾/z/g' -e 's/¹/s/g' -e 's/æ/c/g' ...'' (on your terminal it may not look that way, but it's actually striping each character of it's 'apostrophe above' and 'caret above' marks) but I hope that somebody reading this has a better idea. Thanks for listening, Mirsad -- This message has been made up using recycled ideas and language constructs. No plant or animal has been injured in process of making this message.

4 10

20011123 good news - bad news
by Miklos Cserzo 10 Dec '01

10 Dec '01

Hi Folks, the good news about the 20011123 version under IRIX 6.5 is that it compiles without problems and no test fails with the 20011123 test kit. The writeln works properly thanks to the --big-endian trick of Frank. The bad news are: - the kit won't compile with the native sed/grep but with the GNU versions only. - the produced binary still leaks memory on string operations unless they are in the procedures. - the -static switch is broken. Here is the log with the -v switch: Reading specs from /var/tmp/gpc/lib/gcc-lib/mips-sgi-irix6.5/2.95.2/specs gpc version 20011123, based on 2.95.2 19991024 (release) /var/tmp/gpc/lib/gcc-lib/mips-sgi-irix6.5/2.95.2/gpcpp -lang-pascal -v -I/home/pugh/miklos/src -famtmpfile=/var/tmp/cca00jWd -fbig-endian -fdelphi-comments -D__GNU_PASCAL__ -undef -D__GNUC__=2 -D__GNUC_MINOR__=95 -D__GPC__=2 -D__GPC_MINOR__=0 -D__GPC_VERSION__=2.0 -D__GPC_RELEASE__=20011123 -D__BITS_BIG_ENDIAN__=1 -D__BYTES_BIG_ENDIAN__=1 -D__WORDS_BIG_ENDIAN__=1 -D__NEED_ALIGNMENT__=1 -Dunix -Dmips -Dsgi -Dhost_mips -DMIPSEB -D_MIPSEB -DSYSTYPE_SVR4 -D_LONGLONG -D_SVR4_SOURCE -D_MODERN_C -D__DSO__ -D__unix__ -D__mips__ -D__sgi__ -D__host_mips__ -D__MIPSEB__ -D_MIPSEB -D__SYSTYPE_SVR4__ -D_LONGLONG -D_SVR4_SOURCE -D_MODERN_C -D__DSO__ -D__unix -D__mips -D__sgi -D__host_mips -D__MIPSEB -D__SYSTYPE_SVR4 -Asystem(unix) -Asystem(svr4) -Acpu(mips) -Amachine(sgi) -D__CHAR_UNSIGNED__ -D__OPTIMIZE__ -D__LANGUAGE_C -D_LANGUAGE_C -DLANGUAGE_C -D__SIZE_TYPE__=unsigned int -D__PTRDIFF_TYPE__=int -D__EXTENSIONS__ -D_SGI_SOURCE -D_MIPS_FPSET=32 -D_MIPS_ISA=_MIPS_ISA_MIPS3 -D_ABIN32=2 -D_MIPS_SIM=_ABIN32 -D_MIPS_SZINT=32 -D_MIPS_SZLONG=32 -D_MIPS_SZPTR=32 -D_COMPILER_VERSION=601 -U__mips -D__mips=3 -D__mips64 das.p /var/tmp/cca00jWd.i GNU Pascal Compiler PreProcessor version 20011123, based on gcc-2.95.2 19991024 (release) [AL 1.1, MM 40] SGI running IRIX 6.x #include "..." search starts here: #include <...> search starts here: /home/pugh/miklos/src /var/tmp/gpc/include /var/tmp/gpc/mips-sgi-irix6.5/include /var/tmp/gpc/lib/gcc-lib/mips-sgi-irix6.5/2.95.2/include /usr/include End of search list. /var/tmp/gpc/lib/gcc-lib/mips-sgi-irix6.5/2.95.2/gpc1 /var/tmp/cca00jWd.i -mno-abicalls -quiet -dumpbase das.pas -O -version -famtmpfile=/var/tmp/cca00jWd -fbig-endian -o /var/tmp/cca00jWd.s GNU Pascal version 2.95.2 19991024 (release) (mips-sgi-irix6.5) compiled by GNU C version egcs-2.91.66 19990314 (egcs-1.1.2 release). GNU Pascal version is actually 20011123, based on gcc-2.95.2 19991024 (release) /usr/bin/as -O2 -g0 -nocpp -show -G 0 -w -n32 -o /var/tmp/cca00jWd1.o /var/tmp/cca00jWd.s /usr/bin/../../usr/lib32/cmplrs/as -DEFAULT:abi=n32:isa=mips4:proc=r10k -O2 -g0 -nocpp -show -G 0 -w -n32 -o /var/tmp/cca00jWd1.o /var/tmp/cca00jWd.s /usr/lib32/cmplrs/asm -t5_ll_sc_bug -EB -pic2 -elf -O2 -g0 -G0 -w -mips4 -n32 /var/tmp/cca00jWd.s -o /var/tmp/cca00jWd1.o /var/tmp/gpc/lib/gcc-lib/mips-sgi-irix6.5/2.95.2/collect2 -non_shared -init __do_global_ctors -fini __do_global_dtors -_SYSTYPE_SVR4 -woff 131 -n32 -o das.sgi /usr/lib32/mips3/nonshared/crt1.o /var/tmp/gpc/lib/gcc-lib/mips-sgi-irix6.5/2.95.2/crtbegin.o -L/var/tmp/gpc/lib/gcc-lib/mips-sgi-irix6.5/2.95.2 -L/usr/bin -L/var/tmp/gpc/lib /var/tmp/cca00jWd1.o -lgpc -lm -dont_warn_unused -lgcc -warn_unused -L/usr/lib32/mips3 -L/usr/lib32 -dont_warn_unused -lc -warn_unused -dont_warn_unused -lgcc -warn_unused /var/tmp/gpc/lib/gcc-lib/mips-sgi-irix6.5/2.95.2/crtend.o /usr/lib32/mips3/crtn.o ld32: FATAL 9 : I/O error (/usr/lib32/mips3/nonshared/crt1.o): No such file or directory collect2: ld returned 32 exit status The crt1.o is actually in /usr/lib32/mips3. The /usr/lib32/mips3/nonshared is not exist. What is the civilized way to tell the compiler where to look for the proper objects? (Other than set up a symlink and fool the compiler.) Nice work otherwise, cheers, miklos

2 6

Logical Shift Right
by Gloria, Jing 09 Dec '01

09 Dec '01

Has anybody implemented a function to do Logical Shift Right operations on an integer in GNU PASCAL? SHR operator will do an arithmetic shift right. Or any suggestions on how to do this? I am using gpc version 20010623, based on 2.95.2 19991024 (release) on Solaris 7 in an Intel box.. Thanks in advance for any assistance. Jing Gloria Texas Instruments

5 6

How to build info from .texi???
by Mirsad Todorovac 09 Dec '01

09 Dec '01

Hi everybody! I tried to build info files from @texinfo .texi sources. What i've got is: > pwd /home/mtodorov/pascal/gcc-2.95.3/gcc/p/doc/en > makeinfo -I .. -I ../.. -I ../generated gpc.texi ./keywords.texi:15: Node `Kljuène rijeèi' previously defined at line 15. ./keywords.texi:15: Node `Kljuène rijeèi' previously defined at line 15. ./keywords.texi:15: Node `Kljuène rijeèi' previously defined at line 15. ./keywords.texi:15: Node `Kljuène rijeèi' previously defined at line 15. ./keywords.texi:15: Node `Kljuène rijeèi' previously defined at line 15. ./keywords.texi:15: Node `Kljuène rijeèi' previously defined at line 15. ./keywords.texi:15: Node `Kljuène rijeèi' previously defined at line 15. ./keywords.texi:15: Node `Kljuène rijeèi' previously defined at line 15. ./keywords.texi:15: Node `Kljuène rijeèi' previously defined at line 15. ./keywords.texi:15: Node `Kljuène rijeèi' previously defined at line 15. . . . ./keywords.texi:15: Node `Kljuène rijeèi' previously defined at line 15. ./keywords.texi:15: Node `Kljuène rijeèi' previously defined at line 15. Too many errors! Gave up. > I tried putting back `Keywords' instead of `Kljuène rijeèi', but I've got the same. Heeeeelp!!!!!!!!!! Marvin -- This message has been made up using recycled ideas and language constructs. No plant or animal has been injured in process of making this message.

2 1

Initializing variant records - how?
by Martin G C Davies 08 Dec '01

08 Dec '01

Hi, I need (want!) to initialize variant records. I have created a small example - doesn't compile of course because I can't find how to do it. I guess GPC can do it since VS_Pascal (IBM/MVS), VAXPascal and SPARCPascal all allow me to do it (all in different ways of course!). Anyone? Cheers, Martin. program varaint_test( input , output ) ; type variant_record = record case boolean of false : ( compare : integer( 32 ) ) ; true : ( case boolean of false : ( page , offset : integer( 16 ) ) ; true : ( len , disp : integer( 16 ) ) ; ) ; end ; var mgcd : variant_record := ( compare : 12345 ) ; (* How can I do this? *) begin writeln( 'ok' ) ; end.

3 6

Change in packing
by Martin Liddle 08 Dec '01

08 Dec '01

Having got 20011123 to compile, I found three differences in the compiler from our previous gpc version 20010604. It objected in two different units to code using a GOTO with the error message: " Label '1' used before containing binding contour'. The code looks correct and compiles and executes properly with the previous version. Is this a known problem as it looks as though it should be fairly easy to produce a test case if required. However the problem is easily worked around. Secondly it picked up a number of occurrences of incorrect code of the form St[9]:=Chr(65)+Random(26) that had been accepted by the previous version; so that is progress. My main problem is that the packing of records appears to have changed. For instance a record of the form TCompR=Packed Record AName:String(49); AClass:1..40; Awel:Set of 1..120; RLate,RTime:Integer; End; has the same size as previously (as reported by sizeof) but when using this record to read from a file written by code compiled with our previous version of the compiler gives nonsense values for AClass and Awel. I can work around this particular problem by changing the definition of AClass to Byte but sadly our code has a great many packed records (because it was originally written a long time ago when storage was more precious) but making all the files backwards compatible is not going to be trivial. So two questions: Is there any switch that will restore the previous packing behaviour? Assuming there is not, could someone explain in more detail what has changed and what are the rules governing packing so that I can work out how to redefine each of the affected records. -- Martin Liddle, Tynemouth Computer Services, 27 Garforth Close, Cramlington, Northumberland, England, NE23 6EW. Phone: 01670-712624. Fax: 01670-717324. Web site: <http://www.tynecomp.co.uk>.

3 11

Set Functions in RTS
by Loris Caren 06 Dec '01

06 Dec '01

I've created a 68k cross gpc (from gpc20010623). I fairly quickly found that I needed RTS set functions such as_p_set_equal and haven't found them anywhere. Can anybody point me to them, or check over the stubs that I've come up with (which appear to work for sets with fewer than 32 members)? I'm paricularly unhappy with the p_set_equal which seems to get called with one pointer being NULL if one is testing against the empty set. /* $Id$ */ #include <assert.h> /*------------------------------------------------------------------------ * *------------------------------------------------------------------------- */ typedef int SET_WORD; _p_set_equal(SET_WORD *s1, int s1z, int s1Size, SET_WORD *s2, int s2z, int s2Size) { if (s2 == (SET_WORD*)0) return *s1 == 0; if (s1 == (SET_WORD*)0) return *s2 == 0; return *s1 == *s2; } _p_set_copy(SET_WORD *s, int sz, int sSize, SET_WORD *d, int dz, int dSize) { assert(d && s); *d = *s; } _p_set_union(SET_WORD *s1, int s1z, int s1Size, SET_WORD *s2, int s2z, int s2Size, SET_WORD *d, int dz, int dSize) // [A] + [B] { *d = *s1 | *s2; } _p_set_intersection(SET_WORD *s1, int s1z, int s1Size, SET_WORD *s2, int s2z, int s2Size, SET_WORD *d, int dz, int dSize) // [A] * [B] { assert(d && s1 && s2); *d = *s1 & *s2; } _p_set_diff(SET_WORD *s1, int s1z, int s1Size, SET_WORD *s2, int s2z, int s2Size, SET_WORD *d, int dz, int dSize) // [s1] - [s2] { assert(d && s1 && s2); *d = *s1 & ~*s2; } _p_set_in(SET_WORD *s, int sz, int sSize, int bit) { return ((1<<bit) & *s) != 0; } __setbits(SET_WORD* out, unsigned long bitlength, long startbit, long endbit) { assert(startbit == endbit); *out = 1 << startbit; } /* $Log$ */

2 1

Problem building gpc-20011123
by Martin Liddle 03 Dec '01

03 Dec '01

I am trying to build gpc-20011123 based on gcc-2.95.2 under Red Hat Linux 7.2. I have done this before with earlier versions of gpc but on this occasion configure is stopping when applying the patch to gcc with the message: "Missing header for unified diff at line 449 of patch. The text leading up to this was |--- expr.c.orig Sun Nov 18 00:05:40 2001 Any clues as what the problem is ? -- Martin Liddle, Tynemouth Computer Services, 27 Garforth Close, Cramlington, Northumberland, England, NE23 6EW. Phone: 01670-712624. Fax: 01670-717324. Web site: <http://www.tynecomp.co.uk>.

3 4

GPC Keywords/Reserved Words
by Gloria, Jing 01 Dec '01

01 Dec '01

Pls advise if there is a way to make GPC accept a field name in a RECORD or variable name and that field name or variable name is a reserved or key word in GPC. I am porting software from SPARC SunOS (using SUN PASCAL compiler) to INTEL Solaris 7 (using GPC). For example : EXAMPLE A: PROCEDURE Blkkut; VAR Trow, Tline_nbr, Tcnt :INTEGER; Tptr :Parm_ptr; Tmp_erlin :Er_typ; View :BOOLEAN; Repos :INTEGER; BEGIN (* Blkkut *) IF Slct_flg THEN BEGIN View := FALSE; Blkcopy(View); <<< this is line 349; View is a GPC reserved word. IF NOT Spare_buffer_used THEN I get the following errors during compile: Shared_tpl/Mprocsrc/blockcmd.p: In procedure `Blkkut': Shared_tpl/Mprocsrc/blockcmd.p:349: parse error before `View' Shared_tpl/Mprocsrc/blockcmd.p:349: missing `)' Shared_tpl/Mprocsrc/blockcmd.p:349: too few arguments to function `Blkcopy' Shared_tpl/Mprocsrc/blockcmd.p:349: parse error before `)' EXAMPLE B: Sortmask_rec = PACKED RECORD Bin_nbr :Int8; Class :Class_typ; <<< line 226 Class is a GPC reserve word. Any :BOOLEAN; Display_ch :Displ_char; Socket_quality_delta :INT16; Test_Sum :INT16; Test_List :PACKED ARRAY[1..Maximum_tests] of INT16; END; Error messages during compile. In file included from Shared_tpl/Inc/tplmain.typ:38, from Shared_tpl/Mprocsrc/blockcmd.p:67: Dependent/Inc/misc.typ:226: parse error before `Class' Dependent/Inc/misc.typ:226: extra semicolon I am using gpc version 20010623, based on 2.95.2 19991024 (release) and I use only -O and --no-mixed-comments options when calling gpc. Thanks in advance for any assistance. Jing Gloria Texas Instruments

4 6