Gpc June 2005

gpc@gnu.de

22 participants
36 discussions

Default linker names
by Adriaan van Os 11 Jun '05

11 Jun '05

Frank Heckenbach wrote: > Relying on the default linker names was never reliable. OK, but how to solve the following problem, without relying on linker names: - create a Mac OS X dynamic library (dylib) - for that purpose, use a GPC unit "MyDylib" - pass -init _MyDylibInit to ld so that MyDylibInit is called when the dynamic library is loaded - declare a procedure MyDylibInit with attribute( name = 'MyDylibInit') So far no problem, but MyDylibInit ... - first calls GPCRuntimeInitialize (or GPC_Initialize if you like) declared with external name '_p_initialize' (relying on a linker name that may change) - then calls MyDylibUnitInit, the compiler glue that initializes the MyDylib unit. The external name used to be init_Mydylib but has recently changed to _p__M7_Mydylib_init (relying on a linker name again). Regards, Adriaan van Os

2 2

source code formatting
by mingeborg＠aol.com 11 Jun '05

11 Jun '05

We have a large GPC application with inconsistent source code formatting - unpredictable indentation, several statements on one line, etc. Is there a quick and easy way to fix this? For instance, can any of the available GUI interfaces be used to reformat the code? Thanks, - Inga

2 1

Passing by reference
by Adriaan van Os 06 Jun '05

06 Jun '05

Another problem, also reported on the macpascal mailing list and reproduced by the following program: [G5:gcc/p/test] adriaan% cat avo12.pas program avo12; type Str255 = record sLength: Byte; sChars: packed array[1..255] of char; end; function StringToStr255 ( const s: String ) = Result : Str255; begin Result.sLength := Min( Length( s ), 255 ); if Result.sLength > 0 then begin Result.sChars[1..Result.sLength] := s[1..Result.sLength]; end; end; procedure DrawString1( const s: Str255); external name 'DrawString'; procedure DrawString2( protected var s: Str255); external name 'DrawString'; begin DrawString1( StringToStr255( 'Hello')); {OK} DrawString2( StringToStr255( 'Hello')) {Error: reference expected, value given} end. [G5:gcc/p/test] adriaan% gpc avo12.pas avo12.pas: In main program: avo12.pas:19: error: reference expected, value given In gpc-20030830, this was no problem, but now it is no longer allowed, which is quite inconvenient. In the GPC interfaces for Mac OS X, we use the external declaration form with a "protected var" because (according to the gc docs) the "const" declaration form doesn't guarantuee that the parameter is passed by reference, which is an ABI requirement. Regards, Adriaan van Os

5 23

The CRT Unit
by Alex v.Below 06 Jun '05

06 Jun '05

Hello, I am trying to help students use gpc (on Mac OS X, in particular) instead of TurboPascal, which is still taught in some schools: http://macentwicklerwelt.net/index.php?title=Leben_ohne_TurboPascal (Sorry, German only) However, I have been unsuccessful in getting the CRT Unit to work on OS X: I tried to compile the crtdemo.pas in the demo folder, and after searching the mail archives, tried the --automake option. Neither was successful. Is there any other trick in getting the CRT Unit to work? I installed the binary installation of gpc for OS X. If anyone is interested I will gladly post the error output. I am a pretty skilled OS X coder, but my memory of pascal seems to have faded away... Thanks for your help! Alex

9 20

Questions about GPI files and gpc options
by Pascal Viandier 06 Jun '05

06 Jun '05

Hi, I have some questions about gpi files: - What is a difference between file.gpi and file-all.gpi - Are they all necessary? - I set the gpc options --unit-destination-path and --unit-path to a specific directory (which does exists and have the right permissions) but gpi and objects file files are still created where the makefile is. Do I use wrong options? (I have many source files to compile and I don't want to clutter the application's root directory) I work with gpc 20050331 on SUN Solaris 2.6 Thanks Pascal

2 3

Re: RE : bigsetdemo strange result
by Waldek Hebisch 02 Jun '05

02 Jun '05

Pascal Viandier wrote: > Hi, > > At your suggestion, I ran the gpc test suite. > Here is the summary result: > <snip> I had build gpc-20050331 with gcc-3.4.3 on Sparc-Solaris 2.6. I have found one new problem: gpc passed incorrect comparison function to qsort. On Linux it did not matter, but on Solaris it may crash or produce wrong code. There are few other test failures, but I can not reproduce the problem with sets. Could you try the patch below? It fixes the qsort problem. On my machine sets work even without that patch, but in principle that particular bug may cause quite weird problems with sets. BTW, if you re-make, make sure that gpc runtime is re-build (quite likely the runtime got mis-compiled). diff -u p.orig/types.c p/types.c --- p.orig/types.c Thu Mar 31 02:10:15 2005 +++ p/types.c Tue May 31 23:04:05 2005 @@ -201,7 +201,14 @@ static int sce_cmp (const PTR xp, const PTR yp) { - return const_lt (TREE_PURPOSE (*(tree *) xp), TREE_PURPOSE (*(tree *) yp)) ? -1 : 1; + tree c1 = TREE_PURPOSE (*(tree *) xp); + tree c2 = TREE_PURPOSE (*(tree *) yp); + if (const_lt (c1, c2)) + return -1; + else if (const_lt (c2, c1)) + return 1; + else + return 0; } /* Build a constructor node for set elements. -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

2 2

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 2005