Disable effect checking in rustboot

src/boot/me/effect.ml

@@ -278,9 +278,9 @@ let effect_checking_visitor
 
 
 let process_crate
-    (cx:ctxt)
-    (crate:Ast.crate)
-    : unit =
+    (_cx:ctxt)
+    (_crate:Ast.crate)
+    : unit = (*
   let item_auth = Hashtbl.create 0 in
   let item_effect = Hashtbl.create 0 in
   let passes =
@@ -303,6 +303,8 @@ let process_crate
     Hashtbl.iter auth_effect crate.node.Ast.crate_auth;
     run_passes cx "effect" passes
       cx.ctxt_sess.Session.sess_log_effect log crate
+  *)
+  ()
 ;;
 
 (*

src/test/compile-fail/comm-makes-io.rs

@@ -1,7 +0,0 @@
-// xfail-stage0
-// error-pattern: calculated effect is 'impure'
-
-fn main() {
-  let chan[int] c = chan();
-  c <| 10;
-}

src/test/compile-fail/io-infects-caller.rs

@@ -1,11 +0,0 @@
-// xfail-stage0
-// error-pattern: calculated effect is 'impure'
-
-impure fn foo() {
-  let chan[int] c = chan();
-  c <| 10;
-}
-
-fn main() {
-  foo();
-}

src/test/compile-fail/native-makes-unsafe.rs

@@ -1,10 +0,0 @@
-// xfail-stage0
-// error-pattern: calculated effect is 'unsafe'
-
-native mod foo {
-  fn naughty();
-}
-
-fn main() {
-  foo.naughty();
-}

src/test/compile-fail/unnecessary-io.rs

@@ -1,5 +0,0 @@
-// xfail-stage0
-// error-pattern: calculated effect is ''
-impure fn main() {
-  log "hi";
-}

src/test/compile-fail/unnecessary-unsafe.rs

@@ -1,5 +0,0 @@
-// xfail-stage0
-// error-pattern: calculated effect is ''
-unsafe fn main() {
-  log "hi";
-}

src/test/compile-fail/unsafe-infects-caller.rs

@@ -1,14 +0,0 @@
-// xfail-stage0
-// error-pattern: calculated effect is 'unsafe'
-
-native mod foo {
-  fn naughty();
-}
-
-unsafe fn bar() {
-  foo.naughty();
-}
-
-fn main() {
-  bar();
-}