/compiler/systems/i_go32v2.pas

https://github.com/slibre/freepascal · Pascal · 102 lines · 76 code · 4 blank · 22 comment · 0 complexity · 10919feef1943fc63f0f78c22f79bea1 MD5 · raw file

  1. {
  2. Copyright (c) 1998-2002 by Peter Vreman
  3. This unit implements support information structures for go32v2
  4. This program is free software; you can redistribute it and/or modify
  5. it under the terms of the GNU General Public License as published by
  6. the Free Software Foundation; either version 2 of the License, or
  7. (at your option) any later version.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  11. GNU General Public License for more details.
  12. You should have received a copy of the GNU General Public License
  13. along with this program; if not, write to the Free Software
  14. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  15. ****************************************************************************
  16. }
  17. { This unit implements support information structures for go32v2. }
  18. unit i_go32v2;
  19. {$i fpcdefs.inc}
  20. interface
  21. uses
  22. systems;
  23. const
  24. system_i386_go32v2_info : tsysteminfo =
  25. (
  26. system : system_i386_GO32V2;
  27. name : 'GO32 V2 DOS extender';
  28. shortname : 'Go32v2';
  29. flags : [tf_use_8_3,tf_smartlink_library,tf_smartlink_sections];
  30. cpu : cpu_i386;
  31. unit_env : 'GO32V2UNITS';
  32. extradefines : 'DPMI';
  33. exeext : '.exe';
  34. defext : '.def';
  35. scriptext : '.bat';
  36. smartext : '.sl';
  37. unitext : '.ppu';
  38. unitlibext : '.ppl';
  39. asmext : '.s';
  40. objext : '.o';
  41. resext : '.res';
  42. resobjext : '.or';
  43. sharedlibext : '.dll';
  44. staticlibext : '.a';
  45. staticlibprefix : '';
  46. sharedlibprefix : '';
  47. sharedClibext : '.dll';
  48. staticClibext : '.a';
  49. staticClibprefix : 'lib';
  50. sharedClibprefix : '';
  51. importlibprefix : '';
  52. importlibext : '.al';
  53. Cprefix : '_';
  54. newline : #13#10;
  55. dirsep : '\';
  56. assem : as_i386_coff;
  57. assemextern : as_gas;
  58. link : nil;
  59. linkextern : nil;
  60. ar : ar_gnu_ar;
  61. res : res_none;
  62. dbg : dbg_stabs;
  63. script : script_dos;
  64. endian : endian_little;
  65. alignment :
  66. (
  67. procalign : 4;
  68. loopalign : 4;
  69. jumpalign : 0;
  70. constalignmin : 0;
  71. constalignmax : 4;
  72. varalignmin : 0;
  73. varalignmax : 4;
  74. localalignmin : 0;
  75. localalignmax : 4;
  76. recordalignmin : 0;
  77. recordalignmax : 2;
  78. maxCrecordalign : 4
  79. );
  80. first_parm_offset : 8;
  81. stacksize : 262144;
  82. stackalign : 4;
  83. abi : abi_default;
  84. );
  85. implementation
  86. initialization
  87. {$ifdef cpu86}
  88. {$ifdef go32v2}
  89. set_source_info(system_i386_go32v2_info);
  90. {$endif go32v2}
  91. {$endif cpu86}
  92. end.