paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 13:19:12 +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 var
pushedregs : tpushed; pushedregs : tpushed;
r : treference;
begin begin
pushusedregisters(pushedregs,$ff); pushusedregisters(pushedregs,$ff);
emitpushreferenceaddr(ref); emit_ref(A_PUSH,S_L,newreference(ref));
if is_interfacecom(t) then if is_interfacecom(t) then
begin emitcall('FPC_INTF_INCR_REF')
emitcall('FPC_INTF_INCR_REF'); else
end internalerror(1859);
else internalerror(1859);
popusedregisters(pushedregs); popusedregisters(pushedregs);
end; end;
@ -2936,7 +2936,10 @@ implementation
end. end.
{ {
$Log$ $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 + AfterConstruction and BeforeDestruction impemented
Revision 1.9 2000/11/06 23:49:20 florian Revision 1.9 2000/11/06 23:49:20 florian