@@ -265,6 +265,7 @@ instance ToJSON BC where
265 toJSON (FOREIGNCALL r fd ret exps) = object ["FOREIGNCALL" .= (r, fd, ret, exps)]
265 toJSON (FOREIGNCALL r fd ret exps) = object ["FOREIGNCALL" .= (r, fd, ret, exps)]
266 toJSON (SLIDE i) = object ["SLIDE" .= i]
266 toJSON (SLIDE i) = object ["SLIDE" .= i]
267 toJSON (RESERVE i) = object ["RESERVE" .= i]
267 toJSON (RESERVE i) = object ["RESERVE" .= i]
268+ toJSON (RESERVENOALLOC i) = object ["RESERVENOALLOC" .= i]
268 toJSON (ADDTOP i) = object ["ADDTOP" .= i]
269 toJSON (ADDTOP i) = object ["ADDTOP" .= i]
269 toJSON (TOPBASE i) = object ["TOPBASE" .= i]
270 toJSON (TOPBASE i) = object ["TOPBASE" .= i]
270 toJSON (BASETOP i) = object ["BASETOP" .= i]
271 toJSON (BASETOP i) = object ["BASETOP" .= i]