paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 05:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

PascalScript, fix crash when compiled for 64 bit

Browse Source 
git-svn-id: trunk@43873 -
This commit is contained in:
jesus 2014-02-04 17:22:25 +00:00
parent 5e7226829c
commit 8d89805d46
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14563,7 +14563,7 @@ begin
C := CurrClass.FClassItems[I]; C := CurrClass.FClassItems[I];
if (c is TPSDelphiClassItemConstructor) and (C.NameHash = H) and (C.Name = Name) then if (c is TPSDelphiClassItemConstructor) and (C.NameHash = H) and (C.Name = Name) then
begin begin
Index := Cardinal(C); Index := IPointer(C);
Result := True; Result := True;
exit; exit;
end; end;