roland/xo-procedure2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

xo-interpreter2 stack: use xo-numeric/ to support op*

Browse source
This commit is contained in:
Roland Conybeare 2026-02-18 22:00:30 -08:00
commit 02f96d2e95
3 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/procedure2/init_primitives.cpp
View file

@ -39,6 +39,7 @@ namespace xo {
}
#endif
#ifdef OBSOLETE // see xo-numeric/xo/numeric/NumericPrimitives.cpp
obj<AGCObject>
mul_gco_gco(obj<ARuntimeContext> rcx,
obj<AGCObject> x_gco,
@ -98,6 +99,7 @@ namespace xo {
xtag("y.tseq", y_tseq)));
return obj<AGCObject>();
}
#endif
obj<AGCObject>
sub_gco_gco(obj<ARuntimeContext> rcx,
@ -255,8 +257,10 @@ namespace xo {
}
#endif
#ifdef OSOLETE
DPrimitive_gco_2_gco_gco
Primitives::s_mul_gco_gco_pm("_mul", &mul_gco_gco);
#endif
DPrimitive_gco_2_gco_gco
Primitives::s_sub_gco_gco_pm("_sub", &sub_gco_gco);