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

compiler: set moduleid for record symtables and descendants (fixes bug #0017950)

Browse Source 
git-svn-id: trunk@16351 -
This commit is contained in:
paul 2010-11-17 02:40:41 +00:00
parent 2d860e356c
commit d99b4ae7c1
4 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -10751,6 +10751,7 @@ tests/webtbs/tw17907/unit2/unit0002.pas svneol=native#text/plain
tests/webtbs/tw1792.pp svneol=native#text/plain tests/webtbs/tw1792.pp svneol=native#text/plain
tests/webtbs/tw17928.pp svneol=native#text/plain tests/webtbs/tw17928.pp svneol=native#text/plain
tests/webtbs/tw1792a.pp svneol=native#text/plain tests/webtbs/tw1792a.pp svneol=native#text/plain
tests/webtbs/tw17950.pp svneol=native#text/pascal
tests/webtbs/tw1798.pp svneol=native#text/plain tests/webtbs/tw1798.pp svneol=native#text/plain
tests/webtbs/tw1820.pp svneol=native#text/plain tests/webtbs/tw1820.pp svneol=native#text/plain
tests/webtbs/tw1825.pp svneol=native#text/plain tests/webtbs/tw1825.pp svneol=native#text/plain
@ -11600,6 +11601,7 @@ tests/webtbs/uw15909.pp svneol=native#text/plain
tests/webtbs/uw17220.pp svneol=native#text/plain tests/webtbs/uw17220.pp svneol=native#text/plain
tests/webtbs/uw17220a.pp svneol=native#text/plain tests/webtbs/uw17220a.pp svneol=native#text/plain
tests/webtbs/uw17493.pp svneol=native#text/plain tests/webtbs/uw17493.pp svneol=native#text/plain
tests/webtbs/uw17950.pas svneol=native#text/pascal
tests/webtbs/uw2004.inc svneol=native#text/plain tests/webtbs/uw2004.inc svneol=native#text/plain
tests/webtbs/uw2040.pp svneol=native#text/plain tests/webtbs/uw2040.pp svneol=native#text/plain
tests/webtbs/uw2266a.inc svneol=native#text/plain tests/webtbs/uw2266a.inc svneol=native#text/plain

1
compiler/symtable.pas
View File

@ -752,6 +752,7 @@ implementation
constructor tabstractrecordsymtable.create(const n:string;usealign:shortint); constructor tabstractrecordsymtable.create(const n:string;usealign:shortint);
begin begin
inherited create(n); inherited create(n);
moduleid:=current_module.moduleid;
_datasize:=0; _datasize:=0;
databitsize:=0; databitsize:=0;
recordalignment:=1; recordalignment:=1;

9
tests/webtbs/tw17950.pp Normal file
View File

@ -0,0 +1,9 @@
program tw17950;
{$mode delphi}
// checks visibility of nested class fields
uses
uw17950;
begin
end.

29
tests/webtbs/uw17950.pas Normal file
View File

@ -0,0 +1,29 @@
unit uw17950;
{$mode delphi}
interface
implementation
type
TFoo1 = class;
TFoo1 = class
public
type
TFoo2 = object
private
FField2: integer;
end;
public
function GetFoo2: TFoo2;
end;
function TFoo1.GetFoo2: TFoo2;
begin
result.FField2 := 5;
end;
end.