paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 00:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* inline test with ppu load

Browse Source
This commit is contained in:
peter 2003-11-07 17:25:47 +00:00
parent bbf7300a0c
commit 795b479d7b
2 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/tbs/tb0461.pp Normal file
View File

@ -0,0 +1,14 @@
{ %version=1.1 }
{ %recompile }
uses ub0461;
procedure p;
begin
p1;
end;
begin
p;
end.

15
tests/tbs/ub0461.pp Normal file
View File

@ -0,0 +1,15 @@
unit ub0461;
{$inline on}
interface
procedure p1;inline;
implementation
procedure p1;inline;
var
i,k : longint;
begin
i:=20;
k:=i*10;
writeln('hello ',k);
end;
end.