aboutsummaryrefslogtreecommitdiff
path: root/backend/backendconvert.icl
diff options
context:
space:
mode:
authorronny2001-12-20 13:30:24 +0000
committerronny2001-12-20 13:30:24 +0000
commite5f28ee5b278d5a30e583cb5bd22cb1a251b12e7 (patch)
treeaaab945c80178e3c7f28194ad65f0a2a137640c1 /backend/backendconvert.icl
parentremove RWSDebug dependency (diff)
remove RWSDebug dependency
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@957 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backend/backendconvert.icl')
-rw-r--r--backend/backendconvert.icl6
1 files changed, 1 insertions, 5 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl
index 73475dd..0e9d0a5 100644
--- a/backend/backendconvert.icl
+++ b/backend/backendconvert.icl
@@ -12,8 +12,6 @@ import frontend
import backend
import backendsupport, backendpreprocess
-import RWSDebug
-
// trace macro
(-*->) infixl
(-*->) value trace
@@ -385,8 +383,6 @@ backEndConvertModules p s main_dcl_module_n var_heap attr_var_heap be
# {bes_varHeap,bes_attrHeap,bes_backEnd} = backEndConvertModulesH p s main_dcl_module_n {bes_varHeap=var_heap,bes_attrHeap=attr_var_heap,bes_backEnd=be, bes_attr_number = 0}
= (bes_varHeap,bes_attrHeap,bes_backEnd)
-import RWSDebug
-
backEndConvertModulesH :: PredefinedSymbols FrontEndSyntaxTree !Int *BackEndState -> *BackEndState
backEndConvertModulesH predefs {fe_icl =
fe_icl =: {icl_name, icl_functions, icl_common,icl_global_functions,icl_imported_objects,icl_used_module_numbers, icl_modification_time},
@@ -1436,7 +1432,7 @@ convertTypeNode TE
convertTypeNode (TFA vars type)
= beAddForAllTypeVariables (convertTypeVars vars) (convertTypeNode type)
convertTypeNode typeNode
- = abort "convertTypeNode" <<- ("backendconvert, convertTypeNode: unknown type node", typeNode)
+ = abort "convertTypeNode" // <<- ("backendconvert, convertTypeNode: unknown type node", typeNode)
consVariableToType :: ConsVariable -> Type
consVariableToType (CV typeVar)