Gpc December 2005

gpc@gnu.de

19 participants
43 discussions

Re: First problem
by Waldek Hebisch 22 Dec '05

22 Dec '05

Brian Wichmann wrote: > gpc --classic-pascal CONF001.PAS > /usr/bin/ld: CONF001.PAS bad magic number (not a Mach-O file) > collect2: ld returned 1 exit status > [Brian-Wichmanns-Computer:P8/gnupascal/CONFORM] brianwic% gpc > CONF001.PAS > /usr/bin/ld: CONF001.PAS bad magic number (not a Mach-O file) > collect2: ld returned 1 exit status > [Brian-Wichmanns-Computer:P8/gnupascal/CONFORM] brianwic% > > The test is attached. > > I have no idea what this is about!! > By default gpc uses file extension to decide what to do with the input file: .PAS is _not_ recognized as Pascal extension (.pas is). Files with unrecognized extension are passed to the linker (which then complains about magic number). So either rename the input files to use .pas or .p extension or add explicit option: gpc -x Pascal --classic-pascal CONF001.PAS should work. -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

1 0

Validation status of GNU Pascal
by Brian Wichmann 22 Dec '05

22 Dec '05

Dear developers: I have a copy of the validation suite for Pascal written years ago by Arthur Sale and myself. Has this been run on GNU Pascal? If not, I would be happy to do this. Brian Wichmann ex-convenor (ISO) for Pascal

4 4

The 2006 PGD Annual Game Programming Competition
by Dominique Louis 20 Dec '05

20 Dec '05

Hi all, That time of year is coming up again. It is soon time for Pascal Game Development's annual competition and with that, I am pleased to announce that on Jan 15th, 2006 the 2006 PGD Annual Game Programming Competition shall commence! The competition rules shall be released on the morning(GMT) before the start of the competition. We will be allowing teams or individuals much like we did last year. Releasing your source will be optional however you will be required to submit a packaged executable with all game files for the targeted platform(s) supported. Prizes, judges, rules and all further needed information will be posted within a weeks time before the start date of competition. For now, I suggest gathering your teams, tools and ideas for Jan 15th. Contest will be running for a total of 16 weeks, ending on the May 7th where we will award the 1st, 2nd and 3rd place winners with their prizes. We will also be honouring those in the competition that show great ability in specific areas of development. We have high hopes for a fun competition and it should be a very successful event for 2006. Stay posted for further information as it comes. This year's excellent winning entries and prizes can be viewed @ http://www.pascalgamedevelopment.com/competitions/PGDCompetition2005.html We look forward to seeing you or vistors from your site there. Dominique.

1 0

Read and Write from/to eg. /dev/ttySx
by M. Uhle sen. 20 Dec '05

20 Dec '05

My problem: I want to open a serial device in a GP-Program to read and write to it in changing order. I look for a way that allowes to do (non blocking) read AND write to one single file-variable assigned to eg /dev/ttySx. So far I have found the "CanRead-function" in the manual which serves perfect for the non blocking job! But still I have to use two file-variables, one opened with reset, one opened with rewrite, and both symbolically linked to the desired serial file eg. /dev/ttySx. And it works, reading from the first when "CanRead" is true and writing to the latter whenever it is necessary. Having read almost all portions of the GNU Pascal Manual nevertheless could not find a solution to use only one file-variable. What is behind it? I do have an awful lot of programs from old TP3-times doing exactly that using "aux" and a home made "CanRead" equivalent. I dare to ask and will even be full of thanks if I get just the answer "rtfm, THERE" Thanks to all who keep the GPC working, Mathias Uhle PS.: To keep this mail short I just add: a wonderful Compiler, great! -- Univ.-Prof. Dr.-Ing. Mathias Uhle, Messtechnik, Universitaet Dortmund Leonhard Euler Str. 5, D-44221 Dortmund Tel: +49.231.755.3257 Fax: +49.231.755.2631 email: uhle(a)mt.mb.uni-dortmund.de http://www.mt.mb.uni-dortmund.de

