Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-ide
Commits
390e24d4
Commit
390e24d4
authored
May 07, 2004
by
John van Groningen
Browse files
use compiler slot number to generate stdout/stderr file name
in StartCodeGenerator
parent
981f599c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Mac/PmCleanSystem.icl
View file @
390e24d4
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment