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

* fix wince building after unicodestring changes

Browse Source 
git-svn-id: trunk@11828 -
This commit is contained in:
florian 2008-09-27 12:05:35 +00:00
parent 9d087f40fa
commit 013dc5e379
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/options.pas
View File

@ -2581,7 +2581,7 @@ begin
set_system_macro('FPC_PATCH',patch_nr); set_system_macro('FPC_PATCH',patch_nr);
set_system_macro('FPC_FULLVERSION',Format('%d%.02d%.02d',[StrToInt(version_nr),StrToInt(release_nr),StrToInt(patch_nr)])); set_system_macro('FPC_FULLVERSION',Format('%d%.02d%.02d',[StrToInt(version_nr),StrToInt(release_nr),StrToInt(patch_nr)]));
if not(target_info.system in system_windows) then if not(target_info.system in system_all_windows) then
def_system_macro('FPC_WIDESTRING_EQUAL_UNICODESTRING'); def_system_macro('FPC_WIDESTRING_EQUAL_UNICODESTRING');
for i:=low(tfeature) to high(tfeature) do for i:=low(tfeature) to high(tfeature) do

2
compiler/psystem.pas
View File

@ -157,7 +157,7 @@ implementation
{ should we give a length to the default long and ansi string definition ?? } { should we give a length to the default long and ansi string definition ?? }
clongstringtype:=tstringdef.createlong(-1); clongstringtype:=tstringdef.createlong(-1);
cansistringtype:=tstringdef.createansi; cansistringtype:=tstringdef.createansi;
if target_info.system in system_windows then if target_info.system in system_all_windows then
cwidestringtype:=tstringdef.createwide cwidestringtype:=tstringdef.createwide
else else
cwidestringtype:=tstringdef.createunicode; cwidestringtype:=tstringdef.createunicode;