cpupi.pas 1.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657
  1. {
  2. $Id$
  3. Copyright (c) 2002 by Florian Klaempfl
  4. This unit contains the CPU specific part of tprocinfo
  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. { This unit contains the CPU specific part of tprocinfo. }
  19. unit cpupi;
  20. {$i fpcdefs.inc}
  21. interface
  22. uses
  23. procinfo,cgbase,psub;
  24. type
  25. tm68kprocinfo = class(tcgprocinfo)
  26. end;
  27. implementation
  28. begin
  29. cprocinfo:=tm68kprocinfo;
  30. end.
  31. {
  32. $Log$
  33. Revision 1.5 2004-06-20 08:55:31 florian
  34. * logs truncated
  35. Revision 1.4 2004/05/20 21:54:33 florian
  36. + <pointer> - <pointer> result is divided by the pointer element size now
  37. this is delphi compatible as well as resulting in the expected result for p1+(p2-p1)
  38. Revision 1.3 2004/05/01 23:29:01 florian
  39. * continued to fix m68k compiler compilation
  40. }