+ variant wrappers for cmp operators added

rtl/inc/genmath.inc

@@ -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

rtl/inc/variant.inc

@@ -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

rtl/inc/varianth.inc

@@ -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