Changeset f48c17 in git for ntl

Timestamp:

Oct 16, 2007, 5:47:07 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'b324714bf5073469800caef737deba1366fbd81f')

Children:

56c5ce71cdf3ccca4ca78f1da0408681e2d3d465

Parents:

f8c656fb004951aa0c1a4bb2c29b815065a61c69

Message:

*hannes: NTL 5.4.1


git-svn-id: file:///usr/local/Singular/svn/trunk@10338 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• ntl/src/RR.c (modified) (1 diff)

ntl/src/RR.c

@@ -1390 +1390 @@
 void expm1(RR& res, const RR& x)
 {
+   long p = RR::precision();
+
    if (x < -0.5 || x > 0.5) {
       RR t;
+      RR::SetPrecision(p + 10);
       exp(t, x);
+      RR::SetPrecision(p);
       sub(res, t, 1);
       return;
    }
 
-   long p = RR::precision();
 
    RR::SetPrecision(p + NumBits(p) + 10);