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
ff3da69d
Commit
ff3da69d
authored
Sep 20, 2002
by
Ronny Wichers Schreur
🏘
Browse files
removed SK_GeneratedCaseFunction: it's not necessary any more, because
there are no function generated in convertDynamics
parent
81a4b7ea
Changes
4
Hide whitespace changes
Inline
Side-by-side
backend/backendconvert.icl
View file @
ff3da69d
...
...
@@ -1821,12 +1821,8 @@ where
=
beFunctionSymbol
glob_object
glob_module
convertSymbol
{
symb_kind
=
SK_LocalMacroFunction
glob_object
}
=
beFunctionSymbol
glob_object
main_dcl_module_n
convertSymbol
{
symb_kind
=
SK_GeneratedCaseFunction
_
index
}
=
beFunctionSymbol
index
main_dcl_module_n
convertSymbol
{
symb_kind
=
SK_GeneratedFunction
_
index
}
=
beFunctionSymbol
index
main_dcl_module_n
convertSymbol
{
symb_kind
=
SK_GeneratedCaseFunction
_
index
}
=
beFunctionSymbol
index
main_dcl_module_n
convertSymbol
{
symb_kind
=
SK_Constructor
{
glob_module
,
glob_object
}}
=
beConstructorSymbol
glob_module
glob_object
// ->> ("convertSymbol", (glob_module, glob_object))
convertSymbol
symbol
...
...
frontend/StdCompare.icl
View file @
ff3da69d
...
...
@@ -162,7 +162,6 @@ where
// compare_indexes (SK_InternalFunction i1) (SK_InternalFunction i2) = i1 =< i2
compare_indexes
(
SK_OverloadedFunction
i1
)
(
SK_OverloadedFunction
i2
)
=
i1
=<
i2
compare_indexes
(
SK_GeneratedFunction
_
i1
)
(
SK_GeneratedFunction
_
i2
)
=
i1
=<
i2
compare_indexes
(
SK_GeneratedCaseFunction
_
i1
)
(
SK_GeneratedCaseFunction
_
i2
)
=
i1
=<
i2
compare_indexes
(
SK_LocalDclMacroFunction
i1
)
(
SK_LocalDclMacroFunction
i2
)
=
i1
=<
i2
|
less_constructor
symb1
symb2
...
...
frontend/convertcases.icl
View file @
ff3da69d
...
...
@@ -1081,7 +1081,7 @@ newFunctionWithType opt_id fun_bodies local_vars fun_type group_index (cs_next_f
,
fun_lifted
=
0
,
fun_info
=
{
EmptyFunInfo
&
fi_group_index
=
group_index
,
fi_local_vars
=
local_vars
}
}
=
({
symb_name
=
fun_id
,
symb_kind
=
SK_Generated
Case
Function
fun_def_ptr
cs_next_fun_nr
},
=
({
symb_name
=
fun_id
,
symb_kind
=
SK_GeneratedFunction
fun_def_ptr
cs_next_fun_nr
},
(
inc
cs_next_fun_nr
,
[
fun_def_ptr
:
cs_new_functions
],
cs_fun_heap
<:=
(
fun_def_ptr
,
FI_Function
{
gf_fun_def
=
fun_def
,
gf_instance_info
=
II_Empty
,
gf_fun_index
=
cs_next_fun_nr
,
gf_cons_args
=
{
cc_size
=
0
,
cc_args
=
[],
cc_linear_bits
=
[],
cc_producer
=
False
}
})))
...
...
frontend/syntax.dcl
View file @
ff3da69d
...
...
@@ -699,7 +699,6 @@ cNonRecursiveAppl :== False
|
SK_LocalDclMacroFunction
!(
Global
Index
)
|
SK_OverloadedFunction
!(
Global
Index
)
|
SK_GeneratedFunction
!
FunctionInfoPtr
!
Index
|
SK_GeneratedCaseFunction
!
FunctionInfoPtr
!
Index
|
SK_Constructor
!(
Global
Index
)
|
SK_Generic
!(
Global
Index
)
!
TypeKind
|
SK_TypeCode
...
...
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