From 2d22a8eb49c5010c3bab9507d1c0dd99cdc9a198 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Fri, 2 Apr 2010 00:30:27 -0700 Subject: [PATCH] tools.disassembler: allow aliens to be used in address pairs --- basis/tools/disassembler/disassembler.factor | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/basis/tools/disassembler/disassembler.factor b/basis/tools/disassembler/disassembler.factor index c0b3c9a586..c8df2f1094 100644 --- a/basis/tools/disassembler/disassembler.factor +++ b/basis/tools/disassembler/disassembler.factor @@ -15,6 +15,11 @@ HOOK: disassemble* disassembler-backend ( from to -- lines ) TR: tabs>spaces "\t" "\s" ; +GENERIC: (>address) ( object -- n ) + +M: integer (>address) ; +M: alien (>address) alien-address ; + PRIVATE> M: byte-array disassemble @@ -24,7 +29,7 @@ M: byte-array disassemble 2array disassemble ] with-destructors ; -M: pair disassemble first2 disassemble* [ tabs>spaces print ] each ; +M: pair disassemble first2 [ (>address) ] bi@ disassemble* [ tabs>spaces print ] each ; M: word disassemble word-code 2array disassemble ;