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
9f6c4eec
Commit
9f6c4eec
authored
Feb 23, 2011
by
John van Groningen
Browse files
fix type in name of function collectCommonDefinitions
parent
922511fe
Changes
1
Hide whitespace changes
Inline
Side-by-side
frontend/check.icl
View file @
9f6c4eec
...
...
@@ -888,8 +888,8 @@ instance < FunDef
where
(<)
fd1
fd2
=
fd1
.
fun_ident
.
id_name
<
fd2
.
fun_ident
.
id_name
collectCommonfinitions
::
!(
CollectedDefinitions
ClassInstance
)
->
(!*{#
Int
},
![
Declaration
])
collectCommonfinitions
{
def_types
,
def_constructors
,
def_selectors
,
def_classes
,
def_members
,
def_instances
,
def_generic_cases
,
def_generics
}
collectCommon
De
finitions
::
!(
CollectedDefinitions
ClassInstance
)
->
(!*{#
Int
},
![
Declaration
])
collectCommon
De
finitions
{
def_types
,
def_constructors
,
def_selectors
,
def_classes
,
def_members
,
def_instances
,
def_generic_cases
,
def_generics
}
// MW: the order in which the declarations appear in the returned list is essential (explicit imports)
#
sizes
=
createArray
cConversionTableSize
0
(
size
,
defs
)
=
foldSt
cons_def_to_dcl
def_constructors
(
0
,
[])
...
...
@@ -2027,7 +2027,7 @@ check_module1 cdefs icl_global_function_range fun_defs optional_dcl_mod optional
cdefs
=
{
cdefs
&
def_instances
=
def_instances
,
def_generic_cases
=
def_generic_cases
}
#!
nr_of_functions
=
size
icl_functions
#
sizes_and_local_defs
=
collectCommonfinitions
cdefs
#
sizes_and_local_defs
=
collectCommon
De
finitions
cdefs
(
icl_functions
,
sizes_and_local_defs
)
=
collectGlobalFunctions
cFunctionDefs
icl_global_function_range
.
ir_from
icl_global_function_range
.
ir_to
icl_functions
sizes_and_local_defs
(
icl_functions
,
(
sizes
,
local_defs
))
=
collectMacros
cdefs
.
def_macro_indices
icl_functions
sizes_and_local_defs
...
...
@@ -2097,7 +2097,7 @@ check_module1 cdefs icl_global_function_range fun_defs optional_dcl_mod optional
#
def_instances
=
convert_class_instances
mod_defs
.
def_instances
#
def_generic_cases
=
convert_generic_instances
mod_defs
.
def_generic_cases
mod_defs
=
{
mod_defs
&
def_instances
=
def_instances
,
def_generic_cases
=
def_generic_cases
}
sizes_and_defs
=
collectFunctionTypes
mod_defs
.
def_funtypes
(
collectCommonfinitions
mod_defs
)
sizes_and_defs
=
collectFunctionTypes
mod_defs
.
def_funtypes
(
collectCommon
De
finitions
mod_defs
)
dcl_macro_defs
={
macro_def
\\
macro_def
<-
mod_defs
.
def_macros
}
(
dcl_macro_defs
,
(
sizes
,
defs
))
=
collectDclMacros
mod_defs
.
def_macro_indices
dcl_macro_defs
sizes_and_defs
...
...
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