* D7 compat, neginfinity (bug 10490)

git-svn-id: trunk@9564 -

rtl/objpas/math.pp

@@ -118,6 +118,7 @@ interface
 {$endif opt Q+}
        NaN = 0.0/0.0;
        Infinity = 1.0/0.0;
+       NegInfinity = -1.0/0.0;
 {$ifdef RangeCheckWasOn}
 {$R+}
 {$undef RangeCheckWasOn}