Gpc

gpc@gnu.de

5400 discussions

define loop
by Martin Kalbfuß 03 Sep '09

03 Sep '09

Hi again, I wonder what the loop define is good for and how I would use it. It would be nice if someone could show me an example. Thanks, Martin

3 2

exporting imported names with extended pascal style modules
by Martin Kalbfuß 03 Sep '09

03 Sep '09

Hi, I have two modules "keyboard" and "display" exporting some names with export = all; This works fine. I try to create a module importing all names of both at once. I tried: export = all; import aldisplay in 'display'; alkeyboard in 'keyboard'; But the imported names aren't exported. Is there a way to do this without exporting every single imported name? Thanks, Martin

2 1

Least significant byte
by Prof A Olowofoyeku (The African Chief) 02 Sep '09

02 Sep '09

Hi all Does anyone know how to return the lest significant byte of a given number? e.g. function least_significant_byteof (num: integer): byte; An algorithm in Pascal or C would be fine. Thanks, -- Best regards, The Chief

4 4

newbie questions!
by Arsha 14 Aug '09

14 Aug '09

Hi, I just downloaded Dev-Pas IDE 1.9.4.13 bundled with GPC + MinGW, and having tried to compile successfully a few simple programs but I cannot compile the examples provided by package like “WinHello” program. Can someone instruct me how to build those programs? P.S 1: When I open the “Windows Hello” project file and try to compile it I get the following error: Compile : “Error compiling resource file: E:/Dev-Pas/examples/WinHello/rsrc.o” Resource: “gcc: installation problem, cannot exec `cpp0': No such file or directory E:\Dev-Pas\bin\windres: preprocessing failed.” Compile log: “Building resource file... E:\Dev-Pas\bin\windres -i E:/Dev-Pas/examples/WinHello/rsrc.rc -o e:/dev-pas/examples/winhello/rsrc.o” P.S 2: What does mean that .jtp extension in the server page? P.S 3: Any other "optimization" command in GPC not available directly from IDE? -- View this message in context: http://www.nabble.com/newbie-questions%21-tp24936270p24936270.html Sent from the Gpc mailing list archive at Nabble.com.

3 7

Re: Bug report - Schemata bug
by Waldek Hebisch 01 Jun '09

01 Jun '09

Martin Kalbfuss wrote: Fixed quoting > > You tried to use automatic initialization of variable sized > > schema. Unfortunatly, it works only simplest cases (basically > > the schema parameters must be constants). > > > > There is a bug in the compiler: there should be reasonable > > error message instead of the above... > > > > But the same happens if I use > > new( table, map. width , map. height ); > > instead. Isn't it very useless if I can only use constants for dynamic memory? > You can allocate variable sized items unsing new. Simply you can not request automatic initialization of such items. -- Waldek Hebisch hebisch(a)math.uni.wroc.pl

1 0

Bug report - Schemata bug
by Martin Kalbfuß 31 May '09

31 May '09

I reduced my game code to the needed data types and code. The same happens if I use new. I'm not sure if this is really a compiler bug. I wrote another program doing the same, without this error. But I cannot find the bug. My compiler version is Using built-in specs. Configured with: ../src/configure -v --enable-languages=c,pascal --prefix=/usr --enable-shared --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --enable-nls --with-gxx-include-dir=/usr/include/c++/4.1.3 --program-suffix=-4.1 --enable-__cxa_atexit --enable-clocale=gnu --disable-libmudflap --enable-checking=release i486-linux-gnu Thread model: posix gpc version 20070904, based on gcc-4.1.3 20080420 (prerelease) (Debian 2.1-4.1.2-22) The error message is bug.pas:75: internal compiler error: in process_otherwise, at p/typecheck.c:4407 Please submit a full bug report, with preprocessed source if appropriate. See <URL:http://www.gnu-pascal.de/todo.html> for instructions. For Debian GNU/Linux specific bug reporting instructions, see <URL:file:///usr/share/doc/gcc-4.1/README.Bugs>.

3 2

problems with schema parameter
by Martin Kalbfuß 30 May '09

30 May '09

I wrote the following code: PROCEDURE play( map : map_type ); VAR player1 : player_type( 'O', 'a', 'd', 'w', 's', red, right, 10, 10, 3 ); player2 : player_type( 'O', Crt.ksLeft, Crt.ksRight, Crt.ksUp, Crt.ksDown, green, left, 15, 15, 3 ); table : table_type_ptr; BEGIN new( table, map.width, map.height ); ... END; END; And here are the important types: x_coordinate_type = 1..table_width; x_dimension_type = 1..table_width; map_type( w, h, p1x, p1y, p2x, p2y : INTEGER ) = RECORD width : x_dimension_type VALUE w; height : y_dimension_type VALUE h; player1_pos : player_pos_type VALUE [ p1x; p1y ]; player2_pos : player_pos_type VALUE [ p2x; p2y ]; collision : BOOLEAN VALUE FALSE; data : ARRAY[ 1..h, 1..w ] OF CHAR; END; table_type( w, h : INTEGER ) = ARRAY[ 1..h, 1..w ] OF field_type; table_type_ptr = ^table_type; When I want to compile the code I get the following error: snake.pas: In procedure `play': snake.pas:203: internal compiler error: in process_otherwise, at p/typecheck.c:4407 Please submit a full bug report, with preprocessed source if appropriate. See <URL:http://www.gnu-pascal.de/todo.html> for instructions. For Debian GNU/Linux specific bug reporting instructions, see <URL:file:///usr/share/doc/gcc-4.1/README.Bugs>. The problem is the call to new. Is this my fault?

