- Gpc - gnu.de

Environment Variables within Code.
by Andrew McCall 15 Nov '02

15 Nov '02

Hi, Is it possible to access environment variables within gpc code, for example $USER ? -- Thanks, Andrew McCall Internet/Linux System Administrator I.C.T. Division Oldham MBC Civic Centre West Street Oldham OL1 1UU Tel : 0161 911 3990 Fax : 0161 911 3998 Email : it.andrew.mccall(a)oldham.gov.uk ********************************************************************** This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the system manager. This footnote also confirms that this email message has been swept by MIMEsweeper for the presence of computer viruses. www.oldham.gov.uk **********************************************************************

5 4

problem when compiling gpc20021111 with gcc-2.95.3 under djgpp
by Maurice Lombardi 13 Nov '02

13 Nov '02

Hi, Doing the build as usual, compilation dies at stage 2 when compiling the rts: --------------------------------------------------------------------------- c:/djgpp/b/gnu/gcc-2.953/build.djg/gcc/xgpc -Bc:/djgpp/b/gnu/gcc-2.953/build.djg/gcc/ -Bc:/djgpp/i586-pc-msdosdjgpp/bin/ -I. -W -Wall -Wpointer-arith -Wwrite-strings -Wmissing-prototypes -Wmissing-declarations -O2 --unit-path=/dev/c/djgpp/b/gnu/gcc-2.953/gcc/p/rts --automake --print-needed-options "/dev/c/djgpp/b/gnu/gcc-2.953/gcc/p/rts/endian.pas" 2> "needed-options" || true if grep -v '^--' "needed-options" > /dev/null; then echo "needed-options: `cat "needed-options"`" >&2; rm -f "needed-options"; false; else true; fi needed-options: gpcpp.exe: usage: c:/djgpp/b/gnu/gcc-2.953/build.djg/gcc/gpcpp.exe [switches] input output make.exe[2]: *** [needed-options] Error 1 make.exe[2]: Leaving directory `c:/djgpp/b/gnu/gcc-2.953/build.djg/gcc/p/rts' make.exe[1]: *** [pascal.rts] Error 2 make.exe[1]: Leaving directory `c:/djgpp/b/gnu/gcc-2.953/build.djg/gcc' make.exe: *** [all-gcc] Error 2 --------------------------------------------------------------------------- there have been many changes in gpcpp.c The only djgpp-related patch in the p directory now fails. it was ---------------------------------------------------------------------------- --- gpcpp.c.orig Thu Mar 29 16:56:24 2001 +++ gpcpp.c Thu Mar 29 17:22:06 2001 @@ -2480,6 +2480,21 @@ default_len = strlen (default_prefix) - 7; default_prefix[default_len] = 0; } + +#ifdef __DJGPP__ + for (p = include_defaults; p->fname; p++) { + if (strncmp(p->fname,"$DJDIR",6)==0) { + char * djdir = getenv("DJDIR"); + if (djdir) { + char * nwname = (char *) xmalloc (strlen(djdir)+strlen(p->fname)-5); + strcpy (nwname, djdir); + strcat (nwname, p->fname+6); + p->fname=nwname; + } + } + } +#endif + /* Search "translated" versions of GNU directories. These have /usr/local/lib/gcc... replaced by specd_prefix. */ if (specd_prefix != 0 && default_len != 0) ----------------------------------------------------------------------------- It was used to make known the djgpp root directory for includes, but all this part has been changed. I have rerun the offending instruction with addition of the -v option. result is ------------------------------------------------------------------------------ Reading specs from c:/djgpp/lib/gcc-lib/djgpp/2.953/specs gpc version 20021111, based on gcc-2.95.3 20010315/djgpp (release) c:/djgpp/b/gnu/gcc-2.953/build.djg/gcc/gpcpp.exe -v -I. -isystem c:/djgpp/b/gnu /gcc-2.953/build.djg/gcc/include -isystem c:/djgpp/i586-pc-msdosdjgpp/bin/includ e -famtmpfile=c:\djgpp\tmp\ccFZUxzs.gpa -funit-path=/dev/c/djgpp/b/gnu/gcc-2.953 /gcc/p/rts -fautomake -fprint-needed-options -fdelphi-comments -D__GNU_PASCAL__ -D__GNUC__=2 -D__GNUC_MINOR__=95 -D__GPC__=2 -D__GPC_MINOR__=1 -D__GPC_VERSION__ =2.1 -D__GPC_RELEASE__=20021111 -D__BITS_LITTLE_ENDIAN__=1 -D__BYTES_LITTLE_ENDI AN__=1 -D__WORDS_LITTLE_ENDIAN__=1 -D__NEED_NO_ALIGNMENT__=1 -Dunix -Di386 -DGO3 2 -DDJGPP=2 -DMSDOS -D__unix__ -D__i386__ -D__GO32__ -D__DJGPP__=2 -D__MSDOS__ - D__unix -D__i386 -D__GO32 -D__DJGPP=2 -D__MSDOS -Asystem(unix) -Asystem(msdos) - Acpu(i386) -Amachine(i386) -D__OPTIMIZE__ -W -Wall -Wpointer-arith -Wwrite-strin gs -Wmissing-prototypes -Wmissing-declarations -Acpu(i386) -Amachine(i386) -Di38 6 -D__i386 -D__i386__ -D__tune_pentium__ -imacros c:/djgpp/b/gnu/gcc-2.953/build .djg/gcc/djgpp.ver -remap /dev/c/djgpp/b/gnu/gcc-2.953/gcc/p/rts/endian.pas c:\d jgpp\tmp\ccaPFVYK.i GNU Pascal Compiler PreProcessor version 20021111, based on gcc-2.95.3 20010315/ djgpp (release) (80386, BSD syntax) gpcpp.exe: usage: c:/djgpp/b/gnu/gcc-2.953/build.djg/gcc/gpcpp.exe [switches] in put output [exited with 1] ------------------------------------------------------------------------------ Any hint ? Maurice -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 63 54 95 mailto:Maurice.Lombardi@ujf-grenoble.fr

