Updated to latest core-lib and added #bitXor: primitive to Double

Signed-off-by: Stefan Marr <[email protected]>

Author: smarr

core-lib

@@ -98,6 +98,8 @@ void  _Double_percent(pVMObject object, pVMFrame frame) {
                                                      ((int64_t)left % 
                                                       (int64_t)right)));
 }
+
+
 void  _Double_and(pVMObject object, pVMFrame frame) {
     PREPARE_OPERANDS;
     SEND(frame, push, (pVMObject)Universe_new_double((double)
@@ -106,6 +108,13 @@ void  _Double_and(pVMObject object, pVMFrame frame) {
 }
 
 
+void  _Double_bitXor_(pVMObject object, pVMFrame frame) {
+    PREPARE_OPERANDS;
+    SEND(frame, push, (pVMObject)Universe_new_double((double)
+                                                     ((int64_t)left ^
+                                                      (int64_t)right)));
+}
+
 
 /*
  * This function implements strict (bit-wise) equality and is therefore

src/primitives/Double.c

@@ -35,6 +35,7 @@ void  _Double_star(pVMObject object, pVMFrame frame);
 void  _Double_slashslash(pVMObject object, pVMFrame frame);
 void  _Double_percent(pVMObject object, pVMFrame frame);
 void  _Double_and(pVMObject object, pVMFrame frame);
+void  _Double_bitXor_(pVMObject object, pVMFrame frame);
 void  _Double_equal(pVMObject object, pVMFrame frame);
 void  _Double_lessthan(pVMObject object, pVMFrame frame);
 void  _Double_asString(pVMObject object, pVMFrame frame);