2 1

ascii or scancodes?
by Martin Kalbfuß 29 May '09

29 May '09

Hi again, I have another problem with my text snake game. It's about the use of the keyboard functions of Crt. The player record has some fields holding the keys for changing the direction of the snake. I want the following key sets as standard. player 1: left -> a right -> d up -> w down -> s player 2: left -> arrow left right -> arrow right up -> arrow up down -> arrow down I found the scancodes for the arrow keys on the net, and they are working. But the scancodes I found for the letters doesn't. I also read that usb keyboards have different scancodes. Is it possible to use scancodes platform independent? Or are there ascii codes for the arrow keys, I could use?

2 1

timing functions?
by Martin Kalbfuß 28 May '09

28 May '09

Hi Community, I'm writing a small snake game with the CRT unit. I wan't to set up a timer for the snake movement. What is the best way to do so with gpc. If possible I would like to use ISO code. I found some functions, but they Thanks

2 1

Adding a global define
by Adriaan van Os 02 May '09

02 May '09

I have created a patch that adds a define to include/ansidecl.h. When I build the compiler with the patch, the build hangs as indicated below. My questions are: 1. What's going on ? 2. Is there a configuration file in gcc/p or gcc/p/rts that needs a manual rebuild after the patch ? 3. Is there a recommended way to add a define to the compilation of all files (including libiberty) ? Regards, Adriaan van Os stage1/xgcc -Bstage1/ -B/Developer/Pascal/gpc346u4/i386-apple-darwin10/bin/ -g -O2 -DIN_GCC -W -Wall -Wwrite-strings -Wstrict-prototypes -Wmissing-prototypes -pedantic -Wno-long-long -Wold-style-definition -DHAVE_CONFIG_H -o xgcc gcc.o gccspec.o intl.o \ prefix.o version.o ../libiberty/libiberty.a -liconv ./xgcc -B./ -B/Developer/Pascal/gpc346u4/i386-apple-darwin10/bin/ -isystem /Developer/Pascal/gpc346u4/i386-apple-darwin10/include -isystem /Developer/Pascal/gpc346u4/i386-apple-darwin10/sys-include -L/Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../ld -dumpspecs > tmp-specs mv tmp-specs specs cd ../../gcc-3.4.6/gcc/p/rts && make -f Makefile.in srcdir=. GCC_VERSION="3.4.6" SHELL="/bin/sh" CFLAGS="-g -O2" PFLAGS="" AR_FLAGS="rc" RTSFLAGS="" DESTDIR="../.." AR="` if [ -f /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ar ] ; then echo /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ar ; else if [ "i386-apple-darwin10" = "i386-apple-darwin10" ] ; then echo ar; else t='s,y,y,'; echo ar | sed -e $t ; fi; fi`" RANLIB="` if [ -f /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ranlib ] ; then echo /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ranlib ; else if [ "i386-apple-darwin10" = "i386-apple-darwin10" ] ; then echo ranlib; else t='s,y,y,'; echo ranlib | sed -e $t ; fi; fi`" RANLIB_TEST="" generated-files make[3]: Nothing to be done for `generated-files'. cd ../../gcc-3.4.6/gcc/p/rts && make -f Makefile.in srcdir=. GCC_VERSION="3.4.6" SHELL="/bin/sh" CFLAGS="-g -O2" PFLAGS="" AR_FLAGS="rc" RTSFLAGS="" DESTDIR="../.." AR="` if [ -f /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ar ] ; then echo /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ar ; else if [ "i386-apple-darwin10" = "i386-apple-darwin10" ] ; then echo ar; else t='s,y,y,'; echo ar | sed -e $t ; fi; fi`" RANLIB="` if [ -f /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ranlib ] ; then echo /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ranlib ; else if [ "i386-apple-darwin10" = "i386-apple-darwin10" ] ; then echo ranlib; else t='s,y,y,'; echo ranlib | sed -e $t ; fi; fi`" RANLIB_TEST="" generated-files make[3]: Nothing to be done for `generated-files'. cd ../../gcc-3.4.6/gcc/p/rts && make -f Makefile.in srcdir=. GCC_VERSION="3.4.6" SHELL="/bin/sh" CFLAGS="-g -O2" PFLAGS="" AR_FLAGS="rc" RTSFLAGS="" DESTDIR="../.." AR="` if [ -f /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ar ] ; then echo /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ar ; else if [ "i386-apple-darwin10" = "i386-apple-darwin10" ] ; then echo ar; else t='s,y,y,'; echo ar | sed -e $t ; fi; fi`" RANLIB="` if [ -f /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ranlib ] ; then echo /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ranlib ; else if [ "i386-apple-darwin10" = "i386-apple-darwin10" ] ; then echo ranlib; else t='s,y,y,'; echo ranlib | sed -e $t ; fi; fi`" RANLIB_TEST="" generated-files make[3]: Nothing to be done for `generated-files'. cd ../../gcc-3.4.6/gcc/p/rts && make -f Makefile.in srcdir=. GCC_VERSION="3.4.6" SHELL="/bin/sh" CFLAGS="-g -O2" PFLAGS="" AR_FLAGS="rc" RTSFLAGS="" DESTDIR="../.." AR="` if [ -f /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ar ] ; then echo /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ar ; else if [ "i386-apple-darwin10" = "i386-apple-darwin10" ] ; then echo ar; else t='s,y,y,'; echo ar | sed -e $t ; fi; fi`" RANLIB="` if [ -f /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ranlib ] ; then echo /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ranlib ; else if [ "i386-apple-darwin10" = "i386-apple-darwin10" ] ; then echo ranlib; else t='s,y,y,'; echo ranlib | sed -e $t ; fi; fi`" RANLIB_TEST="" generated-files make[3]: Nothing to be done for `generated-files'. cd ../../gcc-3.4.6/gcc/p/rts && make -f Makefile.in srcdir=. GCC_VERSION="3.4.6" SHELL="/bin/sh" CFLAGS="-g -O2" PFLAGS="" AR_FLAGS="rc" RTSFLAGS="" DESTDIR="../.." AR="` if [ -f /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ar ] ; then echo /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ar ; else if [ "i386-apple-darwin10" = "i386-apple-darwin10" ] ; then echo ar; else t='s,y,y,'; echo ar | sed -e $t ; fi; fi`" RANLIB="` if [ -f /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ranlib ] ; then echo /Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../binutils/ranlib ; else if [ "i386-apple-darwin10" = "i386-apple-darwin10" ] ; then echo ranlib; else t='s,y,y,'; echo ranlib | sed -e $t ; fi; fi`" RANLIB_TEST="" generated-files make[3]: Nothing to be done for `generated-files'. rm -rf p/docdemos ../../gcc-3.4.6/gcc/p/script/mkdir-p p/docdemos ../../gcc-3.4.6/gcc/p/script/extract-doc-demos -o p/docdemos ../../gcc-3.4.6/gcc/p/doc/*.texi ../../gcc-3.4.6/gcc/p/doc/generated/*.texi ../../gcc-3.4.6/gcc/p/doc/en/*.texi echo timestamp > "p/stamp-docdemos" make[2]: Circular libgcc.a <- pascal dependency dropped. if [ -f specs.ready ] ; then \ true; \ else \ echo timestamp > specs.ready; \ fi objext='.o' \ LIB1ASMFUNCS='' \ LIB2FUNCS_ST='_eprintf __gcc_bcmp' \ LIBGCOV='_gcov _gcov_merge_add _gcov_merge_single _gcov_merge_delta' \ LIB2ADD='' \ LIB2ADD_ST='' \ LIB2ADD_SH='' \ LIB2ADDEH='../../gcc-3.4.6/gcc/unwind-dw2.c ../../gcc-3.4.6/gcc/unwind-dw2-fde-darwin.c ../../gcc-3.4.6/gcc/unwind-sjlj.c ../../gcc-3.4.6/gcc/unwind-c.c' \ LIB2ADDEHSTATIC='../../gcc-3.4.6/gcc/unwind-dw2.c ../../gcc-3.4.6/gcc/unwind-dw2-fde-darwin.c ../../gcc-3.4.6/gcc/unwind-sjlj.c ../../gcc-3.4.6/gcc/unwind-c.c' \ LIB2ADDEHSHARED='../../gcc-3.4.6/gcc/unwind-dw2.c ../../gcc-3.4.6/gcc/unwind-dw2-fde-darwin.c ../../gcc-3.4.6/gcc/unwind-sjlj.c ../../gcc-3.4.6/gcc/unwind-c.c' \ LIB2ADDEHDEP='unwind.inc unwind-dw2-fde.h unwind-dw2-fde.c' \ LIBUNWIND='' \ LIBUNWINDDEP='' \ SHLIBUNWIND_LINK='' \ SHLIBUNWIND_INSTALL='' \ FPBIT='' \ FPBIT_FUNCS='_pack_sf _unpack_sf _addsub_sf _mul_sf _div_sf _fpcmp_parts_sf _compare_sf _eq_sf _ne_sf _gt_sf _ge_sf _lt_sf _le_sf _unord_sf _si_to_sf _sf_to_si _negate_sf _make_sf _sf_to_df _sf_to_tf _thenan_sf _sf_to_usi _usi_to_sf' \ LIB2_DIVMOD_FUNCS='_divdi3 _moddi3 _udivdi3 _umoddi3 _udiv_w_sdiv _udivmoddi4' \ DPBIT='' \ DPBIT_FUNCS='_pack_df _unpack_df _addsub_df _mul_df _div_df _fpcmp_parts_df _compare_df _eq_df _ne_df _gt_df _ge_df _lt_df _le_df _unord_df _si_to_df _df_to_si _negate_df _make_df _df_to_sf _df_to_tf _thenan_df _df_to_usi _usi_to_df' \ TPBIT='' \ TPBIT_FUNCS='_pack_tf _unpack_tf _addsub_tf _mul_tf _div_tf _fpcmp_parts_tf _compare_tf _eq_tf _ne_tf _gt_tf _ge_tf _lt_tf _le_tf _unord_tf _si_to_tf _tf_to_si _negate_tf _make_tf _tf_to_df _tf_to_sf _thenan_tf _tf_to_usi _usi_to_tf' \ MULTILIBS=` ./xgcc -B./ -B/Developer/Pascal/gpc346u4/i386-apple-darwin10/bin/ -isystem /Developer/Pascal/gpc346u4/i386-apple-darwin10/include -isystem /Developer/Pascal/gpc346u4/i386-apple-darwin10/sys-include -L/Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../ld --print-multi-lib` \ EXTRA_MULTILIB_PARTS='' \ SHLIB_LINK='' \ SHLIB_INSTALL='' \ SHLIB_EXT='' \ SHLIB_MULTILIB='' \ SHLIB_MKMAP='' \ SHLIB_MKMAP_OPTS='' \ SHLIB_MAPFILES='' \ SHLIB_NM_FLAGS='-pg' \ MULTILIB_OSDIRNAMES='' \ mkinstalldirs='/bin/sh ../../gcc-3.4.6/gcc/mkinstalldirs' \ /bin/sh mklibgcc > tmp-libgcc.mk xgcc: unrecognized option `-isystem' xgcc: unrecognized option `-isystem' mv tmp-libgcc.mk libgcc.mk ./xgcc -B./ -B/Developer/Pascal/gpc346u4/i386-apple-darwin10/bin/ -isystem /Developer/Pascal/gpc346u4/i386-apple-darwin10/include -isystem /Developer/Pascal/gpc346u4/i386-apple-darwin10/sys-include -L/Volumes/P300/Users/adriaan/gnu/gpc/gpc346u4/build/gcc/../ld -DIN_GCC -W -Wall -Wwrite-strings -Wstrict-prototypes -Wmissing-prototypes -Wold-style-definition -isystem ./include -I. -I. -I../../gcc-3.4.6/gcc -I../../gcc-3.4.6/gcc/. -I../../gcc-3.4.6/gcc/../include \ -c ../../gcc-3.4.6/gcc/config/darwin-crt2.c -o crt2.o xgcc: unrecognized option `-isystem' xgcc: unrecognized option `-isystem' xgcc: unrecognized option `-DIN_GCC' xgcc: unrecognized option `-isystem' xgcc: unrecognized option `-I.' xgcc: unrecognized option `-I.' xgcc: unrecognized option `-I../../gcc-3.4.6/gcc' xgcc: unrecognized option `-I../../gcc-3.4.6/gcc/.' xgcc: unrecognized option `-I../../gcc-3.4.6/gcc/../include'

2 3

Jump to page:

2025

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