[dotgnu-pnet-commits] pnet ChangeLog cscc/c/c_types.c cscc/c/c_typeout.c

[Klaus Treichel]

CVSROOT:        /cvsroot/dotgnu-pnet
Module name:    pnet
Changes by:     Klaus Treichel <ktreichel>      07/05/28 14:40:35

Modified files:
        .              : ChangeLog 
        cscc/c         : c_types.c c_typeout.c 

Log message:
        Fix build of pnetC

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pnet/ChangeLog?cvsroot=dotgnu-pnet&r1=1.3459&r2=1.3460
http://cvs.savannah.gnu.org/viewcvs/pnet/cscc/c/c_types.c?cvsroot=dotgnu-pnet&r1=1.49&r2=1.50
http://cvs.savannah.gnu.org/viewcvs/pnet/cscc/c/c_typeout.c?cvsroot=dotgnu-pnet&r1=1.7&r2=1.8

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/ChangeLog,v
retrieving revision 1.3459
retrieving revision 1.3460
diff -u -b -r1.3459 -r1.3460
--- ChangeLog   28 May 2007 13:40:44 -0000      1.3459
+++ ChangeLog   28 May 2007 14:40:35 -0000      1.3460
@@ -1,8 +1,8 @@
 2007-05-28  Klaus Treichel  <address@hidden>
 
-       * cscc/c/c_types.h: Fix reading non system attributes of an ILClass. We 
have
-       to read the ILClass member directly because non system flags are masked 
out
-       otherwise.
+       * cscc/c/c_types.c, cscc/c/c_typeout.c: Fix reading non system 
attributes
+       of an ILClass. We have to read the ILClass member directly because non
+       system flags are masked out otherwise.
 
 2007-05-26  Klaus Treichel  <address@hidden>
 

Index: cscc/c/c_types.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/cscc/c/c_types.c,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -b -r1.49 -r1.50
--- cscc/c/c_types.c    28 May 2007 13:40:44 -0000      1.49
+++ cscc/c/c_types.c    28 May 2007 14:40:35 -0000      1.50
@@ -1493,7 +1493,7 @@
                        ILGenOutOfMemory(info);
                }
                ILFree(newName);
-               ILClassSetAttrs(newClass, ~0, ILClass_Attrs(classInfo));
+               ILClassSetAttrs(newClass, ~0, classInfo->attributes);
                CloneStruct(info, newClass, classInfo);
                return ILType_FromValueType(newClass);
        }
@@ -1783,13 +1783,13 @@
        type = ILTypeStripPrefixes(type);
        if(ILType_IsValueType(type))
        {
-               if((ILClass_Attrs(ILType_ToValueType(type)) &
-                               IL_META_TYPEDEF_IS_STRUCT) != 0)
+               ILClass *info = ILType_ToValueType(type);
+
+               if((info->attributes & IL_META_TYPEDEF_IS_STRUCT) != 0)
                {
                        return C_STKIND_STRUCT;
                }
-               else if((ILClass_Attrs(ILType_ToValueType(type)) &
-                                       IL_META_TYPEDEF_IS_UNION) != 0)
+               else if((info->attributes & IL_META_TYPEDEF_IS_UNION) != 0)
                {
                        return C_STKIND_UNION;
                }
@@ -1802,8 +1802,9 @@
        type = ILTypeStripPrefixes(type);
        if(ILType_IsValueType(type))
        {
-               if((ILClass_Attrs(ILType_ToValueType(type)) &
-                               IL_META_TYPEDEF_IS_ENUM) != 0)
+               ILClass *info = ILType_ToValueType(type);
+
+               if((info->attributes & IL_META_TYPEDEF_IS_ENUM) != 0)
                {
                        return 1;
                }

Index: cscc/c/c_typeout.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/cscc/c/c_typeout.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- cscc/c/c_typeout.c  6 Mar 2004 09:47:37 -0000       1.7
+++ cscc/c/c_typeout.c  28 May 2007 14:40:35 -0000      1.8
@@ -52,7 +52,7 @@
  */
 static int IsCValueType(ILClass *classInfo)
 {
-       if((ILClass_Attrs(classInfo) & IL_META_TYPEDEF_TYPE_BITS) != 0)
+       if((classInfo->attributes & IL_META_TYPEDEF_TYPE_BITS) != 0)
        {
                return 1;
        }