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
e105f6e8
Commit
e105f6e8
authored
Dec 13, 2017
by
John van Groningen
Browse files
pass record ProjectCompilerOptions to functions makeCompilerOptionsArguments and compiler_arguments
parent
c8f5b526
Changes
1
Hide whitespace changes
Inline
Side-by-side
Unix/PmCleanSystem.icl
View file @
e105f6e8
...
...
@@ -84,7 +84,7 @@ Compile
out_file_name
=
out_file_path
temp_dir
0
errors_file_name
=
errors_file_path
temp_dir
0
#
cocl_arguments
=
compiler_arguments
out_file_name
errors_file_name
compileOrCheckSyntax
path
paths
write_module_times
project_compiler_options
.
pco_memory_profiling
project_compiler_options
.
pco_time_profiling
project_compiler_options
.
pco_link_dynamic
co
#
cocl_arguments
=
compiler_arguments
out_file_name
errors_file_name
compileOrCheckSyntax
path
paths
write_module_times
project_compiler_options
co
cocl_arguments
=
add_options_string_to_args
0
options2
cocl_arguments
cocl_arguments
=
add_options_string_to_args
0
options1
cocl_arguments
...
...
@@ -130,7 +130,7 @@ CompilePersistent cocl write_module_times errwin typewin compileOrCheckSyntax md
out_file_name
=
out_file_path
temp_dir
0
errors_file_name
=
errors_file_path
temp_dir
0
#
args
=
makeCompilerOptionsArguments
compileOrCheckSyntax
write_module_times
project_compiler_options
.
pco_memory_profiling
project_compiler_options
.
pco_time_profiling
project_compiler_options
.
pco_link_dynamic
co
#
args
=
makeCompilerOptionsArguments
compileOrCheckSyntax
write_module_times
project_compiler_options
co
#
args_string
=
concat_args
args
+++
" "
+++
mdn
.
mdn_name
+++
" -P "
+++
"
\"
"
+++
concatenate_paths
paths
+++
"
\"
"
+++
...
...
@@ -189,7 +189,7 @@ CompileStartCommand cocl write_module_times errwin compileOrCheckSyntax path
out_file_name
=
out_file_path
temp_dir
slot
errors_file_name
=
errors_file_path
temp_dir
slot
#
args
=
makeCompilerOptionsArguments
compileOrCheckSyntax
write_module_times
project_compiler_options
.
pco_memory_profiling
project_compiler_options
.
pco_time_profiling
project_compiler_options
.
pco_link_dynamic
co
#
args
=
makeCompilerOptionsArguments
compileOrCheckSyntax
write_module_times
project_compiler_options
co
#
args_string
=
concat_args
args
+++
" "
+++
path
+++
" -P "
+++
concatenate_paths
paths
+++
...
...
@@ -770,18 +770,18 @@ add_options_string_to_args i s args
=
skip_to_space_or_tab
(
i
+1
)
s
=
i
compiler_arguments
::
!
String
!
String
!
CompileOrCheckSyntax
!
Pathname
!(
List
Pathname
)
!
Bool
!
Bool
!
Bool
!
Bool
!
CompilerOptions
->
[
String
]
compiler_arguments
::
!
String
!
String
!
CompileOrCheckSyntax
!
Pathname
!(
List
Pathname
)
!
Bool
!
ProjectCompilerOptions
!
CompilerOptions
->
[
String
]
compiler_arguments
out_file_name
errors_file_name
compileOrCheckSyntax
path
paths
write_module_times
project
HeapProfiling
projectTimeProfiling
projectEagerOrDynamic
co
#
args
=
makeCompilerOptionsArguments
compileOrCheckSyntax
write_module_times
project
HeapProfiling
projectTimeProfiling
projectEagerOrDynamic
co
write_module_times
project
_compiler_options
co
#
args
=
makeCompilerOptionsArguments
compileOrCheckSyntax
write_module_times
project
_compiler_options
co
=
args
++
[
path
,
"-P"
,
concatenate_paths
paths
,
"-RE"
,
errors_file_name
,
"-RO"
,
out_file_name
];
concat_args
[]
=
""
concat_args
[
arg
]
=
arg
concat_args
[
arg
:
args
]
=
arg
+++
" "
+++
concat_args
args
makeCompilerOptionsArguments
::
!
CompileOrCheckSyntax
!
Bool
!
Bool
!
Bool
!
Bool
!
CompilerOptions
->
[
String
]
makeCompilerOptionsArguments
compileOrCheckSyntax
write_module_times
projectM
emory
P
rofiling
projectT
ime
P
rofiling
projectEagerOrD
ynamic
makeCompilerOptionsArguments
::
!
CompileOrCheckSyntax
!
Bool
!
ProjectCompilerOptions
!
CompilerOptions
->
[
String
]
makeCompilerOptionsArguments
compileOrCheckSyntax
write_module_times
{
pco_m
emory
_p
rofiling
,
pco_t
ime
_p
rofiling
,
pco_link_d
ynamic
}
{
neverMemoryProfile
,
neverTimeProfile
,
sa
,
gw
,
gc
,
listTypes
,
attr
,
reuseUniqueNodes
,
fusion
}
=
write_module_times_arg
++
checksyntax
++
timeProfileSwitch
++
memoryProfileSwitch
++
dynamicLinkSwitch
++
strictness
++
warnings
++
comments
++
listtypes
++
show_attr
++
reuse
++
fusion_arg
...
...
@@ -791,16 +791,16 @@ where
=
[
"-wmt"
]
=
[]
memoryProfileSwitch
|
(
not
neverMemoryProfile
&&
p
rojectM
emory
P
rofiling
)
||
p
rojectEagerOrD
ynamic
|
(
not
neverMemoryProfile
&&
p
co_m
emory
_p
rofiling
)
||
p
co_link_d
ynamic
=
[
"-desc"
]
=
[]
timeProfileSwitch
|
not
neverTimeProfile
&&
p
rojectT
ime
P
rofiling
|
not
neverTimeProfile
&&
p
co_t
ime
_p
rofiling
=
[
"-pt"
]
=
[]
dynamicLinkSwitch
|
p
rojectEagerOrD
ynamic
|
p
co_link_d
ynamic
=
[
"-exl"
,
"-dynamics"
]
=
[]
strictness
...
...
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