February 2006 - Gpc

Fw: checking out gpc source
by Bart van den Broek 11 Feb '06

11 Feb '06

Hello, I would like to look into the gpc source code, first step is to compile the gpc+gcc. Can you please tell me what is a recent fairly stable snapshot / release? I ask this because on the website, the " source code of the current GNU Pascal release " points to the alpha snapshots, that has 20050331, but the binary/cygwin has "gpc-20051116, based on gcc-3.4.4". I am using Cygwin. Kind regards, Bart van den Broek.

2 1

Imported XCode/GPC
by Joseph Ayers 10 Feb '06

10 Feb '06

I find using GPC in XCode to present a conundrum. When I create a New Project and select a Carbon Pascal application or use one of the sample examples, They both work. If I Import a previous CodeWarrior project into XCode, I find no way to tell it that it is a Pascal Project. Inspection of the make file generated by the NewProject command indicates that it does that, but a search of the XCode User Manual for the words "Make File" returns nothing. More amazing, when I select "Edit active target" from the "Project" menu I get a different window for a project created with New Project as opposed to Import. How do I tell XCode to execute a make file for an imported project? Is there anyway to copy stuff from a pascal project created with NewProject to an Imported Codewarrior Pascal project. Thanks, -- Joseph Ayers, Department of Biology and Marine Science Center Northeastern University East Point, Nahant, MA 01908 Phone (781) 581-7370 x309(office), x335(lab) Cellular (617) 755-7523, FAX: (781) 581-6076 eMail: lobster(a)neu.edu AIM: roboplasm http://www.neurotechnology.neu.edu/ http://inls.ucsd.edu/neurobots.html

2 1

Re: Getting an error while compiling GPC-20051116 on HP-UX11i v2
by prasad svr 08 Feb '06

08 Feb '06

