|
@@ -1284,9 +1284,15 @@ implementation
|
|
|
|
|
|
function regval(r:Tregister):byte;
|
|
function regval(r:Tregister):byte;
|
|
const
|
|
const
|
|
|
|
+ {$ifdef x86_64}
|
|
opcode_table:array[tregisterindex] of tregisterindex = (
|
|
opcode_table:array[tregisterindex] of tregisterindex = (
|
|
{$i r8664op.inc}
|
|
{$i r8664op.inc}
|
|
);
|
|
);
|
|
|
|
+ {$else x86_64}
|
|
|
|
+ opcode_table:array[tregisterindex] of tregisterindex = (
|
|
|
|
+ {$i r386op.inc}
|
|
|
|
+ );
|
|
|
|
+ {$endif x86_64}
|
|
begin
|
|
begin
|
|
result:=opcode_table[findreg_by_number(r)];
|
|
result:=opcode_table[findreg_by_number(r)];
|
|
end;
|
|
end;
|
|
@@ -2256,7 +2262,10 @@ implementation
|
|
end.
|
|
end.
|
|
{
|
|
{
|
|
$Log$
|
|
$Log$
|
|
- Revision 1.25 2003-09-24 17:12:36 florian
|
|
|
|
|
|
+ Revision 1.26 2003-09-24 21:15:49 florian
|
|
|
|
+ * fixed make cycle
|
|
|
|
+
|
|
|
|
+ Revision 1.25 2003/09/24 17:12:36 florian
|
|
* x86-64 adaptions
|
|
* x86-64 adaptions
|
|
|
|
|
|
Revision 1.24 2003/09/23 17:56:06 peter
|
|
Revision 1.24 2003/09/23 17:56:06 peter
|