Ver Fonte

+ set WINDOWS define on all Windows platforms (Win32,Win64,WinCE)

git-svn-id: trunk@2291 -
florian há 19 anos atrás
pai
commit
d525a3b162
1 ficheiros alterados com 4 adições e 4 exclusões
  1. 4 4
      compiler/systems/i_win.pas

+ 4 - 4
compiler/systems/i_win.pas

@@ -35,7 +35,7 @@ unit i_win;
             flags        : [tf_files_case_aware,tf_has_dllscanner,tf_use_function_relative_addresses{,tf_section_threadvars}];
             cpu          : cpu_i386;
             unit_env     : 'WIN32UNITS';
-            extradefines : 'MSWINDOWS';
+            extradefines : 'MSWINDOWS;WINDOWS';
             exeext       : '.exe';
             defext       : '.def';
             scriptext    : '.bat';
@@ -94,7 +94,7 @@ unit i_win;
             flags        : [tf_files_case_aware,tf_has_dllscanner,tf_use_function_relative_addresses];
             cpu          : cpu_x86_64;
             unit_env     : 'WIN64UNITS';
-            extradefines : 'MSWINDOWS';
+            extradefines : 'MSWINDOWS;WINDOWS';
             exeext       : '.exe';
             defext       : '.def';
             scriptext    : '.bat';
@@ -153,7 +153,7 @@ unit i_win;
             flags        : [tf_files_case_aware,tf_use_function_relative_addresses];
             cpu          : cpu_arm;
             unit_env     : '';
-            extradefines : 'UNDER_CE';
+            extradefines : 'UNDER_CE;WINDOWS';
             exeext       : '.exe';
             defext       : '.def';
             scriptext    : '.bat';
@@ -212,7 +212,7 @@ unit i_win;
             flags        : [tf_files_case_aware,tf_has_dllscanner,tf_use_function_relative_addresses];
             cpu          : cpu_i386;
             unit_env     : '';
-            extradefines : 'UNDER_CE';
+            extradefines : 'UNDER_CE;WINDOWS';
             exeext       : '.exe';
             defext       : '.def';
             scriptext    : '.bat';