[BACK]Return to compobj.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/compobj.c between version 1.3 and 1.6

version 1.3, 2000/08/22 05:03:56 version 1.6, 2003/12/29 10:53:12
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *   *
  * $OpenXM: OpenXM_contrib2/asir2000/builtin/compobj.c,v 1.2 2000/08/21 08:31:18 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/compobj.c,v 1.5 2002/01/22 01:00:08 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
 #include "comp.h"  #include "comp.h"
   
 void Parfreg();  void Parfreg();
   void Pstruct_type();
   
 struct ftab comp_tab[] = {  struct ftab comp_tab[] = {
         {"arfreg",Parfreg,8},          {"arfreg",Parfreg,8},
           {"struct_type",Pstruct_type,1},
         {0,0,0},          {0,0,0},
 };  };
   
   void Pstruct_type(arg,rp)
   NODE arg;
   Q *rp;
   {
           Obj obj;
           char *name;
           int ind;
   
   /*      asir_assert(ARG0(arg),O_STR,"struct_type"); */
           obj = (Obj)ARG0(arg);
           if ( !obj )
                   error("struct_type : invalid argument");
           switch ( OID(obj) ) {
                   case O_STR:
                           name = ((STRING)obj)->body;
                           ind = structtoindex(name);
                           break;
                   case O_COMP:
                           ind = ((COMP)obj)->type;
                           break;
                   default:
                           error("struct_type : invalid argument");
                           break;
           }
           STOQ(ind,*rp);
   }
   
 void Parfreg(arg,rp)  void Parfreg(arg,rp)
 NODE arg;  NODE arg;
 Q *rp;  Q *rp;
Line 66  Q *rp;
Line 95  Q *rp;
         P t;          P t;
         SDEF s;          SDEF s;
         int i;          int i;
           FUNC func;
   
         asir_assert(ARG0(arg),O_STR,"arfreg");          asir_assert(ARG0(arg),O_STR,"arfreg");
         name = ((STRING)ARG0(arg))->body;          name = ((STRING)ARG0(arg))->body;
Line 73  Q *rp;
Line 103  Q *rp;
                 if ( !strcmp(s[i].name,name) )                  if ( !strcmp(s[i].name,name) )
                         break;                          break;
         if ( i == LSS->n )          if ( i == LSS->n )
                 error("argreg : no such structure");                  error("arfreg : no such structure");
   
         t = (P)ARG1(arg); s[i].arf.add = !t ? 0 : (FUNC)VR(t)->priv;          t = (P)ARG1(arg); s[i].arf.add = !t ? 0 : (gen_searchf(NAME(VR(t)),&func), func);
         t = (P)ARG2(arg); s[i].arf.sub = !t ? 0 : (FUNC)VR(t)->priv;          t = (P)ARG2(arg); s[i].arf.sub = !t ? 0 : (gen_searchf(NAME(VR(t)),&func), func);
         t = (P)ARG3(arg); s[i].arf.mul = !t ? 0 : (FUNC)VR(t)->priv;          t = (P)ARG3(arg); s[i].arf.mul = !t ? 0 : (gen_searchf(NAME(VR(t)),&func), func);
         t = (P)ARG4(arg); s[i].arf.div = !t ? 0 : (FUNC)VR(t)->priv;          t = (P)ARG4(arg); s[i].arf.div = !t ? 0 : (gen_searchf(NAME(VR(t)),&func), func);
         t = (P)ARG5(arg); s[i].arf.pwr = !t ? 0 : (FUNC)VR(t)->priv;          t = (P)ARG5(arg); s[i].arf.pwr = !t ? 0 : (gen_searchf(NAME(VR(t)),&func), func);
         t = (P)ARG6(arg); s[i].arf.chsgn = !t ? 0 : (FUNC)VR(t)->priv;          t = (P)ARG6(arg); s[i].arf.chsgn = !t ? 0 : (gen_searchf(NAME(VR(t)),&func), func);
         t = (P)ARG7(arg); s[i].arf.comp = !t ? 0 : (FUNC)VR(t)->priv;          t = (P)ARG7(arg); s[i].arf.comp = !t ? 0 : (gen_searchf(NAME(VR(t)),&func), func);
         *rp = ONE;          *rp = ONE;
 }  }
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>