paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 05:08:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed internalerror(10) with -Or for i386 (a_load_ref_ref now saves

Browse Source 
a general purpose register if it needs one but none are available)
This commit is contained in:
Jonas Maebe 2002-06-06 18:53:17 +00:00
parent 3515599074
commit f73b7c3bc9
1 changed files with 29 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/cgobj.pas
View File

@ -487,14 +487,31 @@ unit cgobj;
var
tmpreg: tregister;
{$ifdef i386}
pushed_reg: tregister;
{$endif i386}
begin
{$ifdef i386}
{ the following is done with defines to avoid a speed penalty, }
{ since all this is only necessary for the 80x86 (because EDI }
{ doesn't have an 8bit component which is directly addressable) }
pushed_reg := R_NO;
if size in [OS_8,OS_S8] then
tmpreg := rg.getregisterint(exprasmlist)
if (rg.countunusedregsint = 0) then
begin
if (dref.base <> R_EBX) and
(dref.index <> R_EBX) then
pushed_reg := R_EBX
else if (dref.base <> R_EAX) and
(dref.index <> R_EAX) then
pushed_reg := R_EAX
else pushed_reg := R_ECX;
tmpreg := rg.makeregsize(pushed_reg,OS_8);
list.concat(taicpu.op_reg(A_PUSH,S_L,pushed_reg));
end
else
tmpreg := rg.getregisterint(exprasmlist)
else
{$endif i386}
tmpreg := get_scratch_reg_int(list);
@ -503,7 +520,12 @@ unit cgobj;
a_load_reg_ref(list,size,tmpreg,dref);
{$ifdef i386}
if size in [OS_8,OS_S8] then
rg.ungetregister(exprasmlist,tmpreg)
begin
if (pushed_reg <> R_NO) then
list.concat(taicpu.op_reg(A_POP,S_L,pushed_reg))
else
rg.ungetregister(exprasmlist,tmpreg)
end
else
{$endif i386}
free_scratch_reg(list,tmpreg);
@ -1265,7 +1287,11 @@ finalization
end.
{
$Log$
Revision 1.27 2002-05-22 19:02:16 carl
Revision 1.28 2002-06-06 18:53:17 jonas
* fixed internalerror(10) with -Or for i386 (a_load_ref_ref now saves
a general purpose register if it needs one but none are available)
Revision 1.27 2002/05/22 19:02:16 carl
+ generic FPC_HELP_FAIL
+ generic FPC_HELP_DESTRUCTOR instated (original from Pierre)
+ generic FPC_DISPOSE_CLASS