1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
#! /your/favourite/path/to/ruby
# -*- mode: ruby; coding: utf-8; indent-tabs-mode: nil; ruby-indent-level: 2 -*-
# -*- frozen_string_literal: true; -*-
# -*- warn_indent: true; -*-
#
# Copyright (c) 2017 Urabe, Shyouhei. All rights reserved.
#
# This file is a part of the programming language Ruby. Permission is hereby
# granted, to either redistribute and/or modify this file, provided that the
# conditions mentioned in the file COPYING are met. Consult the file for
# details.
RubyVM::Typemap = {
"..." => %w[. TS_VARIABLE],
"CALL_CACHE" => %w[E TS_CALLCACHE],
"CALL_INFO" => %w[C TS_CALLINFO],
"CDHASH" => %w[H TS_CDHASH],
"GENTRY" => %w[G TS_GENTRY],
"IC" => %w[K TS_IC],
"ID" => %w[I TS_ID],
"ISEQ" => %w[S TS_ISEQ],
"OFFSET" => %w[O TS_OFFSET],
"VALUE" => %w[V TS_VALUE],
"lindex_t" => %w[L TS_LINDEX],
"rb_insn_func_t" => %w[F TS_FUNCPTR],
"rb_num_t" => %w[N TS_NUM],
}
# :FIXME: should this method be here?
class << RubyVM::Typemap
def typecast_from_VALUE type, val
# see also iseq_set_sequence()
case type
when '...'
raise "cast not possible: #{val}"
when 'VALUE' then
return val
when 'rb_num_t', 'lindex_t' then
return "NUM2LONG(#{val})"
when 'ID' then
return "SYM2ID(#{val})"
else
return "(#{type})(#{val})"
end
end
def typecast_to_VALUE type, val
case type
when 'VALUE' then
return val
when 'ISEQ', 'rb_insn_func_t' then
return "(VALUE)(#{val})"
when 'rb_num_t', 'lindex_t'
"LONG2NUM(#{val})"
when 'ID' then
return "ID2SYM(#{val})"
else
raise ":FIXME: TBW for #{type}"
end
end
end
|
