diff options
| author | johnvg | 2005-11-24 11:39:42 +0000 |
|---|---|---|
| committer | johnvg | 2005-11-24 11:39:42 +0000 |
| commit | 8ec741e2d94970b6c081031da4b40d4a46c121ce (patch) | |
| tree | 98cc43c1191ca217a31632711762741a0906bb17 /frontend/checksupport.icl | |
| parent | remove unused variable n_functions_and_macros_in_dcl_modules (diff) | |
report error for constructors or records with >32 arguments/fields
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1576 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/checksupport.icl')
| -rw-r--r-- | frontend/checksupport.icl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/frontend/checksupport.icl b/frontend/checksupport.icl index 0c856f4..dc7d917 100644 --- a/frontend/checksupport.icl +++ b/frontend/checksupport.icl @@ -71,6 +71,11 @@ checkErrorWithIdentPos :: !IdentPos !a !*ErrorAdmin -> .ErrorAdmin | <<< a; checkErrorWithIdentPos ident_pos mess error=:{ea_file} = { error & ea_file = ea_file <<< "Error " <<< ident_pos <<< ": " <<< mess <<< '\n', ea_ok = False } +checkErrorWithPosition :: !Ident !Position !a !*ErrorAdmin -> .ErrorAdmin | <<< a; +checkErrorWithPosition ident pos mess error=:{ea_file} + # ident_pos = newPosition ident pos + = { error & ea_file = ea_file <<< "Error " <<< ident_pos <<< ": " <<< mess <<< '\n', ea_ok = False } + checkWarningWithPosition :: !Ident !Position !a !*ErrorAdmin -> .ErrorAdmin | <<< a; checkWarningWithPosition ident pos mess error=:{ea_file} # ident_pos = newPosition ident pos |