paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 03:48:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

PascalScript: Update from orig: SHA-1: ff9f866b9f2588af17a5372ae52124a6ae15e044

Browse Source 
* Add support of interface-variable to Assigned function

git-svn-id: trunk@43049 -
This commit is contained in:
martin 2013-10-01 12:53:51 +00:00
parent e2ed2e625c
commit df849420fc
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/PascalScript/Source/uPSCompiler.pas
View File

@ -8087,7 +8087,9 @@ function TPSPascalCompiler.ProcessSub(BlockInfo: TPSBlockInfo): Boolean;
result := nil;
exit;
end;
if (GetTypeNo(BlockInfo, NewVar) = nil) or ((GetTypeNo(BlockInfo, NewVar).BaseType <> btClass) and
if (GetTypeNo(BlockInfo, NewVar) = nil) or
((GetTypeNo(BlockInfo, NewVar).BaseType <> btClass) and
(GetTypeNo(BlockInfo, NewVar).BaseType <> btInterface) and
(GetTypeNo(BlockInfo, NewVar).BaseType <> btPChar) and
(GetTypeNo(BlockInfo, NewVar).BaseType <> btString)) then
begin