diff options
| author | johnvg | 2015-08-18 12:44:51 +0000 |
|---|---|---|
| committer | johnvg | 2015-08-18 12:44:51 +0000 |
| commit | d876c560f5be5669b7a72ac577310d061dbfc9f6 (patch) | |
| tree | eeac5c7fac43414612974e0a454bfdd9af3fb6ca | |
| parent | add descriptors of unboxed sub records to .record directive, in reverse order (diff) | |
fix previous version, add return before next case in switch instruction
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2607 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | backendC/CleanCompilerSources/instructions.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c index cf7c131..b076f5f 100644 --- a/backendC/CleanCompilerSources/instructions.c +++ b/backendC/CleanCompilerSources/instructions.c @@ -1148,11 +1148,12 @@ static void GenABStackElemsForRecordDesc (StateS state) } } FPutC (')', OutFile); + return; case RecordState: argstates = state.state_record_arguments; FPutC ('(', OutFile); for (arity=0; arity < state.state_arity; ++arity) - GenABStackElems (argstates[arity]); + GenABStackElemsForRecordDesc (argstates[arity]); FPutC (')', OutFile); return; case ArrayState: |