mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-31 12:43:02 +02:00
2d99a173eb
U tests/webtbs/tw28713b.pp --- Recording mergeinfo for merge of r32613 into '.': git-svn-id: branches/fixes_3_0@34066 -
32 lines
662 B
ObjectPascal
32 lines
662 B
ObjectPascal
{ %OPT=-O3 }
|
|
{$mode objfpc}
|
|
// Compiled with option -O3 for Win32-I386
|
|
|
|
type
|
|
PWordArray = ^TWordArray;
|
|
TWordArray = array [0..1023] of PtrUInt;
|
|
|
|
TMyclass = class
|
|
LoByte,HiByte:Byte
|
|
end;
|
|
|
|
var
|
|
Buffer:TWordArray;
|
|
OldMousePos:LongInt = 0;
|
|
ScreenBuffer:Pointer = @Buffer;
|
|
|
|
procedure Show(ScreenBuffer:Pointer);
|
|
begin
|
|
TMyClass(PWordArray(ScreenBuffer)^[OldMousePos]).HiByte:=(not
|
|
TMyClass(PWordArray(ScreenBuffer)^[OldMousePos]).HiByte)and $7F
|
|
// he forgets to write the result into the array
|
|
end;
|
|
|
|
begin
|
|
TMyClass(Buffer[0]):=TMyClass.Create;
|
|
Show(ScreenBuffer);
|
|
if TMyClass(Buffer[0]).HiByte<>$7F then
|
|
halt(1);
|
|
writeln('ok');
|
|
end.
|