[Dotgnu-pnet-commits] CVS: pnet/engine lib_emit.c,1.10,1.11

[Rhys Weatherley <address@hidden>]

Update of /cvsroot/dotgnu-pnet/pnet/engine
In directory subversions:/tmp/cvs-serv24478/engine

Modified Files:
        lib_emit.c 
Log Message:


Fixes for 64-bit platforms; use the correct token value for the
call to "ILClassCreate".


Index: lib_emit.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/lib_emit.c,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** lib_emit.c  12 Jul 2003 00:10:42 -0000      1.10
--- lib_emit.c  12 Jul 2003 09:49:51 -0000      1.11
***************
*** 389,393 ****
  
        image = ((ILProgramItem *)module)->image;
!       token = (ILToken)parent;
        if (!(scope = (ILProgramItem *)nestedParent) &&
            !(scope = ILClassGlobalScope(image)))
--- 389,393 ----
  
        image = ((ILProgramItem *)module)->image;
!       token = *((ILToken *)parent);
        if (!(scope = (ILProgramItem *)nestedParent) &&
            !(scope = ILClassGlobalScope(image)))
***************
*** 423,427 ****
        }
  
!       if ((retval = ILClassCreate(scope, token, typeName, nameSpace, 
baseClass)))
        {
                ILClassSetAttrs(retval, (ILUInt32)-1, (ILUInt32)attr);
--- 423,427 ----
        }
  
!       if ((retval = ILClassCreate(scope, 0, typeName, nameSpace, baseClass)))
        {
                ILClassSetAttrs(retval, (ILUInt32)-1, (ILUInt32)attr);
***************
*** 613,618 ****
        if(item)
        {
!               ILMethodSetImplAttrs((ILMethod *)item, ~((unsigned long)0),
!                                                        (unsigned 
long)(long)attributes);
        }
  }
--- 613,618 ----
        if(item)
        {
!               ILMethodSetImplAttrs((ILMethod *)item, ~((ILUInt32)0),
!                                                        (ILUInt32)attributes);
        }
  }