Browse Source

rtl: added overloads Min/Max

mattias 6 years ago
parent
commit
386dbcbbce
1 changed files with 6 additions and 4 deletions
  1. 6 4
      packages/rtl/math.pas

+ 6 - 4
packages/rtl/math.pas

@@ -36,12 +36,14 @@ type
 
   //EInvalidArgument = class(EMathError);
 
-function Min(const a, b: Integer): Integer; varargs; external name 'Math.min'; overload;
-function Max(const a, b: Integer): Integer; varargs; external name 'Math.max'; overload;
 function Min(const a, b: Double): Double; varargs; external name 'Math.min'; overload;
 function Max(const a, b: Double): Double; varargs; external name 'Math.max'; overload;
-function Min(const a, b: NativeLargeInt): Double; varargs; external name 'Math.min'; overload;
-function Max(const a, b: NativeLargeUInt): Double; varargs; external name 'Math.max'; overload;
+function Min(const a, b: NativeLargeUInt): NativeLargeUInt; varargs; external name 'Math.min'; overload;
+function Max(const a, b: NativeLargeUInt): NativeLargeUInt; varargs; external name 'Math.max'; overload;
+function Min(const a, b: NativeLargeInt): NativeLargeInt; varargs; external name 'Math.min'; overload;
+function Max(const a, b: NativeLargeInt): NativeLargeInt; varargs; external name 'Math.max'; overload;
+function Min(const a, b: Integer): Integer; varargs; external name 'Math.min'; overload;
+function Max(const a, b: Integer): Integer; varargs; external name 'Math.max'; overload;
 
 function InRange(const AValue, AMin, AMax: Integer): Boolean; assembler; overload;
 function InRange(const AValue, AMin, AMax: Double): Boolean; assembler; overload;