From c6e2d72e3cc84f617e48400d05353d37a689c2a4 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sat, 29 Dec 2007 13:12:10 +0000
Subject: [PATCH]  * D7 compat, neginfinity (bug 10490)

git-svn-id: trunk@9564 -
---
 rtl/objpas/math.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/rtl/objpas/math.pp b/rtl/objpas/math.pp
index ce8ccfe3bc..44218541d5 100644
--- a/rtl/objpas/math.pp
+++ b/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}