Gpc September 2005

gpc@gnu.de

17 participants
24 discussions

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

ncurses
by Karim Forsthofer 17 Sep '05

17 Sep '05

I have put libncurses.so.5 from /usr/pkg/lib to /usr/lib. It works now. It seems to me that your bindings don`t need adaption. I will check the library search path for gcc. It`s weird that the binary don`t find the right library, even when the -lncurses path is given. Thanks a lot. By the way. Why don`t you upload the bindings to the gnu-pascal site? Some little webspace for gpc bindings/stuff would be great. That`s also what fpc is doing. Greerings Karim -- ________________________________________________________ Email2me is probably the best email in the world. It is FREE. http://www.email2me.com

6 32

eof bug in GPC
by Tom Schneider 15 Sep '05

15 Sep '05

Hi folks! I reported a bug in GPC some months ago: http://www.gnu-pascal.de/crystal/gpc/en/mail11285.html Basically, GPC fails to report eof = true after a reset when a file is empty. In the Replies, Waldek Hebisch provided a patch: 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, so the patch apparently has not been implemented. I had to make a rather horrible kludge to get around this. Basically I have a function, emptyfile, to replace eof. If it counts less than 2 characters in a file, that file is deemed 'empty'. In my cases this will work because the relevant files have more than two characters if they are not empty, but of course it will not work in general! Does anyone know the status of this patch? Will it be put into GPC? If not, why not? Thanks! 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 of Reset and Rewrite
by Adriaan van Os 14 Sep '05

14 Sep '05

(repost) Patch for the parameters of Reset and Rewrite in --mac-pascal and --ucsd-pascal mode. --- predef.c.orig Wed Sep 14 11:11:56 2005 +++ predef.c Wed Sep 14 11:34:11 2005 @@ -2148,7 +2148,7 @@ if (file_name) { - chk_dialect_1 ("file name parameters to `%s' are", GNU_PASCAL, r_name); + chk_dialect_1 ("file name parameters to `%s' are", U_M_PASCAL, r_name); file_name_given = boolean_true_node; } else @@ -2161,12 +2161,12 @@ { if (buffer_size) { - chk_dialect_1 ("file buffer size arguments to `%s' are", U_B_D_M_PASCAL, r_name); + chk_dialect_1 ("file buffer size arguments to `%s' are", B_D_M_PASCAL, r_name); STRIP_TYPE_NOPS (buffer_size); if (TREE_CODE (buffer_size) == INTEGER_CST && !INT_CST_LT (integer_zero_node, buffer_size)) errstr = "file buffer size in `%s' must be > 0"; } - else if (co->pascal_dialect & B_D_M_PASCAL) + else if (co->pascal_dialect & U_B_D_M_PASCAL) { warning ("unspecified buffer size for untyped file defaults to 128 in `%s'", r_name); buffer_size = build_int_2 (128, 0); Regards, Adriaan van Os

1 0

Reset and Rewrite parameters
by Adriaan van Os 14 Sep '05

14 Sep '05

Patch for the parameters of Reset and Rewrite in --mac-pascal and --ucsd-pascal mode. --- predef.c.orig Wed Sep 14 11:11:56 2005 +++ predef.c Wed Sep 14 11:34:11 2005 @@ -2148,7 +2148,7 @@ if (file_name) { - chk_dialect_1 ("file name parameters to `%s' are", GNU_PASCAL, r_name); + chk_dialect_1 ("file name parameters to `%s' are", U_M_PASCAL, r_name); file_name_given = boolean_true_node; } else @@ -2161,12 +2161,12 @@ { if (buffer_size) { - chk_dialect_1 ("file buffer size arguments to `%s' are", U_B_D_M_PASCAL, r_name); + chk_dialect_1 ("file buffer size arguments to `%s' are", B_D_M_PASCAL, r_name); STRIP_TYPE_NOPS (buffer_size); if (TREE_CODE (buffer_size) == INTEGER_CST && !INT_CST_LT (integer_zero_node, buffer_size)) errstr = "file buffer size in `%s' must be > 0"; } - else if (co->pascal_dialect & B_D_M_PASCAL) + else if (co->pascal_dialect & U_B_D_M_PASCAL) { warning ("unspecified buffer size for untyped file defaults to 128 in `%s'", r_name); buffer_size = build_int_2 (128, 0); Regards, Adriaan van Os

1 0

ncurses
by Karim Forsthofer 08 Sep '05

08 Sep '05

[G5:~/Desktop/ncurses-gpc-20050730] adriaan% gpc --automake -o firework firework.pas -Wno-underscore -L/usr/pkg/lib [G5:~/Desktop/ncurses-gpc-20050730] adriaan% ./firework thanks adriaan This compiles it without errors and very fast. Hmm.. but I get a message when I try to execute it: Shared object "libncurses.so.5" not found Any suggestions? -- ________________________________________________________ Email2me is probably the best email in the world. It is FREE. http://www.email2me.com

2 1

where are the ncurses bindings?
by Karim Forsthofer 07 Sep '05

07 Sep '05

O.k I got the bindings on my HD. Now, How I can compile some sample code with it? Will this work if test.pas is the MAIN sourcefile, and the ncurses.pas (the binding) is in the same directory? gpc -o test test.pas -L/usr/pkg/lib -lncurses -I/usr/pkg/include I can take a look on both types (ncurses.pas and ncurses.h) when I know how to compile it correctly. But I don`t know If my programming knowledge is enough to adapt it. Regards Karim -- ________________________________________________________ Email2me is probably the best email in the world. It is FREE. http://www.email2me.com

2 1

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 September 2005