Gpc June 2004

gpc@gnu.de

21 participants
29 discussions

recursion problem
by Mingeborg＠aol.com 24 Jun '04

24 Jun '04

I am getting a recursion problem I don't understand. (gpc-20040516, LINUX on a Pentium 4 laptop.) This is a (silly) example program (enclosed as a gzipped tar file.): program subset_problem(input,output); const setlimit = 4; type subset = set of 0..255; var seta, setb: subset; function recursive_setprint(set1: subset):subset; var i : integer; found : boolean; returned : boolean; begin if set1 <> [] then begin i:= 0; found := false; while ((i <= setlimit) and (not found)) do begin if i in set1 then begin writeln('first element: ',i); found := true; recursive_setprint := recursive_setprint(set1 - [i]); end; i := i + 1; end end end; begin seta := [0..setlimit]; setb := recursive_setprint(seta); end. I'm getting the following output: first element: 0 first element: 1 first element: 2 first element: 3 first element: 4 first element: 4 first element: 3 first element: 4 first element: 4 first element: 2 first element: 3 first element: 4 first element: 4 first element: 3 first element: 4 first element: 4 first element: 1 first element: 2 first element: 3 first element: 4 first element: 4 first element: 3 first element: 4 first element: 4 first element: 2 first element: 3 first element: 4 first element: 4 first element: 3 ... and so on. I'm expecting: first element: 0 first element: 1 first element: 2 first element: 3 first element: 4 (This is the output I am getting with Digital Pascal.) Thanks for your help with this.

4 4

Re: recursion problem
by Mingeborg＠aol.com 23 Jun '04

23 Jun '04

Yes, it works. (That was an incredible turnaround time.) Thank you very much! - Inga In a message dated 6/22/2004 7:34:08 PM Eastern Daylight Time, ih8mj(a)fjf.gnu.de writes: > Thanks for the report. The attached patch will fix it. (inga1*.pas) > > 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

Re: recursion problem
by Mingeborg＠aol.com 23 Jun '04

23 Jun '04

Thanks for verifying this so quickly! - Inga In a message dated 6/22/2004 5:35:05 PM Eastern Daylight Time, chiefsoft(a)bigfoot.com writes: > > On 22 Jun 2004 at 16:45, Mingeborg(a)aol.com wrote: > > > I am getting a recursion problem I don't understand. (gpc-20040516, > > LINUX on a Pentium 4 laptop.) > > > > This is a (silly) example program (enclosed as a gzipped tar file.): > > > > program subset_problem(input,output); > > const setlimit = 4; > > type > > subset = set of 0..255; > > > > var > > seta, setb: subset; > > > > function recursive_setprint(set1: subset):subset; > [...] > > I'm expecting: > > first element: 0 > > first element: 1 > > first element: 2 > > first element: 3 > > first element: 4 > > (This is the output I am getting with Digital Pascal.) > > The output is the same with Virtual Pascal, Delphi, and > FreePascal - so > something is up with the GPC output. > > Best regards, The Chief > -------- > Prof. Abimbola A. Olowofoyeku (The African Chief) > web: http://www.greatchief.plus.com/ > > > > >

1 0

Re: GP 0.55 - limitations
by Waldek Hebisch 21 Jun '04

21 Jun '04

Can GP handle imports in implementation part? I can easily compile `tpyacc' using automake, but GP fails: /pom/kompi/gcc/tst26/gp-0.55/gp PC='/pom/kompi/gcc/tst26/gpc7-3.4/gcc/xgpc' -B/pom/kompi/gcc/tst26/gpc7-3.4/gcc/ --no-default-paths -O3 lex.pas /pom/kompi/gcc/tst26/tt2/p1/tply41a/lexmsgs.pas:99: error: module/unit interface `LexBase' could not be imported lexmsgs.gpd: GNU Pascal Preliminary Dependency File, Version 1 K 2 P x86_64-unknown-linux-gnu V 20040516, based on gcc-3.4.0 O -O3 g /pom/kompi/gcc/tst26/tt2/p1/tply41a/lexmsgs.gpi n 168 m 4a17330f6b72cfd7a579a267431ddc39 m 00000000000000000000000000000000 m 00000000000000000000000000000000 M No mention of `lexbase.gpi'! In `lexmsgs.pas': ... implementation uses LexBase; ... By the way, I would mention `GPC_UNIT_PATH' as a Makefile variable. I had to use: make CC=/pom/kompi/gcc/tst26/gpc7-3.4/gcc/xgcc PC="/pom/kompi/gcc/tst26/gpc7-3.4/gcc/xgpc" CFLAGS="-B/pom/kompi/gcc/tst26/gpc7-3.4/gcc/ -O2 -Wall" GPC_UNIT_PATH=/pom/kompi/gcc/tst26/gpc-20040516/p/units:/pom/kompi/gcc/tst26/gpc7-3.4/gcc/p/rts/ to compile using non-installed gpc. -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

