118 |
|
|
119 |
|
|
120 |
/*-------------------------------------------------------------------. |
/*-------------------------------------------------------------------. |
121 |
| Set the DESTRUCTOR associated to SYMBOL. Does nothing if passed 0 | |
| Set the DESTRUCTOR associated to SYMBOL. Do nothing if passed 0. | |
|
| as DESTRUCTOR. | |
|
122 |
`-------------------------------------------------------------------*/ |
`-------------------------------------------------------------------*/ |
123 |
|
|
124 |
void |
void |
128 |
{ |
{ |
129 |
if (symbol->destructor) |
if (symbol->destructor) |
130 |
complain_at (location, |
complain_at (location, |
131 |
_("destructor redeclaration for %s"), |
_("%s redeclaration for %s"), |
132 |
symbol_tag_get (symbol)); |
"%destructor", symbol_tag_get (symbol)); |
133 |
symbol->destructor = destructor; |
symbol->destructor = destructor; |
134 |
symbol->destructor_location = location; |
symbol->destructor_location = location; |
135 |
} |
} |
136 |
} |
} |
137 |
|
|
138 |
|
|
139 |
|
/*----------------------------------------------------------------. |
140 |
|
| Set the PRITNER associated to SYMBOL. Do nothing if passed 0. | |
141 |
|
`----------------------------------------------------------------*/ |
142 |
|
|
143 |
|
void |
144 |
|
symbol_printer_set (symbol_t *symbol, char *printer, location_t location) |
145 |
|
{ |
146 |
|
if (printer) |
147 |
|
{ |
148 |
|
if (symbol->printer) |
149 |
|
complain_at (location, |
150 |
|
_("%s redeclaration for %s"), |
151 |
|
"%printer", symbol_tag_get (symbol)); |
152 |
|
symbol->printer = printer; |
153 |
|
symbol->printer_location = location; |
154 |
|
} |
155 |
|
} |
156 |
|
|
157 |
|
|
158 |
/*------------------------------------------------------------------. |
/*------------------------------------------------------------------. |
159 |
| Set the PRECEDENCE associated to SYMBOL. Does nothing if invoked | |
| Set the PRECEDENCE associated to SYMBOL. Does nothing if invoked | |