@@ -265,6 +265,7 @@ instance ToJSON BC where
265265 toJSON (FOREIGNCALL r fd ret exps) = object ["FOREIGNCALL" .= (r, fd, ret, exps)]
266266 toJSON (SLIDE i) = object ["SLIDE" .= i]
267267 toJSON (RESERVE i) = object ["RESERVE" .= i]
268+ toJSON (RESERVENOALLOC i) = object ["RESERVENOALLOC" .= i]
268269 toJSON (ADDTOP i) = object ["ADDTOP" .= i]
269270 toJSON (TOPBASE i) = object ["TOPBASE" .= i]
270271 toJSON (BASETOP i) = object ["BASETOP" .= i]