Hi, I am trying to install gpc-20051116 on HP-UX11i v2(Itanium) with gcc-3.4.3.Intially igot "make[2]: *** [needed-options] Error 1", itried with "touch /gcc/gpcbuild/gcc/p/rts/needed-options".After that iam geeting an error like make[2]: Leaving directory `/gcc/gpcbuild/gcc' cd ./p/rts && make CC="`echo /gcc/gpcbuild/gcc/xgcc -B/gcc/gpcbuild/gcc/ -B/usr/ local/ia64-hp-hpux11.23/bin/ -B/usr/local/ia64-hp-hpux11.23/lib/ -isystem /usr/l ocal/ia64-hp-hpux11.23/include -isystem /usr/local/ia64-hp-hpux11.23/sys-include ' ' | sed -e 's,$-[BI]$$[^/][^:]$,\1../../\2,g;s,^$[^/][^:]*/$,../../\1,'` " PC="`echo ./xgpc -B./' ' | sed -e 's,$-[BI]$$[^/][^:]$,\1../../\2,g;s,^$[ ^/][^:]*/$,../../\1,'`" GCC_VERSION="3.4.3" SHELL="/bin/sh" CFLAGS="-g -O2" PFL AGS="" AR_FLAGS="rc" RTSFLAGS="" DESTDIR="../.." AR="ar" RANLIB="ranlib" RANLIB_ TEST="" all make[2]: Entering directory `/gcc/gpcbuild/gcc/p/rts' /gcc/gpcbuild/gcc/xgcc -B/gcc/gpcbuild/gcc/ -B/usr/local/ia64-hp-hpux11.23/bin/ -B/usr/local/ia64-hp-hpux11.23/lib/ -isystem /usr/local/ia64-hp-hpux11.23/includ e -isystem /usr/local/ia64-hp-hpux11.23/sys-include -c -I. -W -Wall -Wmissing-p rototypes -Wmissing-declarations -g -O2 -Wpointer-arith -Wwrite-strings "/gcc/ gcc-3.4.3/gcc/p/rts/rts.c" /gcc/gcc-3.4.3/gcc/p/rts/rts.c:663:1: warning: "open" redefined In file included from /usr/include/fcntl.h:9, from /gcc/gcc-3.4.3/gcc/p/rts/rts.c:89: /usr/include/sys/fcntl.h:259:1: warning: this is the location of the previous de finition /gcc/gcc-3.4.3/gcc/p/rts/rts.c: In function `_p_CStringStrSignal': /gcc/gcc-3.4.3/gcc/p/rts/rts.c:2446: warning: empty body in an if-statement /gcc/gcc-3.4.3/gcc/p/rts/rts.c: In function `_p_SqRt': /gcc/gcc-3.4.3/gcc/p/rts/rts.c:831: internal compiler error: in emit_move_insn, at expr.c:2812 Please submit a full bug report, with preprocessed source if appropriate. See <URL:http://gcc.gnu.org/bugs.html> for instructions. make[2]: *** [rts.o] Error 1 make[2]: Leaving directory `/gcc/gpcbuild/gcc/p/rts' make[1]: *** [pascal.rts] Error 2 make[1]: Leaving directory `/gcc/gpcbuild/gcc' make: *** [all-gcc] Error 2 # can any one help on this. Regards Prasad > ----- Original Message ----- > From: "Waldek Hebisch" <hebisch(a)math.uni.wroc.pl> > To: gpc(a)gnu.de > Subject: Re: Getting an error while compiling GPC-20050331 on HP-UX11i v2 (Itanium > Date: Thu, 2 Feb 2006 02:00:49 +0100 (CET) > > > prasad svr wrote: > > > I tried with gpc-20051116 on HP-UX11i v2 (Itanium),i am geeting > > an error like > > > > > > ocal/ia64-hp-hpux11.23/include -isystem > > /usr/local/ia64-hp-hpux11.23/sys-include' ' | sed -e > > 's,$-[BI]$$[^/][^:]$,\1../../\2,g;s,^$[^/][^:]*/$,../../\1,'`" > > PC="`echo ./xgpc -B./' ' | sed -e > > 's,$-[BI]$$[^/][^:]$,\1../../\2,g;s,^$[^/][^:]*/$,../../\1,'`" > > GCC_VERSION="3.4.3" SHELL="/bin/sh" CFLAGS="-g -O2" PFLAGS="" > > AR_FLAGS="rc" RTSFLAGS="" DESTDIR="../.." AR="ar" RANLIB="ranlib" > > RANLIB_TEST="" all > > make[2]: Entering directory `/gcc/gpcbuild/gcc/p/rts' > > echo '{ rts-config.inc. Generated automatically from > > rts-config.h. }' > rts-config.inc > > sed -e 's,/\*,{,g;s,\*/,},g;s,^[ \t]*#$.*$,{$\1},' rts-config.h > > >> rts-config.inc > > ../.././xgpc -B../.././ -I. -W -Wall -Wmissing-prototypes > > -Wmissing-declarations -g -O2 > > --unit-path=/gcc/gcc-3.4.3/gcc/p/rts --automake > > --print-needed-options "/gcc/gcc-3.4.3/gcc/p/rts/endian.pas" 2> > > "needed-options" || true > > if grep '^[^-]' "needed-options" > /dev/null; then echo > > "needed-options: `cat "needed-options"`" >&2; rm -f > > "needed-options"; false; else true; fi > > needed-options: /gcc/gcc-3.4.3/gcc/p/rts/endian.pas:37: error: > > module/unit interface `Error' could not be imported > > make[2]: *** [needed-options] Error 1 > > make[2]: Leaving directory `/gcc/gpcbuild/gcc/p/rts' > > make[1]: *** [pascal.rts] Error 2 > > make[1]: Leaving directory `/gcc/gpcbuild/gcc' > > make: *** [all-gcc] Error 2 > > > > can any one help on this. > > > > Just few remarks: > > 1) "needed-options" for gpc-20051116 is na empty file, so you may try > to do > > touch /gcc/gpcbuild/gcc/p/rts/needed-options > > to create the file and restart the build. > > 2) gpc is trying to compile "endian.pas". However "--print-needed-options" > should disable normal compilation, so something is wrong with command > line processing. > > 3) Similar problem was already reported for HP-UX (ATM with no resolution): > > http://www.gnu-pascal.de/crystal/gpc/en/mail13084.html > > > -- > Waldek Hebisch > hebisch(a)math.uni.wroc.pl > -- _______________________________________________ Search for businesses by name, location, or phone number. -Lycos Yellow Pages http://r.lycos.com/r/yp_emailfooter/http://yellowpages.lycos.com/default.as…

