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

* SUPPORT_MMX define compile fix

Browse Source
This commit is contained in:
peter 2003-03-17 15:52:57 +00:00
parent ec2a9a6ef8
commit 12cff8cae8
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/i386/rgcpu.pas
View File

@ -61,14 +61,18 @@ unit rgcpu;
procedure pushusedintregisters(list:Taasmoutput;
var pushed:Tpushedsavedint;
const s:Tsupregset);
{$ifdef SUPPORT_MMX}
procedure pushusedotherregisters(list:Taasmoutput;
var pushed:Tpushedsaved;
const s:Tregisterset);
{$endif SUPPORT_MMX}
procedure popusedintregisters(list:Taasmoutput;
const pushed:Tpushedsavedint);
{$ifdef SUPPORT_MMX}
procedure popusedotherregisters(list:Taasmoutput;
const pushed:Tpushedsaved);
{$endif SUPPORT_MMX}
procedure saveusedintregisters(list:Taasmoutput;
var saved:Tpushedsavedint;
@ -439,10 +443,12 @@ unit rgcpu;
const s:tregisterset);
begin
{$ifdef SUPPORT_MMX}
if (aktoptprocessor in [class386,classP5]) or
(CS_LittleSize in aktglobalswitches) then
pushusedotherregisters(list,saved,s)
else
{$endif SUPPORT_MMX}
inherited saveusedotherregisters(list,saved,s);
end;
@ -462,10 +468,12 @@ unit rgcpu;
const saved:tpushedsaved);
begin
{$ifdef SUPPORT_MMX}
if (aktoptprocessor in [class386,classP5]) or
(CS_LittleSize in aktglobalswitches) then
popusedotherregisters(list,saved)
else
{$endif SUPPORT_MMX}
inherited restoreusedotherregisters(list,saved);
end;
@ -517,7 +525,10 @@ end.
{
$Log$
Revision 1.15 2003-03-08 13:59:17 daniel
Revision 1.16 2003-03-17 15:52:57 peter
* SUPPORT_MMX define compile fix
Revision 1.15 2003/03/08 13:59:17 daniel
* Work to handle new register notation in ag386nsm
+ Added newra version of Ti386moddivnode