/[m4]/m4/m4/symtab.c
ViewVC logotype

Diff of /m4/m4/symtab.c

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

revision 1.14 by akim, Wed Sep 5 07:50:36 2001 UTC revision 1.15 by akim, Wed Sep 5 07:51:41 2001 UTC
# Line 156  m4_lookup_symbol (const char *name, m4_s Line 156  m4_lookup_symbol (const char *name, m4_s
156        return 0;        return 0;
157      }      }
158    
159    M4ERROR ((warning_status, 0,    assert (0);
             _("INTERNAL ERROR: Illegal mode to m4_symbol_lookup (%s, %d)"),  
             name, mode));  
   abort ();  
160    /*NOTREACHED*/    /*NOTREACHED*/
161    return 0;    return 0;
162  }  }
# Line 224  m4_symbol_popdef (const char *name) Line 221  m4_symbol_popdef (const char *name)
221  {  {
222    m4_symbol **psymbol = (m4_symbol **) m4_hash_lookup (m4_symtab, name);    m4_symbol **psymbol = (m4_symbol **) m4_hash_lookup (m4_symtab, name);
223    
224    if (!psymbol)    assert (psymbol);
     M4ERROR ((warning_status, 0,  
               "INTERNAL ERROR: m4_symbol_popdef (%s)", name));  
225    
226    if (M4_SYMBOL_DATA_NEXT (*psymbol))    if (M4_SYMBOL_DATA_NEXT (*psymbol))
227      m4_symbol_pop (*psymbol);      m4_symbol_pop (*psymbol);
# Line 244  m4_symbol_delete (const char *name) Line 239  m4_symbol_delete (const char *name)
239  {  {
240    m4_symbol **psymbol = (m4_symbol **) m4_hash_lookup (m4_symtab, name);    m4_symbol **psymbol = (m4_symbol **) m4_hash_lookup (m4_symtab, name);
241    
242    if (!psymbol)    assert (psymbol);
243      M4ERROR ((warning_status, 0,    xfree (m4_hash_remove (m4_symtab, name));
244                "INTERNAL ERROR: m4_symbol_delete (%s)", name));    m4_symbol_del (*psymbol);
   
   if (psymbol)  
     {  
       xfree (m4_hash_remove (m4_symtab, name));  
       m4_symbol_del (*psymbol);  
     }  
245  }  }
246    
247    

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26