paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-21 10:20:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ passes vmt offset to HELP_CONSTRUCTOR for objects

Browse Source
This commit is contained in:
pierre 1998-10-15 12:37:42 +00:00
parent 23b80f41dc
commit 1e9ae4a7ea
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/cga68k.pas
View File

@ -587,6 +587,7 @@ begin
procinfo.aktentrycode^.insert(new(pai68k,op_csymbol(A_JSR,S_NO, procinfo.aktentrycode^.insert(new(pai68k,op_csymbol(A_JSR,S_NO,
newcsymbol('FPC_HELP_CONSTRUCTOR',0)))); newcsymbol('FPC_HELP_CONSTRUCTOR',0))));
concat_external('FPC_HELP_CONSTRUCTOR',EXT_NEAR); concat_external('FPC_HELP_CONSTRUCTOR',EXT_NEAR);
procinfo.aktentrycode^.insert(new(pai68k,op_const_reg(A_MOVE,S_L,procinfo._class^.vmt_offset,R_D0)));
end; end;
end; end;
{ don't load ESI, does the caller } { don't load ESI, does the caller }
@ -1344,7 +1345,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.23 1998-10-14 11:28:22 florian Revision 1.24 1998-10-15 12:37:42 pierre
+ passes vmt offset to HELP_CONSTRUCTOR for objects
Revision 1.23 1998/10/14 11:28:22 florian
* emitpushreferenceaddress gets now the asmlist as parameter * emitpushreferenceaddress gets now the asmlist as parameter
* m68k version compiles with -duseansistrings * m68k version compiles with -duseansistrings