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
87e5a922
Commit
87e5a922
authored
Jun 26, 2019
by
johnvg@science.ru.nl
Browse files
fix spelling error in error message
parent
fa36d289
Changes
1
Hide whitespace changes
Inline
Side-by-side
frontend/trans.icl
View file @
87e5a922
...
...
@@ -912,7 +912,7 @@ transform_active_non_root_case kees=:{case_info_ptr,case_expr = App {app_symb}}
|
SwitchArityChecks
(
1
+
length
all_args
>
32
)
False
#
ti
=
{
ti
&
ti_cons_args
=
ti_cons_args
,
ti_fun_defs
=
ti_fun_defs
,
ti_fun_heap
=
ti_fun_heap
,
ti_recursion_introduced
=
No
}
|
ro
.
ro_transform_fusion
>=
FullFusion
#
ti
=
{
ti
&
ti_error_file
=
ti
.
ti_error_file
<<<
"Possibly missed fusion opp
u
rtunity: Case Arity > 32 "
<<<
ro
.
ro_tfi
.
tfi_root
.
symb_ident
.
id_name
<<<
"
\n
"
}
#
ti
&
ti_error_file
=
ti
.
ti_error_file
<<<
"Possibly missed fusion opp
o
rtunity: Case Arity > 32 "
<<<
ro
.
ro_tfi
.
tfi_root
.
symb_ident
.
id_name
<<<
"
\n
"
=
skip_over
kees
ro
ti
=
skip_over
kees
ro
ti
#
(
fun_info_ptr
,
ti_fun_heap
)
=
newPtr
FI_Empty
ti_fun_heap
...
...
@@ -950,7 +950,7 @@ transform_active_non_root_case kees=:{case_info_ptr} aci=:{aci_free_vars} ro ti=
|
SwitchArityChecks
(
length
all_args
>
32
)
False
#
ti
=
{
ti
&
ti_cons_args
=
ti_cons_args
,
ti_fun_defs
=
ti_fun_defs
,
ti_fun_heap
=
ti_fun_heap
,
ti_recursion_introduced
=
No
}
|
ro
.
ro_transform_fusion
>=
FullFusion
#
ti
=
{
ti
&
ti_error_file
=
ti
.
ti_error_file
<<<
"Possibly missed fusion opp
u
rtunity: Case Arity > 32 "
<<<
ro
.
ro_tfi
.
tfi_root
.
symb_ident
.
id_name
<<<
"
\n
"
}
#
ti
&
ti_error_file
=
ti
.
ti_error_file
<<<
"Possibly missed fusion opp
o
rtunity: Case Arity > 32 "
<<<
ro
.
ro_tfi
.
tfi_root
.
symb_ident
.
id_name
<<<
"
\n
"
=
skip_over
kees
ro
ti
=
skip_over
kees
ro
ti
#
(
fun_info_ptr
,
ti_fun_heap
)
=
newPtr
FI_Empty
ti_fun_heap
...
...
@@ -1599,7 +1599,7 @@ generateFunction app_symb fd=:{fun_body = TransformedBody {tb_args,tb_rhs},fun_i
,
ti_fun_heap
=
ti_fun_heap
,
ti_var_heap
=
ti_var_heap
,
ti_cons_args
=
ti_cons_args
,
ti_type_def_infos
=
ti_type_def_infos
,
ti_predef_symbols
=
ti_predef_symbols
}
|
ro
.
ro_transform_fusion
>=
FullFusion
#
ti
=
{
ti
&
ti_error_file
=
ti
.
ti_error_file
<<<
"Possibly missed fusion opp
u
rtunity: Function Arity > 32 "
<<<
ro
.
ro_tfi
.
tfi_root
.
symb_ident
.
id_name
<<<
"
\n
"
}
#
ti
&
ti_error_file
=
ti
.
ti_error_file
<<<
"Possibly missed fusion opp
o
rtunity: Function Arity > 32 "
<<<
ro
.
ro_tfi
.
tfi_root
.
symb_ident
.
id_name
<<<
"
\n
"
=
(
-1
,
new_fun_arity
,
ti
)
=
(
-1
,
new_fun_arity
,
ti
)
#
new_arg_types
=
flatten
[
ats_types
\\
{
ats_types
}<-:
new_arg_types_array
]
...
...
@@ -3903,7 +3903,7 @@ determineProducer app=:{app_symb = symb=:{ symb_kind = SK_GeneratedFunction fun_
=
(
producers
,
[
App
app
:
new_args
],
ti
)
#
n_app_args
=
length
app_args
|
SwitchArityChecks
(
n_app_args
>
1
&&
size
producers
+
n_app_args
-
1
>
32
)
False
#
ti
&
ti_error_file
=
ti
.
ti_error_file
<<<
"Possibly missed fusion opp
u
rtunity: Function Arity > 32
\n
"
#
ti
&
ti_error_file
=
ti
.
ti_error_file
<<<
"Possibly missed fusion opp
o
rtunity: Function Arity > 32
\n
"
=
(
producers
,
[
App
app
:
new_args
],
ti
)
|
n_app_args
<>
fun_arity
|
SwitchCurriedFusion
(
ro
.
ro_transform_fusion
>=
FullFusion
)
cc_producer
False
...
...
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