X-Git-Url: https://svn.cri.mines-paristech.fr/git/Faustine.git/blobdiff_plain/9fdfd04e29fcefdb9120a4d9467827ceaf8dfaa0..63cf293f572ae7d5c1c83b9dffb31e7d774f8854:/interpretor/value.ml?ds=sidebyside

diff --git a/interpretor/value.ml b/interpretor/value.ml
index e9b2746..48fc31c 100644
--- a/interpretor/value.ml
+++ b/interpretor/value.ml
@@ -74,6 +74,8 @@ class value : basic -> value_type =
       method atan2 = self#prim2 basic_atan2
       method max = self#prim2 basic_max
       method min = self#prim2 basic_min
+      method shl = self#prim2 basic_shl
+      method shr = self#prim2 basic_shr
 
     end;;