diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-04-18 16:26:54 +0000 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-04-18 16:26:54 +0000 |
commit | ed86e5adfa3ec692d11954a627b5ea351fe006dd (patch) | |
tree | fd96f8580234112a721ca5fb31d095ba4799de7d /asmcomp/proc_sparc.ml | |
parent | ee1266885025393876a3c42857881cd75b50f562 (diff) | |
download | ocaml-ed86e5adfa3ec692d11954a627b5ea351fe006dd.tar.gz |
*_sparc: Ajout de NetBSD pour Sparc.
Autres: ajout d'un flag -linkall dans les bibliotheques.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@743 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmcomp/proc_sparc.ml')
-rw-r--r-- | asmcomp/proc_sparc.ml | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/asmcomp/proc_sparc.ml b/asmcomp/proc_sparc.ml index 0672735dd7..13c70a7863 100644 --- a/asmcomp/proc_sparc.ml +++ b/asmcomp/proc_sparc.ml @@ -282,13 +282,8 @@ let assemble_file infile outfile = let create_archive archive file_list = Misc.remove_file archive; - match Config.system with - "sunos" -> - Sys.command ("ar rc " ^ archive ^ " " ^ String.concat " " file_list ^ - " && ranlib " ^ archive) - | "solaris" -> - Sys.command ("ar rc " ^ archive ^ " " ^ String.concat " " file_list) - | _ -> - fatal_error "Proc_sparc.create_archive" - - + if Config.system = "solaris" then + Sys.command ("ar rc " ^ archive ^ " " ^ String.concat " " file_list) + else + Sys.command ("ar rc " ^ archive ^ " " ^ String.concat " " file_list ^ + " && ranlib " ^ archive) |