blob: c1d6c718da4dd82b6933faa798b42ba17943d28d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
{$inline on }
{$mode objfpc}
var
global_u8bit : byte;
value_u8bit : byte;
procedure proc_value_smallarray_const_1_inline(arr : array of const);inline;
var
i: integer;
begin
for i:=0 to high(arr) do
begin
case arr[i].vtype of
vtInteger : global_u8bit := arr[i].vinteger and $ff;
else
RunError(255);
end;
end; {endfor}
end;
begin
value_u8bit:=133;
proc_value_smallarray_const_1_inline([value_u8bit]);
if global_u8bit <> 133 then
begin
Writeln('Error in inline code generation');
Halt(1);
end;
end.
|
