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
Tanzeem Haque
gdsl-toolkit
Commits
2d7b53fa
Commit
2d7b53fa
authored
Sep 18, 2012
by
Axel Simon
Browse files
turn off debugging output in type checker
parent
5824b285
Changes
4
Hide whitespace changes
Inline
Side-by-side
detail/semantic/inference.sml
View file @
2d7b53fa
...
...
@@ -974,7 +974,7 @@ fun typeInferencePass (errStrm, ti : TI.type_info, ast) = let
|
checkExports
s
_
=
()
val
_
=
List
.
app
(
checkExports
SymbolTable
.
noSpan
)
ast
val
_
=
TextIO
.
print
(
"toplevel environment:
\n
"
^
E
.
toString
toplevelEnv
)
(*
val _ = TextIO.print ("toplevel environment:\n" ^ E.toString toplevelEnv)
*)
val
(
badSizes
,
primEnv
)
=
E
.
popGroup
(
toplevelEnv
,
false
)
val
_
=
reportBadSizes
badSizes
...
...
detail/semantic/symbol-table-type.sml
View file @
2d7b53fa
...
...
@@ -44,7 +44,7 @@ end
structure
SymbolTable
:>
SymbolTableSig
=
struct
val
concisePrint
:
bool
=
fals
e
val
concisePrint
:
bool
=
tru
e
structure
SymbolTable
=
IntBinaryMap
structure
Reverse
=
AtomRedBlackMap
...
...
detail/semantic/typing/lang-types.sml
View file @
2d7b53fa
...
...
@@ -6,7 +6,7 @@ structure Types = struct
type
varset
=
TVar
.
set
val
freshTVar
=
TVar
.
freshTVar
val
concisePrint
=
fals
e
val
concisePrint
=
tru
e
datatype
texp
=
(*
a function taking at least one argument *)
...
...
detail/semantic/typing/tvar.sml
View file @
2d7b53fa
...
...
@@ -49,13 +49,13 @@ end = struct
fun
name
idx
=
(
if
idx>
25
then
name
(
Int
.
div
(
idx
,
26
)
-
1
)
else
""
)
^
Char
.
toString
(
Char
.
chr
(
Char
.
ord
#"a"
+
Int
.
mod
(
idx
,
26
)))
fun
varToString
(
TVAR
var
,
tab
)
=
(
name
var
,
tab
)
(*
case VarMap.find (tab, var) of
SOME str => (str, tab)
| NONE => let
val str = name (VarMap.numItems(tab))
in
(str, VarMap.insert(tab, var, str))
end
*)
fun
varToString
(
TVAR
var
,
tab
)
=
(*
(name var, tab)
*)
case
VarMap
.
find
(
tab
,
var
)
of
SOME
str
=>
(
str
,
tab
)
|
NONE
=>
let
val
str
=
name
(
VarMap
.
numItems
(
tab
))
in
(
str
,
VarMap
.
insert
(
tab
,
var
,
str
))
end
structure
IntSet
=
SplaySetFn
(
struct
type
ord_key
=
int
...
...
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