paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 03:09:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* forgotten emitcall change in conditionnal

Browse Source
This commit is contained in:
pierre 1999-05-28 15:59:46 +00:00
parent 1cdd3f5bf1
commit 71e0799f74
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cg386cal.pas
View File

@ -761,7 +761,7 @@ implementation
exprasmlist^.concat(new(pai386,op_sym(A_PUSH,S_L, exprasmlist^.concat(new(pai386,op_sym(A_PUSH,S_L,
newasmsymbol(pprocdef(p^.procdefinition)^._class^.vmt_mangledname)))); newasmsymbol(pprocdef(p^.procdefinition)^._class^.vmt_mangledname))));
exprasmlist^.concat(new(pai386,op_reg(A_PUSH,S_L,r^.base))); exprasmlist^.concat(new(pai386,op_reg(A_PUSH,S_L,r^.base)));
emitcall('FPC_CHECK_OBJECT_EXT',true); emitcall('FPC_CHECK_OBJECT_EXT');
end; end;
{$endif TESTOBJEXT} {$endif TESTOBJEXT}
exprasmlist^.concat(new(pai386,op_ref(A_CALL,S_NO,r))); exprasmlist^.concat(new(pai386,op_ref(A_CALL,S_NO,r)));
@ -1163,7 +1163,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.88 1999-05-28 11:00:49 peter Revision 1.89 1999-05-28 15:59:46 pierre
* forgotten emitcall change in conditionnal
Revision 1.88 1999/05/28 11:00:49 peter
* removed ungettempoftype * removed ungettempoftype
Revision 1.87 1999/05/27 19:44:07 peter Revision 1.87 1999/05/27 19:44:07 peter