Gpc August 1997

gpc@gnu.de

23 participants
88 discussions

Re: Objects Bug
by Peter Gerwinski 09 Aug '97

09 Aug '97

Hallo, Bernhard! Hello, everybody! I have found a workaround: According to Bernhard Tschirren: > Type PGlobalObject = ^tGlobalObject; > TGlobalObject = Object > Constructor Init; > Procedure Method1; Virtual; > Procedure Method2; Virtual; > Procedure Method3; Virtual; > End; It seems that GPC has problems with the implicit `Self' parameter of methods if there is no explicit pointer declared for the object. Later, Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [970201] maintainer GNU Pascal [970714] - http://home.pages.de/~gnu-pascal/ [970125]

1 0

Re: {$L} Good - but not good enough!
by Peter Gerwinski 09 Aug '97

09 Aug '97

According to Bernhard Tschirren: > {$L filename} does not work with library files. For example {$L libgrx.a} > does not work because GPC tries to link 'libgrx.o' !? Ups - sorry, I should not produce such trivial errors. (-# Probably I was tired when I wrote that.) 8< -------------------------------------------------------------------------- --- gpc-970806/p/gpc-lex.c Wed Jun 25 01:56:57 1997 +++ gpc/p/gpc-lex.c Sat Aug 9 10:52:26 1997 @@ -232,7 +232,7 @@ while (p > filename && *p != '.') p--; if (*p == '.' - && (p[1] != 'o' || p[1] != 'a' || p[2] != 0)) + && ((p[1] != 'o' && p[1] != 'a') || p[2] != 0)) { /* Extension given, but not a linker input file. * Recompile it with --automake, if necessary. 8< -------------------------------------------------------------------------- One problem remains with this: GPC does not search the `-L' directories, but only checks the current one. Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [970201] maintainer GNU Pascal [970714] - http://home.pages.de/~gnu-pascal/ [970125]

1 0

Re: Size Of Objects - Revisited
by Peter Gerwinski 09 Aug '97

09 Aug '97

According to Bernhard Tschirren: > You cannot use SizeOf with an object TYPE. See test program below: > [...] Now you can. :-) Diff below. > Sayonara Do swidanya, Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [970201] maintainer GNU Pascal [970714] - http://home.pages.de/~gnu-pascal/ [970125] 8< --------------------------------------------------------------------------- --- ../../gpc-970806/p/parse.y Wed Aug 6 14:47:15 1997 +++ parse.y Sat Aug 9 11:30:51 1997 @@ -5238,14 +5240,30 @@ && DECL_BIT_FIELD (TREE_OPERAND ($3, 1))) error ("`SizeOf' applied to a packed record field"); + /* Now $3 is either a variable access or a type declaration. + * In both cases, TREE_TYPE ($3) carries the actual type. + */ if (PASCAL_TYPE_OBJECT (TREE_TYPE ($3))) { /* Read the size of the object at run time from the VMT. */ - tree vmt = build_component_ref ($3, - get_identifier ("vmt")); - $$ = build_component_ref (build_indirect_ref (vmt, - "`SizeOf'"), + tree vmt; + if (TREE_CODE ($3) == TYPE_DECL) + { + char *name = concat ("", "vmt_", IDENTIFIER_POINTER ( + TYPE_LANG_NAME (TREE_TYPE ($3)))); + vmt = lookup_name (get_identifier (name)); + if (! vmt) + abort (); + free (name); + } + else + { + vmt = build_component_ref ($3, + get_identifier ("vmt")); + vmt = build_indirect_ref (vmt, "`SizeOf'"); + } + $$ = build_component_ref (vmt, get_identifier ("object_size")); } else

1 0

Re: Objects Bug
by Peter Gerwinski 09 Aug '97

09 Aug '97

According to Bernhard Tschirren: > > After hours of frigging around with HUGE test programs, I accidentally > stumbled on a stupidly simple test program! Even better - it crashes the > compiler! I only hope that you can reproduce the bug. I can. :-) Okay, let's try to fix it ... Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [970201] maintainer GNU Pascal [970714] - http://home.pages.de/~gnu-pascal/ [970125]

1 0

Re: Incorrect version display
by Peter Gerwinski 09 Aug '97

