hlcgcpu.pas 1.5 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. {
  2. Copyright (c) 1998-2010 by Florian Klaempfl and Jonas Maebe
  3. Member of the Free Pascal development team
  4. This unit implements the js high level code generator
  5. This program is free software; you can redistribute it and/or modify
  6. it under the terms of the GNU General Public License as published by
  7. the Free Software Foundation; either version 2 of the License, or
  8. (at your option) any later version.
  9. This program is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  12. GNU General Public License for more details.
  13. You should have received a copy of the GNU General Public License
  14. along with this program; if not, write to the Free Software
  15. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  16. ****************************************************************************
  17. }
  18. unit hlcgcpu;
  19. {$i fpcdefs.inc}
  20. interface
  21. uses
  22. globtype,
  23. aasmbase,aasmdata,
  24. symbase,symconst,symtype,symdef,symsym,
  25. cpubase, hlcgobj, cgbase, cgutils, parabase;
  26. type
  27. thlcgjs = class(thlcgobj)
  28. public
  29. constructor create;
  30. end;
  31. procedure create_hlcodegen;
  32. implementation
  33. uses
  34. verbose,cutils,globals,fmodule,constexp,
  35. defutil,
  36. aasmtai,aasmcpu,
  37. symtable,
  38. procinfo,cpuinfo,cgcpu,tgobj;
  39. constructor thlcgjs.create;
  40. begin
  41. end;
  42. procedure create_hlcodegen;
  43. begin
  44. hlcg:=thlcgjs.create;
  45. create_codegen;
  46. end;
  47. end.