Re: [RFA] Fix pascal behavior for class fields

[Pedro Alves <palves at redhat dot com>]

On 01/08/2015 08:53 AM, Pierre Muller wrote:
>   This is the problem that triggered my previous RFA,
> as I discovered it while debugging this problem.
> 
>   In the pascal parser, there is special code
> that will try to emulate case-insensivity despite the
> fact that pascal is not registered as a 'case-insensitive' language.
> 
>   This code does not work as expected for fields of a class,
> for which exact casing is currently required.
> 
> See:
> https://sourceware.org/bugzilla/show_bug.cgi?id=17815
> for source code:
> 
> # Compile attached source code, using Free Pascal compiler
> 
> fpc -gs -Mobjfpc test-class-pascal.pas
> 
> # Debug it
> gdb ./test-class-pascal
> .......
> (gdb) b TA__CHECK
> Breakpoint 1 at 0x40154c: file test-class-pascal.pas, line 23.
> (gdb) r
> Starting program: E:\pas\test\test-class-pascal.exe
> [New Thread 6700.0x1ae0]
> 
> Breakpoint 1, TA__CHECK (B=0x1572ee0, this=<error reading variable>)
>     at test-class-pascal.pas:23
> 23        check:=(x < b.x);
> (gdb) p this
> $1 = (TA) 0x1572ed0
> (gdb) p this^
> warning: can't find linker symbol for virtual table for `TA' value
> $2 = {<TOBJECT> = {_vptr$ = {0x408014, 0x43}}, X = 67, Y = 33}
> (gdb) p X
> warning: can't find linker symbol for virtual table for `TA' value
> $3 = 67
> (gdb) p B.X
> warning: can't find linker symbol for virtual table for `TA' value
> $4 = -1
> (gdb) p b.x
> warning: can't find linker symbol for virtual table for `TA' value
> $5 = -1
> (gdb) p x
> Type TA has no component named x.
> (gdb)

How about adding this to the test suite?

Thanks,
Pedro Alves