mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 04:48:07 +02:00
3d25478436
(mantis #12685 and also the error message noted in mantis #12576, although in case of the latter it's only a symptom of another bug) git-svn-id: trunk@12199 -
24 lines
459 B
ObjectPascal
24 lines
459 B
ObjectPascal
{ %norun }
|
|
program BuggyProgram;
|
|
|
|
const
|
|
SE_SysEvtMask = $144;
|
|
SE_SysEvtMask2 = $14422241;
|
|
|
|
type
|
|
intPtr = ^integer;
|
|
|
|
function GetSystemEventMask: INTEGER;
|
|
begin
|
|
GetSystemEventMask := intPtr(SE_SysEvtMask)^;
|
|
GetSystemEventMask := intPtr(SE_SysEvtMask2)^;
|
|
end;
|
|
procedure StoreSystemEventMask (theMask: INTEGER);
|
|
begin
|
|
intPtr(SE_SysEvtMask)^ := theMask;
|
|
intPtr(SE_SysEvtMask2)^ := theMask;
|
|
end;
|
|
|
|
begin
|
|
end.
|