Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

oublis Cconst_pointer -> Cconst_int 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2952 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Jacques Garrigue 2000-03-13 05:53:17 +00:00
parent 403be2c0fd
commit a98163685e
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
asmcomp/cmmgen.ml
View File

@ -759,7 +759,7 @@ let rec transl = function
bind "switch" (untag_int (transl arg)) (fun idx ->
Cifthenelse(
Cop(Ccmpa Cge,
[idx; Cconst_pointer(Array.length s.us_index_consts)]),
[idx; Cconst_int(Array.length s.us_index_consts)]),
Cexit,
transl_switch idx s.us_index_consts s.us_cases_consts))
else

3
asmcomp/i386/selection.ml
View File

@ -164,8 +164,6 @@ method select_store addr exp =
(Ispecific(Istore_int(Nativeint.of_int n, addr)), Ctuple [])
| Cconst_natint n ->
(Ispecific(Istore_int(n, addr)), Ctuple [])
| Cconst_pointer n ->
(Ispecific(Istore_int(Nativeint.of_int n, addr)), Ctuple [])
| Cconst_symbol s ->
(Ispecific(Istore_symbol(s, addr)), Ctuple [])
| _ ->
@ -258,7 +256,6 @@ method select_push exp =
match exp with
Cconst_int n -> (Ispecific(Ipush_int(Nativeint.of_int n)), Ctuple [])
| Cconst_natint n -> (Ispecific(Ipush_int n), Ctuple [])
| Cconst_pointer n -> (Ispecific(Ipush_int(Nativeint.of_int n)), Ctuple [])
| Cconst_symbol s -> (Ispecific(Ipush_symbol s), Ctuple [])
| Cop(Cload Word, [loc]) ->
let (addr, arg) = self#select_addressing loc in