globdir.inc 2.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586
  1. {
  2. $Id$
  3. This file is part of the Free Pascal Integrated Development Environment
  4. Copyright (c) 1999 by Berczi Gabor
  5. Conditional defines logic for the IDE
  6. This program is distributed in the hope that it will be useful,
  7. but WITHOUT ANY WARRANTY; without even the implied warranty of
  8. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  9. **********************************************************************}
  10. { --- Special OS settings --- }
  11. {$ifdef TP}
  12. {$define SUPPORTVESA}
  13. {$define TPUNIXLF}
  14. {$undef WinClipSupported}
  15. {$C FIXED PRELOAD PERMANENT}
  16. {
  17. Without defining this I got almost always SEGMENT NOT PRESENT (exc 11)
  18. on exiting the IDE, when run on under NT4.0... Strange a bit, not?
  19. (Actually the fault occours in TDOSScreen.GetVideoMode() at the
  20. BIOS call, but I just can't figure out why....)
  21. }
  22. {$endif}
  23. {$ifdef Go32V2}
  24. {$define SUPPORTVESA}
  25. {$define SUPPORTREDIR}
  26. {$define WinClipSupported}
  27. {$endif}
  28. {$ifdef Linux}
  29. {$undef SUPPORTVESA}
  30. {$define SUPPORTREDIR}
  31. {$undef WinClipSupported}
  32. {$endif}
  33. {$ifdef Win32}
  34. {$undef SUPPORTVESA}
  35. {$define SUPPORTREDIR}
  36. {$define WinClipSupported}
  37. {$endif}
  38. { --- Exclude debugger support --- }
  39. {.$DEFINE NODEBUG}
  40. { --- Include VESA support --- }
  41. {$ifdef SUPPORTVESA}
  42. {$ifndef FV20}
  43. {$define VESA}
  44. {$endif}
  45. {$endif}
  46. {$ifdef SUPPORTREDIR}
  47. {$ifndef debug}
  48. {$define redircompiler}
  49. {$endif}
  50. {$ifdef GDB_V418}
  51. {define redircompiler}
  52. {$endif GDB_V418}
  53. {$endif}
  54. { include Undo/Redo code from Visa Harvey }
  55. { let everybody try it out PM }
  56. { undo should be a bit improved - it does work only with "normal" keystorkes.
  57. neither the block, nor any shortcut operations (like Ctrl-T - delete word)
  58. do work... Gabor
  59. Partially solved at least PM }
  60. {$define Undo}
  61. {$ifdef DEBUG}
  62. {$define DebugUndo}
  63. {$endif DEBUG}
  64. {$ifdef FPC}
  65. {$define USERESSTRINGS}
  66. {$endif}
  67. {$ifdef GABOR}
  68. {.$define NOOBJREG}
  69. {$define NODEBUG}
  70. {$define DEBUG}
  71. {$undef USERESSTRINGS}
  72. {$endif}