- Gpc - gnu.de

Installing/using GPC in WinXP + MingW32
by gmjimen＠burdjia.com 16 Oct '05

16 Oct '05

Hello, I'm trying to use GPC but I'm in troubles. I've looking for advice at "crystal/gpc/en" but I didn't find much. I wrote the next program: >PROGRAM P; >(* Ejemplo de uso de GNU Pascal, para ir abriendo boca. *) > >BEGIN > Writeln ('¡Hola, Mundo!'); >END. (You see, I'm spanish ;^)) I can compile it next way: 1.- I've copied the "C:\mingw\lib\gcc-lib\mingw32\3.2.3\libgpc.a" file to the "C:\mingw\lib\" directory. 2.- I've used "gpc -c -o p.o p.pas" to get the object file. 3.- I've used "gcc -o p.exe p.o -lgpc" to get the executable file. The result is an exe file that runs, but I tink is too big (1.012.587 bytes!). If I try to use "gcc p.pas" it says "gcc: p.pas: Pascal compiler not installed on this system". (Both MingW32 and GPC were installed in C:/mingw). If I try to use "gpc p.pas" it says "C:/mingw/lib/gcc-lib/mingw32/3.2.3/../../../../mingw32/bin/ld.exe: cannot find -lgcc" The files I've used to install gcc and gpc are: - binutils-2.15.91-20040904-1.tar.gz - gcc-core-3.4.2-20040916-1.tar.gz - mingw32-make-3.80.0-3.tar.gz - mingw-runtime-3.8.tar.gz - w32api-3.3.tar.gz - gpc-20030209-gcc-3.2.2.i386-pc-mingw32-2.tar.gz - gpc-mingw-gcc-2.95.3-6-depends.tar.gz - gdb-5.2.1-1.exe I've set the next environment variables: - MINGDIR=c:\mingw - GPC_EXEC_PREFIX=C:/mingw/lib/gcc-lib/ - GPC_LIB=C:/mingw/lib/gcc-lib - GPC_PATH=C:\mingw The "VER" command at "cmd" says "Microsoft Windows XP [Versión 5.1.2600]" Thanks in advance. Guillermo Martínez Jiménez Jefe de Proyectos y Programador

2 1

gpc
by vanam srihari kumar 10 Oct '05

10 Oct '05

Dear All I am trying to port the pascal code which was developed on sun solaris6 by using sun pascal compiler to solaris 8 by gpc compiler. The problem is I am unable to find out the eqivalent compiler flags for the gnu pascal to that of sun pascal. The flags are -tc -Qoption -fnonstd please suggest me the equivalent flags Regards Hari __________________________________ Start your day with Yahoo! - Make it your home page! http://www.yahoo.com/r/hs

2 1

Type compatibility rules?
by Peter N Lewis 04 Oct '05

04 Oct '05

Currently, this compiles, I would think it would give a type check error: program peter112; type p1 = ^MedInt; p2 = ^MedInt; procedure doit( p: p1 ); begin end; var p: p2; begin doit( p ); end. Should p1 and p2 be parameter type compatible? MWPascal complains of the type check on the parameter...? I tried searching the docs for type compatibility, but did not find anything on the subject, perhaps I need to read the spec? Thanks, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

7 15

Array splices?
by Peter N Lewis 30 Sep '05

30 Sep '05

I thought GPC handled array splices, but this: program peter109; type MyArray(count: Integer) = array[1..count] of Integer; var p: ^MyArray; begin New(p,10); p^[1..5] := p^[2..6]; end. Gives a compiler error: peter109.pas:9: error: type mismatch in array assignment It works for strings, but I guess strings have all that packed array of char type checking extra baggage. Should I just go back to BlockMoveData, or is there a way for array splice assignments to work, and if so, are they safe for overlapping moves? While I'm at it, is there any better way to zero part of such an array than: FillChar( p^[3], 4 * SizeOf(p^[3]), 0 ); And further while I'm at it, I looked at the docs for MoveLeft et al, and they are all under construction. Would it be worth while setting up a wiki for the docs? The docs already have an organizational layout, which is very helpful for starting a wiki and letting others add information. I've never set up a wiki before, but I'd be happy to set it up and look at transferring the existing documentation over if people thought it was a good idea. I know the docs are all tied in with the make system, and there might be some loss with regard to automation of that, but on the other hand it might mean more people participate in improving the docs so it might be an overall win. Anyway, just a thought, if there is no interest, I'll go back to reading move.pas to figure out what the RTS does ;). Thanks, Peter. -- <http://www.stairways.com/> <http://download.stairways.com/>

2 5

GPC alpha
by Tom Schneider 27 Sep '05

27 Sep '05

Frank: > > | strawberry 40% cat t.p > > | program t (output); > > | begin > > | writeln(output,'hello world'); > > | end. > > | strawberry 41% /usr/local/gpc/bin/gpc t.p > > | strawberry 42% a.out > > | Segmentation Fault > > | > > | :-( > > Aha, so it isn't GPC that crashes, but the compiled executable. > That's already more information than in your last mail. Right. Sorry my previous email wasn't clear about that. > One possibility could be a confusion of runtime library versions or > compiler parts. I see your admin installed GPC in a nonstandard > directory. Did he do this correctly, i.e. either set the --prefix on > configure, or else set GPC_EXEC_PREFIX? I don't know, I'll pass this on to him. > If that's ok, can you run the program in a debugger to find out > where it crashes? Sure. ******************************************************************************** % cat t.p program t(output); begin writeln(output,'hello world'); end. % /usr/local/gpc-20050331/bin/gpc -v Reading specs from /export/data/local/gpc-20050331/bin/../lib/gcc-lib/sparc-sun-solaris2.8/3.3.3/specs Configured with: /export/home/bryantd/gpc-build/../gcc-3.3.3/configure --enable-languages=pascal --prefix=/usr/local/gpc Thread model: posix gpc version 20050331, based on gcc-3.3.3 % /usr/local/gpc-20050331/bin/gpc -g t.p % gdb t GNU gdb 5.0 Copyright 2000 Free Software Foundation, Inc. GDB is free software, covered by the GNU General Public License, and you are welcome to change it and/or distribute copies of it under certain conditions. Type "show copying" to see the conditions. There is absolutely no warranty for GDB. Type "show warranty" for details. This GDB was configured as "sparc-sun-solaris2.9"... (gdb) run Starting program: /home/strawberry/toms/work/emptytest/t Program received signal SIGSEGV, Segmentation fault. 0x189dc in _p_ReturnAddr2Hex () (gdb) quit The program is running. Exit anyway? (y or n) y I see now that my sysadmin did this: > I had compiled gpc on sparky so that it would be "solaris-8- > compatible", and then installed it on strawberry. I guess I could try > compiling the whole thing on strawberry and see if it makes any > difference. but uname -aimnprsvX gives SunOS strawberry 5.9 Generic_117171-12 sun4u sparc SUNW,Sun-Blade-1000System = S unOS Could that have caused this effect? Sparky is Solaris 2.8 and Strawberry is 2.9. Why GDB said 2.9 I don't know ... ******************************************************************************** > > | strawberry 44% /usr/local/gpc/bin/gpc -v > > | Reading specs from /export/data/local/gpc/bin/../lib/gcc-lib/sparc-sun-solaris2.8/3.3.3/specs > > | Configured with: /export/home/bryantd/gpc-build/../gcc-3.3.3/configure --enable-languages=pascal --prefix=/usr/local/gpc > > | Thread model: posix > > | gpc version 20050331, based on gcc-3.3.3 > > | > > | When I try to use /usr/local/bin/gpc-2.1 in my gpcc script > > | (/home/strawberry/toms/work/emptytest/gpcc2.1), I get: > > | > > | gpc1: Invalid option `-Wno-identifier-case-local' > > | > > | so I can't compile until this is fixed ... > > Uhm, fixed? gpc-2.1 is 3 years old, and we don't actually plan to > backport new features to it. If it's just this one (you don't > require other newer features), you can take out this option for 2.1 > (which simply didn't exist back then). I'm confused. All I knew was that I got this 'Invalid option' message, which seemed unrelated and off the wall. But it could mean that `-Wno-identifier-case-local' is no longer a valid option? Looking in what seems to be the current manual at http://www.gnu-pascal.de/gpc/GPC-Command-Line-Options.html#GPC-Command-Line… that flag is listed. Doesn't that mean it is a valid option? So I'm puzzled as to why it was objected to. I can't replicate the problem now so maybe sys admin was moving things around and I ended up working with an old version for a few minutes. ******************************************************************************** > > My gpcc script is at > > ftp://ftp.ncifcrf.gov/pub/delila/gpcc > > in gpcc2.1 I just modified the location of the compiler. > > It's a bit longish, so I can't read it all now. No problem, I included it only for completeness. > : # -Widentifier-case-local Please accept my apologies for that. It was material that went into the script when the issue first came up. I have removed it and tried to clarify the issue in the documentation. > 1. Do it yourself. I'm not an expert such as yourself. I have many papers to write and no time to become a GPC expert (though it would be fun to help you more than just reporting bugs). > 2. Ask politely and/or convince someone to do it for you. Please accept my apologies. > 3. Pay someone to do it for you. Unfortunately science has a shrinking budget in the USA ... My text modules are compiler independent and are not always consistent, so I had to just turn off the flag. > BTW, your quick jumping to conclusions that "[GPC] is too alpha" > when in fact it may just be an installation problem on your (or your > admin's) part, or claiming that an older version not supporting > newer options is something that needs to be "fixed" I am reporting a problem to you as best as I can. I'm not an expert, I do not know the guts of GPC. I did not know that an incorrect installation (if that's what happened) could cause such an effect as I have never seen that happen before. All I meant was that "this particular installation of a GPC alpha didn't work". GPC itself is clearly quite robust (thanks to you!), which is why I use it. The alpha GPC that we have produced a binary that crashed. I don't know why that may be. Alphas in general can crash - this is true for Mozilla. I would never ask you to 'fix' an older version! That's wasting your time! Isn't this 20050331 a newer version? Best 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/

3 2

CRT on mingw
by Andres K. Foerster 22 Sep '05

22 Sep '05

Hello, I normally do my programming with Free Pascal. But I wanted to give GNU Pascal a try again. Well I don't have any problems under GNU/Linux anymore, but the version for MinGW makes trouble with the CRT unit. I have installed PDCurses 2.6-2 for MinGW. Programs using the CRT unit do compile and the output stuff is all okay, but the input doesn't work as it should. On most keypresses ReadKey just returns #0+#255, just occasionly it returns the correct keycode. ReadLn also behaves strange: It takes and displays the entered text correctly, but when I press the Enter-key, it just displays a musical note (the character of #13). When I repeat typing the Enter key, then at some point it is accepted. But the input string still has all the other #13's at its end. Is GPC for MSYS better? Why is there a separate version anyway? I mean, MSYS belongs to MinGW, isn't it? I've seen, that GPC still doesn't support "{$AppType GUI}" or "{$AppType Console}". That's an extension comming from Delphi. Free Pascal supports it on the Windows and the Amiga platform. I found out, that in GPC they correspond to the linker-parameters "-mwindows" or "-mconsole". But it would be nicer to have it in the source code. -- AKFoerster

3 12

SetLength: a NO-OP?
by Pascal Viandier 19 Sep '05

19 Sep '05

Hi GPC crew, I encounter a problem with SetLength: I have a string of 40 characters long coming from a file (no control on it). On these 40 characters the first 13 are "meaningfull" and the others are Chr(0). The String as I can see it through gdb indicates a capacity of 40, a length of 40 and the contents as explained. I want to get rid of the Chr(0) by setting the actual string length to the meaningful part (13). So the following code should do this in a clean way (I think): Procedure CleanZeroesAndDisplay(Const S: String); Var LocalS : String(40) = S; P : Integer; Begin P := Pos(Chr(0), LocalS); If (P > 0 And P < Length(LocalS)) Then SetLength(LocalS, P); ... End; When executing this code with the previous example, P returns 13, Length(S) returns 40 so I enter the "If" and SetLength is called. The problem is that after the call I see that the actual length of LocalS still 40. The debugging is somewhat approximate since I can enter the "Pos" function with gdb but not "SetLength". Even better, if I replace the SetLength call by LocalS := Copy(LocalS, 1, P); it does not work either (the length stays 40). I don't know if the presence of Chr(0) makes the functions behave erratically but the following code solves the problem in a somewhat dirty and strange way: Procedure CleanZeroes(Const S: String); Var LocalS : String(40) = S; P : Integer; Begin P := Pos(Chr(0), LocalS); If (P > 0 And P < Length(LocalS)) Then FillChar(LocalS[P], (Length(LocalS) -P) + 1, ' '); ... End; The "strange" part (for me :-) is that the call to the "Fillchar monster", fills (replace) the string's contents as expected AND sets the actual length of the string to 13, as if I called Trim! I am somewhat confused on what is going on there. May this be a bug? I run gpc 20050331 on gcc 3.4.3 under Sun Solaris 2.6 Thanks Pascal Viandier pascal(a)accovia.com

2 4

Re: [GPC]: daily digest (#763)
by Tom Schneider 19 Sep '05

19 Sep '05

Frank: > > My sysadmin set up a recent alpha but it crashed on a simple 'hello > > world' program. Is 20041218 the most recent stable version? > > Yes, it is. However, an alpha should not be as unstable as in not > being able to compile a simple program. (It's just been tested > somewhat less thorough than a beta.) If you provide more > information, readers of the list can probably help you set it up > working. (Error messages, system and version, backend version, etc., > the usual stuff ...) My sysadmin did the installation: | > I just installed the latest _alpha_ version of gpc under /usr/local/gpc | > (the old version is under /usr/local/gpc.old). I have also moved | > /usr/local/bin/gpc to /usr/local/bin/gpc-2.1 and /usr/local/bin/gpc-run | > to /usr/locla/bin/gpc-run-2.1 to make sure they don't get run | > inadvertently. | > | > Make sure that your compile scripts use /usr/local/gpc/bin/gpc instead | > of /usr/local/bin/gpc . Also, keep in mind that the gpc developers | > still consider this to be alpha code, so you may encounter as many new | > bugs as (hopefully fixed) old ones. | | Thanks. | | Unfortunately it is too alpha - it crashes even for this: | | strawberry 40% cat t.p | program t (output); | begin | writeln(output,'hello world'); | end. | strawberry 41% /usr/local/gpc/bin/gpc t.p | strawberry 42% a.out | Segmentation Fault | | :-( | | strawberry 44% /usr/local/gpc/bin/gpc -v | Reading specs from /export/data/local/gpc/bin/../lib/gcc-lib/sparc-sun-solaris2.8/3.3.3/specs | Configured with: /export/home/bryantd/gpc-build/../gcc-3.3.3/configure --enable-languages=pascal --prefix=/usr/local/gpc | Thread model: posix | gpc version 20050331, based on gcc-3.3.3 | | When I try to use /usr/local/bin/gpc-2.1 in my gpcc script | (/home/strawberry/toms/work/emptytest/gpcc2.1), I get: | | gpc1: Invalid option `-Wno-identifier-case-local' | | so I can't compile until this is fixed ... My gpcc script is at ftp://ftp.ncifcrf.gov/pub/delila/gpcc in gpcc2.1 I just modified the location of the compiler. I'm working on a Sun: % uname -aimnprsvX SunOS strawberry 5.9 Generic_117171-12 sun4u sparc SUNW,Sun-Blade-1000System = SunOS Good luck with that, it doesn't seem to be much to go on ... 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/ > > Is there some place on the web site that tells this that I missed? > > (I don't see how you determined the above, for example.) > See the (2nd) URL in my sig. > http://www.gnu-pascal.de/todo.html Thanks!! I didn't think to look for solved bugs under 'to do' ... ;-) 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

Parameters misunderstanding or bug?
by Pascal Viandier 18 Sep '05

18 Sep '05

Hi GPC Crew, I just hit something I do not really understand in the way GPC passes parameters to procedures. The following sample program: Program ParamTest; Var S40 : String(40); I : Integer; Procedure TstParams(S : String; IL : Integer); Begin WriteLn('Before: S=', S, ' IL=', IL); S := S + 'BBB'; { Using Concat() does the same } IL := IL + 4; WriteLn('After: S=', S, ' IL=', IL); End; Begin S40 := 'AAA'; I := 4; TstParams(S40, I); End. Produces the following output: Before: S=AAA IL=4 After: S=AAA IL=8 How come the string cannot be modified inside of the procedure (without impacting the global string) but the integer can? Until now, my understanding of the parameters passing mechanism was that when you pass a parameter by value, the procedure uses a local copy of it, and this copy may be modified locally. This mechanism seems to work for integers but not for strings! However, if the string modification is somewhat "illegal" at least GPC could issue a compilation warning. I would be interested to understand better how this works, because this behavior causes bugs in the programs I am porting from SUN Pascal and perhaps in ways I don't see as clearly as in this example. Thanks Pascal Viandier pascal(a)accovia.com

4 10

Re: eof bug in GPC
by Tom Schneider 18 Sep '05

18 Sep '05

Frank: > > I reported a bug in GPC some months ago: > > http://www.gnu-pascal.de/crystal/gpc/en/mail11285.html > > http://www.gnu-pascal.de/crystal/gpc/en/mail11309.html > > Recently someone in Hong Kong was working with my programs and the bug > > was still there. I think she has the most recent version of GPC, > > Does she? Perhaps she has 20041218? Yes, I found later out that she indeed does have 20041218. > It has been included: > > @item 20050130: in standard Pascal modes, @samp{EOF} is false on an empty file (tom7.pas) > > tom7.pas: > > {$classic-pascal} Thanks! My sysadmin set up a recent alpha but it crashed on a simple 'hello world' program. Is 20041218 the most recent stable version? I couldn't figure it out from the download or installation instructions at http://www.gnu-pascal.de/gpc/h-index.html The downloads seem to have only 20041218 and an alpha but it is not clearly stated on the pages what is what ... So - is there a non-alpha version that incorporates that change? Is there some place on the web site that tells this that I missed? (I don't see how you determined the above, for example.) 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