2
0

aoptcpuc.pas 1.6 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455
  1. {
  2. $Id$
  3. Copyright (c) 1998-2002 by Jonas Maebe, member of the Free Pascal
  4. Development Team
  5. This unit contains the processor specific implementation of the
  6. assembler optimizer common subexpression elimination object.
  7. This program is free software; you can redistribute it and/or modify
  8. it under the terms of the GNU General Public License as published by
  9. the Free Software Foundation; either version 2 of the License, or
  10. (at your option) any later version.
  11. This program is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  14. GNU General Public License for more details.
  15. You should have received a copy of the GNU General Public License
  16. along with this program; if not, write to the Free Software
  17. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18. ****************************************************************************
  19. }
  20. unit aoptcpuc;
  21. Interface
  22. {$i fpcdefs.inc}
  23. Uses
  24. AOptCs;
  25. Type
  26. TRegInfoCpu = Object(TRegInfo)
  27. End;
  28. Implementation
  29. End.
  30. {
  31. $Log$
  32. Revision 1.7 2005-02-26 01:27:00 jonas
  33. * fixed generic jumps optimizer and enabled it for ppc (the label table
  34. was not being initialised -> getfinaldestination always failed, which
  35. caused wrong optimizations in some cases)
  36. * changed the inverse_cond into a function, because tasmcond is a record
  37. on ppc
  38. + added a compare_conditions() function for the same reason
  39. Revision 1.6 2005/02/14 17:13:10 peter
  40. * truncate log
  41. }