From ab6b36baeea473ac17a8989e435d6247f40dcad0 Mon Sep 17 00:00:00 2001
From: Cheng Shao <cheng.shao@tweag.io>
Date: Thu, 7 Jan 2021 13:47:13 +0000
Subject: [PATCH] WIP

---
 asterius/src/Asterius/Internals/MagicNumber.hs | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/asterius/src/Asterius/Internals/MagicNumber.hs b/asterius/src/Asterius/Internals/MagicNumber.hs
index 16a3ba13..15f092a3 100644
--- a/asterius/src/Asterius/Internals/MagicNumber.hs
+++ b/asterius/src/Asterius/Internals/MagicNumber.hs
@@ -1,5 +1,7 @@
 module Asterius.Internals.MagicNumber
-  ( invalidAddress,
+  ( dataTag,
+    functionTag,
+    invalidAddress,
     defaultTableBase,
     defaultMemoryBase,
     mkStaticDataAddress,
@@ -7,9 +9,16 @@ module Asterius.Internals.MagicNumber
   )
 where
 
+import Data.Bits
 import Data.Int
 import Data.Word
 
+dataTag :: Int64
+dataTag = 0
+
+functionTag :: Int64
+functionTag = 0
+
 invalidAddress :: Int64
 invalidAddress = 0x001fffffffff0000