3 3

Possible bug in `ReadStr'/`Val'
by Frank Heckenbach 07 Feb '06

07 Feb '06

I noticed an incorrect handling of string parameters in a few RTS routines which might cause incorrect results when reading from strings where the actual parameters are expressions (not simple variables). `ReadStr' and `Val' might be affected, though I haven't been able to reproduce an actual problem. The rarely used `StringTFDD_Reset' is affected, that's where I found the problem. (fjf1099.pas) The attached patch fixes the bugs. For `StringTFDD_Reset', this results in an interface change, though for most uses it should be compatible (string -> conformant array of char), as long as the actual parameter is not an empty string. You'll have to rebuild the RTS and your units. You can do `make pascal.update-release' in the build gcc subdirectory before making GPC, to force GPC to recompile things. (I'm not including a version change in the patch, as the patch might be useable against several releases this way, though I've tested it only against one.) Waldek, you told me you're going to release a new snapshot soon. Please test this patch with your current code and include it if possible. Frank -- Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/, 7977168E GPC To-Do list, latest features, fixed bugs: http://www.gnu-pascal.de/todo.html GPC download signing key: ACB3 79B2 7EB2 B7A7 EFDE D101 CD02 4C9D 0FE0 E5E8

2 6

External directives
by Prof A Olowofoyeku (The African Chief) 04 Feb '06

04 Feb '06

Hi If you have something like this: function foo : integer; external 'bar' name 'foo'; you get a warning that the library name in 'external' is ignored. Is it possible, instead of ignoring the library name, to generate an implicit call to link it? For example, the example above would resolve to an implicit '-lbar' (i.e., it would be the equivalent of '{$l bar}'). Is this feasible, and is there any reason why it would be a bad idea? BTW: this causes a compiler error: const barlib = 'bar'; function foo : integer; external barlib name 'foo'; Best regards, The Chief -------- Prof. Abimbola A. Olowofoyeku (The African Chief) web: http://www.greatchief.plus.com/

3 3

crt & ncurses
by Russell Whitaker 04 Feb '06

04 Feb '06

Hi Some time ago I complained about getting grafic characters instead of f thru z, etc., when ncurses updated from 5.3 to 5.4 Since then I discovered if I insert SetPCCharSet( false ) before the first write the problem goes away. The following program illistrates it: program ncur; uses CRT; begin if( GetPCCharSet ) then begin writeln("true"); SetPCCharSet( false ); writeln("true"); end else writeln("false"); end. Russ

3 4

Ada calling Pascal (not working)
by lanceboyle＠qwest.net 03 Feb '06

03 Feb '06

(This post is related to two earlier posts by me, "Linking Ada to Pascal" and 'Where is documentation for "new argument to _p_initialize (@)" PCStrings.') I have not been able to solve the problem when calling _p_initialize from Ada. I still get the Ada compiler telling me, "too many arguments in call." I suspect that I might be passing the wrong _kinds_ of arguments but not the wrong number. Here are the three relevant files: <file adacallspascal.adb> with Ada.Text_IO; use Ada.Text_IO; with Ada.Command_Line; use Ada.Command_Line; with Ada.Integer_Text_IO; use Ada.Integer_Text_IO; procedure adacallspascal is procedure mypascalprocedure; pragma Import(Convention => C, Entity => mypascalprocedure); procedure init_pascal_main_program; pragma Import(Convention => C, Entity => init_pascal_main_program, External_Name => "_p__M0_init"); procedure p_initialize; pragma Import(Convention => C, Entity => p_initialize, External_Name => "_p_initialize"); procedure p_finalize; pragma Import(Convention => C, Entity => p_finalize, External_Name => "_p_finalize"); Argument_Count_Plus_1 : integer := Argument_Count + 1; Command_Name_String : string := Command_Name; C_Command_Name_String : aliased string := Command_Name_String & ASCII.NUL; begin Put_Line ("Hello from adacallspascal."); Put(Argument_Count_Plus_1); New_Line; Put_Line(Command_Name_String); -- Initialize the Pascal RTS. p_initialize (Argument_Count_Plus_1, C_Command_Name_String'access, null, 0); -- Line 29 init_pascal_main_program; mypascalprocedure; p_finalize; Put_Line ("Goodbye from adacallspascal."); end adacallspascal; <file mypascalprogram.pas> program mypascalprogram(input, output); {$gpc-main=dummy} procedure mypascalprocedure; attribute( name = 'mypascalprocedure'); begin writeln('Hello from mypascalprocedure.'); end; begin {When exported to Ada, this part should not be called.} writeln('In mypascalprogram; error if calling from Ada.'); end. <The commands> gpc -c mypascalprogram.pas gnatmake adacallspascal.adb -gnatf -largs mypascalprogram.o / Developer/Pascal/gpc344d2/lib/gcc/powerpc-apple-darwin8/3.4.4/libgpc.a <Output from attempting to compile> gcc -c -gnatf adacallspascal.adb adacallspascal.adb:29:05: too many arguments in call gnatmake: "adacallspascal.adb" compilation error Jerry

4 4

Incompatible types error detection bug
by Gale Paeper 02 Feb '06

02 Feb '06

GPC fails to detect incompatible type errors between two or more new-pointer-type defined types where the same domain-type is used in new-type type-denoters. An example demonstrating the bug: {$extended-pascal} program grp12(output); type t1 = ^integer; t2 = ^integer; var x: t2; procedure foo(p: t1); begin end; begin foo(x); {WRONG - incompatible types} writeln('FAIL'); end. Although both t1 and t2's new-pointer-type type-denoter have the same domain-type, t1 and t2 are distinctly different types. Therefore, t1 and t2 aren't assignment-compatible types (per ISO 10206 paragraph 6.4.6) and the foo(x) call is illegal since the actual-parameter type (t2) isn't assignment-compatible with the formal-paramter type (t1) as required by ISO 10206 paragraph 6.7.3.2. The compiler I used was the latest version of Mac OS X GPC that Adriaan built and made available for downloading. The specs: Reading specs from /Developer/Pascal/gpc345u2/lib/gcc/powerpc-apple-darwin8/3.4.5/specs Configured with: ../gcc-3.4.5/configure --enable-languages=pascal,c --enable-threads=posix --target=powerpc-apple-darwin8 --host=powerpc-apple-darwin8 --build=powerpc-apple-darwin8 --prefix=/Developer/Pascal/gpc345u2 Thread model: posix gpc version 20051116, based on gcc-3.4.5 P.S. This bug was originally found by Mike Hore and discussed on the MacPascal mailing list. The above example is a distilled version of the problem he found while working with Mac OS X GPC and the Mac OS X GPCPInterfaces. Gale Paeper gpaeper(a)empirenet.com

3 2

Re: Getting an error while compiling GPC-20050331 on HP-UX11i v2
by prasad svr 02 Feb '06

02 Feb '06

Hi, I tried with gpc-20051116 on HP-UX11i v2 (Itanium),i am geeting an error like ocal/ia64-hp-hpux11.23/include -isystem /usr/local/ia64-hp-hpux11.23/sys-include' ' | sed -e 's,$-[BI]$$[^/][^:]$,\1../../\2,g;s,^$[^/][^:]*/$,../../\1,'`" PC="`echo ./xgpc -B./' ' | sed -e 's,$-[BI]$$[^/][^:]$,\1../../\2,g;s,^$[^/][^:]*/$,../../\1,'`" GCC_VERSION="3.4.3" SHELL="/bin/sh" CFLAGS="-g -O2" PFLAGS="" AR_FLAGS="rc" RTSFLAGS="" DESTDIR="../.." AR="ar" RANLIB="ranlib" RANLIB_TEST="" all make[2]: Entering directory `/gcc/gpcbuild/gcc/p/rts' echo '{ rts-config.inc. Generated automatically from rts-config.h. }' > rts-config.inc sed -e 's,/\*,{,g;s,\*/,},g;s,^[ \t]*#$.*$,{$\1},' rts-config.h >> rts-config.inc ../.././xgpc -B../.././ -I. -W -Wall -Wmissing-prototypes -Wmissing-declarations -g -O2 --unit-path=/gcc/gcc-3.4.3/gcc/p/rts --automake --print-needed-options "/gcc/gcc-3.4.3/gcc/p/rts/endian.pas" 2> "needed-options" || true if grep '^[^-]' "needed-options" > /dev/null; then echo "needed-options: `cat "needed-options"`" >&2; rm -f "needed-options"; false; else true; fi needed-options: /gcc/gcc-3.4.3/gcc/p/rts/endian.pas:37: error: module/unit interface `Error' could not be imported make[2]: *** [needed-options] Error 1 make[2]: Leaving directory `/gcc/gpcbuild/gcc/p/rts' make[1]: *** [pascal.rts] Error 2 make[1]: Leaving directory `/gcc/gpcbuild/gcc' make: *** [all-gcc] Error 2 can any one help on this. Regards Prasad > ----- Original Message ----- > From: "Waldek Hebisch" <hebisch(a)math.uni.wroc.pl> > To: gpc(a)gnu.de > Subject: Re: Getting an error while compiling GPC-20050331 on HP-UX11i v2 (Itanium > Date: Fri, 27 Jan 2006 15:53:27 +0100 (CET) > > > prasad svr wrote: > > I am trying to compile GPC-20050331 on HP-UX11i v2 (Itanium 64 > > bit) Using gcc-3.4.3.While compiling Iam getting an error like > > bellow. > > > > > > gcc ?c -DUSE_LIBUNWIND_EXCEPTIONS -g -O2 -DIN_GCC -W -Wall > > -Wwrite-string -Wstrict-prototypes -Wmissing -Prototypes > > -pedantic -Wno-long-long -DHAVE_CONFIG_H > > -DGENERATOT_FILE -I. ?I. > > > > -I/gcc/gcc-3.4.3/gcc -I/gcc/gcc-3.4.3/gcc/. > > ?I/gcc/gcc-3.4.3/gcc/../include -I ../intl > > /gcc/gcc-3.4.3/gcc/gcov-iov.c -o gcov-iov.o > > > > In file included from /gcc/gcc-3.4.3/gcc/gcov-iov.c: 27: > > > > /gcc/gcc-3.4.3/gcc/version.c: 8 error: Conflicting type for `version string' > > /gcc/gcc-3.4.3/gcc/version.h: 3 error: previous declaration of > > `version string' was here > > /gcc/gcc-3.4.3/gcc/version.c: 8 error: conflicting types for `version string' > > /gcc/gcc-3.4.3/gcc/version.h: 3 error: previous declaration of > > `version string' was here > > > > First suspect is incorrectly patched backend: gpc contains a patch which > modifies both `version.c' and `version.h'. If only one of them is patched > you will get errors as above. > > gpc-20050331 is likely to have problems on IA-64, but the above is _not_ > one of expected problems. To avoid other problems I would suggerst > to use gpc-20051116 version from: > > http://www.math.uni.wroc.pl/~hebisch/gpc/gpc-20051116.tar.bz2 > > or search the mailing list archives for patches. > > -- > Waldek Hebisch > hebisch(a)math.uni.wroc.pl > -- _______________________________________________ Search for businesses by name, location, or phone number. -Lycos Yellow Pages http://r.lycos.com/r/yp_emailfooter/http://yellowpages.lycos.com/default.as…

2 1