Gpc

gpc@gnu.de

5400 discussions

RE: gdb-patches RFA: Fix pascal behavior for class fields
by Pierre Muller 09 Jan '15

09 Jan '15

Hi Peter, > > The problem is that GPC and Free Pascal support several > > > > pascal 'dialects'. But this requires command line options. > > > > > > > > The -Mobjfpc option is required for Free Pascal compiler > > > > to understand class type definition, but is rejected in default mode. > > > > > > > > I expect GNU GPC to also reject class in 'normal' mode... > > > > Maybe someone on the gpc mailing list knows if classes are supported > > > > by GPC and if it requires a special compiler option. > > > > > > > > Pierre Muller > > > > > > > > FYI: Here is the example code that is included in the bug report. > > > > > > > > $ cat ~/pas/test/test-class-pascal.pas > > > > > > > > type > > > > TA = class > > > > public > > > > x, y : integer; > > > > constructor Create; > > > > function check(b : TA) : boolean; > > > > destructor Done; virtual; > > > > end; > > > > > > > > constructor TA.Create; > > > > begin > > > > x:=-1; > > > > y:=-1; > > > > end; > > > > > > > > destructor TA.Done; > > > > begin > > > > end; > > > > > > > > function TA.check (b : TA) : boolean; > > > > begin > > > > check:=(x < b.x); > > > > end; > > > > > > > > > > > > > > > > var > > > > a, b : TA; > > > > > > > > begin > > > > a:=TA.Create; > > > > b:=TA.Create; > > > > a.x := 67; > > > > a.y := 33; > > > > a.check (b); > > > > end. > > > > > > > > > > > > > > > > _______________________________________________ > > Gpc mailing list > > Gpc(a)gnu.de > > https://www.g-n-u.de/mailman/listinfo/gpc > > It compiles if you put a 'program' statement at the beginning, and > change a.check(b) to assign the function result, I tried this, but here is what I get after your changes: $ gpc test-class-pascal.pas test-class-pascal.pas:4: error: undeclared identifier `class' (first use in this routine) test-class-pascal.pas:4: error: (Each undeclared identifier is reported only once test-class-pascal.pas:4: error: for each routine it appears in.) test-class-pascal.pas:6: error: undeclared identifier `x' (first use in this routine) test-class-pascal.pas:6: error: syntax error before `,' Pierre@d620-muller ~/pas/test $ gpc --version gpc 20050331, based on gcc-3.4.4 (cygming special, gdc 0.12, using dmd 0.125) Copyright (C) 2005 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. Is it because I am using version 3.4.4? The problem is that I did not find any system with easy installation of GPC, and finally tested it on an old Cygwin installation which had GPC, but it's version 3.4.4 > ie as > > > VAR OK : Boolean; > ... > OK := a.check(b); > > > No special command line switches are needed. > > > > Program test; > > type > TA = > class > public > x, y : integer; > constructor Create; > function check(b : TA) : boolean; > destructor Done; virtual; > end; > > constructor TA.Create; > begin > x:=-1; > y:=-1; > end; > > destructor TA.Done; > begin > end; > > function TA.check (b : TA) : boolean; > begin > check:=(x < b.x); > end; > > var > a, b : TA; > OK : boolean; > > begin > a:=TA.Create; > b:=TA.Create; > a.x := 67; > a.y := 33; > OK := a.check (b); > end. Anyhow, by using objects instead of classes, I was able to compile the modified program, and it turns out that GPC is using 'Self' for the hidden object name for stabs debugging, so that the problem probably does not apply to GPC compiled sources. Thanks Peter Pierre Muller

1 0

gdb-patches RFA: Fix pascal behavior for class fields
by Pierre Muller 08 Jan '15

08 Jan '15

For gpc mailing list: this email comes as a follow-up of this bug report <https://sourceware.org/bugzilla/show_bug.cgi?id=17815> https://sourceware.org/bugzilla/show_bug.cgi?id=17815 The start of the thread can be found at: <https://sourceware.org/ml/gdb-patches/2015-01/msg00164.html> https://sourceware.org/ml/gdb-patches/2015-01/msg00164.html Pedro asked: > >> How about adding this to the test suite? > > > > > > The whole testsuite/gdb.pascal is almost empty, > > I never invested time to develop it :( > > > > At the time I started it, GPC (the GNU pascal compiler) > > was still active, but development apparently > > stopped since quite some time. > > > > I am unable to install GPC, which means that I cannot test it. > > Would a testsuite that supports only Free Pascal be acceptable? > > Do you actually mean, whether it's ok for a new > test (not test suite) to go in untested on GPC? It certainly is. > Better test on FPC than nowhere. :-) That is indeed what I meant. > AFAICS, the tests themselves don't really care which compiler > is in use other than for marking xfails; you just call > gdb_compile_pascal, > and that works with either. That's my impression from quickly > skimming testsuite/lib/pascal.exp. The problem is that GPC and Free Pascal support several pascal 'dialects'. But this requires command line options. The -Mobjfpc option is required for Free Pascal compiler to understand class type definition, but is rejected in default mode. I expect GNU GPC to also reject class in 'normal' mode... Maybe someone on the gpc mailing list knows if classes are supported by GPC and if it requires a special compiler option. Pierre Muller FYI: Here is the example code that is included in the bug report. $ cat ~/pas/test/test-class-pascal.pas type TA = class public x, y : integer; constructor Create; function check(b : TA) : boolean; destructor Done; virtual; end; constructor TA.Create; begin x:=-1; y:=-1; end; destructor TA.Done; begin end; function TA.check (b : TA) : boolean; begin check:=(x < b.x); end; var a, b : TA; begin a:=TA.Create; b:=TA.Create; a.x := 67; a.y := 33; a.check (b); end.

