diff options
| author | ronny | 2002-07-22 09:47:48 +0000 |
|---|---|---|
| committer | ronny | 2002-07-22 09:47:48 +0000 |
| commit | 3c94b43164af5d4fb096fec3786c4d98cf72844f (patch) | |
| tree | a87aedb87bf3c01e3854736cac12d45976d52515 /frontend/analtypes.dcl | |
| parent | add abstract synonym types (diff) | |
check kinds in dynamics
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1159 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/analtypes.dcl')
| -rw-r--r-- | frontend/analtypes.dcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/analtypes.dcl b/frontend/analtypes.dcl index 08991fd..3edafa8 100644 --- a/frontend/analtypes.dcl +++ b/frontend/analtypes.dcl @@ -13,7 +13,7 @@ determineKindsOfClasses :: !NumberSet !{#CommonDefs} !*TypeDefInfos !*TypeVarHea -> (!*ClassDefInfos, !*TypeDefInfos, !*TypeVarHeap, !*ErrorAdmin) checkKindsOfCommonDefsAndFunctions :: !Index !Index !NumberSet ![IndexRange] !{#CommonDefs} !u:{# FunDef} !v:{#DclModule} !*TypeDefInfos !*ClassDefInfos - !*TypeVarHeap !*GenericHeap !*ErrorAdmin -> (!u:{# FunDef}, !v:{#DclModule}, !*TypeDefInfos, !*TypeVarHeap, !*GenericHeap, !*ErrorAdmin) + !*TypeVarHeap !*ExpressionHeap !*GenericHeap !*ErrorAdmin -> (!u:{# FunDef}, !v:{#DclModule}, !*TypeDefInfos, !*TypeVarHeap, !*ExpressionHeap, !*GenericHeap, !*ErrorAdmin) isATopConsVar cv :== cv < 0 encodeTopConsVar cv :== dec (~cv) |