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
c408c355
Commit
c408c355
authored
Feb 12, 2002
by
Ronny Wichers Schreur
🏢
Browse files
removed useless strictness annotations
parent
a3520ae5
Changes
3
Hide whitespace changes
Inline
Side-by-side
backend/backendconvert.icl
View file @
c408c355
...
...
@@ -33,9 +33,7 @@ sfoldr op r l s
::
BackEndBody
:==
BackendBody
BackEndBody
x
:==
BackendBody
x
::
BEMonad
a
:==
St
!*
BackEndState
!
a
::
BEMonad
a
:==
*
BackEndState
->
*(!
a
,!*
BackEndState
)
::
BackEnder
:==
*
BackEndState
->
*
BackEndState
//
...
...
frontend/frontend.dcl
View file @
c408c355
...
...
@@ -41,5 +41,5 @@ import checksupport, transform, overloading
}
instance
==
ListTypesKind
frontEndInterface
::
!
FrontEndOptions
!
Ident
!
SearchPaths
!{#
DclModule
}
!*{#*{#
FunDef
}}
!(
Optional
Bool
)
!*
PredefinedSymbols
!*
HashTable
(
ModTimeFunction
*
Files
)
!*
Files
!*
File
!*
File
!*
File
(
!
Optional
!
*
File
)
!*
Heaps
->
(
!
Optional
*
FrontEndSyntaxTree
,!*{#*{#
FunDef
}},!{#
DclModule
},!
Int
,!
Int
,!*
PredefinedSymbols
,
!*
HashTable
,
!*
Files
,
!*
File
,
!*
File
,
!*
File
,
!
Optional
!
*
File
,
!*
Heaps
)
frontEndInterface
::
!
FrontEndOptions
!
Ident
!
SearchPaths
!{#
DclModule
}
!*{#*{#
FunDef
}}
!(
Optional
Bool
)
!*
PredefinedSymbols
!*
HashTable
(
ModTimeFunction
*
Files
)
!*
Files
!*
File
!*
File
!*
File
!
(
Optional
*
File
)
!*
Heaps
->
(
!
Optional
*
FrontEndSyntaxTree
,!*{#*{#
FunDef
}},!{#
DclModule
},!
Int
,!
Int
,!*
PredefinedSymbols
,
!*
HashTable
,
!*
Files
,
!*
File
,
!*
File
,
!*
File
,
!
Optional
*
File
,
!*
Heaps
)
frontend/frontend.icl
View file @
c408c355
...
...
@@ -49,8 +49,8 @@ frontSyntaxTree cached_dcl_macros cached_dcl_mods n_functions_and_macros_in_dcl_
// import StdDebug
frontEndInterface
::
!
FrontEndOptions
!
Ident
!
SearchPaths
!{#
DclModule
}
!*{#*{#
FunDef
}}
!(
Optional
Bool
)
!*
PredefinedSymbols
!*
HashTable
(
ModTimeFunction
*
Files
)
!*
Files
!*
File
!*
File
!*
File
(
!
Optional
!
*
File
)
!*
Heaps
->
(
!
Optional
*
FrontEndSyntaxTree
,!*{#*{#
FunDef
}},!{#
DclModule
},!
Int
,!
Int
,!*
PredefinedSymbols
,
!*
HashTable
,
!*
Files
,
!*
File
,
!*
File
,
!*
File
,
!
Optional
!
*
File
,
!*
Heaps
)
frontEndInterface
::
!
FrontEndOptions
!
Ident
!
SearchPaths
!{#
DclModule
}
!*{#*{#
FunDef
}}
!(
Optional
Bool
)
!*
PredefinedSymbols
!*
HashTable
(
ModTimeFunction
*
Files
)
!*
Files
!*
File
!*
File
!*
File
!
(
Optional
*
File
)
!*
Heaps
->
(
!
Optional
*
FrontEndSyntaxTree
,!*{#*{#
FunDef
}},!{#
DclModule
},!
Int
,!
Int
,!*
PredefinedSymbols
,
!*
HashTable
,
!*
Files
,
!*
File
,
!*
File
,
!*
File
,
!
Optional
*
File
,
!*
Heaps
)
frontEndInterface
options
mod_ident
search_paths
cached_dcl_modules
functions_and_macros
list_inferred_types
predef_symbols
hash_table
modtimefunction
files
error
io
out
tcl_file
heaps
// # files = trace_n ("Compiling "+++mod_ident.id_name) files
#
(
ok
,
mod
,
hash_table
,
error
,
files
)
...
...
@@ -150,7 +150,7 @@ frontEndInterface options mod_ident search_paths cached_dcl_modules functions_an
(components, ti_common_defs, fun_defs, {ir_to=0,ir_from=0}, td_infos, heaps, hash_table, predef_symbols, dcl_mods, error_admin)
# (icl_common, ti_common_defs) = replace copied_ti_common_defs main_dcl_module_n saved_main_dcl_common
with
copied_ti_common_defs ::
!
.{#CommonDefs} // needed for Clean 2.0 to disambiguate overloading of replace
copied_ti_common_defs :: .{#CommonDefs} // needed for Clean 2.0 to disambiguate overloading of replace
copied_ti_common_defs = {x \\ x <-: ti_common_defs}
# dcl_mods = { {dcl_mod & dcl_common = common} \\ dcl_mod <-: dcl_mods & common <-: ti_common_defs }
...
...
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