[COMMITTED 1/2] poked: Change `disasm` function to accept offsets for address

[Mohammad-Reza Nabipoor]

2022-03-11  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>

        * poked/poked.pk (__Disasm): Change type of `adr` to offset.
        (disasm): Likewise.
---
 ChangeLog      | 5 +++++
 poked/poked.pk | 4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 380b11f0..273eb503 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2022-03-11  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
+
+       * poked/poked.pk (__Disasm): Change type of `adr` to offset.
+       (disasm): Likewise.
+
 2022-03-10  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
 
        * poked/poked.c (poked_buf_send): Check exception after `pk_call`.
diff --git a/poked/poked.pk b/poked/poked.pk
index d0b64c49..89459af0 100644
--- a/poked/poked.pk
+++ b/poked/poked.pk
@@ -338,11 +338,11 @@ printf \"%%v\\n\", %s;
 type __Disasm = struct
   {
     string arch;
-    little uint64 adr;
+    little offset<uint64,B> adr;
     byte[] code;
   };
 
-fun disasm = (string arch, uint64 adr, byte[] code) void:
+fun disasm = (string arch, offset<uint64,B> adr, byte[] code) void:
   {
     var fd = open("*__poked_disasm*");
     var d = __Disasm{ arch = arch , adr = adr, code = code };
-- 
2.35.1