paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* passing interfaces as parameters fixed

Browse Source
This commit is contained in:
florian 2000-11-17 10:30:24 +00:00
parent 61c74729a6
commit 881fe6d416
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/i386/cgai386.pas
View File

@ -977,15 +977,15 @@ implementation
var
pushedregs : tpushed;
r : treference;
begin
pushusedregisters(pushedregs,$ff);
emitpushreferenceaddr(ref);
emit_ref(A_PUSH,S_L,newreference(ref));
if is_interfacecom(t) then
begin
emitcall('FPC_INTF_INCR_REF');
end
else internalerror(1859);
emitcall('FPC_INTF_INCR_REF')
else
internalerror(1859);
popusedregisters(pushedregs);
end;
@ -2936,7 +2936,10 @@ implementation
end.
{
$Log$
Revision 1.10 2000-11-07 23:40:48 florian
Revision 1.11 2000-11-17 10:30:24 florian
* passing interfaces as parameters fixed
Revision 1.10 2000/11/07 23:40:48 florian
+ AfterConstruction and BeforeDestruction impemented
Revision 1.9 2000/11/06 23:49:20 florian