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

* warnings about FreeTemp already free fixed with appropriate registers handling

Browse Source
This commit is contained in:
mazen 2003-01-05 20:39:53 +00:00
parent 8507582b85
commit c419956367
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/sparc/cpubase.pas
View File

@ -351,8 +351,8 @@ used, because contains a lot of unnessary fields.}
Constants Constants
*****************************************************************************} *****************************************************************************}
CONST const
general_registers = [R_L0..R_L7]; general_registers = [R_G0..R_I7];
{ legEND: } { legEND: }
{ xxxregs = set of all possibly used registers of that type in the code } { xxxregs = set of all possibly used registers of that type in the code }
{ generator } { generator }
@ -371,11 +371,11 @@ CONST
usableregsmm=[]; usableregsmm=[];
c_countusableregsmm=8; c_countusableregsmm=8;
firstsaveintreg = R_G0; firstsaveintreg = R_I0;
lastsaveintreg = R_I7; lastsaveintreg = R_I7;
firstsavefpureg = R_F0; firstsavefpureg = R_F0;
lastsavefpureg = R_F31; lastsavefpureg = R_F31;
firstsavemmreg = R_G0; firstsavemmreg = R_I0;
lastsavemmreg = R_I7; lastsavemmreg = R_I7;
lowsavereg = R_G0; lowsavereg = R_G0;
highsavereg = R_I7; highsavereg = R_I7;
@ -523,7 +523,10 @@ function flags_to_cond(const f:TResFlags):TAsmCond;
END. END.
{ {
$Log$ $Log$
Revision 1.16 2002-10-28 20:59:17 mazen Revision 1.17 2003-01-05 20:39:53 mazen
* warnings about FreeTemp already free fixed with appropriate registers handling
Revision 1.16 2002/10/28 20:59:17 mazen
* TOpSize values changed S_L --> S_SW * TOpSize values changed S_L --> S_SW
Revision 1.15 2002/10/28 20:37:44 mazen Revision 1.15 2002/10/28 20:37:44 mazen