Gpc January 2006

gpc@gnu.de

22 participants
32 discussions

sockets
by Thys Meintjes 12 Jan '06

12 Jan '06

Hello All, I cannot seem to find a standard socket or sockets unit in the gpc unit library. It's not possible that a modern implementation of any language can lack this functionality in it's standard libraries, so, the problem must be me. Is the socket functionality hosted in another unit or is there some other standard way to implement network functionality in gpc ? I'd prefer using gpc above freepascal as all my other code targets the gcc platform. I really like the idea of linking to colleagues c and pascal libraries (I've yet to determine if this is possible with fpc). I got a fpc socket example up and running within 5 minutes of downloading fpc, I scrounged the web for 2 hours trying to find a gpc socket example with no luck... regards Thys

2 1

Success!
by Peter N Lewis 11 Jan '06

11 Jan '06

Thanks to all the help from Frank, Waldek, Adriaan, Gale and others, I now have all of Interarchy compiling and running under GPC. 270 files, 160,000 lines of code, 290 Mac Style object types, all compiling and working. There are probably a few glitches left here or there, but I've tested out the bulk of the program and nothing remains broken (that was not before - it is bug for bug compatible ;-). Thanks all! Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

6 5

Type-inquiry ISO compliance bugs
by Gale Paeper 10 Jan '06

10 Jan '06

ISO 10206, paragraph 6.4.9, requires a type-inquiry's type-inquiry-object be either a variable-name (i.e., [imported-interface-identifier '.']variable-identifier) or a parameter-identifier (with a defining point in the closest-containing formal-parameter-list). GPC has a few bugs in enforcing that requirement. As the following test programs demonstrate, GPC will erroneously also accept constant-identifiers, literal numbers, and field-designators as type-inquiry-objects. {$extended-pascal} program gale9 (output); const c = 2; var y : type of c; {WRONG} {c is neither a variable-identifier or a parameter-identifier} begin writeln('FAIL'); end. {$extended-pascal} program gale10 (output); var y: type of 3.14; {WRONG} {3.14 isn't an identifier at all let alone being either a variable-identifier or a parameter-identifier} begin writeln('FAIL'); end. {$extended-pascal} program gale11 (output); var x: record f : integer; end; y: record f1: type of x.f; {WRONG} {x.f is a field-designator which isn't a variable-identifier or parameter-identifier} end; begin writeln('FAIL'); end. Note: I think the above test programs only show a small sample of what GPC will erroneously accept as a type-inquiry-object. If I'm not completely misunderstanding the compiler source code in this area, it looks like the compiler will accept nearly all, if not all, legal expressions as a type-inquiry-object which is a whole lot more than what my test programs are showing as wrong (as well as, a whole lot more than what ISO requirements allow for a type-inquiry-object). The compiler I used was the latest version of Mac OS X GPC that Adriaan built and made available for downloading few weeks ago. 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 Gale Paeper gpaeper(a)empirenet.com

3 2

Network functions?
by Eike Lange 09 Jan '06

09 Jan '06

Hi Folks! Are there any network functions like socket, listen, accept and so on available for GPC? Eike

3 3

More identifier redeclaration error problems
by Gale Paeper 08 Jan '06

08 Jan '06

It looks like the "20050325: check identifier scopes stricter" bug fix didn't completely solve all the identifier redeclaration error problems involving an applied occurance of an outer scope identifier in an inner scope with a defining occurance of the identifier. The following two test programs will compile and run with the latest GPC version which shows that GPC still has a few problems with detecting redeclaration errors in scopes involving record type-denoter and formal-parameter-list regions. {$extended-pascal} program gale7 (output); type t = record case integer of 0: (boolean : boolean) {WRONG} otherwise (f : integer) end; begin writeln('FAIL'); end. {$extended-pascal} program gale8 (output); type t = integer; procedure foo(t: t); {WRONG} begin end; begin writeln('FAIL'); end. The compiler I used was the latest version of Mac OS X GPC that Adriaan built and made available for downloading few weeks ago. 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 Gale Paeper gpaeper(a)empirenet.com

1 0

C to Pascal translation
by Chris Hicks 07 Jan '06

07 Jan '06

There are a number of programs that do translation from C to Pascal: http://c2pas.sourceforge.net/ http://www.synaptics.com/people/daveg/ and from Pascal to C http://www.rocketaware.com/spec/softdev/lang/pascal/ I have not tried these out - just found them on Google. It might be worth giving them a try with some short bits of code. Best regards, Chris.

3 5

Translating C to Pascal
by Prof A Olowofoyeku (The African Chief) 07 Jan '06

07 Jan '06

Hi all I am trying to translate some gcc code to gpc, and I have become a tad blearly-eyed with this bit: " while(size--) crc =(crc << 8) ^ crctab[((crc >> 24) ^ *cp++) & 0xFF]; for(; length; length >>= 8) crc =(crc << 8) ^ crctab[((crc >> 24) ^ length) & 0xFF]; crc = ~crc & 0xFFFFFFFF; " Can anyone make any sense of this? Thanks. ps: I understand the shl and shr calls, and I think I have a good idea of what the rest is doing - but I would prefer not to guess (bette safe than sorry!). Thanks. Best regards, The Chief -------- Prof. Abimbola A. Olowofoyeku (The African Chief) web: http://www.greatchief.plus.com/

1 0

Linking Pascal to Ada
by lanceboyle＠qwest.net 07 Jan '06

07 Jan '06

Sorry for the Ada content herein but I have to cross-bother *someone*. 8^) I'm trying to get a simple Ada program to access simple Pascal code-- see bottom of this post. (I also want to call Ada code from Pascal, but I haven't tried that yet.) I've read "6.11.2 Exporting GPC Libraries to Other Languages" from the GPC docs and "2.10.1 Interfacing to C" in the GNAT docs. I _think_ that I can prepare the Pascal code and call it from Ada assuming C calling conventions; at least, that's what I'm trying. The command lines that I am using, with the working directory the one containing all the source files, are: gpc -c mypascalunit.pas -o mypascalunit.o gnatmake adacallspascal.adb -largs mypascalunit.o /Developer/Pascal/ gpc344d2/lib/gcc/powerpc-apple-darwin8/3.4.4/libgpc.a (the gnatmake command is all one line) This causes the following output (sorry if there are any impolite line breaks): gcc -c adacallspascal.adb gnatbind -x adacallspascal.ali gnatlink mypascalunit.o /Developer/Pascal/gpc344d2/lib/gcc/powerpc- apple-darwin8/3.4.4/libgpc.a adacallspascal.ali ld: Undefined symbols: _frommypascalunit gnatlink: cannot call /usr/bin/gcc gnatmake: *** link failed. I'm linking libgpc.a because I think that is the GPC runtime library and prevents complaints about undefined symbols such as __p_Write_String. Question: Why doesn't the linker see _frommypascalunit??? Here are the two programs, Ada main and Pascal unit. with Ada.Text_IO; use Ada.Text_IO; procedure adacallspascal is procedure frommypascalunit; pragma Import(C, Frommypascalunit); begin Put_Line("Hello from adacallspascal."); frommypascalunit; end adacallspascal; unit mypascalunit; interface procedure frommypascalunit; implementation procedure frommypascalunit; begin writeln('Hello from frommypascalunit.'); end; end. Thanks for any comments at all. I've never tried anything like this. Jerry

