mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 01:28:04 +02:00
6c8eed21c4
+ implement trashing of local variables if subroutine is inlined * fix some errors releated to interproc. gotos and inlining + node_count function * inline cannot be used with iochecking and safecall calling conventions * track inherited usage * don't inline if inherited is used git-svn-id: trunk@21335 -
35 lines
290 B
ObjectPascal
35 lines
290 B
ObjectPascal
{$mode iso}
|
|
{$inline on}
|
|
procedure test;
|
|
label
|
|
1;
|
|
procedure p;
|
|
begin
|
|
goto 1;
|
|
halt(1);
|
|
end;
|
|
begin
|
|
p;
|
|
halt(1);
|
|
1:
|
|
end;
|
|
|
|
|
|
label
|
|
1;
|
|
|
|
procedure p;inline;
|
|
begin
|
|
goto 1;
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
test;
|
|
p;
|
|
halt(1);
|
|
1:
|
|
writeln('ok');
|
|
end.
|
|
|