diff options
| author | ronny | 2001-11-20 13:47:59 +0000 |
|---|---|---|
| committer | ronny | 2001-11-20 13:47:59 +0000 |
| commit | 3b826bb80415d2df7d8cb5b1d2d41b16a8575eff (patch) | |
| tree | 9bcf3f2a0c954431f51d79f9168b7ce41beabbbd /backend | |
| parent | bug fix: initialisation of global strictness info (prevents crash with second... (diff) | |
bug fix determination of exported funtion
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@894 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/backendinterface.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/backendinterface.icl b/backend/backendinterface.icl index 504e19f..da493d2 100644 --- a/backend/backendinterface.icl +++ b/backend/backendinterface.icl @@ -97,7 +97,7 @@ printFunctionTypes all attr info components functions attrHeap file backEnd printFunctionType :: Bool Bool DictionaryToClassInfo (Int, FunDef) (*AttrVarHeap, *File, *BackEnd) -> (*AttrVarHeap, *File, *BackEnd) printFunctionType all attr info (functionIndex, {fun_symb,fun_type=Yes type}) (attrHeap, file, backEnd) - | not all && functionIndex > size info.dtic_dclModules.[info.dtci_iclModuleIndex].dcl_functions + | not all && functionIndex >= size info.dtic_dclModules.[info.dtci_iclModuleIndex].dcl_functions = (attrHeap, file, backEnd) # (strictnessAdded, type, backEnd) = addStrictnessFromBackEnd functionIndex fun_symb.id_name backEnd type |