diff options
| author | johnvg | 2001-06-22 14:46:40 +0000 |
|---|---|---|
| committer | johnvg | 2001-06-22 14:46:40 +0000 |
| commit | 532220cd1ec9ecdfab6da7a68030e9f55bc0afa4 (patch) | |
| tree | 38cb6171d2539edfd2c0b54b61eae443a8ce87ac | |
| parent | local reference counts for CaseNode and DefaultNode (diff) | |
print node_defs in GuardNode
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@497 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | backendC/CleanCompilerSources/dbprint.c | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/backendC/CleanCompilerSources/dbprint.c b/backendC/CleanCompilerSources/dbprint.c index 4b7a201..12a6a63 100644 --- a/backendC/CleanCompilerSources/dbprint.c +++ b/backendC/CleanCompilerSources/dbprint.c @@ -398,7 +398,6 @@ void PrintRuleNode (Node node,Bool brackets,int n_leading_spaces,File file) PrintSymbol (node->node_symbol, file); FPutS (" [ ",file); - FPutS (" ",file); { NodeIdRefCountListP node_id_ref_count_elem; @@ -509,7 +508,18 @@ void PrintRuleNode (Node node,Bool brackets,int n_leading_spaces,File file) case GuardNode: FPutS ("Guard ",file); PrintArguments (node->node_arguments,'\n',True,n_leading_spaces,file); - break; + + if (node->node_node_defs!=NULL){ + FPutC ('\n', file); + print_spaces (n_leading_spaces,file); + FPutS ("{\n",file); + PrintNodeDefs (node->node_node_defs,n_leading_spaces+4,file); + print_spaces (n_leading_spaces,file); + FPutS ("}\n", file); + print_spaces (n_leading_spaces,file); + } + + break; case TupleSelectorsNode: FPutS ("TupleSelectors (",file); PrintArguments (node->node_arguments,',',True,n_leading_spaces,file); |