|
@@ -55,7 +55,7 @@
|
|
{$define FPC_SYSTEM_HAS_INT}
|
|
{$define FPC_SYSTEM_HAS_INT}
|
|
function fpc_int_real(d : ValReal) : ValReal;assembler;nostackframe;compilerproc;
|
|
function fpc_int_real(d : ValReal) : ValReal;assembler;nostackframe;compilerproc;
|
|
asm
|
|
asm
|
|
- { round as floating point towards zero }
|
|
|
|
|
|
+ // { round as floating point towards zero }
|
|
frintz d0,d0
|
|
frintz d0,d0
|
|
end;
|
|
end;
|
|
{$endif FPC_SYSTEM_HAS_INT}
|
|
{$endif FPC_SYSTEM_HAS_INT}
|