paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 18:40:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixes for 64 bit constructor (and some ifdef) // only fpc 3.0 and up

Browse Source 
git-svn-id: trunk@56220 -
This commit is contained in:
martin 2017-10-27 23:02:10 +00:00
parent cb655096b6
commit 6c4ebea341
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/x64.inc
View File

@ -661,7 +661,7 @@ begin
FillChar(Registers, Sizeof(REgisters), 0);
_RAX := 0;
RegUsage := 0;
{$IFDEF FPC} // FIX FOR FPC constructor calls
{$IF DEFINED (fpc) and (fpc_version >= 3)} // FIX FOR FPC constructor calls
if IsConstructor then begin
if not GetPtr(rp(Params[0])) then exit; // this goes first
DisposePPSVariantIFC(Params[0]);