Gpc

gpc@gnu.de

5400 discussions

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

Problem building gpc 20050331
by Bruce Peltzer 04 Jan '06

04 Jan '06

I've been trying to get past a little problem when building gpc from version 20050331. I'm running hp-ux 11i v1 and normally use gcc 4.0.2, but for building, I'm using gcc 3.4.3. When I try to build gpc, make balks at this point. `echo /opt/hp-gcc-src/gcc-3.4.3/gcc/xgcc -B/opt/hp-gcc-src/gcc-3.4.3/gcc/ -B/usr/local/hppa2.0w-hp-hpux11.11/bin/ -B/usr/local/hppa2.0w-hp-hpux11.11/lib/ -isystem /usr/local/hppa2.0w-hp-hpux11.11/include -isystem /usr/local/hppa2.0w-hp-hpux11.11/sys-include | sed 's,^$[^ ]*[/\][^/\]*$gcc,\1gpc,;s/^gcc$/gpc/' ` -I. -W -Wall -Wmissing-prototypes -Wmissing-declarations -O2 --unit-path=/opt/hp-gcc-src/gcc-3.4.3/gcc/p/rts --automake --print-needed-options "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: endian.pas:37: error: module/unit interface `error' could not be imported make: *** [needed-options] Error 1 I saw a very similar problem in the archives where someone mentioned patching the Makefile for the RTSSTAGESTUFF, but it would appear that the Makefile is already what is recommended to change it to. How do I get past this. I know I haven't much further to go and I really hate hp Pascal! 8-) Many thanks, Bruce.

2 1

MinGW version of GPC based on GCC 3.4.4?
by Gerrit P. Haase 02 Jan '06

02 Jan '06

Hello Prof, Is there a MinGW version of GPC based on GCC 3.4.4 available? Gerrit -- =^..^= Good Bye Johnny -------> http://www.ramones.com/

2 2

Unfriendly reset in gpc
by Brian Wichmann 29 Dec '05

29 Dec '05

If you do reset(t, 'myfile '); it fails due to the trailing space. If one is attempting to use something very close the ISO 7185, then removing the trailing spaces is virtually impossible. Of course, it is easy to do the following: procedure MyReset(var T: text; F: <some string type>); var i: integer; begin i := 1; while F[i] <> ' ' do i := i + 1; reset(T, F[1..i-1]); end; Hence I would like to suggest that reset removes trailing spaces, as on my old machine.... (ISO 7185, with very minimal additions). Brian Wichmann.

4 6

Re: gpc on mac
by Tom Schneider 29 Dec '05

29 Dec '05

Adriaan: > In that case, since there apparently is a linker on the machine and no > libSystemStubs.a, I assume that Xcode 1.x has been installed (maybe the > machine was updated later to Mac OS X 10.4). You can find out with "Get > Info" in the Mac OS X Finder for the file /Developer/Applications/Xcode > (or /Developer/Applications/Xcode.app). AH!!! Ok, I opened that and found from About that I have Xcode Version 1.1. Get Info gives that too and says it was modified Jan 23, 2004 5:13 AM. > Anyway, an update to Xcode 2.x > should solve the problem and install libSystemStubs.a. You can > download Xcode from Apple. The ADC membership for the purpose only > requires free registration, see > <http://developer.apple.com/membership/online.html>. Also, your copy of > Mac OS X system software may (or may not) have a third CD and Xcode is > on that third CD, which saves you a 800 MB download (or Xcode may be in > a special folder if the system software is on DVD). > > I would have to look if I can add libSystemStubs.a to the downloads > from my website for those who don't have Xcode installed or an older > version (if the license permits it). Even then, I don't know if it's > worth the trouble, because other problems may (or may not) arise when > Xcode tools are missing or not up-to-date. Ok, I am a member of ADC and could get Xcode 2.2 but it turns out that would be several hours of downloading, so I'm installing from my OS X 10.4 disk. This is more likely for people to do anyway. Ok, I have Xcode 2.0 now. Let's give it a whirl ... /Developer/Pascal/gpc345u2/bin/gpc test.p % a.out go to sleep!! BINGO! Thanks! It would help in your documentation to step people through checks for the installation (or can you put it into a script?) to make sure they have the Xcode they need. For whatever reason I didn't install the latest Xcode when I installed 10.4. Installation was pretty easy though from the DVD. Tom Dr. Thomas D. Schneider National Institutes of Health National Cancer Institute Center for Cancer Research Nanobiology Program Molecular Information Theory Group Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu (use only if first address fails) http://www.ccrnp.ncifcrf.gov/~toms/ http://www.uwasa.fi/~ts/http/quote.html http://en.wikipedia.org/wiki/Top-posting

1 0

Re: gpc on mac
by Tom Schneider 29 Dec '05

29 Dec '05

