Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
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...
commit c1da5f35cda0ee85e576197b88f503333ed9e9a1 1 parent f4d6eaf
Gabriel Scherer authored
1  asmcomp/power/arch.ml
View
@@ -12,7 +12,6 @@
(* Specific operations for the PowerPC processor *)
-open Misc
open Format
(* Machine-specific command-line options *)
3  asmcomp/power/emit.mlp
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
| _ ->
3  asmcomp/power/proc.ml
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 () = ()
2  asmcomp/power/selection.ml
View
@@ -12,9 +12,7 @@
(* Instruction selection for the Power PC processor *)
-open Misc
open Cmm
-open Reg
open Arch
open Mach
Please sign in to comment.
Something went wrong with that request. Please try again.