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

* fixed bug introduced by my regalloc fixed :(

Browse Source
This commit is contained in:
Jonas Maebe 2000-01-23 13:57:52 +00:00
parent 10bd2161f5
commit 04d18a2964
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/cg386add.pas
View File

@ -1062,12 +1062,12 @@ implementation
{ used in either the left or the right location, excepts if } { used in either the left or the right location, excepts if }
{they are regvars. It DOES contain them if they are used in } {they are regvars. It DOES contain them if they are used in }
{ another location (JM) } { another location (JM) }
if ((regstopush and ($80 shr byte(R_EAX))) <> 0) then if not(R_EAX in unused) and ((regstopush and ($80 shr byte(R_EAX))) <> 0) then
begin begin
emit_reg(A_PUSH,S_L,R_EAX); emit_reg(A_PUSH,S_L,R_EAX);
popeax:=true; popeax:=true;
end; end;
if ((regstopush and ($80 shr byte(R_EDX))) <> 0) then if not(R_EDX in unused) and ((regstopush and ($80 shr byte(R_EDX))) <> 0) then
begin begin
emit_reg(A_PUSH,S_L,R_EDX); emit_reg(A_PUSH,S_L,R_EDX);
popedx:=true; popedx:=true;
@ -2236,7 +2236,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.91 2000-01-23 11:11:36 michael Revision 1.92 2000-01-23 13:57:52 jonas
* fixed bug introduced by my regalloc fixed :(
Revision 1.91 2000/01/23 11:11:36 michael
+ Fixes from Jonas. + Fixes from Jonas.
Revision 1.90 2000/01/22 16:02:38 jonas Revision 1.90 2000/01/22 16:02:38 jonas