2 1

threads status in GPC
by Igor Marnat 21 Jun '04

21 Jun '04

Dear All! As I have already read in archives, thread support in GPC is missing now. I know that I can "feel free to implement it myself" but, unfortunately, I am rather a compiler user than a creator, I'm not a such guru (at least, for the time being). Anyway, I've already built the program in GPC using pthreads library (using modules on C as an interface to pthreads library) and it works (at first glance). As far as I know, one of the potential damages with multithreaded programs written in GPC is working with files, isn't it? Would you please clarify me other issues (potential damages) of such kind to avoid them from the program or at least to know about them? I mean such kinds of activity which use global (system) variables that are not synchronized, etc. And another question: is it possible to use in some way pthread datatypes in GPC Pascal programs? For example, is it possible to define variable of type pthread_mutex_t in Pascal program? I know how to export variable from C unit or library, but is it possible to export datatype or anything like that? Thank you, Igor Marnat marny(a)rambler.ru

8 19

ORB bindings for Pascal?
by Neil Santos 17 Jun '04

17 Jun '04

Does anybody know anyone working on ORB bindings for Pascal? I've looked into the omniORB project, but they don't support Pascal. Other ORB projects support Delphi, but I don't know if that could be dropped into a, eherm, virginal Pascal project. I'm interested in tying an ORB implementation into my project; any pointers as to where I should start looking would be greatly appreciated. Google hates me at the moment, for some reason, and would not accomodate me, no matter how much poking and cajoling I do. TIA. -- Political Dissident Neil Santos Free Software Advocate Jabber: nsantos(a)jabber.org Please avoid sending me attachments encoded in secret formatting. See http://www.fsf.org/philosophy/no-word-attachments.html

1 0

problem building GPC-
by Gert Doering 16 Jun '04

16 Jun '04

