mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 07:47:59 +02:00
10 lines
136 B
ObjectPascal
10 lines
136 B
ObjectPascal
{ %opt=-O4 -Oodeadstore -Oonoregvar }
|
|
var
|
|
src: array[0 .. 9] of int32;
|
|
srcp: pInt32;
|
|
|
|
begin
|
|
srcp := pInt32(src);
|
|
srcp[0] := 1;
|
|
end.
|