Adriaan: > >>> [bluebird:~/now/t] tds% /Developer/Pascal/gpc345u2/bin/gp test.p > >>> /usr/bin/ld: can't locate file for: -lSystemStubs > >>> collect2: ld returned 1 exit status > >> > >> That is strange, on Mac OS X 10.4 libSystemStubs.a can be found in > >> /usr/lib. But -- maybe they are installed as part of Xcode instead of > >> the system software, did you install Xcode 2.x ? > > > > I probably asked for everything when I installed OS X, but I don't > > recall. If you tell me exactly where to look and for what I will do > > that. > > The critical file is /usr/lib/libSystemStubs.a. There is no such file. [bluebird:/usr/lib] tds% pwd /usr/lib [bluebird:/usr/lib] tds% ls libS* libSaturn.a libSystem.B_profile.dylib* libSaturn.dylib* libSystem.dylib@ libSystem.B.dylib* libSystem_debug.dylib@ libSystem.B_debug.dylib* libSystem_profile.dylib@ > To find a solution, again my question: has Xcode 2.x been installed > on that machine ? Again my puzzlement: I don't know what to look for. Please tell me *exactly* how to determine this. What command(s) should I type? What places in the file system should I go to to look for exactly what files? (For example, do you know if there is a Boogeyman program on your machine? Where would you look if you never heard of a Boogeyman? Where would you look if you *had* heard of a Boogeyman but didn't know where it was?) > If not, has Xcode 1.x been installed on that machine ? See above. 'Help' is, as usual on the Mac, pretty useless. google Xcode http://developer.apple.com/tools/xcode/ download "Xcode Tools 2.2" requires ADC Member Log In which I did not do. I don't know if this is a distraction or a help because I don't know what's on my machine at the moment. Nothing called X(anything) under /Applications; only X11.app under /Applications/utilities. > If not, has the assmbler/linker from my website been installed ? No. Which README is the more recent one? Are the suppposed to be different? Anyway, neither README seems to say I SHOULD have installed xcode ... Regards, Tom Dr. Thomas D. Schneider National Institutes of Health National Cancer Institute Center for Cancer Research Nanobiology Program Molecular Information Theory Group Frederick, Maryland 21702-1201 toms(a)ncifcrf.gov permanent email: toms(a)alum.mit.edu (use only if first address fails) http://www.ccrnp.ncifcrf.gov/~toms/

2 1

Simple Pascal/XView program works!
by Chris Hicks 29 Dec '05

29 Dec '05

Thanks to the Chief, my simple XView example (that pops up an OK button and a string) now works. I attach my code, just in case anybody else is interested. I will be moving on to look at some more complicated examples and will post them on the web in due course. Thanks again for helping me. Best regards, Chris.

2 1

Trying to link gpc to xview (again!)
by Chris Hicks 29 Dec '05

29 Dec '05

I am beginning to make some progress (thanks for your help so far), but would be very grateful for some more help. My attempts at producing the XView - Pascal code are in Makefile, p.p, x_message.c and x_message.h. When I try to compile I get: $ make gpc -c p.p p.p: In main program: p.p:11: error: argument to `WriteLn' is of wrong type p.p:11: error: (Use `--cstrings-as-strings' to treat `CString' as a string.) make: *** [p.o] Error 1 I based this code on various examples, including some that demonstrated passing strings between C and Pascal that I produced with the Chief's help back in 2003 (http://www.staff.ncl.ac.uk/chris.hicks/programming.htm, pcallsc2 <http://www.staff.ncl.ac.uk/chris.hicks/programming.htm, pcallsc2> near the bottom). I don't understand what is happening here. My Writeln is similar to the 2003 example that worked, likewise I am not sure why the --cstrings-as-strings is not working. I am also wondering whether the Pascal in the 2003 example was quite right. Does the second getmem release the memory? program pascalcallsC(input,output); procedure world; external name 'c_world'; procedure w1(var i : integer; s : pchar); external name 'c_w1'; var i : integer; s : pchar; begin writeln("Hello world from Pascal"); world; writeln("Returned from C to Pascal\n"); i := 96; getmem (s, 260); { ahem - we need to allocate memory } w1(i,s); writeln("Returned from C again I = ",i); writeln("Return from C cstring = ",s); getmem (s, 260); { free this here, else memory leak on next line } s := "This is a CString"; { not really a good idea, IMHO } writeln("Trying out pascal ",s); end. Many thanks, Chris.

2 4

Trying to link gpc to XView (again!)
by Chris Hicks 29 Dec '05

29 Dec '05

>Put "{$X+}" in the source code, or pass '--extended-syntax' at the >command line. I have changed the Makefile (attached) to include the command line option --extended-syntax, but I still get the same error message when I compile: $ make gpc -c p.p p.p: In main program: p.p:11: error: argument to `WriteLn' is of wrong type p.p:11: error: (Use `--cstrings-as-strings' to treat `CString' as a string.) p.p: At top level: p.p:15: error: syntax error before `more' make: *** [p.o] Error 1 The manual entry for --extended-syntax is "--extended-syntax same as --ignore-function-results --pointer-arithmetic --cstrings-as-strings -Wno-absolute (same as {$X+}). " so presumably I don't need the --cstrings-as-strings? Can you spot what's wrong? Many thanks, Chris.

2 1

Jump to page:

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