Commit 3bc4f58b authored by Vincent Zweije's avatar Vincent Zweije
Browse files

Implement coretyperule

parent 43202a29
......@@ -77,5 +77,12 @@ coretyperule (SuclApply argc)
= if (argc==0)
(restype,emptygraph)
(outfunctype,updategraph outfunctype (SuclFN (argc-1),argtypes++[restype]) emptygraph)
coretyperule _
= undef
coretyperule (SuclInt _) = consttyperule SuclINT
coretyperule (SuclReal _) = consttyperule SuclREAL
coretyperule (SuclBool _) = consttyperule SuclBOOL
coretyperule (SuclUser _) = abort "coreclean: coretyperule: untyped user symbol"
coretyperule (SuclCase _) = abort "coreclean: coretyperule: untyped case symbol"
consttyperule tsym
= mkrule [] root (updategraph root (tsym,[]) emptygraph)
where root = SuclANONYMOUS 0
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment