paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 12:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added missing assignment check when searching for a symbol in a class, fixing bug #9673

Browse Source 
* test program for above

git-svn-id: trunk@8579 -
This commit is contained in:
tom_at_work 2007-09-20 20:35:35 +00:00
parent 4525df9ea0
commit 37695af02b
3 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8458,6 +8458,7 @@ tests/webtbs/tw9347b.pp svneol=native#text/plain
tests/webtbs/tw9384.pp svneol=native#text/plain
tests/webtbs/tw9385.pp svneol=native#text/plain
tests/webtbs/tw9672.pp svneol=native#text/plain
tests/webtbs/tw9673.pp -text
tests/webtbs/tw9695.pp svneol=native#text/plain
tests/webtbs/tw9704.pp svneol=native#text/plain
tests/webtbs/tw9766.pp svneol=native#text/plain

2
compiler/symtable.pas
View File

@ -1658,7 +1658,7 @@ implementation
begin
result:=false;
hashedid.id:=s;
if assigned(current_procinfo.procdef) then
if assigned(current_procinfo) and assigned(current_procinfo.procdef) then
currentclassh:=current_procinfo.procdef._class
else
currentclassh:=nil;

20
tests/webtbs/tw9673.pp Normal file
View File

@ -0,0 +1,20 @@
unit tw9673;
interface
{$mode objfpc}
type
Testclass = class
type
TList = array of byte;
end;
var
b : Testclass.TList;
implementation
begin
end.