paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix wince rtl compilation (fix for bug report 32859)

Browse Source 
git-svn-id: trunk@37778 -
This commit is contained in:
pierre 2017-12-21 17:45:20 +00:00
parent fd5303e8df
commit ec45d8617c
4 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -915,9 +915,7 @@ var
isEnable_E_Format : Boolean;
isEnable_G_Format : Boolean;
eastasiainited : boolean;
{$endif win32 or win64}
{$if defined(win32) or defined(win64)}
procedure InitEastAsia;
var ALCID : LCID;
PriLangID , SubLangID : Word;

4
rtl/objpas/sysutils/datih.inc
View File

@ -90,10 +90,10 @@ var
type
{ windows isn't defined in 2.0.2 (FK) }
{$if defined(win32) or defined(win64)}
{$if defined(win32) or defined(win64) or defined (wince)}
{ Win32/Win64 reuses the struct from the Windows unit }
{$DEFINE HAS_SYSTEMTIME}
{$endif windows}
{$endif win32 or win64 or wince }
{$IFNDEF HAS_SYSTEMTIME}
TSystemTime = record

4
rtl/objpas/sysutils/sysutilh.inc
View File

@ -129,7 +129,7 @@ type
ExceptClass = class of Exception;
EExternal = class(Exception)
{$if defined(win32) or defined(win64)}
{$if defined(win32) or defined(win64) or defined(wince)}
{ OS-provided exception record is stored on stack and has very limited lifetime.
Therefore store a complete copy. }
private
@ -137,7 +137,7 @@ type
function GetExceptionRecord: PExceptionRecord;
public
property ExceptionRecord : PExceptionRecord read GetExceptionRecord;
{$endif win32 or win64}
{$endif win32 or win64 or wince}
end;
{ integer math exceptions }

6
rtl/objpas/sysutils/sysutils.inc
View File

@ -288,13 +288,13 @@ end;
ErrCode:=Code;
end;
{$if defined(win32) or defined(win64)}
{$if defined(win32) or defined(win64) or defined (wince)}
function EExternal.GetExceptionRecord: PExceptionRecord;
begin
result:=@FExceptionRecord;
end;
{$endif win32 or win64}
{$endif win32 or win64 or wince}
{$push}
{$S-}
@ -726,7 +726,7 @@ begin
end;
{$endif}
{$if defined(win32) or defined(win64)}
{$if defined(win32) or defined(win64) or defined(wince)}
function GetModuleName(Module: HMODULE): string;
var
ResultLength, BufferLength: DWORD;