diff options
| author | diederik | 2002-09-04 09:14:23 +0000 |
|---|---|---|
| committer | diederik | 2002-09-04 09:14:23 +0000 |
| commit | 2f584302ec09b49654477da222e3ee55e43d70c4 (patch) | |
| tree | 251c61b66a8a9c3d99d32d4f5f33dbe42846021c /backend/backendconvert.icl | |
| parent | store record.field name in descriptor for record fields instead of just the f... (diff) | |
Add SK_GeneratedCaseFunction for dynamic cases fix
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1196 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backend/backendconvert.icl')
| -rw-r--r-- | backend/backendconvert.icl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index a196f12..bc52e39 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -1828,6 +1828,8 @@ where = beFunctionSymbol glob_object main_dcl_module_n convertSymbol {symb_kind=SK_GeneratedFunction _ index} = beFunctionSymbol index main_dcl_module_n + convertSymbol {symb_kind=SK_GeneratedCaseFunction _ index} + = beFunctionSymbol index main_dcl_module_n convertSymbol {symb_kind=SK_Constructor {glob_module, glob_object}} = beConstructorSymbol glob_module glob_object // ->> ("convertSymbol", (glob_module, glob_object)) convertSymbol symbol |