tgcpu.pas 2.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293
  1. {
  2. $Id$
  3. Copyright (C) 1998-2000 by Florian Klaempfl
  4. This unit handles the temporary variables stuff for i386
  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 tgcpu;
  19. interface
  20. uses
  21. cobjects,globals,tree,hcodegen,verbose,files,
  22. aasm,cpubase,cpuasm,tgobj;
  23. const
  24. countusablereg : byte = 4;
  25. { this value is used in tsaved, if the register isn't saved }
  26. reg_not_saved = $7fffffff;
  27. usableregmmx : byte = 8;
  28. type
  29. ttgobji386 = object(ttgobj)
  30. procedure ungetregister(r : tregister);virtual;
  31. function istemp(const ref : treference) : boolean;virtual;
  32. procedure del_reference(const ref : treference);virtual;
  33. end;
  34. var
  35. tg : ttgobji386;
  36. implementation
  37. procedure ttgobji386.ungetregister(r : tregister);
  38. begin
  39. end;
  40. function ttgobji386.istemp(const ref : treference) : boolean;
  41. begin
  42. end;
  43. procedure ttgobji386.del_reference(const ref : treference);
  44. begin
  45. end;
  46. begin
  47. tg.init;
  48. end.
  49. {
  50. $Log$
  51. Revision 1.6 2000-01-07 01:14:57 peter
  52. * updated copyright to 2000
  53. Revision 1.5 1999/09/15 20:35:47 florian
  54. * small fix to operator overloading when in MMX mode
  55. + the compiler uses now fldz and fld1 if possible
  56. + some fixes to floating point registers
  57. + some math. functions (arctan, ln, sin, cos, sqrt, sqr, pi) are now inlined
  58. * .... ???
  59. Revision 1.4 1999/09/10 18:48:11 florian
  60. * some bug fixes (e.g. must_be_valid and procinfo.funcret_is_valid)
  61. * most things for stored properties fixed
  62. Revision 1.3 1999/08/03 17:09:50 florian
  63. * the alpha compiler can be compiled now
  64. Revision 1.2 1999/08/02 23:13:24 florian
  65. * more changes to compile for the Alpha
  66. Revision 1.1 1999/08/02 17:14:14 florian
  67. + changed the temp. generator to an object
  68. }