|
1 | | -using System; |
| 1 | +using System; |
2 | 2 | using System.Collections; |
3 | 3 | using System.Collections.Generic; |
4 | 4 | using System.Reflection; |
@@ -86,7 +86,7 @@ internal static IntPtr CreateType(Type impl) |
86 | 86 |
|
87 | 87 | int flags = TypeFlags.Default | TypeFlags.Managed | |
88 | 88 | TypeFlags.HeapType | TypeFlags.HaveGC; |
89 | | - Marshal.WriteIntPtr(type, TypeOffset.tp_flags, (IntPtr)flags); |
| 89 | + Util.WriteCLong(type, TypeOffset.tp_flags, flags); |
90 | 90 |
|
91 | 91 | Runtime.PyType_Ready(type); |
92 | 92 |
|
@@ -160,7 +160,7 @@ internal static IntPtr CreateType(ManagedType impl, Type clrType) |
160 | 160 | flags |= TypeFlags.HeapType; |
161 | 161 | flags |= TypeFlags.BaseType; |
162 | 162 | flags |= TypeFlags.HaveGC; |
163 | | - Marshal.WriteIntPtr(type, TypeOffset.tp_flags, (IntPtr)flags); |
| 163 | + Util.WriteCLong(type, TypeOffset.tp_flags, flags); |
164 | 164 |
|
165 | 165 | // Leverage followup initialization from the Python runtime. Note |
166 | 166 | // that the type of the new type must PyType_Type at the time we |
@@ -323,7 +323,7 @@ internal static IntPtr CreateMetaType(Type impl) |
323 | 323 | flags |= TypeFlags.Managed; |
324 | 324 | flags |= TypeFlags.HeapType; |
325 | 325 | flags |= TypeFlags.HaveGC; |
326 | | - Marshal.WriteIntPtr(type, TypeOffset.tp_flags, (IntPtr)flags); |
| 326 | + Util.WriteCLong(type, TypeOffset.tp_flags, flags); |
327 | 327 |
|
328 | 328 | // We need space for 3 PyMethodDef structs, each of them |
329 | 329 | // 4 int-ptrs in size. |
@@ -380,7 +380,7 @@ internal static IntPtr BasicSubType(string name, IntPtr base_, Type impl) |
380 | 380 | flags |= TypeFlags.Managed; |
381 | 381 | flags |= TypeFlags.HeapType; |
382 | 382 | flags |= TypeFlags.HaveGC; |
383 | | - Marshal.WriteIntPtr(type, TypeOffset.tp_flags, (IntPtr)flags); |
| 383 | + Util.WriteCLong(type, TypeOffset.tp_flags, flags); |
384 | 384 |
|
385 | 385 | CopySlot(base_, type, TypeOffset.tp_traverse); |
386 | 386 | CopySlot(base_, type, TypeOffset.tp_clear); |
|
0 commit comments