diff options
| author | filliatr | 1999-12-03 17:32:44 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-03 17:32:44 +0000 |
| commit | f1d434e2044840f1e3ee7dc7d359a1f25846881e (patch) | |
| tree | 96edaa9c81fe15d2dc8eafcf7c4a3a3dd317b44f /toplevel | |
| parent | 4a2b9073e61de1ab000b26652d94e63b382ce7d2 (diff) | |
compilation native
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@201 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/mltop.ml4 (renamed from toplevel/mltop.ml) | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/toplevel/mltop.ml b/toplevel/mltop.ml4 index b38fa5756c..5329becaea 100644 --- a/toplevel/mltop.ml +++ b/toplevel/mltop.ml4 @@ -84,7 +84,8 @@ let dir_ml_load s = errorlabstrm "Mltop.load_object" [< 'sTR"File not found on loadpath : "; 'sTR s >] | WithoutTop -> - if is_in_path !coq_mlpath_copy s then + ifdef Byte then + (if is_in_path !coq_mlpath_copy s then let gname = where_in_path !coq_mlpath_copy s in try Dynlink.loadfile gname; @@ -97,7 +98,9 @@ let dir_ml_load s = errorlabstrm "Mltop.load_object" [< 'sTR (Dynlink.error_message a) >] else errorlabstrm "Mltop.load_object" - [< 'sTR"File not found on loadpath : "; 'sTR s >] + [< 'sTR"File not found on loadpath : "; 'sTR s >]) + else + () | Native -> errorlabstrm "Mltop.no_load_object" [< 'sTR"Loading of ML object file forbidden in a native Coq" >] |