3 3

--gpc-rts=-trap-on-error
by Adriaan van Os 19 Dec '05

19 Dec '05

The below patch adds --gpc-rts=-trap-on-error (aka --gpc-rts=-t) to the gpc runtime lib. This is quite useful * when debugging with gdb * when debugging with visual front-ends to gdb * on systems where WriteStackDump does nothing * on systems that automatically report and log backtraces (like Darwin). diff -ur gcc-3.4.5-orig/gcc/p/rts/error.pas gcc-3.4.5/gcc/p/rts/ error.pas --- gcc-3.4.5-orig/gcc/p/rts/error.pas 2005-12-15 17:41:59.000000000 +0100 +++ gcc-3.4.5/gcc/p/rts/error.pas 2005-12-19 17:09:15.000000000 +0100 @@ -95,6 +95,7 @@ RTSOptions: Integer = 0; attribute (name = '_p_RTSOptions'); RTSWarnFlag: Boolean = False; attribute (name = '_p_RTSWarnFlag'); AbortOnError: Boolean = False; attribute (name = '_p_AbortOnError'); + TrapOnError: Boolean = False; attribute (name = '_p_TrapOnError'); CurrentReturnAddr: Pointer = nil; attribute (name = '_p_CurrentReturnAddr'); CurrentReturnAddrCounter: Integer = 0; attribute (name = '_p_CurrentReturnAddrCounter'); @@ -890,6 +891,19 @@ {$endlocal} end; +procedure TrapError; attribute (inline); +begin +{$ifdef __i386__} + asm("int3") +{$else} +{$ifdef __ppc__} + asm("trap") +{$else} + BuiltinTrap; +{$endif} +{$endif} +end; + procedure EndRuntimeError (n: Integer); attribute (noreturn, name = '_p_EndRuntimeError'); begin FinishErrorMessage (n); @@ -898,6 +912,8 @@ Finalize1; RestoreReturnAddress; if (RTSErrorFD >= 0) then Discard (CloseHandle (RTSErrorFD)); { just to be sure } + if TrapOnError then + TrapError; ExitProgram (RuntimeErrorExitValue, AbortOnError) end; diff -ur gcc-3.4.5-orig/gcc/p/rts/init.pas gcc-3.4.5/gcc/p/rts/init.pas --- gcc-3.4.5-orig/gcc/p/rts/init.pas 2005-12-15 17:41:59.000000000 +0100 +++ gcc-3.4.5/gcc/p/rts/init.pas 2005-12-19 15:34:26.000000000 +0100 @@ -94,6 +94,7 @@ -h, --help Display this help and exit -v, --version Output RTS version information and exit -a, --abort-on-error Abort with SIGABRT on runtime error +-t, --trap-on-error Trap or break into debugger on runtime error -e, --eoln-hack Toggle EOLn hack right after Reset for terminals -i LINE, --input LINE Implicitly add LINE to the beginning of Input -n INTERNAL_NAME:EXTERNAL_NAME, --file-name[=] INTERNAL_NAME:EXTERNAL_NAME @@ -117,11 +118,12 @@ function DoOption: Boolean; const - LongOptions: array [1 .. 12] of OptionType = + LongOptions: array [1 .. 13] of OptionType = ((Prefix, NoArgument, nil, '='), ('help', NoArgument, nil, 'h'), ('version', NoArgument, nil, 'v'), ('abort-on-error', NoArgument, nil, 'a'), + ('trap-on-error', NoArgument, nil, 't'), ('eoln-hack', NoArgument, nil, 'e'), ('input', RequiredArgument, nil, 'i'), ('file-name', RequiredArgument, nil, 'n'), @@ -167,6 +169,7 @@ Halt end; 'a': AbortOnError := True; + 't': TrapOnError := True; 'e': EOLnResetHack := not EOLnResetHack; 'i': begin { Strings written to CurrentStdIn, given as first standard input to user program } diff -ur gcc-3.4.5-orig/gcc/p/rts/rts.c gcc-3.4.5/gcc/p/rts/rts.c --- gcc-3.4.5-orig/gcc/p/rts/rts.c 2005-12-15 17:41:59.000000000 +0100 +++ gcc-3.4.5/gcc/p/rts/rts.c 2005-12-19 17:02:50.000000000 +0100 @@ -2599,6 +2599,13 @@ #endif } +GLOBAL (void _p_BuiltinTrap (void)) +{ +#if (__GNUC__ >= 3) + __builtin_trap(); +#endif +} + GLOBAL_ATTR (void _p_ExitProgram (int Status, Boolean AbortFlag UNUSED), noreturn) { #ifdef HAVE_ABORT diff -ur gcc-3.4.5-orig/gcc/p/rts/rtsc.pas gcc-3.4.5/gcc/p/rts/rtsc.pas --- gcc-3.4.5-orig/gcc/p/rts/rtsc.pas 2005-12-15 17:41:59.000000000 +0100 +++ gcc-3.4.5/gcc/p/rts/rtsc.pas 2005-12-19 17:11:07.000000000 +0100 @@ -414,6 +414,7 @@ function CGetPwEnt (var Entries: PCPasswordEntries): CInteger; external name '_p_CGetPwEnt'; procedure InitMisc; external name '_p_InitMisc'; procedure InitMalloc (procedure WarnProc (Msg: CString)); external name '_p_InitMalloc'; +procedure BuiltinTrap; external name '_p_BuiltinTrap'; procedure ExitProgram (Status: CInteger; AbortFlag: Boolean); attribute (noreturn); external name '_p_ExitProgram'; {@endinternal} Note that the Linux kernel (in bug.h) works around problems with __builtin_trap for some versions of gcc in combination with sparc or ia-64. This is done by directly emitting assembly code, just like TrapError does in the diff. However, I can't test sparc and ia-64, so something similar has not (yet) been implemented. I did implement a workaround for __i386__ where __builtin_trap emits int5 instead of int3 (or at least that is what it does on i386-apple-darwin and that is what i386.md describes in gcc-3.4.5). I hope this is useful. Regards, Adriaan van Os

1 0

Re: test gpc ncurses configuration
by Russell Whitaker 19 Dec '05

19 Dec '05

On Sun, 18 Dec 2005, willett wrote: > Russ, > > Thanks very much for the report. > > Would your newly configured ncurses.pas compile equally well without > the -lncurses? That is: > $ gpc --automake -c ncurses.pas > no! russ

1 0

test gpc ncurses configuration
by willett 18 Dec '05

18 Dec '05

In order to make the Pascal interface to ncurses work on all GPC systems, I have developed a configuration program that substitutes the few types that are not taken care of at the gnu Pascal source code level. I'm also hoping this will make it general enough to include in the gnu Pascal distribution. I have only one type of computer running gnu pascal (Mac OSX), so it would be helpful if a couple of those on the list try configuring this and report problems. A .tar.gz file of sources is attached. This is NOT the full ncurses.pas package. I'm just asking for reports on whether the configuration process works on different gpc platforms. If you want the full ncurses, wait a few weeks for one incorporating this configuration, or get the limited-platform version now at: http://www.microbizz.nl/gpc.html A simple test (extracted from the ncurses.configure.txt document) is: ---------- First, unpack the ncurses-gpc archive, using a command like: $ tar -zx <ncurses-gpc-20051218.tar.gz Second, from within the directory that the archive was unpacked into, run configure: $ configure (Ignore the: "198: warning: identifiers should not start with an underscore") Test that ncurses.pas has a valid type definition for chtype: $ grep ' chtype =' ncurses.pas And test that the version in ncurses.pas corresponds to your installed ncurses: $ grep NCURSES_VERSION ncurses.pas ------------- If problems, look first at ncurses.configure.txt. Please let me know of positive or negative results. Thanks! Willett Kempton Visible Software

2 1

Shared libgpc support on Darwin
by Adriaan van Os 18 Dec '05

18 Dec '05

The following patch enables support for shared libgpc libraries on Darwin. --- gcc-3.4.5-orig/gcc/p/rts/Makefile.in 2005-12-15 17:41:59.000000000 +0100 +++ gcc-3.4.5/gcc/p/rts/Makefile.in 2005-12-18 20:44:49.000000000 +0100 @@ -54,6 +54,11 @@ GPCSOLIBNAME=$(GPCSOLIBSHORTNAME).$(gpc_major).$(gpc_minor).$ (rts_version) GPCLIB=$(DESTDIR)/libgpc.a GPCSOLIB=$(DESTDIR)/$(GPCSOLIBNAME) +ifdef TARGET_MACHO + GPCSOLIBOPTIONS = -dynamiclib -dylib_install_name,$(GPCSOLIBNAME) +else + GPCSOLIBOPTIONS = -shared -Wl,-soname=$(GPCSOLIBNAME) +endif PFLAGS1=--unit-path=$(VPATH) --automake RTS_WARN=-W -Wall -Wmissing-prototypes -Wmissing-declarations RTS_CFLAGS=-I. $(RTS_WARN) $(CFLAGS) $(RTSFLAGS)# -DDEBUG @@ -195,7 +200,7 @@ sharedlib.yes: $(GPCSOLIB) $(GPCSOLIB): $(SO_OBJS) -rm -f $(GPCSOLIB) - $(CC) -shared -Wl,-soname=$(GPCSOLIBNAME) -fPIC -o $(GPCSOLIB) $ (SO_OBJS) + $(CC) $(GPCSOLIBOPTIONS) -fPIC -o $(GPCSOLIB) $(SO_OBJS) mostlyclean: -rm -f $(OBJS) $(SO_OBJS) *.gpi *.gpd core needed-options stamp- error-gpi Some help on the command line is needed, e.g. [g5:~/gpc/gpc-20051116/build] adriaan% cd gcc/p/rts [g5:gcc/p/rts] adriaan% make clean [g5:gcc/p/rts] adriaan% make GPCSOLIBNAME=libgpc-345u1.dylib WITH_SHARED=yes TARGET_MACHO=1 Regards, Adriaan van Os

1 0

Re: New gpc snapshot released
by Waldek Hebisch 17 Dec '05

17 Dec '05

Adriaan van Os wrote: > To the best of my knowledge, powerpc-apple-darwin doesn't define > TARGET_POWERPC, but uses __ppc__ as the define for the *target* > processor. So, I believe your change was wrong (sorry). But this is no > longer relevant, as the processor check can be skipped (the problem > also occurs on i386-apple-darwin (as reported before)). > I am not sure if TARGET_POWERPC was the correct symbol, but I think you are confusing things here: to find correct define you should always look at a cross-compiler. When building a cross compiler we have _two_ sets of predefined symbols: one for host machine and one for target. Assume theat we are building a cross-compiler which should run on i386-linux and targetting powerpc-darwin. This compiler should run on i386-linux and is compiled using i386-linux compiler. During compilation _all_ normal symbols predefined by i386-linux compiler are active. So, the test for __I386__ will succeed regardless of the target and the test for _ARCH_PPC will fail regardless of the target. There is a separte set of predefines to describe the target machine, which sould be used in compiler sources. Look at the following snippet from rs6000-c.c: if (TARGET_POWERPC) builtin_define ("_ARCH_PPC"); The snippet shows that if _during build_ the symbol TARGET_POWERPC is defined then the running compiler will define _ARCH_PPC. The situation is different when we build RTS: the RTS is build using the target compiler, so you use "normal" predefines (like _ARCH_PPC). -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

1 0

Building gpc-20051104 on i686-apple-darwin8
by Adriaan van Os 17 Dec '05

17 Dec '05

For those intererested, here is some information on building gpc-20051104 with gcc-3.4.4 on i686-apple-darwin8. We need to build and install the right versions of sed, help2man, flex and bison first, but this has been discussed before (<http://www.gnu-pascal.de/crystal/gpc/en/thread11480.html>). Note that bison 2.1 is now needed (<http://ftp.gnu.org/gnu/bison/>). Then, we need patches to gcc-3.4.4. 1. To build gcc-3.4.4 on Darwin-8 (Mac OS X 10.4) we need the following "Tiger" patch (see <http://www.gnu-pascal.de/crystal/gpc/en/mail12302.html>) as Apple changed the rules once again: --- gcc/config/darwin.h.orig 2005-05-18 13:56:37.000000000 -0400 +++ gcc/config/darwin.h 2005-05-18 13:57:48.000000000 -0400 @@ -275,7 +275,8 @@ /* Machine dependent libraries. */ #undef LIB_SPEC -#define LIB_SPEC "%{!static:-lSystem}" +#define LIB_SPEC "%{!static:-lSystemStubs -lSystem}" + /* We specify crt0.o as -lcrt0.o so that ld will search the library path. */ 2. Then, we need to fix a bug in i386/darwin.h (see <http://www.gnu-pascal.de/crystal/gpc/en/mail12211.html>). --- gcc/config/i386/darwin.h.orig Thu Jun 16 01:10:29 2005 +++ gcc/config/i386/darwin.h Thu Jun 16 01:10:32 2005 @@ -43,7 +43,7 @@ /* Use the following macro for any Darwin/x86-specific command-line option translation. */ -#define SUBTARGET_OPTION_TRANSLATE_TABLE +#define SUBTARGET_OPTION_TRANSLATE_TABLE { 0, 0 } #define ASM_SPEC "-arch i386 \ %{Zforce_cpusubtype_ALL:-force_cpusubtype_ALL} \ 3. Third, we have to fix a problem in config/darwin-crt2 with a system routine that is no longer present on i686-apple-darwin8 (see <http://www.opensource.apple.com/darwinsource/WWDC2004/keymgr-9/ keymgr.c>). --- gcc/config/darwin-crt2.orig.c 2005-11-11 00:31:10.000000000 +0100 +++ gcc/config/darwin-crt2.c 2005-11-11 17:34:48.000000000 +0100 @@ -47,7 +47,14 @@ extern void __darwin_gcc3_preregister_frame_info (void); /* These are from "keymgr.h". */ + +/* _init_keymgr is no longer needed and it breaks the build on i686-apple-darwin8, + see <http://www.opensource.apple.com/darwinsource/WWDC2004/keymgr-9/ keymgr.c> */ +#ifdef __PPC__ extern void _init_keymgr (void); +#endif + + extern void *_keymgr_get_and_lock_processwide_ptr (unsigned key); extern void _keymgr_set_and_unlock_processwide_ptr (unsigned key, void *ptr); @@ -137,7 +144,9 @@ __darwin_gcc3_preregister_frame_info (void) { const _Tinfo_Node *info; +#ifdef __PPC__ _init_keymgr (); +#endif info = (_Tinfo_Node *)__keymgr_global[2]; if (info != NULL) { 4. Finally, there is gcc bug PR16649 (<http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16649>), one of the many bugs that never get fixed by the back-end guys, because of the ingenious excuses they have found for not fixing bugs: 1. it is not a bug but a "regression" 2. it is a "regression" but not a "serious regression" 3. it is a "serious regression" but not a "serious regression for a secondary target" 4. it is a "serious regression" but not a "serious regression for a primary target" 5. it is a "serious regression" but not "release critical" 6. it was never assigned to anybody 7. it was never targeted for a specific release 8. it was targeted for a specific release, but then retargeted by the "release manager" 9. we don't know how to fix it 10. we are not longer working on it 11. or (more honest) we are really not in the mood to fix it, adding another nonsensical optimizer phase is more sexy. but here is the patch (see <http://www.gnu-pascal.de/crystal/gpc/en/mail12213.html>) --- gcc/config/i386/i386.c.orig Wed Mar 16 16:23:40 2005 +++ gcc/config/i386/i386.c Thu Jun 16 13:33:02 2005 @@ -5810,6 +5810,28 @@ return term; } + +/* Allow {LABEL | SYMBOL}_REF - SYMBOL_REF-FOR-PICBASE for Mach-O as + this is used for to form addresses to local data when -fPIC is in + use. */ + +static bool +darwin_local_data_pic (rtx disp) +{ + if (GET_CODE (disp) == MINUS) + { + if (GET_CODE (XEXP (disp, 0)) == LABEL_REF + || GET_CODE (XEXP (disp, 0)) == SYMBOL_REF) + if (GET_CODE (XEXP (disp, 1)) == SYMBOL_REF) + { + const char *sym_name = XSTR (XEXP (disp, 1), 0); + if (! strcmp (sym_name, "<pic base>")) + return true; + } + } + + return false; +} /* Determine if a given RTX is a valid constant. We already know this satisfies CONSTANT_P. */ @@ -5829,6 +5851,9 @@ x = XEXP (x, 0); } + if (TARGET_MACHO && darwin_local_data_pic (x)) + return true; + /* Only some unspecs are valid as "constants". */ if (GET_CODE (x) == UNSPEC) switch (XINT (x, 1)) @@ -5980,18 +6005,8 @@ saw_plus = true; } - /* Allow {LABEL | SYMBOL}_REF - SYMBOL_REF-FOR-PICBASE for Mach-O. */ - if (TARGET_MACHO && GET_CODE (disp) == MINUS) - { - if (GET_CODE (XEXP (disp, 0)) == LABEL_REF - || GET_CODE (XEXP (disp, 0)) == SYMBOL_REF) - if (GET_CODE (XEXP (disp, 1)) == SYMBOL_REF) - { - const char *sym_name = XSTR (XEXP (disp, 1), 0); - if (! strcmp (sym_name, "<pic base>")) - return 1; - } - } + if (TARGET_MACHO && darwin_local_data_pic (disp)) + return 1; if (GET_CODE (disp) != UNSPEC) return 0; 5. Create a build directory, cd into it and configure with something like: [Darwin:gpc-20051104/gpc344x1/build] adriaan% ../gcc-3.4.4/configure --enable-languages=c,pascal --enable-threads=posix --target=i686-apple-darwin8 --host=i686-apple-darwin8 --build=i686-apple-darwin8 --prefix=/Developer/Pascal/gpc344x1 6. Now, we can simply do a make with the system compiler that comes with Xcode 2.2 (gcc version 4.0.1 (Apple Computer, Inc. build 5247)) and a bootstrap is not needed. [Darwin:gpc-20051104/gpc344x1/build] adriaan% make 7.Installation [Darwin:gpc-20051104/gpc344x1/build] adriaan% sudo make install 8. And here we have the new compiler ! [Darwin:gcc/p/test] adriaan% gpc -v Reading specs from /Developer/Pascal/gpc344x1/lib/gcc/i686-apple-darwin8/3.4.4/specs Configured with: ../gcc-3.4.4/configure --enable-languages=c,pascal --enable-threads=posix --target=i686-apple-darwin8 --host=i686-apple-darwin8 --build=i686-apple-darwin8 --prefix=/Developer/Pascal/gpc344x1 Thread model: posix gpc version 20051104, based on gcc-3.4.4 (more about the testsuite in the next message) Regards, Adriaan van Os

1 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 December 2005