Merged revisions 6955 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r6955 | michael | 2007-03-22 19:43:14 +0100 (Thu, 22 Mar 2007) | 1 line
  
  * Undid revision 6462
........

git-svn-id: branches/fixes_2_2@6956 -

rtl/objpas/math.pp

@@ -207,14 +207,6 @@ function IsZero(const A: Extended): Boolean;inline;
 
 function IsNan(const d : Double): Boolean;
 function IsInfinite(const d : Double): Boolean;
-{$ifdef FPC_HAS_TYPE_EXTENDED}
-function IsNan(const E : Extended): Boolean;
-function IsInfinite(const E : Extended): Boolean;
-{$endif FPC_HAS_TYPE_EXTENDED}
-{$ifdef FPC_HAS_TYPE_SINGLE}
-function IsNan(const s : Single): Boolean;
-function IsInfinite(const s : Single): Boolean;
-{$endif FPC_HAS_TYPE_SINGLE}
 
 {$ifdef FPC_HAS_TYPE_EXTENDED}
 function SameValue(const A, B: Extended): Boolean;inline;
@@ -2115,72 +2107,6 @@ function IsInfinite(const d : Double): Boolean;
     Result:=expMaximal and fraczero;
   end;
 
-{$ifdef FPC_HAS_TYPE_EXTENDED}
-type
-  TSplitExtended = packed record
-    case byte of
-      0: (bytes: Array[0..9] of byte);
-      1: (words: Array[0..4] of word);
-      2: (cards: Array[0..1] of cardinal; w: word);
-  end;
-
-function IsNan(const E : Extended): Boolean;
-
-var
-  fraczero, expMaximal: boolean;
-
-begin
-  expMaximal := (TSplitExtended(e).w and $7fff) = 32767;
-  fraczero :=  (TSplitExtended(e).cards[0] = 0) and
-                ((TSplitExtended(e).cards[1] and $7fffffff) = 0);
-  Result:=expMaximal and not FracZero;                        
-end;
-
-function IsInfinite(const E : Extended): Boolean;
-
-Var
-  fraczero, expMaximal: boolean;
-
-begin
-  expMaximal := (TSplitExtended(e).w and $7fff) = 32767;
-  fraczero := (TSplitExtended(e).cards[0] = 0) and
-              ((TSplitExtended(e).cards[1] and $7fffffff) = 0);
-  Result:=expMaximal and fraczero;
-end;
-{$endif FPC_HAS_TYPE_EXTENDED}
-
-{$ifdef FPC_HAS_TYPE_SINGLE}
-type
-  TSplitSingle = packed record
-    case byte of
-      0: (bytes: Array[0..3] of byte);
-      1: (words: Array[0..1] of word);
-      2: (cards: Array[0..0] of cardinal);
-  end;
-                          
-function IsNan(const s : Single): Boolean;
-
-Var
-  fraczero, expMaximal: boolean;
-  
-begin
-  expMaximal := ((TSplitSingle(s).words[1] shr 7) and $ff) = 255;
-  fraczero := (TSplitSingle(s).cards[0] and $7fffff = 0);
-  Result:=expMaximal and not fraczero;
-end;
-
-function IsInfinite(const s : Single): Boolean;
-
-Var
-  fraczero, expMaximal: boolean;
-  
-begin
-  expMaximal := ((TSplitSingle(s).words[1] shr 7) and $ff) = 255;
-  fraczero := (TSplitSingle(s).cards[0] and $7fffff = 0);
-  Result:=expMaximal and fraczero;
-end;
-
-{$endif}
 
 {$ifdef FPC_HAS_TYPE_EXTENDED}
 function SameValue(const A, B: Extended; Epsilon: Extended): Boolean;