diff options
| author | ronny | 2003-06-19 13:34:16 +0000 |
|---|---|---|
| committer | ronny | 2003-06-19 13:34:16 +0000 |
| commit | 74cde08253757f2c6ed0ca3054b2e0fc17a18311 (patch) | |
| tree | 796a1f8715d9075027d2185b5bd1ad928c9e8137 /frontend/parse.icl | |
| parent | removed unused module typeanal (diff) | |
removed unused field class_arg_kinds
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1355 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/parse.icl')
| -rw-r--r-- | frontend/parse.icl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index 57cb157..88d71ab 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -1223,8 +1223,8 @@ wantClassDefinition parseContext pos pState (members, pState) = wantDefinitions (SetClassOrInstanceDefsContext parseContext) pState class_def = { class_ident = class_id, class_arity = class_arity, class_args = class_args, class_context = contexts, class_pos = pos, class_members = {}, class_cons_vars = class_cons_vars, - class_dictionary = { ds_ident = { class_id & id_info = nilPtr }, ds_arity = 0, ds_index = NoIndex}, - class_arg_kinds = [] } + class_dictionary = { ds_ident = { class_id & id_info = nilPtr }, ds_arity = 0, ds_index = NoIndex} + } pState = wantEndGroup "class" pState = (PD_Class class_def members, pState) | isEmpty contexts @@ -1234,8 +1234,8 @@ wantClassDefinition parseContext pos pState (class_id, pState) = stringToIdent class_or_member_name IC_Class pState class_def = { class_ident = class_id, class_arity = class_arity, class_args = class_args, class_context = contexts, class_pos = pos, class_members = {}, class_cons_vars = class_cons_vars, - class_dictionary = { ds_ident = { class_id & id_info = nilPtr }, ds_arity = 0, ds_index = NoIndex }, - class_arg_kinds = []} + class_dictionary = { ds_ident = { class_id & id_info = nilPtr }, ds_arity = 0, ds_index = NoIndex } + } pState = wantEndOfDefinition "class definition" pState = (PD_Class class_def [], pState) = (PD_Erroneous, parseError "Class Definition" (Yes token) "<class definition>" pState) @@ -1283,8 +1283,8 @@ wantClassDefinition parseContext pos pState member = PD_TypeSpec pos member_id prio (Yes tspec) SP_None class_def = { class_ident = class_id, class_arity = class_arity, class_args = class_args, class_context = contexts, class_pos = pos, class_members = {}, class_cons_vars = class_cons_vars, - class_dictionary = { ds_ident = { class_id & id_info = nilPtr }, ds_arity = 0, ds_index = NoIndex }, - class_arg_kinds = []} + class_dictionary = { ds_ident = { class_id & id_info = nilPtr }, ds_arity = 0, ds_index = NoIndex } + } pState = wantEndOfDefinition "overloaded function" pState = (PD_Class class_def [member], pState) |