paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 19:06:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* real bug #2953 instead of 2956

Browse Source
This commit is contained in:
peter 2004-03-04 17:19:03 +00:00
parent a813c64e3e
commit a77c934dda
2 changed files with 7 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
tests/webtbs/tw2953.pp
View File

@ -1,26 +1,10 @@
{ Source provided for Free Pascal Bug Report 2956 } { Source provided for Free Pascal Bug Report 2953 }
{ Submitted by "Marco (Gory Bugs Department)" on 2004-02-08 } { Submitted by "" on 2004-02-07 }
{ e-mail: } { e-mail: Marco }
{$mode delphi}
{$mode Delphi} // Next line should give a warning only
Uses uw2953; //$IF's are evaluated before $IFDEF's
type
localclassfields = class(aclasswithfields)
end;
classwithmethod = class
procedure xx;
end;
procedure classwithmethod.xx;
var ll : aclasswithfields;
begin begin
writeln(localclassfields(ll).field1); // goes ok. end.
with localclassfields(ll) do // typecast.
writeln(field1);
end;
begin
end.

12
tests/webtbs/uw2953.pp
View File

@ -1,12 +0,0 @@
unit uw2953;
{$mode Delphi}
interface
type
aclasswithfields = class
protected
field1:integer;
end;
implementation
end.