2 2

Re: gpc-20021111 supports gcc-3.1.1
by Frank Heckenbach 13 Nov '02

13 Nov '02

Matthias Klose wrote: > attached are the testsuite results for a gcc-3.2.1 (prerelease) based > gpc, built for i386-linux: As I said, debug info is broken with gcc-3. Please test with `-g0'. 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

Calling Pascal routines from C
by Markus Gerwinski 12 Nov '02

12 Nov '02

Hi folks, I'm currently trying to call a Pascal routine from within a C program. To this mail I attached a few sources demonstrating the way I'm trying to do so. Compiling them with gpc -c foo.pas gcc footest.c -o footest leads to an error message "undefined reference to `Bar'". What am I doing wrong? Thanks in advance Markus

5 11

Writing applications working with DB in GPC
by Nick Ioffe 11 Nov '02

11 Nov '02

Hi! Is there any packages to communicate with DB in GPC. The DB is SQL compatible, ORACLE prefferable. Thank you in advance, Nick

2 1

Is there a Graph unit?
by Waldek Hebisch 10 Nov '02

10 Nov '02

One of the first thing newcomers from TP want is Graph unit. Is there such thing for GPC (using X11 for output)? I have fetched GRX from the web site, but as I understand it is not compatible with TP Graph unit. On the web site there is also C library for BGI emulation. Is there a Pascal interface to it? -- Waldek Hebisch hebisch(a)math.uni.wroc.pl or hebisch(a)hera.math.uni.wroc.pl

2 2

what's the status of gcc-3 based gpc?
by George Shapovalov 09 Nov '02

09 Nov '02

