|
@@ -294,17 +294,27 @@ interface
|
|
tvarregable2tcgloc : array[tvarregable] of tcgloc = (LOC_VOID,
|
|
tvarregable2tcgloc : array[tvarregable] of tcgloc = (LOC_VOID,
|
|
LOC_CREGISTER,LOC_CFPUREGISTER,LOC_CMMREGISTER,LOC_CREGISTER);
|
|
LOC_CREGISTER,LOC_CFPUREGISTER,LOC_CMMREGISTER,LOC_CREGISTER);
|
|
|
|
|
|
-{$ifdef cpu64bitalu}
|
|
|
|
|
|
+{$if defined(cpu64bitalu)}
|
|
{ operand size describing an unsigned value in a pair of int registers }
|
|
{ operand size describing an unsigned value in a pair of int registers }
|
|
OS_PAIR = OS_128;
|
|
OS_PAIR = OS_128;
|
|
{ operand size describing an signed value in a pair of int registers }
|
|
{ operand size describing an signed value in a pair of int registers }
|
|
OS_SPAIR = OS_S128;
|
|
OS_SPAIR = OS_S128;
|
|
-{$else cpu64bitalu}
|
|
|
|
|
|
+{$elseif defined(cpu32bitalu)}
|
|
{ operand size describing an unsigned value in a pair of int registers }
|
|
{ operand size describing an unsigned value in a pair of int registers }
|
|
OS_PAIR = OS_64;
|
|
OS_PAIR = OS_64;
|
|
{ operand size describing an signed value in a pair of int registers }
|
|
{ operand size describing an signed value in a pair of int registers }
|
|
OS_SPAIR = OS_S64;
|
|
OS_SPAIR = OS_S64;
|
|
-{$endif cpu64bitalu}
|
|
|
|
|
|
+{$elseif defined(cpu16bitalu)}
|
|
|
|
+ { operand size describing an unsigned value in a pair of int registers }
|
|
|
|
+ OS_PAIR = OS_32;
|
|
|
|
+ { operand size describing an signed value in a pair of int registers }
|
|
|
|
+ OS_SPAIR = OS_S32;
|
|
|
|
+{$elseif defined(cpu8bitalu)}
|
|
|
|
+ { operand size describing an unsigned value in a pair of int registers }
|
|
|
|
+ OS_PAIR = OS_16;
|
|
|
|
+ { operand size describing an signed value in a pair of int registers }
|
|
|
|
+ OS_SPAIR = OS_S16;
|
|
|
|
+{$endif}
|
|
|
|
|
|
{ Table to convert tcgsize variables to the correspondending
|
|
{ Table to convert tcgsize variables to the correspondending
|
|
unsigned types }
|
|
unsigned types }
|