- Gpc - gnu.de

Can we remove junk from the list?
by Dr Christian Hicks 19 Nov '03

19 Nov '03

We seem to be getting quite a bit of spam on our list lately i.e. messages from mohamismael@netscape, Mr. Tony Shinomanet and mohammad ahmend. Is it possible for somebody to remove this junk and perhaps bar the culprits from posting more junk? Chris 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

GNU Pascal in-line assembler
by Silvio a Beccara 18 Nov '03

18 Nov '03

I have some very nice units written for Turbo Pascal / Delphi. They make use of the in-line assembler, whose syntax is different from GPC's. Could anyone tell me how I could translate them in order for them to be compilable by GPC? Thanks very much Silvio a Beccara Cornell University

3 2

Re: gpc-20030830 released (testsuite)
by Adriaan van Os 18 Nov '03

18 Nov '03

> <snip> > TEST fproc.pas: /var/tmp//ccdFaUpQ.s:unknown:Can't emit reloc > {- symbol "LSJR11"} @ file address 800. > /var/tmp//ccdFaUpQ.s:unknown:Can't emit reloc {- symbol "LSJR11"} @ > file address 796. > /var/tmp//ccdFaUpQ.s:unknown:Undefined local symbol L3$pb > failed > <snip> > TEST nlgpp2.pas: /var/tmp//cc4oD0DK.s:unknown:Can't emit reloc > {- symbol "LSJR11"} @ file address 1056. > /var/tmp//cc4oD0DK.s:unknown:Can't emit reloc {- symbol "LSJR11"} @ > file address 1052. > /var/tmp//cc4oD0DK.s:unknown:Undefined local symbol L3$pb > failed Same problem on powerpc-apple-darwin with Ada, see <http://gcc.gnu.org/bugzilla/show_bug.cgi?id=10129>. To be solved (...) in gcc-3.4, see <http://gcc.gnu.org/bugzilla/show_bug.cgi?id=13093>. Regards, Adriaan van Os

1 0

Returning multiple variables to Pascal
by Dr Christian Hicks 17 Nov '03

17 Nov '03

Thanks Eike. It works fine now. Chris 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

1 0

Returning multiple variables to Pascal
by Dr Christian Hicks 17 Nov '03

17 Nov '03

I seem to be making some sort of basic mistake. I can't get the variables to come back again. I attach the files pcallc.p, ccall.c, ccall.h and Makefile. The Pascal program does not get the value 56 back (nor would I expect it to, because it has been passed by value). I have tried various permutations of the use of pointers, but none of them seem to work. How can I change my simple program to get the value 56 back from the C function? I'll again be grateful for your advice. Thanks, Chris pcallc.p [ program pascalcallsC(input,output); procedure world; external name 'world'; procedure w1(i : integer); external name 'w1'; var i : integer; begin writeln("Hello world from Pascal"); world; writeln("Returned from C to Pascal\n"); i := 96; w1(i); writeln("Returned from C again I = ",i); 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); i = 56; } ] 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

Returning multiple variable to Pascal from a C function.
by Dr Christian Hicks 16 Nov '03

16 Nov '03

I have a lot of code which I am wanting to port from Sun's Sparcworks. The main algorithms are in Pascal, but the user interface was written in XView which was linked in via C. In Sparcworks, linking from Pascal to C involves statements of the following form: PROCEDURE X_SelAlgorithmn(VAR select_no : integer; VAR smess: string); external c; This is calling a C function which is returning values for select_no and smess. Some of my calls included a lot of variables which were set by a complicated form e.g. procedure x_rscinput_form(mc_code: string; var mc_name: string; var efficiency, d_rule_a, avail_ops, shifts, children, dist_rule_b: integer; var x_pos, y_pos, x_size, y_size: real; var tr_dev, audit_p, update_p: integer; var opt_mc_code: string; var hour_rate, ohead_rate: real; var minsu, minmc, mintr, batchsize, transfer, optmcrule: integer; var dist: boolean; var co_name: string); external c; Thus returning lots of variables with different types from C to Pascal. With GNU Pascal (thanks to the African Cheif and Kevan) I can pass variables from Pascal to C and I can get single variables back again. Is there a way that I can pass multiple variables into C and back into Pascal without resorting to global variable or using files? Any help would be very gratefully received. Many thanks, Chris 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

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

15 Nov '03

Thanks Chief. Your binaries seem to work fine. Chris 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

1 0

(no subject)
by Simone Giuliani 15 Nov '03

15 Nov '03

subscribe gpc simone.giuliani(a)tin.it

1 0

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

14 Nov '03

My installation of Pascal was very recent (and I think that I got the recent version). It was a binary distribution this time which came from the file gpc-20030830-with-gcc.i686-pc-cygwin.tar gpc -v gives: Reading specs from /usr/lib/gcc-lib/i686-pc-cygwin/3.2.3/specs Configured with: ../configure --enable-languages=pascal --enable-threads=posix --with-system-zlib --enable-nls --without-included-gettext --enable-interpreter --disable-sjlj-exceptions --enable-shared --build=i686-pc-cygwin --host=i686-pc-cygwin --target=i686-pc-cygwin --enable-haifa --prefix=/usr Thread model: posix gpc version 20030830, based on gcc-3.2.3 Having read the bash manual (thanks Russel) I now realise that my pipes weren't working because the output was going to stderr rather than stdout and the pipe needs to be &> to redirect both. Thanks again to Chief and Russel for their help. Chris 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

1 0

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