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

Utilisation de Filename.temp_file au lieu de Misc.temp_file. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@583 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1996-01-04 12:49:06 +00:00
parent ce326fe6e4
commit b62b7f4933
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
asmcomp/asmgen.ml
View File

@ -79,7 +79,9 @@ let compile_phrase p =
let compile_implementation prefixname lam =
let asmfile =
if !keep_asm_file then prefixname ^ ".s" else temp_file "camlasm" ".s" in
if !keep_asm_file
then prefixname ^ ".s"
else Filename.temp_file "camlasm" ".s" in
let oc = open_out asmfile in
begin try
Emitaux.output_channel := oc;

4
asmcomp/asmlink.ml
View File

@ -205,9 +205,9 @@ let link objfiles =
Array.iter remove_required Runtimedef.builtin_exceptions;
if not (StringSet.is_empty !missing_globals) then
raise(Error(Missing_implementations(StringSet.elements !missing_globals)));
let startup = temp_file "camlstartup" ".s" in
let startup = Filename.temp_file "camlstartup" ".s" in
make_startup_file startup units_tolink;
let startup_obj = temp_file "camlstartup" ".o" in
let startup_obj = Filename.temp_file "camlstartup" ".o" in
if Proc.assemble_file startup startup_obj <> 0 then
raise(Error(Assembler_error startup));
try