ra386int.pas 2.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374
  1. {
  2. Copyright (c) 1998-2006 by Carl Eric Codere and Peter Vreman
  3. Does the parsing for the i386 intel styled inline assembler.
  4. This program is free software; you can redistribute it and/or modify
  5. it under the terms of the GNU General Public License as published by
  6. the Free Software Foundation; either version 2 of the License, or
  7. (at your option) any later version.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  11. GNU General Public License for more details.
  12. You should have received a copy of the GNU General Public License
  13. along with this program; if not, write to the Free Software
  14. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  15. ****************************************************************************
  16. }
  17. Unit ra386int;
  18. {$i fpcdefs.inc}
  19. interface
  20. uses
  21. rax86int;
  22. type
  23. ti386intreader = class(tx86intreader)
  24. // procedure handleopcode;override;
  25. end;
  26. implementation
  27. uses
  28. rabase,systems,rax86,aasmcpu;
  29. (*
  30. procedure ti386intreader.handleopcode;
  31. var
  32. instr : Tx86Instruction;
  33. begin
  34. instr:=Tx86Instruction.Create(Tx86Operand);
  35. instr.OpOrder:=op_att;
  36. BuildOpcode(instr);
  37. instr.AddReferenceSizes;
  38. instr.SetInstructionOpsize;
  39. {
  40. instr.CheckOperandSizes;
  41. }
  42. instr.ConcatInstruction(curlist);
  43. instr.Free;
  44. end;
  45. *)
  46. {*****************************************************************************
  47. Initialize
  48. *****************************************************************************}
  49. const
  50. asmmode_i386_intel_info : tasmmodeinfo =
  51. (
  52. id : asmmode_i386_intel;
  53. idtxt : 'INTEL';
  54. casmreader : ti386intreader;
  55. );
  56. begin
  57. RegisterAsmMode(asmmode_i386_intel_info);
  58. end.