Add logical shift left (<<) and logical shift right (>>) to faustine.

[Faustine.git] / interpretor / process.ml

diff --git a/interpretor/process.ml b/interpretor/process.ml
index 1d79f6f..ba13961 100644 (file)
--- a/interpretor/process.ml
+++ b/interpretor/process.ml
@@ -207,6 +207,10 @@ class proc_ident : faust_exp -> process_type =
                ((input#get.(0))#max input#get.(1))
          | Min -> self#beam_of_ident n 
                ((input#get.(0))#min input#get.(1))
                ((input#get.(0))#max input#get.(1))
          | Min -> self#beam_of_ident n 
                ((input#get.(0))#min input#get.(1))

+         | Shl -> self#beam_of_ident n 
+               ((input#get.(0))#shl input#get.(1))
+         | Shr -> self#beam_of_ident n 
+               ((input#get.(0))#shr input#get.(1))

          | Prefix -> self#beam_of_ident n 
                ((input#get.(1))#prefix input#get.(0))
          | Select2 -> self#beam_of_ident n 
          | Prefix -> self#beam_of_ident n 
                ((input#get.(1))#prefix input#get.(0))
          | Select2 -> self#beam_of_ident n