1 0

both too many and too few arguments
by Jay Michael 17 Dec '14

17 Dec '14

GNU Pascal version 20070904, based on gcc-3.4.5 (mingw special). >gpc jsm6.pas jsm6.pas: In main program: jsm6.pas:7: error: too many (>1) arguments to routine `noargproc' jsm6.pas:5: error: routine declaration jsm6.pas:7: error: too few (1) arguments to function `noargproc' I defined a procedure with no arguments. When I called it with two arguments, I got error messages saying both "too many" and "too few" arguments. What is the significance of the "1" in "too many (>1) arguments" and in "too few (1) arguments"?

2 1

mod operator in constants not allowed
by trevor 18 Oct '14

18 Oct '14

as title, I get a compile error when I use the mod operator in constant expressions. eg, with this program ... program pmod (Output); const c = 9 mod 5; { <<<< error } begin WriteLn ('9 mod 5 is ', c); end. { pmod } pmod.pas:3: error: constant has non-constant value I can rewrite the constant as c = 9 - 5*(9 div 5); { this is equivalent to 9 mod 5 } without problems. This seems strange to me - am I missing something? What makes it a non-constant? Many Thanks

2 2

Debian packages
by Peter 12 Sep '14

12 Sep '14

I have built some unofficial deb packages for gpc, based on version 20070904, gcc 3.4.6 They should work in modern version of Debian, Mint, Ubuntu etc. See;- https://launchpad.net/~ueter/+archive/ubuntu/gpc-3.4/+packages <https://launchpad.net/%7Eueter/+archive/ubuntu/gpc-3.4/+packages> Direct link for 64bit deb package which can be installed via gdebi;- https://launchpad.net/~ueter/+archive/ubuntu/gpc-3.4/+build/6360693 <https://launchpad.net/%7Eueter/+archive/ubuntu/gpc-3.4/+build/6360693> Any comments or feedback most welcome. My test results for 64 bit are as follows;- ---------------------------------------------------------------------- for this version of gpc on Debian jessie (x86_64): === gpc tests === Running target any Running testsuite ... UNSUPPORTED: agettext2test.pas UNSUPPORTED: asmtest.pas FAIL: fieldw.pas UNSUPPORTED: fjf165a.pas FAIL: fjf23.pas FAIL: fjf30b.pas FAIL: writeb.pas FAIL: writec.pas FAIL: writee.pas FAIL: writeg.pas === gpc Summary === # of tests 5112 # of expected passes 5102 # of unexpected failures 7 # of unsupported tests 3 gpc version 20070904, based on gcc-3.4.6 ---------------------------------------------------------------------- Peter

1 0

Function return value register
by Rajat Singh 10 Jun '14

10 Jun '14

Hi, Is there a way to change the function return value coming in register d0 to come in reigster d7 ? I tried adding d7 in call_used_registers and updating macro's FUNCTION_VALUE and FUNCTION_VALUE_REGNO_P but it didnt work. I tried modifying hard_function_value function in explow.c but compilation failed at reload pass. I am trying to update the backend code for m68k.Any help is appreciated. Thanks and regards, Rajat Singh

3 2

Global variables - register allocated
by Rajat Singh 21 May '14

21 May '14

Hi, I am declaring the global variable outside a procedure. I want to know the register that is used by this global variable. VAR VAR1:INTEGER; attribute(name='VAR1'); When I tried to disassemble the object file, the global variables seems to be residing in the memory instead of a register. 80000130: 7005 moveq #5,%d0 80000132: 23c0 8000 21ec movel %d0,800021ec <VAR1> Can you please let me know how to identify the register which is used by this variable. Thanks, Rajat

2 4

Heap error 203
by Contestcen＠aol.com 15 May '14

15 May '14

You can ignore my previous question about Heap Error 203. I have discovered the variable ReturnNilIfGrowHeapFails which controls the behavior of New. It is not mentioned in the RTL manual, but it is mentioned in the Programmer's Guide. I had not read far enough in Chapter 8, which at first reading seemed to be entirely concerned with the sizes of the various data types. The description of New in the RTL manual simply states that New returns nil if space is not available. It does not say that this feature defaults to off, and has to be turned on by the program. Frank

2 1

Error 203 Heap is out of memory
by Contestcen＠aol.com 14 May '14

14 May '14

Is there any way to prevent an Error 203 when I call New and the heap is out of storage? The RTL manual says that New should return a nil pointer, but that doesn't seem to happen. Instead, my program terminates with a 203 error code. This happens with both {$S+} and {$S-} directives. I am running DOS under Windows 7. Frank

1 0

BitSets in GNU PASCAL
by Kavitha Manjunath 28 Apr '14

28 Apr '14

Hi, Is BitSet available in GPC. If not, can you please tell me how to add bitsets as part of GPC. Thanks. Regards Kavitha

2 1

← Newer
1
...
7
8
9
10
11
12
13
...
540
Older →

Jump to page:

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