radirect.pas 1.7 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465
  1. {
  2. $Id$
  3. Copyright (c) 1998-2002 by Florian Klaempfl
  4. Reads inline assembler and writes the lines direct to the output
  5. This is not supported for the m68k
  6. This program is free software; you can redistribute it and/or modify
  7. it under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 2 of the License, or
  9. (at your option) any later version.
  10. This program is distributed in the hope that it will be useful,
  11. but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  13. GNU General Public License for more details.
  14. You should have received a copy of the GNU General Public License
  15. along with this program; if not, write to the Free Software
  16. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17. ****************************************************************************
  18. }
  19. unit radirect;
  20. {$i fpcdefs.inc}
  21. interface
  22. uses
  23. node;
  24. function assemble : tnode;
  25. implementation
  26. uses
  27. verbose;
  28. function assemble : tnode;
  29. begin
  30. internalerror(20020813);
  31. end;
  32. {*****************************************************************************
  33. Initialize
  34. *****************************************************************************}
  35. end.
  36. {
  37. $Log$
  38. Revision 1.2 2002-09-07 15:25:13 peter
  39. * old logs removed and tabs fixed
  40. Revision 1.1 2002/08/13 18:01:52 carl
  41. * rename swatoperands to swapoperands
  42. + m68k first compilable version (still needs a lot of testing):
  43. assembler generator, system information , inline
  44. assembler reader.
  45. }