Hi guys. First I would like to thank everybody involved for the really nice and hard work on making this compiler rock! Frank: you may remember, that I am a developer for Gentoo Linux (http://www.gentoo.org) Recently we announced the availablity of gcc-3.2 based profile (we skipped 3.1 series as the ABI was changed once again, though gcc guys promised to stabilize it now. We'll see :)). The gcc-2.95.x based profiles are supported still and will be supported for quite some time to come (and this is one of the niciest features of source based distro in play), so we still have the working version of gpc available. Nonetheless, our gcc-3.2 based profile is quite stable at the moment and I would be interested in getting gpc to play nicely along. Therefore I would like to ask about the present state of the gpc development on the gcc-3 backend. I am thinking about creating the ebuild for the gcc-3 based gpc to let interested users sample and test it. The ebuild will have a "for testing" status - i.e it will not be considered stable, until you decide to make a release. We will soon have an ability to support cvs based ebuilds (that is it gets built from the present cvs code). Such ebuilds never get stable status, but are perfectly fit for this purpose. Meanwhile I can do snapshot based ebuild and periodically update it (this is generally as easy as just renaming it, provided the build procedure does not change). Please let me know what do you think about this and where I can get the source. I tried to search the site, however I was unable to easily find the gcc-3 based source (and the 20020910 snapshot says it does not support gcc-3). George >As an aside: As you may have read, Waldek Hebisch and I are working >on the port to gcc-3 (it's not completely stable yet, but partially >usable). One of the major drawbacks of gcc-2 is the internal memory >management system ("obstacks") which has caused us many toubles in >GPC. This bug, again, was related to obstacks, so in fact your test >worked already with the gcc-3 based GPC. However, I've now fixed the >real problem so it also works with obstacks (which was also >necessary to fix a related problem I discovered while debugging it >(fjf704.pas) and to made the code cleaner, anyway). > >Frank

2 1

BUG? empty else
by Eike Lange 08 Nov '02

08 Nov '02

Hi Folks! The following program compiles without warnings: { 2.1 (20020510), based on gcc-2.95.2 19991024 (release) } program bug; var i: Integer = 1; begin if i = 1 then WriteLn ('is 1') else if i = 2 then { do nothing } else { do nothing } end. Eike

4 14

Random number generator
by Wood David 07 Nov '02

07 Nov '02

Andrew McCall was looking for a random number generator. I use this bit of code which I like because it is integer based and so gives the same answers on different machines. I think it originally came from Numerical Recipes in Pascal: VAR { These need to be global / static } random_seed : INTEGER; { General purpose random seed } random_source : ARRAY [0..15] OF INTEGER:= (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); { 16 integers used by randgen to construct pseudo-random numbers } FUNCTION randgen( VAR random_seed : INTEGER ): DOUBLE; VAR i, x : integer; BEGIN IF random_seed < 0 THEN { Setup seed array } BEGIN random_seed:= -random_seed; FOR i:= 0 TO 15 DO BEGIN random_seed:= (UINT(random_seed)*2416 + 374441) MOD 1771875; random_source[i]:= TRUNC(random_seed*0.5643738); END; END; x:= random_source[15]+random_source[0]; x:= x MOD 1000000; FOR i:= 0 TO 14 DO random_source[i]:= random_source[i+1]; random_source[15]:= x; randgen:= x*0.000001; END; It's actually two random number generators in one! If you call it first with a negative integer random seed it sets up the array of 16 integers (in random source). These are used to generate the random number between 0 and 1 to 6 decimal places. This is a non-repeating sequence of 1 million random numbers. It also returns a new positive random seed which can be negated later on and used to generate another different non-repeating sequence of 1 million random numbers. Regards David Wood QinetiQ, Farnborough, Hants The Information contained in this E-Mail and any subsequent correspondence is private and is intended solely for the intended recipient(s). For those other than the recipient any disclosure, copying, distribution, or any action taken or omitted to be taken in reliance on such information is prohibited and may be unlawful.

4 4

Re: Questions about coding...
by da Silva, Joe 07 Nov '02

07 Nov '02

Well, one final oversight to deal with ... To be inclusive of 0, you need to change "iGuess > 0" to "iGuess >= 0". Joe. > -----Original Message----- > From: CBFalconer [SMTP:cbfalconer@yahoo.com] > Sent: Wednesday, November 06, 2002 9:35 PM > To: gpc(a)gnu.de > Subject: Re: Questions about coding... > > Andrew McCall wrote: > > > > Well, I have just been getting used to programming in Pascal again, > > and I thought I would write the age-old number guessing game. It > > all works, well it *should* but I seem to be having problems with > > some logic in an if statement: > > > > if (iGuess > 0) or (iGuess < 101) then > > { do my code } > > > > I thought this bit of code should detect if iGuess is inbetween 0 > > and 100, but it doesn't seem to work! Can anyone tell me why? > > Try 'and'. The above is synonymous with 'true'. > > Set your outgoing line length wrap to something well under 80. I > use 65. > > -- > Chuck F (cbfalconer(a)yahoo.com) (cbfalconer(a)worldnet.att.net) > Available for consulting/temporary embedded and systems. > <http://cbfalconer.home.att.net> USE worldnet address! > >

1 0