/[cvs]/stack/stack.c
ViewVC logotype

Diff of /stack/stack.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.129 by masse, Mon Aug 4 14:13:16 2003 UTC revision 1.130 by masse, Mon Aug 4 14:32:27 2003 UTC
# Line 153  extern void gc_init(environment *env) Line 153  extern void gc_init(environment *env)
153        /* Remove content */        /* Remove content */
154        switch(env->gc_ref->item->type){        switch(env->gc_ref->item->type){
155        case string:        case string:
156          free(env->gc_ref->item->content.ptr);          free(env->gc_ref->item->content.string);
157          break;          break;
158        case tcons:        case tcons:
159          free(env->gc_ref->item->content.c);          free(env->gc_ref->item->content.c);
# Line 379  void push_sym(environment *env, const ch Line 379  void push_sym(environment *env, const ch
379    
380    /* Look up the symbol name in the hash table */    /* Look up the symbol name in the hash table */
381    new_symbol= hash(env->symbols, in_string);    new_symbol= hash(env->symbols, in_string);
382    new_value->content.ptr= *new_symbol;    new_value->content.sym= *new_symbol;
383    
384    if(*new_symbol==NULL) { /* If symbol was undefined */    if(*new_symbol==NULL) { /* If symbol was undefined */
385    
# Line 393  void push_sym(environment *env, const ch Line 393  void push_sym(environment *env, const ch
393      strcpy((*new_symbol)->id, in_string);      strcpy((*new_symbol)->id, in_string);
394    
395      /* Intern the new symbol in the hash table */      /* Intern the new symbol in the hash table */
396      new_value->content.ptr= *new_symbol;      new_value->content.sym= *new_symbol;
397    
398      /* Try to load the symbol name as an external function, to see if      /* Try to load the symbol name as an external function, to see if
399         we should bind the symbol to a new function pointer value */         we should bind the symbol to a new function pointer value */
Legend:
Removed from v.1.129  
changed lines
  Added in v.1.130
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26