st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-06 06:48:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added failing if assembly compiler failed

Browse source
This commit is contained in:
Roman Venediktov 2024-12-20 15:58:09 +01:00
parent a4e297648c
commit 4fdbb18843
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/X86_64.ml
View file

@ -1505,11 +1505,17 @@ let build cmd prog =
(Buffer.contents buf) cmd#get_runtime_path (Buffer.contents buf) cmd#get_runtime_path
(match cmd#march with `X86_32 -> "runtime32" | `AMD64 -> "runtime") (match cmd#march with `X86_32 -> "runtime32" | `AMD64 -> "runtime")
in in
Sys.command gcc_cmdline let result = Sys.command gcc_cmdline in
if result <> 0 then
failwith
(Printf.sprintf "Assembly compiler failed with exit code %d" result)
| `Compile -> | `Compile ->
let cmd = let cmd =
Printf.sprintf "%s %s %s -c -g %s.s" compiler compiler_flags debug_flags Printf.sprintf "%s %s %s -c -g %s.s" compiler compiler_flags debug_flags
cmd#basename cmd#basename
in in
Sys.command cmd let result = Sys.command cmd in
if result <> 0 then
failwith
(Printf.sprintf "Assembly compiler failed with exit code %d" result)
| _ -> invalid_arg "must not happen" | _ -> invalid_arg "must not happen"