paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 09:29:17 +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_E_Format : Boolean;
isEnable_G_Format : Boolean; isEnable_G_Format : Boolean;
eastasiainited : boolean; eastasiainited : boolean;
{$endif win32 or win64}
{$if defined(win32) or defined(win64)}
procedure InitEastAsia; procedure InitEastAsia;
var ALCID : LCID; var ALCID : LCID;
PriLangID , SubLangID : Word; PriLangID , SubLangID : Word;

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

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

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

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

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

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