diff options
| author | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1998-06-24 19:22:26 +0000 |
|---|---|---|
| committer | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1998-06-24 19:22:26 +0000 |
| commit | 87b17301f4a408109a0f00f7a297b02c79724bc1 (patch) | |
| tree | 3942d177b1a77e0c260e39507b6dcc7d1da47581 /asmcomp/mips | |
| parent | af85f7c394f650348ee4ca5b34eb8e99619bc11c (diff) | |
| download | ocaml-87b17301f4a408109a0f00f7a297b02c79724bc1.tar.gz | |
Nouvelle syntaxe des classes
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1997 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmcomp/mips')
| -rw-r--r-- | asmcomp/mips/reload.ml | 2 | ||||
| -rw-r--r-- | asmcomp/mips/selection.ml | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/asmcomp/mips/reload.ml b/asmcomp/mips/reload.ml index 634f743a4b..37700cbf2b 100644 --- a/asmcomp/mips/reload.ml +++ b/asmcomp/mips/reload.ml @@ -14,4 +14,4 @@ (* Reloading for the Mips *) let fundecl f = - (new Reloadgen.reload_generic ())#fundecl f + (new Reloadgen.reload_generic)#fundecl f diff --git a/asmcomp/mips/selection.ml b/asmcomp/mips/selection.ml index a28512e26b..9254620fc1 100644 --- a/asmcomp/mips/selection.ml +++ b/asmcomp/mips/selection.ml @@ -19,9 +19,9 @@ open Reg open Arch open Mach -class selector () as self = +class selector = struct -inherit Selectgen.selector_generic() as super +inherit Selectgen.selector_generic method is_immediate (n : int) = true @@ -39,4 +39,4 @@ method select_addressing = function end -let fundecl f = (new selector ())#emit_fundecl f +let fundecl f = (new selector)#emit_fundecl f |