Skip to content
GitLab
Menu
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
190642f4
Commit
190642f4
authored
Apr 11, 2019
by
Mart Lubbers
Browse files
fix mkHierarchical for module names with length 1
parent
cf856b46
Pipeline
#21022
passed with stage
in 57 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Pm/PmProject.icl
View file @
190642f4
...
...
@@ -747,14 +747,14 @@ SubstitutePath applicationDir projectDir path
PR_GetABCLinkInfo
::
!
Project
->
(!(
List
(
Modulename
,
LinkObjFileName
)),
!(
List
(
Modulename
,
LinkLibraryName
)))
PR_GetABCLinkInfo
project
=:{
inflist
}
#
allLinkInfoRecords
=
map
toRecord
(
StrictListToList
inflist
)
;
#
allLinkInfoRecords
=
[
toRecord
el
\\
el
<|-
inflist
]
;
=
foldl
mergeTwoRecords
emptyRecord
allLinkInfoRecords
;
where
toRecord
{
InfListItem
|
mn
,
info
={
abcLinkInfo
}}
=
(
Map
mkHierarchical
abcLinkInfo
.
linkObjFileNames
,
Map
mkHierarchical
abcLinkInfo
.
linkLibraryNames
)
where
mkHierarchical
file
=
(
removeLastComponent
mn
(
size
mn
-
2
),
file
)
mkHierarchical
linkobj
=
(
removeLastComponent
mn
(
max
0
(
size
mn
-
1
)
),
linkobj
)
removeLastComponent
s
0
=
""
removeLastComponent
s
i
...
...
Write
Preview
Supports
Markdown
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