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

+ variant wrappers for cmp operators added

Browse Source
This commit is contained in:
florian 2002-10-07 15:10:45 +00:00
parent 1032bba553
commit 45091120fd
3 changed files with 44 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/genmath.inc
View File

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

30
rtl/inc/variant.inc
View File

@ -491,6 +491,31 @@ operator -(const op : variant) dest : variant;
variantmanager.varneg(dest);
end;
operator =(const op1,op2 : variant) dest : boolean;
begin
dest:=variantmanager.cmpop(op1,op2,opcmpeq);
end;
operator <(const op1,op2 : variant) dest : boolean;
begin
dest:=variantmanager.cmpop(op1,op2,opcmplt);
end;
operator >(const op1,op2 : variant) dest : boolean;
begin
dest:=variantmanager.cmpop(op1,op2,opcmpgt);
end;
operator >=(const op1,op2 : variant) dest : boolean;
begin
dest:=variantmanager.cmpop(op1,op2,opcmpge);
end;
operator <=(const op1,op2 : variant) dest : boolean;
begin
dest:=variantmanager.cmpop(op1,op2,opcmplt);
end;
{**********************************************************************
Variant manager functions
@ -537,7 +562,10 @@ procedure initvariantmanager;
{
$Log$
Revision 1.7 2002-10-07 10:27:45 florian
Revision 1.8 2002-10-07 15:10:45 florian
+ variant wrappers for cmp operators added
Revision 1.7 2002/10/07 10:27:45 florian
+ more variant wrappers added
Revision 1.6 2002/10/06 22:13:55 florian

10
rtl/inc/varianth.inc
View File

@ -269,11 +269,19 @@ operator /(const op1,op2 : variant) dest : variant;
operator div(const op1,op2 : variant) dest : variant;
operator mod(const op1,op2 : variant) dest : variant;
operator -(const op : variant) dest : variant;
operator =(const op1,op2 : variant) dest : boolean;
operator <(const op1,op2 : variant) dest : boolean;
operator >(const op1,op2 : variant) dest : boolean;
operator >=(const op1,op2 : variant) dest : boolean;
operator <=(const op1,op2 : variant) dest : boolean;
{
$Log$
Revision 1.8 2002-10-07 10:27:45 florian
Revision 1.9 2002-10-07 15:10:45 florian
+ variant wrappers for cmp operators added
Revision 1.8 2002/10/07 10:27:45 florian
+ more variant wrappers added
Revision 1.7 2002/10/06 22:13:55 florian