tgcpu.pas 2.1 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283
  1. {
  2. $Id$
  3. Copyright (C) 1993-99 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,aasm
  22. ,i386base,i386asm,tgobj
  23. {$ifdef dummy}
  24. end
  25. {$endif}
  26. ;
  27. const
  28. countusablereg : byte = 4;
  29. { this value is used in tsaved, if the register isn't saved }
  30. reg_not_saved = $7fffffff;
  31. usableregmmx : byte = 8;
  32. type
  33. ttgobji386 = object(ttgobj)
  34. procedure ungetregister(r : tregister);virtual;
  35. function istemp(const ref : treference) : boolean;virtual;
  36. procedure del_reference(const ref : treference);virtual;
  37. end;
  38. var
  39. tg : ttgobji386;
  40. implementation
  41. procedure ttgobji386.ungetregister(r : tregister);
  42. begin
  43. end;
  44. function ttgobji386.istemp(const ref : treference) : boolean;
  45. begin
  46. end;
  47. procedure ttgobji386.del_reference(const ref : treference);
  48. begin
  49. end;
  50. begin
  51. tg.init;
  52. end.
  53. {
  54. $Log$
  55. Revision 1.3 1999-08-03 17:09:50 florian
  56. * the alpha compiler can be compiled now
  57. Revision 1.2 1999/08/02 23:13:24 florian
  58. * more changes to compile for the Alpha
  59. Revision 1.1 1999/08/02 17:14:14 florian
  60. + changed the temp. generator to an object
  61. }