2 1

variant record selector cannot be passed by reference
by prasad svr 04 Jan '06

04 Jan '06

Hi I am using gpc version 20050331, based on gcc-3.4.3 on solaris 10 intel platform. I have a record like below datobj_pointer = ^datobj_record; datobj_record = RECORD next : datobj_pointer; name : PASNameString; fct : Byte_integer; phystype: phystype_list; fix_ptr : datobj_pointer; nextfct : datobj_pointer; CASE subtype : all_obj_list OF Mea : (cur_mea : meaobj_pointer; com_mea : meaobj_pointer); Ind : (cur_ind : indobj_pointer; com_ind : indobj_pointer); Tim : (cur_tim : timobj_pointer; com_tim : timobj_pointer); Scr : (cur_scr : scrobj_pointer); Evt : (cur_evt : evtobj_pointer); Cmd : (cur_cmd : cmdobj_pointer); Con : (cur_con : conobj_pointer); Tbl : (cur_tbl : tblobj_pointer); Txf : (cur_txf : txfobj_pointer); Com : (cur_com : comobj_pointer; com_com : comobj_pointer); Par : (cur_par : param_pointer; com_par : param_pointer); Slv : (cur_slv : slave_pointer ); END; datobj : datobj_pointer; When I call the function like below r_w_phystype (iofil,i_o,buffer,20,datobj^.phystype,field); I am getting below error "variant record selector cannot be passed by reference". Our software is working on below platforms and compilers platform compiler sun sun pascal compiler vms vms pascal compiler digital unix digital unix pascal compiler windows borland delphi 7 In the above platforms we are not getting any problems,so please suggest whether I have any workaround? Regards Prasad -- _______________________________________________ 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

Current distribution of gpc from www.cygwin.com does not work.
by Chris Hicks 04 Jan '06

04 Jan '06

I have just downloaded the test suite to try and resolve my problem with gpc that I posted earlier. The output from the test suite follows: $ make rm -f *.dat *.o *.s *.i *.gpi *.gpd *.gpc core a.out stderr.out *.exe testmake.tmp dummy.c dummy.pas dummy.out diff_cr*.tmp fixcr fixcr.exe rm -f todo/a.out todo/*.exe todo/*.o todo/*.s todo/*.i todo/*.gpi todo/*.gpd todo/core GP= PC="gpc" PFLAGS=" --autobuild -g -O3 -W -Wall -Wno-unused " PFLAGS_NO_PATHS="-g -O3 -W -Wall -Wno-unused " SRCDIR="." TEST_MAKE_FLAG=test-make-flag "./test_run" "*.pas" | tee test_log | "./test_sum" -d /usr/lib/gcc-lib/i686-pc-cygwin/3.3.3/../../../../i686-pc-cygwin/bin/ld: crtbegin.o: No such file: No such file or directory /usr/lib/gcc-lib/i686-pc-cygwin/3.3.3/../../../../i686-pc-cygwin/bin/ld: crtbegin.o: No such file: No such file or directory ./test_run: fatal: cannot compile a simple program Nothing was run. My problem seems to be due to the gpc/gcc distribution! Best regards, Chris.

4 5

2025

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 January 2006