X-Git-Url: https://scm.cri.minesparis.psl.eu/git/Faustine.git/blobdiff_plain/9fdfd04e29fcefdb9120a4d9467827ceaf8dfaa0..8abe2ee3f9b99450a1097204076770fc1c29b75a:/interpretor/process.ml

diff --git a/interpretor/process.ml b/interpretor/process.ml
index 1d79f6f..ba13961 100644
--- 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))
+	  | 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