Use opcodes` addresses on interpreter loop

compiler/interpreter.S

@@ -46,9 +46,8 @@
  mov 0x20(%rbp, $0, 8), $1
.endmacro

.macro opcode_jmp
  jmp _op_$0
  .fill 3
.macro op_address
  .long _op_$0 - _loop_op_addresses
.endmacro

.globl _execute
@@ -65,26 +64,27 @@ _execute:
  mov %rcx, %BCBASE

_loop:
  lea loop_opcodes(%rip), %rdi
  xor %rax, %rax
  mov (%BYTECODE), %al // 0..10
  lea (%rdi, %al, 8), %rdi
  lea _loop_op_addresses(%rip), %rdi
  movsl (%rdi, %al, 4), %rax
  add %rax, %rdi
  jmp *%rdi
loop_opcodes:
  opcode_jmp ret
  opcode_jmp bind
  opcode_jmp push
  opcode_jmp call
  opcode_jmp jz
  opcode_jmp jmp
  opcode_jmp create_closure
  opcode_jmp load_string
  opcode_jmp push_arg
  opcode_jmp lookup
  opcode_jmp exit
  opcode_jmp create_lex_scope
  opcode_jmp release_lex_scope
  opcode_jmp put_to_scope
_loop_op_addresses:
  op_address ret
  op_address bind
  op_address push
  op_address call
  op_address jz
  op_address jmp
  op_address create_closure
  op_address load_string
  op_address push_arg
  op_address lookup
  op_address exit
  op_address create_lex_scope
  op_address release_lex_scope
  op_address put_to_scope

_op_exit:
  mov %rbp, %rsp