Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-compiler-and-rts
compiler
Commits
80210ff8
Commit
80210ff8
authored
Jun 22, 2001
by
John van Groningen
Browse files
print node_defs in GuardNode
parent
a86519b9
Changes
1
Hide whitespace changes
Inline
Side-by-side
backendC/CleanCompilerSources/dbprint.c
View file @
80210ff8
...
...
@@ -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
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment