mirror of
https://github.com/Smaug123/WoofWare.PawPrint
synced 2025-10-14 01:58:41 +00:00
Prepare for overlapping struct field handling (#121)
This commit is contained in:
16
WoofWare.PawPrint.Domain/Constants.fs
Normal file
16
WoofWare.PawPrint.Domain/Constants.fs
Normal file
@@ -0,0 +1,16 @@
|
||||
namespace WoofWare.PawPrint
|
||||
|
||||
[<AutoOpen>]
|
||||
module Constants =
|
||||
|
||||
[<Literal>]
|
||||
let SIZEOF_INT = 4
|
||||
|
||||
[<Literal>]
|
||||
let SIZEOF_OBJ = 8
|
||||
|
||||
[<Literal>]
|
||||
let DEFAULT_STRUCT_ALIGNMENT = 8
|
||||
|
||||
[<Literal>]
|
||||
let NATIVE_INT_SIZE = 8
|
@@ -167,8 +167,8 @@ module PrimitiveType =
|
||||
| PrimitiveType.Double -> 8
|
||||
| PrimitiveType.String -> 8
|
||||
| PrimitiveType.TypedReference -> failwith "todo"
|
||||
| PrimitiveType.IntPtr -> 8
|
||||
| PrimitiveType.UIntPtr -> 8
|
||||
| PrimitiveType.IntPtr -> NATIVE_INT_SIZE
|
||||
| PrimitiveType.UIntPtr -> NATIVE_INT_SIZE
|
||||
| PrimitiveType.Object -> 8
|
||||
|
||||
type TypeDefn =
|
||||
|
@@ -7,6 +7,7 @@
|
||||
|
||||
<ItemGroup>
|
||||
<Compile Include="StringToken.fs" />
|
||||
<Compile Include="Constants.fs" />
|
||||
<Compile Include="ImmutableArray.fs" />
|
||||
<Compile Include="Tokens.fs" />
|
||||
<Compile Include="TypeRef.fs" />
|
||||
|
Reference in New Issue
Block a user