paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-07 05:38:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* disable east asia/era stuff on WinCE, the functions does not seem to be available there, fixed compilation of trunk for WinCE

Browse Source 
git-svn-id: trunk@15782 -
This commit is contained in:
florian 2010-08-11 20:30:14 +00:00
parent df01446f42
commit 4671615dc7
1 changed files with 39 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/objpas/sysutils/dati.inc
View File

@ -813,13 +813,13 @@ var
ResultLen: integer;
ResultBuffer: array[0..255] of char;
ResultCurrent: pchar;
{$IFDEF Windows}
{$IFDEF MSWindows}
isEnable_E_Format : Boolean;
isEnable_G_Format : Boolean;
eastasiainited : boolean;
{$ENDIF}
{$ENDIF MSWindows}
{$IFDEF Windows}
{$IFDEF MSWindows}
procedure InitEastAsia;
var ALCID : LCID;
PriLangID , SubLangID : Word;
@ -850,7 +850,7 @@ var
);
eastasiainited :=true;
end;
{$ENDIF}
{$ENDIF MSWindows}
procedure StoreStr(Str: PChar; Len: Integer);
begin
@ -1061,7 +1061,7 @@ var
StoreFormat(FormatSettings.LongTimeFormat, Nesting+1, True);
end;
end;
{$IFDEF Windows}
{$IFDEF MSWindows}
'E':
begin
if not Eastasiainited then InitEastAsia;
@ -1088,7 +1088,7 @@ var
end;
lastformattoken:=token;
end;
{$ENDIF}
{$ENDIF MSWindows}
end;
lastformattoken := token;
end;
@ -1100,9 +1100,9 @@ var
end;
begin
{$ifdef windows}
{$ifdef MSWindows}
eastasiainited:=false;
{$endif}
{$endif MSWindows}
DecodeDateFully(DateTime, Year, Month, Day, DayOfWeek);
DecodeTime(DateTime, Hour, Minute, Second, MilliSecond);
ResultLen := 0;