Commit 390e24d4 authored by John van Groningen's avatar John van Groningen

use compiler slot number to generate stdout/stderr file name

in StartCodeGenerator
parent 981f599c
......@@ -473,16 +473,14 @@ StartCodeGenerator cgen` wf genAsmOrCode path slot timeprofile cgo tp ao startup
# (cgen,code_generator_full_path,signature) = mangleGenerator cgen` startupdir
# objpath = MakeObjSystemPathname tp path
path_without_suffix = RemoveSuffix path
out_file_name
= out_file_path startupdir 0
errors_file_name
= errors_file_path startupdir 0
command = cgen
+++" -id "+++toString slot
+++ MakeCodeGenOptionsString genAsmOrCode /*False*/timeprofile cgo
+++ " " +++ (quoted_string path_without_suffix)
+++ " > " +++ quoted_string out_file_name
+++ " \xb3 " +++ quoted_string errors_file_name
out_file_name = out_file_path startupdir slot
errors_file_name = errors_file_path startupdir slot
command = cgen
+++" -id "+++toString slot
+++ MakeCodeGenOptionsString genAsmOrCode /*False*/timeprofile cgo
+++ " " +++ (quoted_string path_without_suffix)
+++ " > " +++ quoted_string out_file_name
+++ " \xb3 " +++ quoted_string errors_file_name
# (error_code,error_n,compiler_psns,ps) = send_command_to_clean_compiler_without_waiting_for_reply_using_psn code_generator_full_path command slot compiler_psns ps
| error_code<>0
# ps = wf ["Error: Unable to run code generator: "+++toString error_code] ps
......@@ -573,9 +571,7 @@ Link linker` winfun path
*/
+++ "'" +++ to_unix_path linker_out_o_path +++ "'"
+++ " -framework Carbon"
+++ " -o '"
+++ to_unix_path path
+++ "'"
+++ " -o '"+++ to_unix_path path +++ "'"
// +++ " -g" // for debugging syms
+++ "-Xlinker -stack_addr -Xlinker 0xc0000000 -Xlinker -stack_size -Xlinker 0x"+++stack_size_aligned_4k_hex_string
// +++ if (ss > standard_mosx_stack) (" -stack-size " +++ stack_size_aligned_4k_hex_string) ""
......@@ -702,16 +698,6 @@ to_unix_path p
| res <> 0
# posix = toString (takeWhile ((<>) '\0') [c \\ c <-: buffer])
= trace_n ("Path",posix) posix
/*
to_unix_path p = "/Volumes/"+++ to_unix_path 0 p;
where
to_unix_path i p
| i==size p
= p
| p.[i]==':'
= to_unix_path (inc i) (p % (0,i-1)+++"/"+++p % (i+1,size p-1));
= to_unix_path (inc i) p;
*/
fork_execv_waitpid :: !String !String -> (!Int,!Int);
fork_execv_waitpid s stdout_file_name
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment