annotate presen/slide.md @ 122:a3ff00c33fd7 default tip

update slide
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Wed, 20 Feb 2019 12:05:38 +0900
parents 35238e76a0d3
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 title: CbCによるPerl6処理系
100
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 96
diff changeset
2 author: 清水隆博
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 96
diff changeset
3 profile: 並列信頼研
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 lang: Japanese
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 code-engine: coderay
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7
92
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
8
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
9 ## 研究目的
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 - Continuation based C (CbC)という言語は継続を基本とするC言語であり, 言語処理系に応用出来ると考えられる
122
a3ff00c33fd7 update slide
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 120
diff changeset
11 - スクリプト言語などは, バイトコードを扱うが, この実行にcase文や, ラベルgotoなどを利用している。
92
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
12 - この部分はCbCの機能で書き換える事が可能である
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
13 - 命令実行処理部分をモジュール化することで、各命令ごとの最適化や、 命令ディスパッチ部分の最適化を行う事が可能であると考える。
105
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 104
diff changeset
14
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 104
diff changeset
15 ## 研究目的
108
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
16 - 現在開発されているPerl6の実装にRakudoがある
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
17 - Rakudoはバイトコードを生成する
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
18 - このバイトコードはMoarVMという専用の仮想機械が評価する
110
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 108
diff changeset
19 - MoarVMはC言語で記述されている為、 Cと互換性のある言語であるCbCで書き直す事が可能である
105
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 104
diff changeset
20 - 本研究では, CbC用いてPerl6にC処理系であるMoarVMの一部書き換えを行い, 命令のモジュール化を検討する.
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 104
diff changeset
21
92
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
22
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 ## Continuation Based C (CbC)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 - Continuation Based C (CbC) はCodeGearを単位として用いたプログラミング言語である.
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 - CodeGearはCの通常の関数呼び出しとは異なり,スタックに値を積まず, 次のCodeGearにgoto文によって遷移する.
85
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 81
diff changeset
26 - CodeGear同士の移動は、 状態遷移として捉える事が出来る
100
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 96
diff changeset
27
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 96
diff changeset
28 <img src="fig/cbc_sample.svg" >
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 96
diff changeset
29
85
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 81
diff changeset
30
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 81
diff changeset
31 ## Continuation Based C (CbC)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 81
diff changeset
32
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 81
diff changeset
33 - CodeGearはCの関数宣言の型名の代わりに`__code`と書く事で宣言出来る
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 81
diff changeset
34 - CodeGearの引数は, 各CodeGearの入出力として利用する
92
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
35 - gotoしてしまうと、元のCodeGearに戻る事が出来ない
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
36
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
37 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 __code cg1(TEST testin){
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 TEST testout;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 testout.number = testin.number + 1;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
41 testout.string = "Hello";
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 goto cg2(testout);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
44
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 __code cg2(TEST testin){
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
46 printf("number = %d\t string= %s\n",testin.number,testin.string);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
47 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
48
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 int main(){
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
50 TEST test = {0,0};
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
51 goto cg1(test);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
52 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
53 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
54
105
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 104
diff changeset
55 ## スクリプト言語処理系
92
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
56 - スクリプト言語は入力として与えられたソースコードを、 直接評価せずにバイトコードにコンパイルする形式が主流となっている
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
57 - その為スクリプト言語の実装は大きく2つで構成されている
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
58 - バイトコードに変換するフロントエンド部分
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
59 - バイトコードを解釈する仮想機械
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
60
100
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 96
diff changeset
61 <img src="fig/bytecode_sample_generally_lang.svg" width="80%">
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 96
diff changeset
62
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 96
diff changeset
63
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
64 ## Rakudo
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
65 - Rakudoとは現在のPerl6の主力な実装である.
93
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
66 - Rakudoは次の構成になっている
108
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
67 - 実行環境のVM (MoarVM)
93
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
68 - Perl6のサブセットであるNQP(NotQuitPerl)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
69 - NQPで記述されたPerl6(Rakudo)
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
70
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
71 ## MoarVM
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
72
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
73 - Perl6専用のVMであり, Cで記述されている
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
74 - レジスタマシンとして実装されている.
92
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
75
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
76
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
77 ## MoarVMのバイトコード
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
78
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
79 - MoarVMは16ビットのバイナリを命令バイトコードとして利用している
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
80 - 命令にはその後に16ビットごとにオペランド(引数)を取るものがある
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
82 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
83 add_i loc_3_int, loc_0_int, loc_1_int
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
84 set loc_2_obj, loc_3_obj
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
85 ```
111
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
86 ## MoarVMのバイトコード
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
87
119
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 112
diff changeset
88 - 次の様なNQPのソースコードをバイトコードに変換した際の対応を見る
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 112
diff changeset
89
111
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
90 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
91 sub test_func(int $left, int $right){
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
92 my int $sum := $left + $right;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
93 ++$sum;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
94 return $sum;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
95 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
96
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
97 my $arg1 := 1;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
98 my $arg2 := 8;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
99
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
100 say(test_func($arg1,$arg2));
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
101
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
102 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
103
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
104 ## MoarVMのバイトコード
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
105
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
106
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 110
diff changeset
107 <img src="fig/code_to_bytecode.svg" width="80%" style="text-align:center;padding-left: 100px;">
92
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
108
93
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
109 ## MoarVMのバイトコードインタプリタ
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
110 - バイトコードは連続したメモリに確保されている
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
111 - その為次の処理を繰り返す必要がある
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
112 - 16ビットごとで読み込み
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
113 - 読み込んだビットから、命令に対応する処理を呼び出し
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
114 - その処理を実行する
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
115 - この処理をバイトコードディスパッチと呼び、 実行する部分をバイトコードインタプリタと呼ぶ
92
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
116
106
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 105
diff changeset
117 ## MVM_interp_runの内部処理
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 105
diff changeset
118
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 105
diff changeset
119 - MoarVMは関数 `MVM_interp_run` でバイトコードに応じた処理を実行する
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 105
diff changeset
120 - gccやclangを利用してコンパイルした場合、 ラベルgotoで命令ディスパッチが実行される
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 105
diff changeset
121
108
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
122 <img src="fig/origin_label_goto.svg" width="30%" style="text-align:center;padding-left: 300px;">
106
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 105
diff changeset
123
92
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
124 ## MoarVMのバイトコードインタプリタ
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
125
93
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
126 - マクロDISPATCHで, ラベルgotoかcase文に変換が行われる
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
127 - バイトコードは数値として見る事が出来る為、 case文に対応する事が出来る
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
128 - この中の `OP` で宣言されたブロックがそれぞれバイトコードに対応する処理となっている.
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
129
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
130 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
131 DISPATCH(NEXT_OP) {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
132 OP(const_i64):
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
133 GET_REG(cur_op, 0).i64 = MVM_BC_get_I64(cur_op, 2);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
134 cur_op += 10;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
135 goto NEXT;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
136 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
137
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
138 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
139
106
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 105
diff changeset
140
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
141 ## MVM_interp_runで使用されているマクロ
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
142
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
143 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
144 DISPATCH(NEXT_OP) {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
145 OP(const_i64):
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
146 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
147
107
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 106
diff changeset
148 - マクロ `OP` は次の様に定義している
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
149
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
150 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
151 #define OP(name) OP_ ## name
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
152 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
153
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
154 - マクロ `OP` が, バイトコードの名前をC言語のラベルに変換する
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
155
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
156
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
157 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
158 OP_const_i16:
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
159 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
160
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
161 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
162 #OP_const_i16
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
163 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
164
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
165 ## MVM_interp_runで使用されているマクロ
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
166
108
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
167 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
168 OP(const_i64):
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
169 GET_REG(cur_op, 0).i64 = MVM_BC_get_I64(cur_op, 2);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
170 cur_op += 10;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
171 goto NEXT;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
172 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
173
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
174 - `cur_op`は次のバイトコード列が登録されており, マクロ `NEXT` で決められた方法で次のバイトコードに対応した処理に遷移する.
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
175
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
176 ## MVM_interp_runで使用されているマクロ
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
177
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
178 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
179 OP(const_i64):
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
180 GET_REG(cur_op, 0).i64 = MVM_BC_get_I64(cur_op, 2);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
181 cur_op += 10;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
182 goto NEXT;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
183 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
184
107
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 106
diff changeset
185 - 次の命令に移動する `NEXT`はラベルテーブルにアクセスし, ラベルを取り出す
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
186 - 取り出したNEXTはラベルなので、 ラベルgotoの拡張が実装されている場合はgoto文でジャンプ出来る
108
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
187 - 次の命令に対応する数値は, `NEXT_OP` というマクロで取り出す
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
188
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
189 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
190 #define NEXT_OP (op = *(MVMuint16 *)(cur_op), cur_op += 2, op)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
191 #define NEXT *LABELS[NEXT_OP]
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
192
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
193 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
194
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
195
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
196 ## MVM_interp_runのラベルテーブル
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
197
93
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
198 - 利用するCコンパイラが、ラベルgotoをサポートしている場合に実行される
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
199 - 配列`LABELS`にアクセスし, ラベル情報を取得する
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
200 - ラベル情報を取得出来ると、 そのラベルに対してラベルgotoを利用する
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
201
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
202 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
203 static const void * const LABELS[] = {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
204 &&OP_no_op,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
205 &&OP_const_i8,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
206 &&OP_const_i16,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
207 &&OP_const_i32,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
208 &&OP_const_i64,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
209 &&OP_const_n32,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
210 &&OP_const_n64,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
211 &&OP_const_s,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
212 &&OP_set,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
213 &&OP_extend_u8,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
214 &&OP_extend_u16,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
215 &&OP_extend_u32,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
216 &&OP_extend_i8,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
217 &&OP_extend_i16,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
218 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
219
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
220
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
221 ## MVM_interp_run
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
222
93
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
223 - Cの実装の場合, switch文に展開される可能性がある
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
224 - 命令ディスパッチが書かれているCソースファイルの指定の場所にのみ処理を記述せざるを得ない
93
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
225 - 1ファイルあたりの記述量が膨大になり, 命令のモジュール化ができない
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
226 - 高速化手法の、 Threaded Codeの実装を考えた場合, この命令に対応して大幅に処理系の実装を変更する必要がある.
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
227 - デバッグ時には今どの命令を実行しているか, ラベルテーブルを利用して参照せざるを得ず, 手間がかかる.
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
228
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
229
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
230
95
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
231 ## CbCでの変換
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
232
93
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
233 - CbCのCodeGearは関数よりも小さな単位である
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 92
diff changeset
234 - その為、 従来は関数化出来なかった単位をCodeGearに変換する事が出来る
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
235 - CbCをMoarVMに適応すると, ラベルなどで制御していた命令に対応する処理をCodeGearで記述する事が可能である
95
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
236
108
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
237
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
238
95
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
239 ## CbCMoarVMのバイトコードディスパッチ
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
240
107
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 106
diff changeset
241 - オリジナルでは, マクロ `NEXT` が担当していた、 次のバイトコードへの移動は, NEXT相当のCodeGear `cbc_next`で処理を行う
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
242 - CodeGearの入出力として, MoarVMなどの情報をまとめた構造体を利用する
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
243
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
244 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
245 __code cbc_next(INTERP i){
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
246 __code (*c)(INTERP)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
247 c = CODES[(i->op = *(MVMuint16 *)(i->cur_op), i->cur_op += 2, i->op)]; // c = NEXT(i)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
248 goto c(i);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
249 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
250
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
251 __code cbc_const_i64(INTERP i){
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
252 GET_REG(i->cur_op, 0,i).i64 = MVM_BC_get_I64(i->cur_op, 2);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
253 i->cur_op += 10;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
254 goto cbc_next(i);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
255 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
256
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
257 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
258
108
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
259
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
260 ## CodeGearの入出力インターフェイス
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
261
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
262 - MoarVMではレジスタの集合や命令列などをMVM_interp_runのローカル変数として利用し, 各命令実行箇所で参照している
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
263 - CodeGearに書き換えた場合, このローカル変数にはアクセスする事が不可能となる.
108
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
264
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
265 ## CodeGearの入出力インターフェイス
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
266 - 入出力としてMoarVMの情報をまとめた構造体interpのポインタであるINTERPを受け渡し, これを利用してアクセスする
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
267
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
268
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
269 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
270 typedef struct interp {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
271 MVMuint16 op;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
272 MVMuint8 *cur_op;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
273 MVMuint8 *bytecode_start;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
274 MVMRegister *reg_base;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
275 /* Points to the current compilation unit
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
276 . */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
277 MVMCompUnit *cu;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
278 /* The current call site we’re
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
279 constructing. */
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
280 MVMCallsite *cur_callsite;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
281 MVMThreadContext *tc;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
282 } INTER,*INTERP;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
283 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
284
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
285 ## CbCMoarVMのCodeGearテーブル
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
286
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
287 - CodeGearテーブルは引数としてINTERを受け取るCodeGearの配列として定義する
95
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
288 - テーブルとして宣言することで、 バイトコードの値をそのままテーブルに反映させる事が可能である
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
289
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
290 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
291 __code (* CODES[])(INTERP) = {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
292 cbc_no_op,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
293 cbc_const_i8,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
294 cbc_const_i16,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
295 cbc_const_i32,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
296 cbc_const_i64,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
297 cbc_const_n32,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
298 cbc_const_n64,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
299 cbc_const_s,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
300 cbc_set,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
301 cbc_extend_u8,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
302 cbc_extend_u16,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
303 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
304
108
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
305 ## CbCMoarVMの状態遷移
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
306
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
307 <img src="fig/cbc_next.svg" width="80%" style="text-align:center;padding-left: 120px;">
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
308
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
309
96
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
310 ## MoarVMとCbCMoarVMのトレース
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
311
96
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
312 - MoarVMのデバッグ時には、 次の命令が何であるかは直接は判断出来なかった
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
313
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
314 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
315 Breakpoint 1, dummy () at src/core/interp.c:46
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
316 46 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
317 #1 0x00007ffff75689da in MVM_interp_run (tc=0x604a20,
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
318 initial_invoke=0x7ffff76c7168 <toplevel_initial_invoke>, invoke_data=0x67ff10)
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
319 at src/core/interp.c:1169
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
320 1169 goto NEXT;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
321 $2 = 162
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
322 ```
96
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
323 - CbCMoarVMの場合は、 次に実行する命令名を確認する事が出来る
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
324
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
325 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
326 Breakpoint 2, cbc_next (i=0x7fffffffdc30) at src/core/cbc-interp.cbc:61
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
327 61 goto NEXT(i);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
328 $1 = (void (*)(INTERP)) 0x7ffff7566f53 <cbc_takeclosure>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
329 $2 = 162
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
330 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
331
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
332 ## MoarVMのデバッグ
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
333
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
334 - cur_opのみをPerlスクリプトなどを用いて抜き出し, 並列にログを取得したオリジナルと差分を図る
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
335 - この際に差異が発生したバイトコードを確認し, その前の状態で確認していく
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
336
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
337 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
338 25 : 25 : cbc_unless_i
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
339 247 : 247 : cbc_null
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
340 54 : 54 : cbc_return_o
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
341 140 : 140 : cbc_checkarity
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
342 558 : 558 : cbc_paramnamesused
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
343 159 : 159 : cbc_getcode
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
344 391 : 391 : cbc_decont
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
345 127 : 127 : cbc_prepargs
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
346 *139 : 162
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
347 cbc_invoke_o:cbc_takeclosure
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
348 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
349
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
350 ## 現在のCbCMoarVM
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
351
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
352 - 現在はNQP, Rakudoのセルフビルドが達成でき, オリジナルと同等のテスト達成率を持っている
95
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
353 - その為、 NQP, Rakudoの実行コマンドであるnqp perl6が起動する様になった
108
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
354
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
355 ## 現在のCbCMoarVM
95
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
356 - moarの起動時のオプションとして `--cbc` を与えることによりCbCかオリジナルを選択可能である
108
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
357 - `--cbc` オプションをmoarの起動時に設定することでCbCで書き換えたインタプリタが起動する
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
358
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
359 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
360 #!/bin/sh
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
361 exec /mnt/dalmore-home/one/src/Perl6/Optimize/llvm/build_perl6/bin/moar --cbc \
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
362 --libpath=/mnt/dalmore-home/one/src/Perl6/Optimize/llvm/build_perl6/share/nqp/lib \
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
363 /mnt/dalmore-home/one/src/Perl6/Optimize/llvm/build_perl6/share/nqp/lib/nqp.moarvm "$@"
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
364 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
365
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
366 ## CbCMoarVMと通常のMoarVMの比較
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
367
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
368 - CbCMoarVMと通常のMoarVMの速度比較を行った
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
369 - NQPで実装した2種類の例題を用いた
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
370 - 単純なループで数値をインクリメントする例題
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
371 - 再帰呼び出しを用いてフィボナッチ数列を求める例題
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
372
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
373
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
374 ## フィボナッチの例題
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
375
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
376 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
377 #! nqp
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
378
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
379 sub fib($n) {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
380 $n < 2 ?? $n !! fib($n-1) + fib($n - 2);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
381 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
382
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
383 my $N := 30;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
384 my $z := fib($N);
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
385 say("fib($N) = " ~ fib($N));
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
386 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
387
112
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 111
diff changeset
388 ## フィボナッチの例題
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
389
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
390 - フィボナッチの例題ではCbCMoarVMが劣る結果となった
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
391
104
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
392 <table style="border: 2px solid #595959;">
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
393 <tbody>
104
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
394 <tr style="border: 2px solid #595959;">
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
395 <td style="border: 2px solid #595959;">[単位 sec]</td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
396 <td style="border: 2px solid #595959;"></td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
397 <td style="border: 2px solid #595959;"></td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
398 <td style="border: 2px solid #595959;"></td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
399 </tr>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
400 <tr style="border: 2px solid #595959;">
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
401 <td style="border: 2px solid #595959;">MoarVM</td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
402 <td style="border: 2px solid #595959;">1.379</td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
403 <td style="border: 2px solid #595959;">1.350</td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
404 <td style="border: 2px solid #595959;">1.346</td>
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
405 </tr>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
406 <tr>
104
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
407 <td style="border: 2px solid #595959;">CbCMoarVM</td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
408 <td style="border: 2px solid #595959;">1.636</td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
409 <td style="border: 2px solid #595959;">1.804</td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
410 <td style="border: 2px solid #595959;">1.787</td>
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
411 </tr>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
412 </tbody>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
413 </table>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
414
104
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
415 <style type="text/css">
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
416 table , td, th {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
417 border-collapse: collapse;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
418 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
419 td, th {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
420 padding: 12px;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
421 width: 120px;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
422 height: 40px;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
423 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
424 th {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
425 background: #f0e6cc;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
426 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
427 .even {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
428 background: #fbf8f0;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
429 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
430 .odd {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
431 background: #fefcf9;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
432 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
433 </style>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
434
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
435 ## 単純ループ
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
436
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
437 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
438 #! nqp
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
439
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
440 my $count := 100_000_000;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
441
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
442 my $i := 0;
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
443
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
444 while ++$i <= $count {
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
445 }
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
446 ```
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
447
112
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 111
diff changeset
448 ## 単純ループ
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
449
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
450 - 単純ループの場合は1.5secほど高速化した
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
451 - これは実行する命令コードが、 CPUのキャッシュに収まった為であると考えられる
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
452
104
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
453 <table style="border: 2px solid #595959;">
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
454 <tbody>
104
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
455 <tr style="border: 2px solid #595959;">
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
456 <td style="border: 2px solid #595959;">[単位 sec]</td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
457 <td style="border: 2px solid #595959;"></td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
458 <td style="border: 2px solid #595959;"></td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
459 <td style="border: 2px solid #595959;"></td>
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
460 </tr>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
461 <tr>
104
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
462 <td style="border: 2px solid #595959;">MoarVM</td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
463 <td style="border: 2px solid #595959;">7.499</td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
464 <td style="border: 2px solid #595959;">7.844</td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
465 <td style="border: 2px solid #595959;">7.822</td>
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
466 </tr>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
467 <tr>
104
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
468 <td style="border: 2px solid #595959;">CbCMoarVM</td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
469 <td style="border: 2px solid #595959;">6.135</td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
470 <td style="border: 2px solid #595959;">6.362</td>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 103
diff changeset
471 <td style="border: 2px solid #595959;">6.074</td>
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
472 </tr>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
473 </tbody>
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
474 </table>
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
475
95
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
476 ## CbCMoarVMの利点
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
477 - バイトコードインタプリタの箇所をモジュール化する事が可能となった
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
478 - CodeGearの再利用性や記述生が高まる
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
479 - CodeGearは関数の様に扱える為、 命令ディスパッチの最適化につながる実装が可能となった
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
480 - デバッグ時にラベルではなくCodeGearにbreakpointを設定可能となった
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
481 - デバッグが安易となる
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
482 - CPUがキャッシュに収まる範囲の命令の場合、 通常のMoarVMよりも高速に動作する
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
483
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
484 ## CbCMoarVMの欠点
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
485
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
486 - MoarVMのオリジナルの更新頻度が高い為, 追従していく必要がある
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
487 - CodeGear側からCに戻る際に手順が複雑となる
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
488 - CodeGearを単位として用いる事で複雑なプログラミングが要求される.
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
489
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
490
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
491 ## まとめ
81
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
492 - 継続と基本としたC言語 Continuation Based Cを用いてPerl6の処理系の一部を書き直した
105
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 104
diff changeset
493 - CodeGearによって, 本来はモジュール化出来ない箇所をモジュール化が可能となった
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 104
diff changeset
494 - デバッグが通常のディスパッチと比較して安易になった
102
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
495 - CPUキャッシュに収まるループなどの命令の場合は、 通常のMoarVMよりも高速に動作する
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 100
diff changeset
496 - 今後はCodeGearの特性を活用し、 直接次の命令を実行する処理を実装する
120
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 119
diff changeset
497
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 119
diff changeset
498 ## CodeGearへの変換
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 119
diff changeset
499 - 次のcaseに移動する箇所はそのcase文に対応するCodeGearを指定する
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 119
diff changeset
500 - 中でGC対策を行っている命令は、 一時的にvoid型関数で処理を行う
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 119
diff changeset
501 - 中で利用している `cur_op` などは、 ポインタ `inter` 経由で操作する