43 lines
1.4 KiB
OCaml
43 lines
1.4 KiB
OCaml
|
(***********************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* Objective Caml *)
|
||
|
|
(* *)
|
||
|
|
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
||
|
|
(* *)
|
||
|
|
(* Copyright 1997 Institut National de Recherche en Informatique et *)
|
||
|
|
(* Automatique. Distributed only by permission. *)
|
||
|
|
(* *)
|
||
|
|
(***********************************************************************)
|
||
|
|
|
||
|
|
(* $Id$ *)
|
||
|
|
|
||
|
|
(* Instruction selection for the Mips processor *)
|
||
|
|
|
||
|
|
open Misc
|
||
|
|
open Cmm
|
||
|
|
open Reg
|
||
|
|
open Arch
|
||
|
|
open Mach
|
||
|
|
|
||
|
|
class selector () as self =
|
||
|
|
|
||
|
|
inherit Selectgen.selector_generic() as super
|
||
|
|
|
||
|
|
method is_immediate (n : int) = true
|
||
|
|
|
||
|
|
method select_addressing = function
|
||
|
|
Cconst_symbol s ->
|
||
|
|
(Ibased(s, 0), Ctuple [])
|
||
|
|
| Cop(Cadda, [Cconst_symbol s; Cconst_int n]) ->
|
||
|
|
(Ibased(s, n), Ctuple [])
|
||
|
|
| Cop(Cadda, [arg; Cconst_int n]) ->
|
||
|
|
(Iindexed n, arg)
|
||
|
|
| Cop(Cadda, [arg1; Cop(Caddi, [arg2; Cconst_int n])]) ->
|
||
|
|
(Iindexed n, Cop(Cadda, [arg1; arg2]))
|
||
|
|
| arg ->
|
||
|
|
(Iindexed 0, arg)
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
let fundecl f = (new selector ())#emit_fundecl f
|