diff options
| author | johnvg | 2001-12-05 12:25:52 +0000 |
|---|---|---|
| committer | johnvg | 2001-12-05 12:25:52 +0000 |
| commit | 55e593fde5249c7216729d7e21a9dcab47362874 (patch) | |
| tree | bcdf53e941d97afaec79d2e3991e4f21e134b027 /backend/backendconvert.icl | |
| parent | forgot to some definitions to export (diff) | |
removed type from BasicExpr
added BVInt
removed symb_arity from SymbIdent
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@918 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backend/backendconvert.icl')
| -rw-r--r-- | backend/backendconvert.icl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index b4df0c7..df92ea1 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -374,7 +374,7 @@ beDynamicTempTypeSymbol notYetImplementedExpr :: Expression notYetImplementedExpr - = (BasicExpr (BVS "\"error in compiler (something was not implemented by lazy Ronny)\"") BT_Int) + = (BasicExpr (BVS "\"error in compiler (something was not implemented by lazy Ronny)\"")) backEndConvertModules :: PredefinedSymbols FrontEndSyntaxTree !Int *VarHeap *AttrVarHeap *BackEnd -> (!*VarHeap, *AttrVarHeap, !*BackEnd) /* @@ -1751,6 +1751,8 @@ convertRhsStrictNodeIds expression convertLiteralSymbol :: BasicValue -> BEMonad BESymbolP convertLiteralSymbol (BVI intString) = beLiteralSymbol BEIntDenot intString +convertLiteralSymbol (BVInt int) + = beLiteralSymbol BEIntDenot (toString int) convertLiteralSymbol (BVB bool) = beBoolSymbol bool convertLiteralSymbol (BVC charString) @@ -1769,7 +1771,7 @@ convertExpr expr main_dcl_module_n = convertExpr expr where convertExpr :: Expression -> BEMonad BENodeP - convertExpr (BasicExpr value _) + convertExpr (BasicExpr value) = beNormalNode (convertLiteralSymbol value) beNoArgs convertExpr (App {app_symb, app_args}) = beNormalNode (convertSymbol app_symb) (convertArgs app_args) |