paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed wrong commit

Browse Source
This commit is contained in:
florian 2002-10-07 15:15:02 +00:00
parent 45091120fd
commit 84f4935593
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/genmath.inc
View File

@ -284,7 +284,6 @@ Function float32_to_int32_round_to_zero( a: Float32 ): longint;
{* to y. Thus x = y * 2**expn. *} {* to y. Thus x = y * 2**expn. *}
begin begin
e :=0; e :=0;
{!!!!!! fix me
if (abs(x)<0.5) then if (abs(x)<0.5) then
While (abs(x)<0.5) do While (abs(x)<0.5) do
begin begin
@ -297,7 +296,6 @@ Function float32_to_int32_round_to_zero( a: Float32 ): longint;
x := x/2; x := x/2;
Inc(e); Inc(e);
end; end;
}
frexp := x; frexp := x;
end; end;
@ -1022,7 +1020,10 @@ Function float32_to_int32_round_to_zero( a: Float32 ): longint;
{ {
$Log$ $Log$
Revision 1.7 2002-10-07 15:10:45 florian Revision 1.8 2002-10-07 15:15:02 florian
* fixed wrong commit
Revision 1.7 2002/10/07 15:10:45 florian
+ variant wrappers for cmp operators added + variant wrappers for cmp operators added
Revision 1.6 2002/09/07 15:07:45 peter Revision 1.6 2002/09/07 15:07:45 peter