[COMMITTED 7/7] poked: plet_disasm: add assertion for valid arches

[Mohammad-Reza Nabipoor]

2022-12-04  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>

        * poked/poked.pk (plet_disasm): Add an assertion for valid
        architectures.
---
 poked/poked.pk | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/poked/poked.pk b/poked/poked.pk
index 9b0690a2..25673f1f 100644
--- a/poked/poked.pk
+++ b/poked/poked.pk
@@ -397,6 +397,9 @@ type __Disasm = struct
 
 fun plet_disasm = (string arch, offset<uint64,B> adr, byte[] code) void:
   {
+    assert (
+      arch in ["x86_32", "x86_64", "arm", "arm_thumb", "aarch64", "m68k"]);
+
     var fd = open("*__poked_disasm*");
     var d = __Disasm{ arch = arch , adr = adr, code = code };
 
-- 
2.38.1