+ tf_winlikewidestring

git-svn-id: trunk@3457 -

compiler/options.pas

@@ -1985,6 +1985,9 @@ begin
   if source_info.cpu<>target_info.cpu then
     def_system_macro('FPC_CPUCROSSCOMPILING');
 
+  if tf_winlikewidestring in target_info.flags then
+    def_system_macro('FPC_WINLIKEWIDESTRING');
+
   { read configuration file }
   if (not disable_configfile) and
      (ppccfg<>'') then

compiler/systems.pas

@@ -271,7 +271,8 @@ interface
             tf_files_case_aware,
             tf_p_ext_support,
             tf_has_dllscanner,
-            tf_use_function_relative_addresses
+            tf_use_function_relative_addresses,
+            tf_winlikewidestring
        );
 
        psysteminfo = ^tsysteminfo;

compiler/systems/i_win.pas

@@ -33,7 +33,7 @@ unit i_win;
             name         : 'Win32 for i386';
             shortname    : 'Win32';
             flags        : [tf_files_case_aware,tf_has_dllscanner,tf_use_function_relative_addresses
-                            ,tf_smartlink_sections{,tf_section_threadvars}{,tf_needs_dwarf_cfi}];
+                            ,tf_smartlink_sections{,tf_section_threadvars}{,tf_needs_dwarf_cfi},tf_winlikewidestring];
             cpu          : cpu_i386;
             unit_env     : 'WIN32UNITS';
             extradefines : 'MSWINDOWS;WINDOWS';
@@ -92,7 +92,7 @@ unit i_win;
             system       : system_x86_64_win64;
             name         : 'Win64 for x64';
             shortname    : 'Win64';
-            flags        : [tf_files_case_aware,tf_has_dllscanner,tf_use_function_relative_addresses];
+            flags        : [tf_files_case_aware,tf_has_dllscanner,tf_use_function_relative_addresses,tf_winlikewidestring];
             cpu          : cpu_x86_64;
             unit_env     : 'WIN64UNITS';
             extradefines : 'MSWINDOWS;WINDOWS';
@@ -151,7 +151,7 @@ unit i_win;
             system       : system_arm_wince;
             name         : 'WinCE for ARM';
             shortname    : 'WinCE';
-            flags        : [tf_files_case_aware,tf_use_function_relative_addresses];
+            flags        : [tf_files_case_aware,tf_use_function_relative_addresses,tf_winlikewidestring];
             cpu          : cpu_arm;
             unit_env     : '';
             extradefines : 'UNDER_CE;WINDOWS';
@@ -210,7 +210,7 @@ unit i_win;
             system       : system_i386_wince;
             name         : 'WinCE for i386';
             shortname    : 'WinCE';
-            flags        : [tf_files_case_aware,tf_has_dllscanner,tf_use_function_relative_addresses];
+            flags        : [tf_files_case_aware,tf_has_dllscanner,tf_use_function_relative_addresses,tf_winlikewidestring];
             cpu          : cpu_i386;
             unit_env     : '';
             extradefines : 'UNDER_CE;WINDOWS';