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
6559aa31
Commit
6559aa31
authored
Nov 22, 2005
by
John van Groningen
Browse files
removed use of /*2.0 and 0.2*/
parent
e23db6aa
Changes
1
Hide whitespace changes
Inline
Side-by-side
frontend/convertDynamics.icl
View file @
6559aa31
...
...
@@ -95,11 +95,6 @@ where
f
write_type_info_state
=:{
wtis_type_heaps
,
wtis_type_defs
,
wtis_var_heap
}
=
(
wtis_type_heaps
,
wtis_type_defs
,
wtis_var_heap
)
/*2.0
f (Yes tcl_file)
= tcl_file;
0.2*/
convertDynamicPatternsIntoUnifyAppls
::
!{#
CommonDefs
}
!
Int
!*{!
Group
}
!*{#
FunDef
}
!*
PredefinedSymbols
!*
VarHeap
!*
TypeHeaps
!*
ExpressionHeap
(
Optional
*
File
)
{#
DclModule
}
!
IclModule
[
String
]
->
(!*{!
Group
},
!*{#
FunDef
},
!*
PredefinedSymbols
,
!*{#{#
CheckedTypeDef
}},
!
ImportedConstructors
,
!*
VarHeap
,
!*
TypeHeaps
,
!*
ExpressionHeap
,
(
Optional
*
File
))
convertDynamicPatternsIntoUnifyAppls
common_defs
main_dcl_module_n
groups
fun_defs
predefined_symbols
var_heap
type_heaps
expr_heap
tcl_file
dcl_mods
icl_mod
directly_imported_dcl_modules
...
...
@@ -120,8 +115,7 @@ convertDynamicPatternsIntoUnifyAppls common_defs main_dcl_module_n groups fun_de
=
case
tcl_file
of
No
->
(
No
,
type_heaps
,
ci_predef_symb
,
imported_types
,
ci_var_heap
)
_
#
tcl_file
=
f
tcl_file
;
Yes
tcl_file
#
(
ok
,
tcl_file
,
type_heaps
,
ci_predef_symb
,
imported_types
,
ci_var_heap
)
=
write_tcl_file
main_dcl_module_n
dcl_mods
icl_mod
.
icl_common
tcl_file
directly_imported_dcl_modules
type_heaps
ci_predef_symb
imported_types
ci_var_heap
common_defs
icl_mod
...
...
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