gistfile1.txt

Old
getlex_no:   (let (($str (load (idx (load (addr (cu)
                                          (&offsetof MVMCompUnit body.strings)) ptr_sz)
                                      $1 ptr_sz) ptr_sz))
                   ($res (call (&funcptr &MVM_frame_find_lexical_by_name)
                               (arglist 3 (carg (tc) ptr_sz)
                                          (carg $str ptr_sz)
                                          (carg 8 ptr_sz))
                               reg_val)))
                   (ifelse (nz $res) (load $res ptr_sz) $res))

# NB - idx is basically 3 args, a + b*x, x being constant; addr = a+x, x being constant
# both can be implemented using simple addition or multiplcation, but that requires an extra const node
# more importantly,
MACRO (^get_string `a) (load (idx (load (addr (cu) (&offsetof MVMCompUnit body.strings)) ptr_sz) `a ptr_sz) ptr_sz)
getlex_no: (let (($res (call (&funcptr &MVM_frame_find_lexical_by_name)
                             (arglist 3 (carg (tc) ptr_sz)
                                        (carg (^get_string $1) ptr_sz)
                                        (carg 8 ptr_sz)
                             reg_val)))
                  (ifelse (nz $res) (load $res ptr_sz) $res)