Anonymous avatar Anonymous committed 9470de5

Nouvelle rectif de array_kind pour faire face aux abreviations non expansables.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@169 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

Comments (0)

Files changed (1)

bytecomp/translcore.ml

 
 let array_kind arg =
   match Ctype.repr arg.exp_type with
-    Tconstr(p, [ty]) ->
+    Tconstr(p, [ty]) when Path.same p Predef.path_array ->
       begin match Ctype.repr ty with
         Tvar v -> Pgenarray
       | Tconstr(p, _) ->
             Paddrarray
       | _ -> Paddrarray
       end
-  | _ -> Pgenarray (* This can happen with abbreviations taht we can't expand
+  | _ -> Pgenarray (* This can happen with abbreviations that we can't expand
                       here because the typing environment is lost *)
 
 let transl_prim prim args =
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.