X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Ffloat%2Fsfloat%2Felem%2Fcl_SF_scale.cc;h=842b5faa8fe325a2eb11951cd50396b3e2b17c56;hb=5370ad8054201cf23d4f94a52f4d3f7f9f3cd511;hp=4981e2643611afc05e6f4313970e5c52e0caf4b3;hpb=dd9e0f894eec7e2a8cf85078330ddc0a6639090b;p=cln.git

diff --git a/src/float/sfloat/elem/cl_SF_scale.cc b/src/float/sfloat/elem/cl_SF_scale.cc
index 4981e26..842b5fa 100644
--- a/src/float/sfloat/elem/cl_SF_scale.cc
+++ b/src/float/sfloat/elem/cl_SF_scale.cc
@@ -4,7 +4,7 @@
 #include "cl_sysdep.h"
 
 // Specification.
-#include "cl_sfloat.h"
+#include "cln/sfloat.h"
 
 
 // Implementation.
@@ -12,7 +12,9 @@
 #include "cl_SF.h"
 #include "cl_F.h"
 
-const cl_SF scale_float (const cl_SF& x, sintL delta)
+namespace cln {
+
+const cl_SF scale_float (const cl_SF& x, sintC delta)
 {
   // Methode:
   // x=0.0 -> x als Ergebnis
@@ -25,25 +27,27 @@ const cl_SF scale_float (const cl_SF& x, sintL delta)
       SF_decode(x, { return x; }, sign=,exp=,mant=);
       if (delta >= 0)
         // delta>=0
-        { var uintL udelta = delta;
+        { var uintC udelta = delta;
           if (udelta <= (uintL)(SF_exp_high-SF_exp_low))
             { exp = exp+udelta;
               return encode_SF(sign,exp,mant);
             }
             else
-            { cl_error_floating_point_overflow(); }
+            { throw floating_point_overflow_exception(); }
         }
         else
         // delta<0
-        { var uintL udelta = -delta;
+        { var uintC udelta = -delta;
           if (udelta <= (uintL)(SF_exp_high-SF_exp_low))
             { exp = exp-udelta;
               return encode_SF(sign,exp,mant);
             }
             else
             if (underflow_allowed())
-              { cl_error_floating_point_underflow(); }
+              { throw floating_point_underflow_exception(); }
               else
               { return SF_0; }
         }
 }
+
+}  // namespace cln