xo-reader2 stack: + xo-numeric + setup multi dispatch for *,/
This commit is contained in:
parent
b8fd087319
commit
ac1395ce98
28 changed files with 912 additions and 70 deletions
31
src/numeric/IntegerOps.cpp
Normal file
31
src/numeric/IntegerOps.cpp
Normal file
|
|
@ -0,0 +1,31 @@
|
|||
/** @file IntegerOps.cpp
|
||||
*
|
||||
* @author Roland Conybeare, Feb 2026
|
||||
**/
|
||||
|
||||
#include "IntegerOps.hpp"
|
||||
#include "integer/INumeric_DInteger.hpp"
|
||||
|
||||
namespace xo {
|
||||
using xo::mm::AGCObject;
|
||||
|
||||
namespace scm {
|
||||
|
||||
obj<AGCObject>
|
||||
IntegerOps::multiply(obj<ARuntimeContext> rcx,
|
||||
DInteger * x, DInteger * y)
|
||||
{
|
||||
return DInteger::box<AGCObject>(rcx.allocator(), x->value() * y->value());
|
||||
}
|
||||
|
||||
obj<AGCObject>
|
||||
IntegerOps::divide(obj<ARuntimeContext> rcx,
|
||||
DInteger * x, DInteger * y)
|
||||
{
|
||||
return DInteger::box<AGCObject>(rcx.allocator(), x->value() / y->value());
|
||||
}
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
/* end IntegerOps.cpp */
|
||||
Loading…
Add table
Add a link
Reference in a new issue