nppccal.pas 1.4 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455
  1. {
  2. Copyright (c) 2002 by Florian Klaempfl
  3. Implements the PowerPC specific part of call nodes
  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 bymethodpointer
  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 nppccal;
  18. {$I fpcdefs.inc}
  19. interface
  20. uses
  21. symdef, node, ncal, ncgcal;
  22. type
  23. tppccallnode = class(tcgcallnode)
  24. end;
  25. implementation
  26. uses
  27. globtype, systems,
  28. cutils, verbose, globals,
  29. symconst, symbase, symsym, symtable, defutil, paramgr, parabase,
  30. {$IFDEF GDB}
  31. strings,
  32. gdb,
  33. {$ENDIF GDB}
  34. cgbase, pass_2,
  35. cpuinfo, cpubase, aasmbase, aasmtai, aasmcpu,
  36. nmem, nld, ncnv,
  37. ncgutil, cgutils, cgobj, tgobj, regvars, rgobj, rgcpu,
  38. cgcpu, cpupi, procinfo;
  39. begin
  40. ccallnode := tppccallnode;
  41. end.