gdb-patches RFA: Fix pascal behavior for class fields

8 Jan 2015

      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.