fpcsrc/tests/tbs/tb0444.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{$mode delphi}
unit tb0444;
interface

function Trunc(const x : Single) : Integer;

implementation

function Trunc(const x : Single) : Integer;
 register;
asm
end;

end.