paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ tf_winlikewidestring

Browse Source 
git-svn-id: trunk@3457 -
This commit is contained in:
florian 2006-05-08 18:20:26 +00:00
parent 3db19053ee
commit ab1660c9c2
3 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/options.pas
View File

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

3
compiler/systems.pas
View File

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

8
compiler/systems/i_win.pas
View File

@ -33,7 +33,7 @@ unit i_win;
name : 'Win32 for i386'; name : 'Win32 for i386';
shortname : 'Win32'; shortname : 'Win32';
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_smartlink_sections{,tf_section_threadvars}{,tf_needs_dwarf_cfi}]; ,tf_smartlink_sections{,tf_section_threadvars}{,tf_needs_dwarf_cfi},tf_winlikewidestring];
cpu : cpu_i386; cpu : cpu_i386;
unit_env : 'WIN32UNITS'; unit_env : 'WIN32UNITS';
extradefines : 'MSWINDOWS;WINDOWS'; extradefines : 'MSWINDOWS;WINDOWS';
@ -92,7 +92,7 @@ unit i_win;
system : system_x86_64_win64; system : system_x86_64_win64;
name : 'Win64 for x64'; name : 'Win64 for x64';
shortname : 'Win64'; 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; cpu : cpu_x86_64;
unit_env : 'WIN64UNITS'; unit_env : 'WIN64UNITS';
extradefines : 'MSWINDOWS;WINDOWS'; extradefines : 'MSWINDOWS;WINDOWS';
@ -151,7 +151,7 @@ unit i_win;
system : system_arm_wince; system : system_arm_wince;
name : 'WinCE for ARM'; name : 'WinCE for ARM';
shortname : 'WinCE'; 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; cpu : cpu_arm;
unit_env : ''; unit_env : '';
extradefines : 'UNDER_CE;WINDOWS'; extradefines : 'UNDER_CE;WINDOWS';
@ -210,7 +210,7 @@ unit i_win;
system : system_i386_wince; system : system_i386_wince;
name : 'WinCE for i386'; name : 'WinCE for i386';
shortname : 'WinCE'; 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; cpu : cpu_i386;
unit_env : ''; unit_env : '';
extradefines : 'UNDER_CE;WINDOWS'; extradefines : 'UNDER_CE;WINDOWS';