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-compiler-and-rts
compiler
Commits
bd4e1d11
Commit
bd4e1d11
authored
Nov 25, 2005
by
John van Groningen
Browse files
remove some unnecessary copying while creating lists of function indices
parent
61d0095b
Changes
1
Hide whitespace changes
Inline
Side-by-side
backend/backendinterface.icl
View file @
bd4e1d11
...
...
@@ -49,8 +49,7 @@ backEndInterface outputFileName commandLineArgs listTypes typesPath predef_symbo
#
varHeap
=
backEndPreprocess
predefined_idents
.[
PD_DummyForStrictAliasFun
]
functionIndices
fe_icl
var_heap
with
functionIndices
=
flatten
[[
member
\\
member
<-
group
.
group_members
]
\\
group
<-:
fe_components
]
functionIndices
=
flatten
[
group
.
group_members
\\
group
<-:
fe_components
]
#
backEndFiles
=
0
#
(
backEnd
,
backEndFiles
)
...
...
@@ -103,10 +102,10 @@ optionallyPrintFunctionTypes {lto_listTypesKind, lto_showAttributes} typesPath i
printFunctionTypes
::
Bool
Bool
DictionaryToClassInfo
{!
Group
}
{#
FunDef
}
*
AttrVarHeap
*
File
*
BackEnd
->
(*
AttrVarHeap
,
*
File
,
*
BackEnd
)
printFunctionTypes
all
attr
info
components
functions
attrHeap
file
backEnd
=
foldSt
(
printFunctionType
all
attr
info
)
[(
index
,
functions
.[
index
])
\\
(_,
index
)
<-
functionIndices
]
(
attrHeap
,
file
,
backEnd
)
=
foldSt
(
printFunctionType
all
attr
info
)
functionIndicesAndFunctions
(
attrHeap
,
file
,
backEnd
)
where
functionIndices
=
flatten
[[(
componentIndex
,
member
)
\\
member
<-
group
.
group_
member
s
]
\\
group
<-:
components
&
componentIndex
<-
[
1
..]
]
functionIndices
AndFunctions
=
[(
member
,
functions
.[
member
]
)
\\
group
<-:
components
,
member
<-
group
.
group_members
]
printFunctionType
::
Bool
Bool
DictionaryToClassInfo
(
Int
,
FunDef
)
(*
AttrVarHeap
,
*
File
,
*
BackEnd
)
->
(*
AttrVarHeap
,
*
File
,
*
BackEnd
)
printFunctionType
all
attr
info
(
functionIndex
,
{
fun_ident
,
fun_type
=
Yes
type
})
(
attrHeap
,
file
,
backEnd
)
...
...
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