A trivial change.

hisuie08 · Apr 17, 2020 · cb1931c · cb1931c
1 parent ab57904
commit cb1931c
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 2 deletions.
diff --git a/package/sys/lib.kn b/package/sys/lib.kn
@@ -117,10 +117,10 @@ end func
 +func [d0000.knd, _same] same(n1: float, n2: float): bool
 end func
 
-+func toBit64Forcibly(x: float): bit64
++func [d0000.knd, _toBit64Forcibly] toBit64Forcibly(x: float): bit64
 end func
 
-+func toFloatForcibly(x: bit64): float
++func [d0000.knd, _toFloatForcibly] toFloatForcibly(x: bit64): float
 end func
 
 +func [d0000.knd, _toRad] toRad(degree: float): float

diff --git a/src/lib_common/lib.c b/src/lib_common/lib.c
@@ -510,6 +510,16 @@ EXPORT U64 _addr(SClass* me_)
 	return (U64)me_;
 }
 
+EXPORT U64 _toBit64Forcibly(double x)
+{
+	return *(U64*)&x;
+}
+
+EXPORT double _toFloatForcibly(U64 x)
+{
+	return *(double*)&x;
+}
+
 void LibInit(void)
 {
 	// Initialize the random number system.

diff --git a/src/lib_common/lib.h b/src/lib_common/lib.h
@@ -53,6 +53,8 @@ EXPORT S64 _addChkOverflow(Bool* overflowed, S64 n1, S64 n2);
 EXPORT S64 _subChkOverflow(Bool* overflowed, S64 n1, S64 n2);
 EXPORT S64 _mulChkOverflow(Bool* overflowed, S64 n1, S64 n2);
 EXPORT U64 _addr(SClass* me_);
+EXPORT U64 _toBit64Forcibly(double x);
+EXPORT double _toFloatForcibly(U64 x);
 
 void LibInit(void);