+ intel assembler reader for x86-64

git-svn-id: trunk@3411 -

.gitattributes

@@ -526,6 +526,7 @@ compiler/x86/nx86mat.pas svneol=native#text/plain
 compiler/x86/nx86set.pas svneol=native#text/plain
 compiler/x86/rax86.pas svneol=native#text/plain
 compiler/x86/rax86att.pas svneol=native#text/plain
+compiler/x86/rax86int.pas svneol=native#text/plain
 compiler/x86/rgx86.pas svneol=native#text/plain
 compiler/x86_64/aoptcpu.pas svneol=native#text/plain
 compiler/x86_64/aoptcpub.pas svneol=native#text/plain
@@ -557,6 +558,7 @@ compiler/x86_64/r8664sri.inc svneol=native#text/plain
 compiler/x86_64/r8664stab.inc svneol=native#text/plain
 compiler/x86_64/r8664std.inc svneol=native#text/plain
 compiler/x86_64/rax64att.pas svneol=native#text/plain
+compiler/x86_64/rax64int.pas svneol=native#text/plain
 compiler/x86_64/rgcpu.pas svneol=native#text/plain
 compiler/x86_64/x8664ats.inc svneol=native#text/plain
 compiler/x86_64/x8664att.inc svneol=native#text/plain

compiler/systems.pas

@@ -65,6 +65,7 @@ interface
             ,asmmode_sparc_gas
             ,asmmode_x86_64_gas
             ,asmmode_m68k_mot
+            ,asmmode_x86_64_intel
        );
 
      (* IMPORTANT NOTE:

compiler/x86_64/cputarg.pas

@@ -67,6 +67,9 @@ implementation
   {$ifndef NoRax64att}
        ,rax64att
   {$endif NoRax64att}
+  {$ifndef NoRax64int}
+       ,rax64int
+  {$endif NoRax64int}
 
 {**************************************
              Debuginfo

compiler/x86_64/rax64int.pas

@@ -0,0 +1,70 @@
+{
+    Copyright (c) 1998-2006 by Carl Eric Codere and Peter Vreman
+
+    Does the parsing for the x86-64 intel styled inline assembler.
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+ ****************************************************************************
+}
+Unit rax64int;
+
+{$i fpcdefs.inc}
+
+  interface
+
+    uses
+      rax86int;
+
+    type
+      tx8664intreader = class(tx86intreader)
+        // procedure handleopcode;override;
+      end;
+
+
+  implementation
+
+    uses
+      rabase,systems,rax86,aasmcpu;
+
+{
+    procedure tx8664intreader.handleopcode;
+      var
+        instr : Tx86Instruction;
+      begin
+        instr:=Tx86Instruction.Create(Tx86Operand);
+        instr.OpOrder:=op_att;
+        BuildOpcode(instr);
+        instr.AddReferenceSizes;
+        instr.SetInstructionOpsize;
+        {
+        instr.CheckOperandSizes;
+        }
+        instr.ConcatInstruction(curlist);
+        instr.Free;
+      end;
+}
+
+const
+  asmmode_x86_64_intel_info : tasmmodeinfo =
+          (
+            id    : asmmode_x86_64_intel;
+            idtxt : 'INTEL';
+            casmreader : tx8664intreader;
+          );
+
+initialization
+  RegisterAsmMode(asmmode_x86_64_intel_info);
+end.