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

* added regallocs for esi

Browse Source
This commit is contained in:
Jonas Maebe 2000-02-09 18:08:33 +00:00
parent 95f2c6f732
commit 7ff7b4c2c3
3 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/cg386cal.pas
View File

@ -610,6 +610,9 @@ implementation
if (p^.symtable^.symtabletype<>withsymtable) then
begin
secondpass(p^.methodpointer);
{$ifndef noAllocEDI}
getexplicitregister32(R_ESI);
{$endif noAllocEDI}
case p^.methodpointer^.location.loc of
LOC_CREGISTER,
LOC_REGISTER:
@ -619,9 +622,6 @@ implementation
end;
else
begin
{$ifndef noAllocEDI}
getexplicitregister32(R_ESI);
{$endif noAllocEDI}
if (p^.methodpointer^.resulttype^.deftype=classrefdef) or
((p^.methodpointer^.resulttype^.deftype=objectdef) and
pobjectdef(p^.methodpointer^.resulttype)^.is_class) then
@ -642,6 +642,7 @@ implementation
not(p^.methodpointer^.resulttype^.deftype=classrefdef) then
begin
{ class method needs current VMT }
getexplicitregister32(R_ESI);
new(r);
reset_reference(r^);
r^.base:=R_ESI;
@ -705,6 +706,7 @@ implementation
) then
begin
{ class method needs current VMT }
getexplicitregister32(R_ESI);
new(r);
reset_reference(r^);
r^.base:=R_ESI;
@ -812,6 +814,7 @@ implementation
{ also class methods }
{ Here it is quite tricky because it also depends }
{ on the methodpointer PM }
getexplicitregister32(R_ESI);
if assigned(aktprocsym) then
begin
if (((sp_static in aktprocsym^.symoptions) or
@ -930,6 +933,7 @@ implementation
begin
{ load ESI }
inc(p^.right^.location.reference.offset,4);
getexplicitregister32(R_ESI);
emit_ref_reg(A_MOV,S_L,
newreference(p^.right^.location.reference),R_ESI);
dec(p^.right^.location.reference.offset,4);
@ -1351,7 +1355,10 @@ implementation
end.
{
$Log$
Revision 1.125 2000-02-09 13:22:45 peter
Revision 1.126 2000-02-09 18:08:33 jonas
* added regallocs for esi
Revision 1.125 2000/02/09 13:22:45 peter
* log truncated
Revision 1.124 2000/02/04 20:00:21 florian

6
compiler/cg386ld.pas
View File

@ -212,6 +212,7 @@ implementation
end;
objectsymtable:
begin
getexplicitregister32(R_ESI);
if (sp_static in pvarsym(p^.symtableentry)^.symoptions) then
begin
p^.location.reference.symbol:=newasmsymbol(p^.symtableentry^.mangledname);
@ -1004,7 +1005,10 @@ implementation
end.
{
$Log$
Revision 1.99 2000-02-09 13:22:47 peter
Revision 1.100 2000-02-09 18:08:33 jonas
* added regallocs for esi
Revision 1.99 2000/02/09 13:22:47 peter
* log truncated
Revision 1.98 2000/02/01 12:54:20 peter

6
compiler/cg386mem.pas
View File

@ -791,6 +791,7 @@ implementation
procedure secondselfn(var p : ptree);
begin
reset_reference(p^.location.reference);
getexplicitregister32(R_ESI);
if (p^.resulttype^.deftype=classrefdef) or
((p^.resulttype^.deftype=objectdef)
and pobjectdef(p^.resulttype)^.is_class
@ -891,7 +892,10 @@ implementation
end.
{
$Log$
Revision 1.70 2000-02-09 13:22:47 peter
Revision 1.71 2000-02-09 18:08:33 jonas
* added regallocs for esi
Revision 1.70 2000/02/09 13:22:47 peter
* log truncated
Revision 1.69 2000/01/09 15:19:23 peter