Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clean-ide
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
6
Issues
6
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
clean-ide
Commits
0d2858d4
Commit
0d2858d4
authored
Jan 10, 2019
by
Mart Lubbers
1
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
fix indentation Unix/PmCleanSystem.icl
parent
6cb64fed
Pipeline
#17652
passed with stage
in 55 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
111 additions
and
111 deletions
+111
-111
Unix/PmCleanSystem.icl
Unix/PmCleanSystem.icl
+111
-111
No files found.
Unix/PmCleanSystem.icl
View file @
0d2858d4
...
@@ -397,117 +397,117 @@ Link linker winfun path
...
@@ -397,117 +397,117 @@ Link linker winfun path
|
len
>=
12
&&
linker
%
(
len
-
12
,
len
)
==
"/usr/bin/gcc"
|
len
>=
12
&&
linker
%
(
len
-
12
,
len
)
==
"/usr/bin/gcc"
=
linkGCC
object_paths
options2
ps
=
linkGCC
object_paths
options2
ps
=
linkOther
linker
object_paths
ps
=
linkOther
linker
object_paths
ps
where
where
//First call the optimizing linker to generate an intermediate optimized object file which is then passed to gcc
//First call the optimizing linker to generate an intermediate optimized object file which is then passed to gcc
linkOptimizingGCC
linker
object_paths
options1
options2
ps
linkOptimizingGCC
linker
object_paths
options1
options2
ps
#
temp_file_name
=
"/tmp/linkerXXXXXX"
+++
"
\0
"
// +++ because modified by mkstemp
#
temp_file_name
=
"/tmp/linkerXXXXXX"
+++
"
\0
"
// +++ because modified by mkstemp
#
fd
=
mkstemp
temp_file_name
#
fd
=
mkstemp
temp_file_name
|
fd
==
-1
|
fd
==
-1
=
abort
"mkstemp failed
\n
"
=
abort
"mkstemp failed
\n
"
#
r
=
close
fd
#
r
=
close
fd
|
r
==
-1
|
r
==
-1
=
abort
"close failed
\n
"
=
abort
"close failed
\n
"
//Call optimized linker
//Call optimized linker
#
linker_args
=
add_options_string_to_args
0
options1
[
temp_file_name
:
object_paths
]
#
linker_args
=
add_options_string_to_args
0
options1
[
temp_file_name
:
object_paths
]
#
(
argv
,
args_memory
)
=
make_argv
[
linker
:
linker_args
]
#
(
argv
,
args_memory
)
=
make_argv
[
linker
:
linker_args
]
#
linker_pid
=
fork
#
linker_pid
=
fork
|
linker_pid
<
0
|
linker_pid
<
0
=
abort
"fork failed
\n
"
=
abort
"fork failed
\n
"
|
linker_pid
==
0
|
linker_pid
==
0
|
execv
(
linker
+++
"
\0
"
)
argv
<
0
|
execv
(
linker
+++
"
\0
"
)
argv
<
0
=
abort
"execv failed
\n
"
=
abort
"execv failed
\n
"
=
abort
"execution continued after execv
\n
"
=
abort
"execution continued after execv
\n
"
#
(
w_pid
,
status
)
=
wait_pid
linker_pid
0
#
(
w_pid
,
status
)
=
wait_pid
linker_pid
0
|
w_pid
<>
-1
&&
w_pid
<>
linker_pid
|
w_pid
<>
-1
&&
w_pid
<>
linker_pid
=
abort
"waitpid failed
\n
"
=
abort
"waitpid failed
\n
"
#
exit_code
=
(
status
>>
8
)
bitand
0xff
#
exit_code
=
(
status
>>
8
)
bitand
0xff
#
wtermsig
=
status
bitand
0x7f
#
wtermsig
=
status
bitand
0x7f
|
wtermsig
<>
0
|
wtermsig
<>
0
=
abort
"linker exited abnormally
\n
"
=
abort
"linker exited abnormally
\n
"
|
free
args_memory
<
0
|
free
args_memory
<
0
=
abort
"free failed
\n
"
=
abort
"free failed
\n
"
#
link_ok
=
exit_code
==
0
#
link_ok
=
exit_code
==
0
|
not
link_ok
|
not
link_ok
|
unlink
(
temp_file_name
+++
"
\0
"
)<>
0
|
unlink
(
temp_file_name
+++
"
\0
"
)<>
0
=
(
ps
,
link_ok
)
=
(
ps
,
link_ok
)
=
(
ps
,
link_ok
)
=
(
ps
,
link_ok
)
//Call gcc
//Call gcc
=
linkGCC
[
temp_file_name
]
options2
ps
=
linkGCC
[
temp_file_name
]
options2
ps
//Just link with gcc
//Just link with gcc
linkGCC
object_paths
gccOptions
ps
linkGCC
object_paths
gccOptions
ps
#
gcc_options
=
add_options_string_to_args
0
gccOptions
(
StrictListToList
(
Append
library_file_names
"-lm"
))
#
gcc_options
=
add_options_string_to_args
0
gccOptions
(
StrictListToList
(
Append
library_file_names
"-lm"
))
#
ld_args
=
[
"-o"
,
path
:
object_paths
]
++
gcc_options
#
ld_args
=
[
"-o"
,
path
:
object_paths
]
++
gcc_options
ld_args
=
IF_MACOSX
ld_args
(
IF_INT_64_OR_32
[
"-no-pie"
:
ld_args
]
ld_args
)
ld_args
=
IF_MACOSX
ld_args
(
IF_INT_64_OR_32
[
"-no-pie"
:
ld_args
]
ld_args
)
ld_args
=
if
gen_symbol_table
ld_args
[
"-s"
:
ld_args
]
ld_args
=
if
gen_symbol_table
ld_args
[
"-s"
:
ld_args
]
#
ld
=
"/usr/bin/gcc"
#
ld
=
"/usr/bin/gcc"
#
(
argv
,
args_memory
)
=
make_argv
[
ld
:
ld_args
]
#
(
argv
,
args_memory
)
=
make_argv
[
ld
:
ld_args
]
#
ld_pid
=
fork
#
ld_pid
=
fork
|
ld_pid
<
0
|
ld_pid
<
0
=
abort
"fork failed
\n
"
=
abort
"fork failed
\n
"
|
ld_pid
==
0
|
ld_pid
==
0
|
execv
(
ld
+++
"
\0
"
)
argv
<
0
|
execv
(
ld
+++
"
\0
"
)
argv
<
0
=
abort
"execv failed
\n
"
=
abort
"execv failed
\n
"
=
abort
"execution continued after execv
\n
"
=
abort
"execution continued after execv
\n
"
|
free
args_memory
<
0
|
free
args_memory
<
0
=
abort
"free failed
\n
"
=
abort
"free failed
\n
"
#
(
w_pid
,
status
)
=
wait_pid
ld_pid
0
#
(
w_pid
,
status
)
=
wait_pid
ld_pid
0
|
w_pid
<>
-1
&&
w_pid
<>
ld_pid
|
w_pid
<>
-1
&&
w_pid
<>
ld_pid
=
abort
"waitpid failed
\n
"
=
abort
"waitpid failed
\n
"
#
wtermsig
=
status
bitand
0x7f
#
wtermsig
=
status
bitand
0x7f
#
exit_code
=
(
status
>>
8
)
bitand
0xff
;
#
exit_code
=
(
status
>>
8
)
bitand
0xff
;
|
wtermsig
<>
0
|
wtermsig
<>
0
=
abort
"ld exited abnormally
\n
"
=
abort
"ld exited abnormally
\n
"
#
link_ok
=
exit_code
==
0
#
link_ok
=
exit_code
==
0
=
(
ps
,
link_ok
)
=
(
ps
,
link_ok
)
//Call other/additional linker
//Call other/additional linker
linkOther
linker
object_paths
ps
linkOther
linker
object_paths
ps
#
linkopts
=
#
linkopts
=
{
exe_path
=
path
{
exe_path
=
path
,
res_path
=
resource_path
,
res_path
=
resource_path
,
open_console
=
o
<>
NoConsole
,
open_console
=
o
<>
NoConsole
,
static_link
=
static
,
static_link
=
static
,
gen_relocs
=
gen_relocs
,
gen_relocs
=
gen_relocs
,
gen_symbol_table
=
gen_symbol_table
,
gen_symbol_table
=
gen_symbol_table
,
gen_linkmap
=
gen_linkmap
,
gen_linkmap
=
gen_linkmap
,
link_resources
=
link_resources
,
link_resources
=
link_resources
,
object_paths
=
ListToStrictList
object_paths
,
object_paths
=
ListToStrictList
object_paths
,
dynamic_libs
=
RemoveDup
library_file_names
,
dynamic_libs
=
RemoveDup
library_file_names
,
static_libs
=
RemoveDup
static_libraries
,
static_libs
=
RemoveDup
static_libraries
,
stack_size
=
ss
,
stack_size
=
ss
,
gen_dll
=
gen_dll
,
gen_dll
=
gen_dll
,
dll_names
=
dll_syms
,
dll_names
=
dll_syms
,
dynamics_path
=
startupdir
+++.
DirSeparatorString
+++.
dynlstr
,
dynamics_path
=
startupdir
+++.
DirSeparatorString
+++.
dynlstr
,
lib_name_obj_path
=
MakeFullPathname
tooltempdir
"lib_name.o"
,
lib_name_obj_path
=
MakeFullPathname
tooltempdir
"lib_name.o"
}
}
#
linkoptspath
=
MakeFullPathname
tooltempdir
"linkopts"
#
linkoptspath
=
MakeFullPathname
tooltempdir
"linkopts"
#
linkerrspath
=
MakeFullPathname
tooltempdir
"linkerrs"
#
linkerrspath
=
MakeFullPathname
tooltempdir
"linkerrs"
#
(
err
,
ps
)
=
accFiles
(
WriteLinkOpts
linkoptspath
linkopts
)
ps
#
(
err
,
ps
)
=
accFiles
(
WriteLinkOpts
linkoptspath
linkopts
)
ps
|
isJust
err
|
isJust
err
=
(
winfun
(
fromJust
err
)
ps
,
False
)
=
(
winfun
(
fromJust
err
)
ps
,
False
)
#
linker_args
=
[
"-I"
,
linkoptspath
,
"-O"
,
linkerrspath
]
#
linker_args
=
[
"-I"
,
linkoptspath
,
"-O"
,
linkerrspath
]
#
(
argv
,
args_memory
)
=
make_argv
[
linker
:
linker_args
]
#
(
argv
,
args_memory
)
=
make_argv
[
linker
:
linker_args
]
#
linker_pid
=
fork
#
linker_pid
=
fork
|
linker_pid
<
0
|
linker_pid
<
0
=
abort
"fork failed
\n
"
=
abort
"fork failed
\n
"
|
linker_pid
==
0
|
linker_pid
==
0
|
execv
(
linker
+++
"
\0
"
)
argv
<
0
|
execv
(
linker
+++
"
\0
"
)
argv
<
0
=
abort
"execv failed
\n
"
=
abort
"execv failed
\n
"
=
abort
"execution continued after execv
\n
"
=
abort
"execution continued after execv
\n
"
#
(
w_pid
,
status
)
=
wait_pid
linker_pid
0
#
(
w_pid
,
status
)
=
wait_pid
linker_pid
0
|
w_pid
<>
-1
&&
w_pid
<>
linker_pid
|
w_pid
<>
-1
&&
w_pid
<>
linker_pid
=
abort
"waitpid failed
\n
"
=
abort
"waitpid failed
\n
"
#
exit_code
=
(
status
>>
8
)
bitand
0xff
#
exit_code
=
(
status
>>
8
)
bitand
0xff
#
wtermsig
=
status
bitand
0x7f
#
wtermsig
=
status
bitand
0x7f
|
wtermsig
<>
0
|
wtermsig
<>
0
=
abort
"linker exited abnormally
\n
"
=
abort
"linker exited abnormally
\n
"
|
free
args_memory
<
0
|
free
args_memory
<
0
=
abort
"free failed
\n
"
=
abort
"free failed
\n
"
#
link_ok
=
exit_code
==
0
#
link_ok
=
exit_code
==
0
=
(
ps
,
link_ok
)
=
(
ps
,
link_ok
)
DelayEventLoop
::
!.
ps
->
.
ps
DelayEventLoop
::
!.
ps
->
.
ps
DelayEventLoop
ps
DelayEventLoop
ps
...
...
Mart Lubbers
@_mlubbers
mentioned in commit
abf0de80
·
Jan 10, 2019
mentioned in commit
abf0de80
mentioned in commit abf0de80b75339a20110ff3fcc7b70f38f44e78d
Toggle commit list
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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