Commit 2dacc462 authored by Camil Staps's avatar Camil Staps 🐧

Add ABC argument types for stack sizes

parent 8fab6010
...@@ -225,6 +225,8 @@ from Text.GenJSON import generic JSONEncode, generic JSONDecode, :: JSONNode ...@@ -225,6 +225,8 @@ from Text.GenJSON import generic JSONEncode, generic JSONDecode, :: JSONNode
= ABCTypeLabel = ABCTypeLabel
| ABCTypeAStackOffset | ABCTypeAStackOffset
| ABCTypeBStackOffset | ABCTypeBStackOffset
| ABCTypeAStackSize
| ABCTypeBStackSize
| ABCTypeBool | ABCTypeBool
| ABCTypeChar | ABCTypeChar
| ABCTypeInt | ABCTypeInt
......
...@@ -36,6 +36,8 @@ where ...@@ -36,6 +36,8 @@ where
ABCTypeLabel -> "label" ABCTypeLabel -> "label"
ABCTypeAStackOffset -> "A-offset" ABCTypeAStackOffset -> "A-offset"
ABCTypeBStackOffset -> "B-offset" ABCTypeBStackOffset -> "B-offset"
ABCTypeAStackSize -> "A-size"
ABCTypeBStackSize -> "B-size"
ABCTypeBool -> "bool" ABCTypeBool -> "bool"
ABCTypeChar -> "char" ABCTypeChar -> "char"
ABCTypeInt -> "int" ABCTypeInt -> "int"
...@@ -51,6 +53,8 @@ where ...@@ -51,6 +53,8 @@ where
"label" -> Just ABCTypeLabel "label" -> Just ABCTypeLabel
"A-offset" -> Just ABCTypeAStackOffset "A-offset" -> Just ABCTypeAStackOffset
"B-offset" -> Just ABCTypeBStackOffset "B-offset" -> Just ABCTypeBStackOffset
"A-size" -> Just ABCTypeAStackSize
"B-size" -> Just ABCTypeBStackSize
"bool" -> Just ABCTypeBool "bool" -> Just ABCTypeBool
"char" -> Just ABCTypeChar "char" -> Just ABCTypeChar
"int" -> Just ABCTypeInt "int" -> Just ABCTypeInt
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment