paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-30 23:33:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed COM parameter passing

Browse Source 
git-svn-id: trunk@3389 -
This commit is contained in:
florian 2006-04-30 19:09:27 +00:00
parent 9bd2ee5477
commit 2bb707a4ee
2 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/pdecsub.pas
View File

@ -100,11 +100,16 @@ implementation
if pd.deftype=procdef then
akttokenpos:=tprocdef(pd).fileinfo;
{ For left to right add it at the end to be delphi compatible }
if pd.proccalloption in pushleftright_pocalls then
paranr:=paranr_result_leftright
if is_interfacecom(tprocdef(pd)._class) then
paranr:=paranr_result_com
else
paranr:=paranr_result;
begin
{ For left to right add it at the end to be delphi compatible }
if pd.proccalloption in pushleftright_pocalls then
paranr:=paranr_result_leftright
else
paranr:=paranr_result;
end;
{ Generate result variable accessing function result }
vs:=tparavarsym.create('$result',paranr,vs_var,pd.rettype,[vo_is_funcret,vo_is_hidden_para]);
pd.parast.insert(vs);
@ -152,7 +157,10 @@ implementation
begin
{ Generate self variable }
tt:=voidpointertype;
vs:=tparavarsym.create('$self',paranr_self,vs_value,tt,[vo_is_self,vo_is_hidden_para]);
if is_interfacecom(tprocdef(pd)._class) then
vs:=tparavarsym.create('$self',paranr_self_com,vs_value,tt,[vo_is_self,vo_is_hidden_para])
else
vs:=tparavarsym.create('$self',paranr_self,vs_value,tt,[vo_is_self,vo_is_hidden_para]);
pd.parast.insert(vs);
end
else
@ -190,7 +198,10 @@ implementation
vsp:=vs_var;
tt.setdef(tprocdef(pd)._class);
end;
vs:=tparavarsym.create('$self',paranr_self,vsp,tt,[vo_is_self,vo_is_hidden_para]);
if is_interfacecom(tprocdef(pd)._class) then
vs:=tparavarsym.create('$self',paranr_self_com,vsp,tt,[vo_is_self,vo_is_hidden_para])
else
vs:=tparavarsym.create('$self',paranr_self,vsp,tt,[vo_is_self,vo_is_hidden_para]);
pd.parast.insert(vs);
akttokenpos:=storepos;

2
compiler/symconst.pas
View File

@ -96,7 +96,9 @@ const
will be inserted with n+1 }
paranr_parentfp = 1;
paranr_result = 2;
paranr_result_com = 3;
paranr_self = 3;
paranr_self_com = 2;
paranr_vmt = 4;
{ Required to support variations of syscalls on MorphOS }
paranr_syscall_basesysv = 9;