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

* cleanup made

Browse Source
This commit is contained in:
mazen 2002-09-27 04:30:53 +00:00
parent 0e22fc491b
commit 93164206b3
2 changed files with 13 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/sparc/cpubase.pas
View File

@ -37,7 +37,7 @@ CONST
{the natural int size for a processor} {the natural int size for a processor}
OS_INT=OS_32; OS_INT=OS_32;
{the maximum float size for a processor} {the maximum float size for a processor}
OS_FLOAT=OS_F80;{$WARNING "OS_FLOAT" was set to "OS_F80" but not verified!} OS_FLOAT=OS_F64;
{the size of a vector register for a processor} {the size of a vector register for a processor}
OS_VECTOR=OS_M64;{$WARNING "OS_VECTOR" was set to "OS_M64" but not verified!} OS_VECTOR=OS_M64;{$WARNING "OS_VECTOR" was set to "OS_M64" but not verified!}
CONST CONST
@ -203,18 +203,9 @@ CONST
OT_NEAR,OT_FAR,OT_SHORT OT_NEAR,OT_FAR,OT_SHORT
) )
); );
{*****************************************************************************}
{$IFDEF ATTOP} { Conditions }
att_opsize2str : ARRAY[topsize] of string[2] = ('', {*****************************************************************************}
'b','w','l','bw','bl','wl',
's','l','q',
's','l','t','d','q','v',
'','',''
);
{$ENDIF}
{*****************************************************************************
Conditions
*****************************************************************************}
TYPE TYPE
TAsmCond=(C_None, TAsmCond=(C_None,
C_A,C_AE,C_B,C_BE,C_C,C_E,C_G,C_GE,C_L,C_LE,C_NA,C_NAE, C_A,C_AE,C_B,C_BE,C_C,C_E,C_G,C_GE,C_L,C_LE,C_NA,C_NAE,
@ -236,9 +227,9 @@ CONST
CondAsmOps=3; CondAsmOps=3;
CondAsmOp:ARRAY[0..CondAsmOps-1] of TAsmOp=(A_FCMPd, A_JMPL, A_FCMPs); CondAsmOp:ARRAY[0..CondAsmOps-1] of TAsmOp=(A_FCMPd, A_JMPL, A_FCMPs);
CondAsmOpStr:ARRAY[0..CondAsmOps-1] of string[4]=('FCMPd','JMPL','FCMPs'); CondAsmOpStr:ARRAY[0..CondAsmOps-1] of string[4]=('FCMPd','JMPL','FCMPs');
{***************************************************************************** {*****************************************************************************}
Registers { Registers }
*****************************************************************************} {*****************************************************************************}
TYPE TYPE
{ enumeration for registers, don't change the order } { enumeration for registers, don't change the order }
{ it's used by the register size conversions } { it's used by the register size conversions }
@ -408,7 +399,7 @@ used, because contains a lot of unnessary fields.}
*****************************************************************************} *****************************************************************************}
CONST CONST
general_registers = [R_G0..R_I7]; general_registers = [R_L0..R_L7];
{ 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 }
@ -582,7 +573,10 @@ FUNCTION flags_to_cond(CONST f:TResFlags):TAsmCond;
END. END.
{ {
$Log$ $Log$
Revision 1.6 2002-09-24 03:57:53 mazen Revision 1.7 2002-09-27 04:30:53 mazen
* cleanup made
Revision 1.6 2002/09/24 03:57:53 mazen
* some cleanup was made * some cleanup was made
} }

2
compiler/sparc/cpuinfo.pas
View File

@ -53,7 +53,7 @@ TYPE
tprocessors=(no_processor,SPARC_V8,SPARC_V9); tprocessors=(no_processor,SPARC_V8,SPARC_V9);
CONST CONST
{# Size of native extended floating point type } {# Size of native extended floating point type }
extended_size = 10; extended_size = 8;
{# Size of a pointer } {# Size of a pointer }
pointer_size = 4; pointer_size = 4;
{# Size of a multimedia register } {# Size of a multimedia register }