@@ -89,10 +89,10 @@ instance Show Const where
89 show (B16 b) = "(B16 ...)"
89 show (B16 b) = "(B16 ...)"
90 show (B32 b) = "(B32 ...)"
90 show (B32 b) = "(B32 ...)"
91 show (B64 b) = "(B64 ...)"
91 show (B64 b) = "(B64 ...)"
92− show (B8V xs) = "(B8V " ++ show xs ++ ")"
92+ show (B8V xs) = "(B8V ...)"
93− show (B16V xs) = "(B16V " ++ show xs ++")"
93+ show (B16V xs) = "(B16V ...)"
94− show (B32V xs) = "(B32V " ++ show xs ++ ")"
94+ show (B32V xs) = "(B32V ...)"
95− show (B64V xs) = "(B64V " ++ show xs ++ ")"
95+ show (B64V xs) = "(B64V ...)"
96 show (AType x) = "(AType ...)"
96 show (AType x) = "(AType ...)"
97 show StrType = "StrType"
97 show StrType = "StrType"
98 show PtrType = "PtrType"
98 show PtrType = "PtrType"