Skip to content
GitLab
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
6af8a575
Commit
6af8a575
authored
Feb 05, 2010
by
John van Groningen
Browse files
remove code that is no longer used in unfold, because unfold is no longer
used by module trans (now uses copy)
parent
a18fce99
Changes
3
Expand all
Hide whitespace changes
Inline
Side-by-side
frontend/mergecases.icl
View file @
6af8a575
...
...
@@ -203,9 +203,8 @@ where
=
(
Case
{
cees
&
case_info_ptr
=
new_case_info_ptr
},
symbol_heap
)
replace_variables_in_expression
expr
var_heap
symbol_heap
#
us
=
{
us_var_heap
=
var_heap
,
us_symbol_heap
=
symbol_heap
,
us_opt_type_heaps
=
No
,
us_cleanup_info
=
[],
us_local_macro_functions
=
No
}
ui
=
{
ui_handle_aci_free_vars
=
RemoveThem
}
(
expr
,
us
)
=
unfold
expr
ui
us
#
us
=
{
us_var_heap
=
var_heap
,
us_symbol_heap
=
symbol_heap
,
us_local_macro_functions
=
No
}
(
expr
,
us
)
=
unfold
expr
us
=
(
expr
,
us
.
us_var_heap
,
us
.
us_symbol_heap
)
new_variable
fv
=:{
fv_ident
,
fv_info_ptr
}
var_heap
...
...
@@ -378,9 +377,8 @@ where
replace_variables
vars
expr
ap_vars
var_heap
symbol_heap
#
var_heap
=
build_aliases
vars
ap_vars
var_heap
#
us
=
{
us_var_heap
=
var_heap
,
us_symbol_heap
=
symbol_heap
,
us_opt_type_heaps
=
No
,
us_cleanup_info
=[],
us_local_macro_functions
=
No
}
ui
=
{
ui_handle_aci_free_vars
=
RemoveThem
}
(
expr
,
us
)
=
unfold
expr
ui
us
#
us
=
{
us_var_heap
=
var_heap
,
us_symbol_heap
=
symbol_heap
,
us_local_macro_functions
=
No
}
(
expr
,
us
)
=
unfold
expr
us
=
(
expr
,
us
.
us_var_heap
,
us
.
us_symbol_heap
)
where
build_aliases
[
var1
:
vars1
]
[
{
fv_ident
,
fv_info_ptr
}
:
vars2
]
var_heap
...
...
frontend/transform.dcl
View file @
6af8a575
...
...
@@ -31,16 +31,8 @@ determineVariablesAndRefCounts :: ![FreeVar] !Expression !*CollectState -> (!Exp
::
UnfoldState
=
{
us_var_heap
::
!.
VarHeap
,
us_symbol_heap
::
!.
ExpressionHeap
,
us_opt_type_heaps
::
!.
Optional
.
TypeHeaps
,
us_cleanup_info
::
![
ExprInfoPtr
],
us_local_macro_functions
::
!
Optional
CopiedLocalFunctions
,
us_local_macro_functions
::
!
Optional
CopiedLocalFunctions
}
::
UnfoldInfo
=
{
ui_handle_aci_free_vars
::
!
AciFreeVarHandleMode
}
::
AciFreeVarHandleMode
=
LeaveThem
|
RemoveThem
|
SubstituteThem
class
unfold
a
::
!
a
!
UnfoldInfo
!*
UnfoldState
->
(!
a
,
!*
UnfoldState
)
class
unfold
a
::
!
a
!*
UnfoldState
->
(!
a
,
!*
UnfoldState
)
instance
unfold
Expression
,
CasePatterns
frontend/transform.icl
View file @
6af8a575
This diff is collapsed.
Click to expand it.
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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