paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 20:59:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

PascalScript: ppc, arm, add self to param list

Browse Source 
git-svn-id: trunk@39478 -
This commit is contained in:
martin 2012-12-07 22:16:08 +00:00
parent fe1d227c76
commit 51a6157180
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -209,6 +209,10 @@ begin
end; end;
end; end;
if assigned(_Self) then begin
addgen(dword(_Self));
end;
{ process all parameters } { process all parameters }
for i := 0 to Params.Count-1 do begin for i := 0 to Params.Count-1 do begin
if Params[i] = nil if Params[i] = nil

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

@ -248,6 +248,10 @@ begin
end; end;
end; end;
if assigned(_Self) then begin
addgen(dword(_Self));
end;
{ process all parameters } { process all parameters }
for i := 0 to Params.Count-1 do begin for i := 0 to Params.Count-1 do begin
if Params[i] = nil if Params[i] = nil