| 291 | */ |
| 292 | |
| 293 | static LIST * * var_enter( struct module_t * module, OBJECT * symbol ) |
| 294 | { |
| 295 | int found; |
| 296 | VARIABLE * v; |
| 297 | int n; |
| 298 | |
| 299 | if ( ( n = module_get_fixed_var( module, symbol ) ) != -1 ) |
| 300 | return &module->fixed_variables[ n ]; |
| 301 | |
| 302 | if ( !module->variables ) |
| 303 | module->variables = hashinit( sizeof( VARIABLE ), "variables" ); |
| 304 | |
| 305 | v = (VARIABLE *)hash_insert( module->variables, symbol, &found ); |
| 306 | if ( !found ) |
| 307 | { |
| 308 | v->symbol = object_copy( symbol ); |
| 309 | v->value = L0; |
| 310 | } |
| 311 | |
| 312 | return &v->value; |
| 313 | } |
| 314 | |
| 315 | |
| 316 | /* |
no test coverage detected