09 Aug '97

According to Bernhard Tschirren: > > I have installed GPC-970714 for DJGPP. However, typing 'GPC -v' at the > command prompt shows the following information: > > Reading specs from e:/djgpp/lib\specs > gpc version 970624(2.7.2.1) > > WRONG VERSION! What happened? Probably my fault: I forgot to change this for DJGPP, too, before I compiled gpc-970714. My current DJGPP source tree is correct here, but I don't remember whether I fixed it in time or afterwards. ;-) Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [970201] maintainer GNU Pascal [970714] - http://home.pages.de/~gnu-pascal/ [970125]

1 0

Incorrect version display
by Bernhard Tschirren 09 Aug '97

09 Aug '97

I have installed GPC-970714 for DJGPP. However, typing 'GPC -v' at the command prompt shows the following information: Reading specs from e:/djgpp/lib\specs gpc version 970624(2.7.2.1) WRONG VERSION! What happened? Cya L8r ________________________ | _) | | e-mail: bernie(a)icenet.com.au |___)ernhard |_|schirren ptschirrenb(a)cc.curtin.edu.au www: www.geocities.com/CollegePark/Quad/8070/

1 0

{$L} Good - but not good enough!
by Bernhard Tschirren 09 Aug '97

09 Aug '97

{$L filename} does not work with library files. For example {$L libgrx.a} does not work because GPC tries to link 'libgrx.o' !? Tschuess ________________________ | _) | | e-mail: bernie(a)icenet.com.au |___)ernhard |_|schirren ptschirrenb(a)cc.curtin.edu.au www: www.geocities.com/CollegePark/Quad/8070/

1 0

Size Of Objects - Revisited
by Bernhard Tschirren 09 Aug '97

09 Aug '97

You cannot use SizeOf with an object TYPE. See test program below: Type TObj = Object Constructor Init; End; Constructor TObj.Init; Begin End; Var O : TObj; Begin O.Init; WriteLn(SizeOf(O)); { This Works (Only after Init) } WriteLn(SizeOf(TObj)); { This calls Abort! } End. Sayonara ________________________ | _) | | e-mail: bernie(a)icenet.com.au |___)ernhard |_|schirren ptschirrenb(a)cc.curtin.edu.au www: www.geocities.com/CollegePark/Quad/8070/

1 0

Objects Bug
by Bernhard Tschirren 09 Aug '97

09 Aug '97

After hours of frigging around with HUGE test programs, I accidentally stumbled on a stupidly simple test program! Even better - it crashes the compiler! I only hope that you can reproduce the bug. I am using GPC-970714 for DJGPP in a Win95 shell. The following command line was used to create the files in OBJBUG.ZIP: redir -e error.out gpc -c bug01.pas --automake Bye ________________________ | _) | | e-mail: bernie(a)icenet.com.au |___)ernhard |_|schirren ptschirrenb(a)cc.curtin.edu.au www: www.geocities.com/CollegePark/Quad/8070/

1 0

Re: curses suggestions wanted
by Ken Linder (KC7RAD) 07 Aug '97

07 Aug '97

At 02:19 PM 8/7/97 +0200, Frank Heckenbach wrote: > >Peter Gerwinski wrote: > >> In such situations, where the procedure/function does not change the >> parameter, you can declare it with a `PChar' parameter. GPC knows what >> to do if the user passes a String schema and implicitly passes the address >> of the string data instead of the address of the schema. > >But it doesn't add a #0 terminator, so the result may be wrong, as in the >following program: > >program x; >{$x+} > >procedure p(x:pchar); >begin > writeln(x) >end; > >var x:string(10)='abc'; >begin > x:='x'; > p(x) >end. > If I use the built in conversion this would be a problem, but I plan on converting string to cstring using a little strings unit I wrote just for this purpose. Ncurses expects a real zero terminated string. You can get around that by coding `x := x + chr(0)' in Frank's example above but I want the ncurses usage to be seemless (more or less) with as little calling overhead as possible. No problems with that, now that I know how to use AsmName. I will adopt the `foo' and 'cfoo' (where foo is pascal and cfoo is C) convention. Thanks for the comments! Ken L.

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

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 August 1997