/compiler/alpha/rasm.pas

https://github.com/slibre/freepascal · Pascal · 65 lines · 20 code · 9 blank · 36 comment · 0 complexity · efb2697d67d6916edbe1972f7c9ff447 MD5 · raw file

  1. {
  2. Copyright (c) 1998-2002 by The Free Pascal Team
  3. This unit does the parsing process for the 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. {
  18. This unit does the parsing process for the inline assembler.
  19. }
  20. Unit Rasm;
  21. {$i fpcdefs.inc}
  22. Interface
  23. uses
  24. node;
  25. {
  26. This routine is called to parse the instructions in assembler
  27. blocks. It returns a complete list of directive and instructions
  28. }
  29. function assemble: tnode;
  30. Implementation
  31. uses
  32. { common }
  33. cutils,cclasses,
  34. { global }
  35. globtype,globals,verbose,
  36. systems,
  37. { aasm }
  38. cpubase,aasmbase,aasmtai,aasmdata,aasmcpu,
  39. { symtable }
  40. symconst,symbase,symtype,symsym,symtable,
  41. { pass 1 }
  42. nbas,
  43. { parser }
  44. scanner
  45. // ,rautils
  46. ;
  47. function assemble : tnode;
  48. begin
  49. end;
  50. Begin
  51. end.