paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 13:19:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

PascalScript: ppc, fix do not use stack *and* register

Browse Source 
git-svn-id: trunk@39476 -
This commit is contained in:
martin 2012-12-07 18:48:50 +00:00
parent e155bfca39
commit 908e2660f2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/PascalScript/Source/powerpc.inc
View File

@ -204,7 +204,7 @@ var
then begin
rint[rindex] := value;
inc(rindex);
addstackdword(value);
//addstackdword(value);
end
else begin
addstackdword(value);
@ -221,7 +221,7 @@ var
else rfloat[findex] := double(value^);
inc(findex);
inc(rindex, size);
addstackfloat(value, size);
//addstackfloat(value, size);
end
else begin
addstackfloat(value, size);