odr/odr_tag.c

   1 /*
   2  * Copyright (c) 1995, Index Data
   3  * See the file LICENSE for details.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: odr_tag.c,v $
   7  * Revision 1.3  1995-05-16 08:51:00  quinn
   8  * License, documentation, and memory fixes
   9  *
  10  * Revision 1.2  1995/03/08  12:12:31  quinn
  11  * Added better error checking.
  12  *
  13  * Revision 1.1  1995/02/02  16:21:54  quinn
  14  * First kick.
  15  *
  16  */
  17
  18 #include <odr.h>
  19
  20 int odr_implicit_settag(ODR o, int class, int tag)
  21 {
  22     if (o->error)
  23         return 0;
  24     if (o->t_class < 0)
  25     {
  26         o->t_class = class;
  27         o->t_tag = tag;
  28     }
  29     return 1;
  30 }