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
b601b9eb
Commit
b601b9eb
authored
Apr 11, 2007
by
John van Groningen
Browse files
remove import of module checksupport, remove unused function: newFunction
parent
c2a77271
Changes
1
Hide whitespace changes
Inline
Side-by-side
frontend/convertcases.icl
View file @
b601b9eb
...
...
@@ -3,7 +3,7 @@
*/
implementation
module
convertcases
import
syntax
,
transform
,
checksupport
,
StdCompare
,
check
,
utilities
,
trans
,
general
;
//, RWSDebug
import
syntax
,
transform
,
StdCompare
,
check
,
utilities
,
trans
,
general
;
//, RWSDebug
// exactZip fails when its arguments are of unequal length
exactZip`
::
![.
a
]
![.
b
]
->
[(.
a
,.
b
)]
...
...
@@ -1232,22 +1232,6 @@ nextAlts si=:{si_next_alt=Yes next_alt, si_force_next_alt} kees=:{case_info_ptr,
nextAlts
si
kees
=:{
case_default
}
ss
=
findSplitCases
si
case_default
ss
->>
(
"nextAlts no outerdefault"
+++
toString
kees
.
case_explicit
)
newFunction
::
!(
Optional
Ident
)
!
FunctionBody
![
FreeVar
]
![
AType
]
!
AType
!
Int
!(!
Int
,
![
FunctionInfoPtr
],!*
FunctionHeap
)
->
(!
SymbIdent
,
!(!
Int
,
![
FunctionInfoPtr
],!*
FunctionHeap
))
newFunction
opt_id
fun_bodies
local_vars
arg_types
result_type
group_index
state
=
newFunctionWithType
opt_id
fun_bodies
local_vars
fun_type
group_index
state
where
(_,
fun_type
)
=
removeAnnotations
{
st_vars
=
[]
,
st_args
=
arg_types
,
st_args_strictness
=
NotStrict
,
st_arity
=
length
arg_types
// -*-> ("newFunction", fun_id.id_name)
,
st_result
=
result_type
,
st_context
=
[]
,
st_attr_vars
=
[]
,
st_attr_env
=
[]
}
newFunctionWithType
::
!(
Optional
Ident
)
!
FunctionBody
![
FreeVar
]
!
SymbolType
!
Int
!(!
Int
,
![
FunctionInfoPtr
],!*
FunctionHeap
)
->
(!
SymbIdent
,
!(!
Int
,
![
FunctionInfoPtr
],!*
FunctionHeap
))
newFunctionWithType
opt_id
fun_bodies
local_vars
fun_type
group_index
(
cs_next_fun_nr
,
cs_new_functions
,
cs_fun_heap
)
...
...
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