Permalink
Browse files

fix macppc build (patch by Anil Madhavapeddy)

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13827 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
1 parent f4d6eaf commit c1da5f35cda0ee85e576197b88f503333ed9e9a1 @gasche gasche committed Jun 21, 2013
Showing with 1 addition and 8 deletions.
  1. +0 −1 asmcomp/power/arch.ml
  2. +1 −2 asmcomp/power/emit.mlp
  3. +0 −3 asmcomp/power/proc.ml
  4. +0 −2 asmcomp/power/selection.ml
View
@@ -12,7 +12,6 @@
(* Specific operations for the PowerPC processor *)
-open Misc
open Format
(* Machine-specific command-line options *)
View
@@ -15,7 +15,6 @@
module StringSet =
Set.Make(struct type t = string let compare (x:t) y = compare x y end)
-open Location
open Misc
open Cmm
open Arch
@@ -820,7 +819,7 @@ let rec emit_all i =
match i with
{desc = Lend} -> ()
| {next = {desc = (Lcondbranch(_, _) | Lcondbranch3(_, _, _))}}
- when is_simple_instr i & no_interference i.res i.next.arg ->
+ when is_simple_instr i && no_interference i.res i.next.arg ->
emit_instr i.next (Some i);
emit_all i.next.next
| _ ->
View
@@ -235,7 +235,4 @@ let assemble_file infile outfile =
Ccomp.command (Config.asm ^ " -o " ^
Filename.quote outfile ^ " " ^ Filename.quote infile)
-open Clflags;;
-open Config;;
-
let init () = ()
@@ -12,9 +12,7 @@
(* Instruction selection for the Power PC processor *)
-open Misc
open Cmm
-open Reg
open Arch
open Mach

0 comments on commit c1da5f3

Please sign in to comment.