Hi, I'm trying to build the gpc-20040516 "beta" snapshopt with GCC-3.3.x on AIX 5.1. GCC-3.x itself supports AIX 5, I have a working version on the system (binary install, not compiled-it-myself). I tried gcc-3.3.3 and gcc-3.3.1, and followed the INSTALL instructions, using a separate build directory, configuring with /gnulocal/src/gpc-build> /gnulocal/src/gcc-3.3.x/configure --enable-languages=pascal --prefix=/gnulocal which went well, including patching the respective compiler (tried with 3.3.3 and 3.3.1). Then running "make" with no arguments: /gnulocal/src/gpc-build> make make works for quite a while, and then fails in compiling /gnulocal/src/gcc-3.3.1/gcc/p/lang.c with the following messages: gcc -o p/lang.o -c -g -O2 -DIN_GCC -W -Wall -Wwrite-strings -Wstrict-prototypes -Wmissing-prototypes -DHAVE_CONFIG_H -W -Wall -Wwrite-strings -Wstrict-prototypes -Wmissing-prototypes -Wtraditional -pedantic -Wno-long-long -I. -Ip -I/gnulocal/src/gcc-3.3.1/gcc -I/gnulocal/src/gcc-3.3.1/gcc/p -I/gnulocal/src/gcc-3.3.1/gcc/config -I/gnulocal/src/gcc-3.3.1/gcc/../include -DGPC -I/gnulocal/src/gcc-3.3.1/gcc/p /gnulocal/src/gcc-3.3.1/gcc/p/lang.c /gnulocal/src/gcc-3.3.1/gcc/p/lang.c: In function `lang_init': /gnulocal/src/gcc-3.3.1/gcc/p/lang.c:511: warning: implicit declaration of function `rs6000_cpu_cpp_builtins' /gnulocal/src/gcc-3.3.1/gcc/p/lang.c:511: error: `pfile' undeclared (first use in this function) /gnulocal/src/gcc-3.3.1/gcc/p/lang.c:511: error: (Each undeclared identifier is reported only once /gnulocal/src/gcc-3.3.1/gcc/p/lang.c:511: error: for each function it appears in.) /gnulocal/src/gcc-3.3.1/gcc/p/lang.c: At top level: /gnulocal/src/gcc-3.3.1/gcc/p/lang.c:425: warning: `builtin_define_with_value' defined but not used /gnulocal/src/gcc-3.3.1/gcc/p/lang.c:432: warning: `builtin_define_std' defined but not used gmake[1]: *** [p/lang.o] Error 1 gmake[1]: Leaving directory `/gnul_43_ppc/src/gpc-build/gcc' gmake: *** [all-gcc] Error 2 the line 511 is this one: TARGET_CPU_CPP_BUILTINS (); ...which fully escapes me as for why it might not compile...!?? Can you offer advice how to track this down? Maybe I need to use a different gcc-core or a different gpc snapshot? thanks, gert -- Gert Doering gd(a)medat.de MEDAT Muenchen Tel: 089/126808-0 Fax: -50

2 1

Re: Questions about pointers
by Neil Santos 14 Jun '04

14 Jun '04

On 08:32 14/06/04, Peter N Lewis wrote: > >Yes, of course. My sincerest apologies. > > Not at all required. Pointer are a very confusing subject, in fact I > wrote an article on the subject for MacTech ages back (though it was > targeted more at specific Mac issues). > > I hope my post was useful. Yes, it was. I changed the implementation so that each object would just hold an instance of a TBank, instead of having to pass a PCredit to a TBank's constructor. Thank you. -- Political Dissident Neil Santos Free Software Advocate Jabber: nsantos(a)jabber.org Please avoid sending me attachments encoded in secret formatting. See http://www.fsf.org/philosophy/no-word-attachments.html

1 0

porting Digital Pascal to Gnu Pascal - modules
by Mingeborg＠aol.com 13 Jun '04

13 Jun '04

Iâm a (fairly) new Pascal user, and I am trying to help a friend port a Digital Pascal application to GNU. I am now looking at one of two âbig (?)â programs, which contains about 3000-4000 functions/procedures in about 40 modules. Currently, this is organized as follows: There is one âenvironmentâ module (which every other module âinherits,â) containing type definitions, global variables, and a list of â[global]â functions and procedures, declared (here) as âexternalâ. All functions/procedures used in the set of modules are [global], and they are (or at least seem to be, at this point,) more or less randomly distributed over the 40 modules, (so that a proc/func from any module might be calling a proc/func contained in any other module.) I have tried using the unit / uses syntax, (specifying that each unit âusesâ this environment module,) but I still cannot get these units linked. The compiler is complaining about several hundreds of âundefined referencesâ â I am now assuming that it is expecting the âimportedâ modules to contain the code for all of the procs/funcs called by each unit, rather than just the âexternalâ definition. Is this correct, or might I be misunderstanding what is happening? (I am currently running gpc-20040516, gcc-3.3.3, on Suse Linux. I had previously run some tests using the last Gnu Pascal release system running on cygwin.) I am hoping to avoid having to analyze dependencies and completely re-organize the modules. Is there any other way? Thanks for your help, - Inga Matthews

4 3

Re: porting Digital Pascal to Gnu Pascal -
by Mingeborg＠aol.com 13 Jun '04

13 Jun '04

Yes, that works - thank you very much! - Inga >Try moving the `uses' to the implementation part. (You can remove >the attribute then, it won't hurt, but it's rather superfluous.) >If there are any types and constants used by several interfaces, you >can put them in a kind of `env' unit. >Frank

1 0

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 June 2004