FIx casts

clasp-developers · Sep 25, 2024 · 14bd735 · 14bd735
1 parent 7b239cb
commit 14bd735
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/core/num_co.cc b/src/core/num_co.cc
@@ -178,7 +178,7 @@ static void clasp_truncate(Real_sp dividend, Real_sp divisor, Integer_sp& quotie
     Real_sp subr;
     clasp_truncate(rdividend->numerator() * rdivisor->denominator(), rdivisor->numerator() * rdividend->denominator(), quotient,
                    subr);
-    remainder = Rational_O::create(subr.as<Integer_O>(), rdividend->denominator() * rdivisor->denominator());
+    remainder = Rational_O::create(gc::As<Integer_sp>(subr), rdividend->denominator() * rdivisor->denominator());
     return;
   }
   if (rdividend) {
@@ -190,7 +190,7 @@ static void clasp_truncate(Real_sp dividend, Real_sp divisor, Integer_sp& quotie
   if (rdivisor && dividend.isA<Integer_O>()) {
     Real_sp subr;
     clasp_truncate(dividend * rdivisor->denominator().as_unsafe<Real_O>(), rdivisor->numerator(), quotient, subr);
-    remainder = Rational_O::create(subr.as<Integer_O>(), rdivisor->denominator());
+    remainder = Rational_O::create(gc::As<Integer_sp>(subr), rdivisor->denominator());
     return;
   }
 

diff --git a/src/core/numbers.cc b/src/core/numbers.cc
@@ -1268,7 +1268,7 @@ CL_DEFMETHOD Integer_sp LongFloat_O::castToInteger() const {
   if (this->_Value < 0) {
     double f = -this->_Value;
     long long int cf = *(long long int*)&f;
-    return Integer_O::create(cf)->negate().as<Integer_O>();
+    return gc::As<Integer_sp>(Integer_O::create(cf)->negate());
   }
   long long int cf = *(long long int*)&this->_Value;
   return Integer_O::create(cf);