November 2003 - Gpc

Simple GNU P calls GNU C works on Redhat but not Cygwin!
by Dr Christian Hicks 14 Nov '03

14 Nov '03

I just got home and received African Chief's advice and thought I would try African Chief's fix out with Cygwin (I haven't got Linux at home yet). I first tried the version that worked on Linux, but got error messages with Cygwin. My files are pcallc.p, ccall.c, ccall.h and Makefile. The error messages are at the bottom. I would be grateful for any ideas. Thanks, Chris pcallc.p: [ program pascalcallsC(input,output); procedure world; external name 'world'; begin writeln("Hello world from Pascal"); world; end. ] ccall.c: [ #include <stdio.h> #include "ccall.h" void world (void) { printf("\nHello World from C\n"); } ] ccall.h: [ extern void world(void); ] Makefile: [ pcallc : pcallc.p ccall.o gpc -o pcallc pcallc.p ccall.o ccall.o : ccall.c gcc -c ccall.c clean: rm *.o pcallc ] Error messages (typed manually - don't know how to cut and paste from a bash X console!): [ /usr/lib/gcc-lib/i686-cygwin/3.2.3/libgpc.a(rts.o)(.text+0x18ef):rts.c: undefined reference to `_ftruncate64' /usr/lib/gcc-lib/i686-cygwin/3.2.3/libgpc.a(rts.o)(.text+0x18b4):rts.c: undefined reference to `_lseek64' collect2: ld returned 1 exit status make: *** [pcallc] Error1 ] Dr Christian Hicks Senior Lecturer, School of Mechanical & Systems Engineering, Stephenson Building, University of Newcastle upon Tyne, NE1 7RU. Phone: +44 191 222 6238 Mobile 0795 8317804 Fax: + 44 191 222 8600 Homepage: http://www.staff.ncl.ac.uk/chris.hicks

3 2

GNU Pascal calls GNU C
by Dr Christian Hicks 14 Nov '03

14 Nov '03

Hi, I am trying to write some examples to demonstrate calling C functions from Pascal. I can call void functions with no parameters, but I am wanting to be able to pass variables. My efforts so far include pcallc.p, ccall.c, ccall.h and Makefile. If function w1 and references to it are removed, it works fine. I am just wanting to learn how to pass variables. Any help would be gratefully received. Many thanks, Chris pcallc.p: [ program pascalcallsC(input,output); procedure world; external name 'world'; procedure w1(i : integer); external name 'w1'; var i : integer; external name 'i'; begin writeln("Hello world from Pascal"); world; writeln("Returned from C to Pascal\n"); i := 96; w1(i); writeln("Returned again from C\n"); end. ] ccall.c [ #include <stdio.h> #include "ccall.h" void world (void) { printf("\nHello World from C\n"); } void w1 (int i) { printf("Hello again from C i = %i\n",i); } ] ccall.h: [ extern void world(void); extern void w1(int i); ] Makefile: [ pcallc : pcallc.p ccall.o gpc -o pcallc pcallc.p ccall.o ccall.o : ccall.c gcc -c ccall.c clean: rm *.o pcallc ccall.o ] Dr Christian Hicks Senior Lecturer, School of Mechanical & Systems Engineering, Stephenson Building, University of Newcastle upon Tyne, NE1 7RU. Phone: +44 191 222 6238 Mobile 0795 8317804 Fax: + 44 191 222 8600 Homepage: http://www.staff.ncl.ac.uk/chris.hicks

2 1

installation problem, cannot exec `gpcpp'
by Ian Miller 13 Nov '03

13 Nov '03

Hi, I realise this is probably more of a MinGW problem than a GNU Pascal problem, but I thought someone here might know the solution. I've seen a few similar reports in the mailing list archives, but I cannot seem to find one that is identical. First off, I'll tell you how I went about installing Gnu Pascal to run under (networked) Windows XP:- 1. Run MinGW-3.1.0-1.exe 2. Run MSYS-1.0.9.exe and point it at the MinGW installation. 3. Install gpc-mingw-gcc-2.95.3-6-depends.tar.gz 4. Run gpc-2.1-mingw-1.exe 5. Add c:\mingw\bin to the (Windows XP) command path. So far so good, everything works, and I'm able to compile hello.pas from MSYS with no problems! The problem occurs after I change directory from C: (where everything is installed) to another drive. Then when I try to compile hello.pas, I get:- $ cd /s/ $ gpc hello.pas c:\mingw\bin\gpc.exe: installation problem, cannot exec `gpcpp': No such file or directory Can someone please advise? Is this to do with mounting? My mounts look something like this (if it helps):- C:\msys\1.0\bin on /usr/bin type user (binmode,cygexec,noumount) C:\msys\1.0\bin on /bin type user (binmode,cygexec,noumount) C:\msys\1.0 on / type user (binmode,noumount) C:\msys\1.0 on /usr type user (binmode,noumount) c:\mingw on /mingw type user (binmode) a: on /a type user (binmode,noumount) c: on /c type user (binmode,noumount) d: on /d type user (binmode,noumount) p: on /p type user (binmode,noumount) s: on /s type user (binmode,noumount) t: on /t type user (binmode,noumount) Any help greatly appreciated! cheers, Ian

4 5

bug missing gpcpp
by James Alan Sellers 10 Nov '03

10 Nov '03

I am running windows XP and I am getting an error when trying to compile a pacal program. The error reads: gpc: installation problem, connot exec 'gpcpp': No such file or directory. I have downloaded and installed the patch from the MinGW website and a few others as well and all give the same error. This error, according to the patches documentation, shouldn't be happening on XP but it is and the patch fails to fix the bug. I'd apreciate and help, advice, or what ever can be done to help. Thanks Alan

2 1

PDCurses and msys
by Prof. A Olowofoyeku (The African Chief) 08 Nov '03

08 Nov '03

Hi I have seen a funny thing when running a crt program in the msys environment, using pdcurses-2.6. This is the program: program Foo; uses crt; var i: Integer; begin clrscr; for i := 1 to ParamCount do WriteLn (ParamStr (i)) end. This is the weird error I get when I run the program: "LINES value must be >= 2 and <= 1: got 1 initscr(): LINES=1 COLS=1: too small." If I do "export LINES=25" and run the program again, I get: "LINES value must be >= 2 and <= 1: got 25 initscr(): LINES=25 COLS=1: too small." If I do "export COLS=80" and run the program again, I get: "LINES value must be >= 2 and <= 1: got 25" Obviously there is a problem somewhere. How can a value be ">=2" while being "<=1" at the same time? This is a new mathematical experience for me! Any clues? Thanks. Best regards, The Chief --------- Prof. Abimbola Olowofoyeku (The African Chief) Web: http://www.bigfoot.com/~african_chief/

5 5

A question to intialization of objects
by ThomasM 02 Nov '03

02 Nov '03

Hello ! I didn't have found a satisfying answer in the archives to the following problem: In BP the constructor of TObject resets all datafields to 0 by assuming a simple type to the SELF-pointer with the length SIZEOF(SELF). This allowes all further derived objects to reset their datafields just by calling INHERITED TOBJECT.INIT(...); in their constructors. Creating Objects in Delphi resolves also zero-initialized datafields. GPC does not so when creating a simple Object by NEW (OBJECTPOINTER, INIT(...)); Is there a way in GPC to do something similar to the TObject-Constructor from BP within the constructor of a basic object or could it be implemented in GPC that creating a new Object with NEW will zero the memory allocated for the new object ? Greetings, Thomas

3 2

A Question to RHIDE ...
by ThomasM 01 Nov '03

01 Nov '03

Hello ! I've got one problem with RHIDE: I need some conditional defines according to the programs destiny. Say these are COND_A and COND_B. Calling GPC from a commandline I need to add --CIDEFINE=COND_A and --CIDEFINE=COND_B to do so. In RHIDE a can give additional compiler options. This works well as I add only one of both defines, like --cidefine=COND_A but when I enter --CIDEFINE=COND_A --CIDEFINE=COND_B the compiler-call won't work... Does anyone here nows a solution ? Greetings, Thomas

1 0

Bison
by Frank Heckenbach 01 Nov '03

01 Nov '03

There's a new Bison test release: http://www.lrde.epita.fr/people/akim/download/bison-1.875c.tar.gz While not all Bison problems are solved yet, it might be possible to build the last GPC release with it. 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: 51FF C1F0 1A77 C6C2 4482 4DDC 117A 9773 7F88 1707

1 0