annotate Slide/slide.md @ 98:b360b0159390 default tip

update
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Fri, 11 Jan 2019 14:08:33 +0900
parents 38ab79fff396
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
84
6c69fdd1716c add slide.md (template...)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 title: CbCによるPerl6処理系
6c69fdd1716c add slide.md (template...)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 author: Takahiro Shimizu, Shinji Kono
6c69fdd1716c add slide.md (template...)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 profile: 琉球大学
6c69fdd1716c add slide.md (template...)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 lang: Japanese
6c69fdd1716c add slide.md (template...)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 code-engine: coderay
6c69fdd1716c add slide.md (template...)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6
6c69fdd1716c add slide.md (template...)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
8 ## 研究目的
90
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
9 - 現在開発されているPerl6の実装にRakudoがあり, RakudoはNQP(Perl6のサブセット)で記述されたPerl6, NQPで記述されたNQPコンパイラ, NQPを解釈するVMで構成されている
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
10 - NQPコンパイラはRakudoのVMであるMoarVM用のバイトコードを生成し, MoarVMはこのバイトコードを解釈, 実行する
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
11 - Continuation based C (CbC)という言語は継続を基本とするC言語であり, 言語処理系に応用出来ると考えられる
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
12 - スクリプ言語などは, バイトコードを扱うが, この実行にcae文や, ラベルgotoなどを利用しており, この部分はCbCの機能で書き換える事が可能である
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
13 - 従って, CbC一部用いてPerl6にC処理系であるMoarVMの書き換えを行い, 処理を検討する.
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
14 ![](fig/perl6nqp.svg)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
15 - (Rakudoの構成図)
84
6c69fdd1716c add slide.md (template...)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
17 ## Continuation Based C (CbC)
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
18 - Continuation Based C (CbC) はCodeGearを単位として用いたプログラミング言語である.
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
19 - CodeGearはCの通常の関数呼び出しとは異なり,スタックに値を積まず, 次のCodeGearにgoto文によって遷移する.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
20 - CodeGearはCの関数宣言の型名の代わりに`__code`と書く事で宣言出来る.
90
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
21 - CodeGearの引数は, 各CodeGearの入出力として利用する.
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
22
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
23 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
24 extern int printf(const char*,...);
90
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
25
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
26 int main (){
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
27 int data = 0;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
28 goto cg1(&data);
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
29 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
30 __code cg1(int *datap){
90
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
31 (*datap)++;
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
32 goto cg2(datap);
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
33 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
34 __code cg2(int *datap){
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
35 (*datap)++;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
36 printf("%d\n",*datap);
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
37 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
38 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
39
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
40 ## CbCの現在の実装
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
41
86
2c38abf2c77d add poster
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
42 - CbCは現在3種類の実装がある.
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
43 - gcc (version 9.0.0)
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
44 - llvm/clang (version 7.0.0)
86
2c38abf2c77d add poster
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
45 - micro-c
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
46
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
47 ## 言語処理系の応用
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
48 - スクリプト言語処理系は, バイトコードにコンパイルされ, バイトコードをJITを用いてネイティブに変換する
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
49 - JITを使わない場合, バイトコードに対応した, case文や, ラベルのテーブルにgotoすることで処理を実行する
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
50 - CbCを言語処理系に応用した場合, バイトコードに対応するCodeGearを生成することが可能である
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
51 - バイトコードに対応したCodeGearは, CodeGearのテーブルを経由することで実行出来る
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
52 - CodeGearに分割することで, 処理を複数の関数で記述する事が出来, ファイル分割などのモジュール化が可能となる
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
53
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
54 ## Rakudo
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
55 - Rakudoとは現在のPerl6の主力な実装である.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
56 - 実行環境のVM, Perl6のサブセットであるNQP(NotQuitPerl), NQPで記述されたPerl6(Rakudo)という構成になっている.
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
57 - コンパイラは, NQPで記述されたPerl6コンパイラ, NQPで記述されたNQPコンパイラ, MoarVMバイトコードを解釈するMoarVMという構成である
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
58
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
59
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
60 <img src="fig/tgraph/1.svg" alt="" width="50%" height="50%"/>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
61
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
62
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
63 ## MoarVM
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
64
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
65 - Perl6専用のVMであり, Cで記述されている
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
66 - レジスタマシンとして実装されている.
90
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
67 - MoarVMはバイトコードインタプリタを `src/core/interp.c` で定義しており, この中の関数 `MVM_interp_run` でバイトコードに応じた処理を実行する
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
68
93
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
69 - マクロDISPATCHで, ラベルgotoかcase文に, バイトコードに対応した処理を行う
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
70 - この中の `OP` で宣言されたブロックがそれぞれバイトコードに対応する処理となっている.
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
71 - この中では `GET_REG` などのマクロを用いてMoarVMのレジスタにアクセスする.
93
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
72 - `cur_op`は次のバイトコード列が登録されており, マクロ `NEXT` で決められた方法で次のバイトコードに対応した処理に遷移する.
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
73
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
74 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
75 DISPATCH(NEXT_OP) {
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
76 OP(const_i64):
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
77 GET_REG(cur_op, 0).i64 = MVM_BC_get_I64(cur_op, 2);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
78 cur_op += 10;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
79 goto NEXT;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
80 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
81
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
82 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
83
95
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
84 ## MVM_BC_get_I64の実装
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
85
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
86 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
87 MVM_STATIC_INLINE MVMint64 MVM_BC_get_I64(const MVMuint8 *cur_op, int offset) {
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
88 const MVMuint8 *const where = cur_op + offset;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
89 #ifdef MVM_CAN_UNALIGNED_INT64
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
90 return *(MVMint64 *)where;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
91 #else
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
92 MVMint64 temp;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
93 memmove(&temp, where, sizeof(MVMint64));
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
94 return temp;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
95 #endif
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
96 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
97 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
98
91
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
99 ## MVM_interp_runで使用されているマクロ
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
100
94
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
101 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
102 DISPATCH(NEXT_OP) {
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
103 OP(const_i64):
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
104 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
105
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
106 - マクロ `DISPATCH` 及び `OP` は次の様に定義している
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
107
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
108 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
109 #define OP(name) OP_ ## name
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
110 #define NEXT *LABELS[NEXT_OP]
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
111 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
112
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
113 - マクロ`DISPATCH`は, ラベルgotoが利用できる場合は無視される
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
114 - マクロ `OP` が, 対応するバイトコード命令を, ラベル列に変換する
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
115
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
116
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
117 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
118 OP_const_i16:
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
119 OP_const_i32:
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
120 MVM_exception_throw_adhoc(tc, "const_iX NYI");
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
121 OP_const_i64:
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
122 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
123
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
124 ## MVM_interp_runのマクロ
93
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
125
91
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
126 - MVM_interp_runではマクロを利用してMoarVMの環境などにアクセスしている
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
127 - 頻出するマクロに `GET_REG` があり, 次のような使い方をする
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
128
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
129 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
130 OP(const_i64):
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
131 GET_REG(cur_op, 0).i64 = MVM_BC_get_I64(cur_op, 2);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
132 cur_op += 10;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
133 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
134
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
135
93
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
136 - `GET_REG`はバイトコードに埋められた数値を利用して, レジスタ情報を取得/設定などをする
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
137 - `GET_REG`は次の様に展開される
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
138
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
139 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
140 reg_base[*((MVMuint16 *)(cur_op + 0))].i64 = MVM_BC_get_I64(cur_op, 2);
91
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
141 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
142
93
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
143 - `reg_base` はMoarVMの現在のフレームのレジスタ情報が保存されたポインタであり, MVM_interp_runではローカル変数として利用している
91
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
144
93
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
145 ## MVM_interp_runで使用されているマクロ
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
146
93
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
147 - 次のバイトコード命令に遷移するマクロ `NEXT` は, ラベルgotoが使用可能な場合次の様に記述されている
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
148 - `NEXT`自体はラベルテーブルにアクセスし, ラベルを取り出す
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
149 - 次のバイトコードを取り出すのは, `NEXT_OP` というマクロが担っている
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
150
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
151 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
152 #define NEXT_OP (op = *(MVMuint16 *)(cur_op), cur_op += 2, op)
93
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
153 #define NEXT *LABELS[NEXT_OP]
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
154
93
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
155 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
156 - マクロ `NEXT` は次の様に展開される
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
157
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
158 ```
93
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
159 goto *LABELS[(op = *(MVMuint16 *)(cur_op), cur_op += 2, op)];
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
160 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 91
diff changeset
161
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
162
94
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 93
diff changeset
163 ## MVM_interp_runのラベルテーブル
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
164
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
165 - ラベル遷移を利用する場合は配列`LABELS`にアクセスし, ラベル情報を取得する
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
166
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
167 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
168 static const void * const LABELS[] = {
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
169 &&OP_no_op,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
170 &&OP_const_i8,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
171 &&OP_const_i16,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
172 &&OP_const_i32,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
173 &&OP_const_i64,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
174 &&OP_const_n32,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
175 &&OP_const_n64,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
176 &&OP_const_s,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
177 &&OP_set,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
178 &&OP_extend_u8,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
179 &&OP_extend_u16,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
180 &&OP_extend_u32,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
181 &&OP_extend_i8,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
182 &&OP_extend_i16,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
183 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
184
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
185
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
186 ## MVM_interp_run
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
187
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
188 - Cの実装の場合, switch文に展開される可能性がある為, 命令ディスパッチが書かれているCソース・ファイルの指定の場所にのみ処理を記述せざるを得ない
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
189 - その為, 1ファイルあたりの記述量が膨大になり, 命令のモジュール化ができない
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
190 - Threaded Codeの実装を考えた場合, この命令に対応して大幅に処理系の実装を変更する必要がある.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
191 - デバッグ時には今どの命令を実行しているか, ラベルテーブルを利用して参照せざるを得ず, 手間がかかる.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
192
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
193
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
194
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
195 ## CbCMoarVMのバイトコードディスパッチ
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
196
95
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
197 - CbCをMoarVMに適応すると, ラベルなどで制御していた命令に対応する処理をCodeGearで記述する事が可能である
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
198 - オリジナルでは, マクロ `NEXT` が担当していた, 次のバイトコードへの移動は, NEXT相当のCodeGear `cbc_next`で処理を行う
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
199 - CodeGearの入出力として, MoarVMなどの情報をまとめた構造体を利用する
84
6c69fdd1716c add slide.md (template...)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
200
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
201 ```
95
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
202 __code cbc_next(INTERP i){
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
203 __code (*c)(INTERP)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
204 c = CODES[(i->op = *(MVMuint16 *)(i->cur_op), i->cur_op += 2, i->op)]; // c = NEXT(i)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
205 goto c(i);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
206 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
207
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
208 __code cbc_const_i64(INTERP i){
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
209 GET_REG(i->cur_op, 0,i).i64 = MVM_BC_get_I64(i->cur_op, 2);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
210 i->cur_op += 10;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
211 goto cbc_next(i);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
212 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
213
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
214 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
215
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
216 ## CodeGearの入出力インターフェイス
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
217
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
218 - MoarVMではレジスタの集合や命令列などをMVM_interp_runのローカル変数として利用し, 各命令実行箇所で参照している
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
219 - CodeGearに書き換えた場合, このローカル変数にはアクセスする事が不可能となる.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
220 - その為, 入出力としてMoarVMの情報をまとめた構造体interpのポインタであるINTERPを受け渡し, これを利用してアクセスする
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
221
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
222
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
223 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
224 typedef struct interp {
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
225 MVMuint16 op;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
226 MVMuint8 *cur_op;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
227 MVMuint8 *bytecode_start;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
228 MVMRegister *reg_base;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
229 /* Points to the current compilation unit
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
230 . */
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
231 MVMCompUnit *cu;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
232 /* The current call site we’re
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
233 constructing. */
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
234 MVMCallsite *cur_callsite;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
235 MVMThreadContext *tc;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
236 } INTER,*INTERP;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
237 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
238
95
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
239 ## CbCMoarVMのCodeGearテーブル
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
240
95
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
241 - CodeGearテーブルは引数としてINTERを受け取るCodeGearの配列として定義する
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
242
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
243
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
244 ```
95
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
245 __code (* CODES[])(INTERP) = {
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
246 cbc_no_op,
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
247 cbc_const_i8,
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
248 cbc_const_i16,
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
249 cbc_const_i32,
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
250 cbc_const_i64,
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
251 cbc_const_n32,
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
252 cbc_const_n64,
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
253 cbc_const_s,
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
254 cbc_set,
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
255 cbc_extend_u8,
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
256 cbc_extend_u16,
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
257 ```
90
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
258
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
259
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
260 ## NQP
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
261 - Perl6の機能を制約したプログラミング言語であり, Perl6はNQPで記述されている
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
262 - その為Perl6処理系は, NQPの動作を目的に実装することでPerl6の動作が可能となる
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
263 - NQPコンパイラ自身もNQPで記述されている
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
264 - Perl6と違い, 変数の宣言を `:=` を利用した束縛で行う, `++` 演算子が使用できないなどの違いがある
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
265 - nqpのオペコードを利用する際に,型を指定する事が可能である
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
266
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
267 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
268 sub add_test(int $n) {
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
269 my $sum := 0;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
270 while nqp::isgt_i($n,1) {
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
271 $sum := nqp::add_i($sum,$n);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
272 $n := nqp::sub_i($n,1);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
273 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
274 return $sum;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
275 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
276
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
277 say(add_test(10));
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
278 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
279
90
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
280 ## NQPのバイトコード
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
281
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
282 - NQPはMoarVMのバイトコードにコンパイルし, バイトコードをファイルに保存することが可能である
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
283 - MoarVMのバイトコードは, アセンブリの様にダンプする事が可能である
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
284 - 実際に先程のコードをバイトコードにコンパイルし, 対応するバイトコードをダンプすると次の様に表示される
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
285
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
286
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
287 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
288 annotation: hoge.nqp:3
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
289 label_1:
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
290 00007 const_i64_16 loc_2_int, 1
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
291 00008 gt_i loc_2_int, loc_0_int, loc_2_int
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
292 00009 unless_i loc_2_int, label_2(00022)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
293 00010 osrpoint
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
294 annotation: hoge.nqp:4
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
295 00011 decont loc_3_obj, loc_1_obj
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
296 00012 smrt_numify loc_4_num, loc_3_obj
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
297 00013 coerce_ni loc_5_int, loc_4_num
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
298 00014 add_i loc_5_int, loc_5_int, loc_0_int
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
299 00015 hllboxtype_i loc_3_obj
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
300 00016 box_i loc_3_obj, loc_5_int, loc_3_obj
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
301 00017 set loc_1_obj, loc_3_obj
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
302 annotation: hoge.nqp:5
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
303 00018 const_i64_16 loc_5_int, 1
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
304 00019 sub_i loc_5_int, loc_0_int, loc_5_int
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
305 00020 set loc_0_int, loc_5_int
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
306 00021 goto label_1(00007)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
307 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
308
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
309 ## NQPのバイトコードとCbC
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
310
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
311 - NQPが生成したMoarVMバイトコードは確実に次に実行される命令がある箇所が複数存在する
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
312 - 静的にCのソースファイルに, NQPが生成したバイトコードと対応するCbCのCodeGearの実行を書くことで決定的に命令を実行可能でえある.
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
313
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
314 ## CbCMoarVMの利点
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
315
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
316 - バイトコードインタプリタの箇所をモジュール化する事が可能となり, CodeGearの再利用性や記述生が高まる
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
317 - デバッグ時にラベルではなくCodeGearにbreakpointを設定可能となり,デバッグが安易となる
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
318
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
319 ## CbCMoarVMの欠点
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
320
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
321 - CbCコンパイラがバグを発生させやすく, 意図しない挙動を示す事がある
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
322 - CbCコンパイラ自体のバグも存在する
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
323 - MoarVMのオリジナルの更新頻度が高い為, 追従していく必要がある
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
324 - CodeGear側からCに戻る際に手順が複雑となる
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
325 - CodeGearを単位として用いる事で複雑なプログラミングが要求される.
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
326
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
327
90
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
328
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
329 ## MoarVMのデバッグ手法
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
330
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
331 - MoarVMはバイトコードをランダムに生成する仕様となっている
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
332 - 一旦moarvmバイトコードとして出力したファイルを実行する場合は同じ処理内容となっている
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
333 - そのため, MoarVMのデバッグは同じバイトコードを入力として与え, オリジナルのMoarVMと並列してgdbを用いてトレースを行う.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
334 - この際, 実行するバイトコードの数が膨大となるので, scriptコマンドを用いて実行するバイトコードの番号を吐き出し, ログファイルを用いて比較する.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
335
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
336 ## MoarVMのデバッグ時のbreak point
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
337
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
338 - CbC側では次のオペコードの遷移は `cbc_next` というCodeGearで行う
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
339 - CodeGearは関数として扱える為, これに直接break pointを設定する
84
6c69fdd1716c add slide.md (template...)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
340
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
341 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
342 (gdb) b cbc_next
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
343 Breakpoint 2 at 0x7ffff7560288: file src/core/cbc-interp.cbc, line 61.
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
344 (gdb) command 2
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
345 Type commands for breakpoint(s) 2, one per line.
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
346 End with a line saying just "end".
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
347 >p CODES[*(MVMuint16 *)i->cur_op]
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
348 >p *(MVMuint16 *)i->cur_op
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
349 >c
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
350 >end
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
351 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
352 - オリジナルの場合マクロである為, dummy関数をマクロに記述し, この関数にbreakpointを設定する
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
353
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
354 ```
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
355 dalmore gdb --args ../../MoarVM_Original/MoarVM/moar --libpath=src/vm/moar/stage0 gen/moar/stage1/nqp
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
356 (gdb) b dummy
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
357 Function "dummy" not defined.
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
358 Make breakpoint pending on future shared library load? (y or [n]) y
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
359 Breakpoint 1 (dummy) pending.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
360 (gdb) command 1
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
361 Type commands for breakpoint(s) 1, one per line.
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
362 End with a line saying just "end".
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
363 >up
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
364 >p *(MVMuint16 *)(cur_op)
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
365 >c
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
366 >end
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
367
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
368 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
369
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
370 ## MoarVMのトレース
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
371
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
372 - トレース時には次の様なデバッグ情報の表示を利用する
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
373 - デバッガに, breakpointで停止した際のcur_opの値を表示する様に設定する.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
374
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
375 ```
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
376 Breakpoint 1, dummy () at src/core/interp.c:46
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
377 46 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
378 #1 0x00007ffff75608fe in MVM_interp_run (tc=0x604a20,
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
379 initial_invoke=0x7ffff76c7168 <toplevel_initial_invoke>, invoke_data=0x67ff10)
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
380 at src/core/interp.c:119
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
381 119 goto NEXT;
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
382 $1 = 159
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
383
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
384 Breakpoint 1, dummy () at src/core/interp.c:46
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
385 46 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
386 #1 0x00007ffff75689da in MVM_interp_run (tc=0x604a20,
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
387 initial_invoke=0x7ffff76c7168 <toplevel_initial_invoke>, invoke_data=0x67ff10)
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
388 at src/core/interp.c:1169
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
389 1169 goto NEXT;
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
390 $2 = 162
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
391 ```
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
392
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
393 ## CbCMoarVMのデバッグ
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
394
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
395 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
396 Breakpoint 2, cbc_next (i=0x7fffffffdc30) at src/core/cbc-interp.cbc:61
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
397 61 goto NEXT(i);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
398 $1 = (void (*)(INTERP)) 0x7ffff7566f53 <cbc_takeclosure>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
399 $2 = 162
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
400
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
401 Breakpoint 2, cbc_next (i=0x7fffffffdc30) at src/core/cbc-interp.cbc:61
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
402 61 goto NEXT(i);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
403 $3 = (void (*)(INTERP)) 0x7ffff7565f86 <cbc_checkarity>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
404 $4 = 140
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
405
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
406 Breakpoint 2, cbc_next (i=0x7fffffffdc30) at src/core/cbc-interp.cbc:61
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
407 61 goto NEXT(i);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
408 $5 = (void (*)(INTERP)) 0x7ffff7579d06 <cbc_paramnamesused>
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
409 $6 = 558
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
410
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
411
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
412 ```
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
413
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
414 ## MoarVMのデバッグ
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
415
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
416 - cur_opのみをPerlスクリプトなどを用いて抜き出し, 並列にログを取得したオリジナルと差分を図る
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
417 - この際に差異が発生したオペコードを確認し, その前の状態で確認していく
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
418
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
419 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
420 131 : 131
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
421 139 : 139
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
422 140 : 140
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
423 144 : 144
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
424 558 : 558
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
425 391 : 391
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
426 749 : 749
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
427 53 : 53
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
428 *54 : 8
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
429 ```
90
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
430
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
431 ## 現在のCbCMoarVM
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
432
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
433 - 現在はNQP, Rakudoのセルフビルドが達成でき, オリジナルと同等のテスト達成率を持っている
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
434 - moarの起動時のオプションとして `--cbc` を与えることによりCbCで動き, そうでない場合は通常のCで記述された箇所で実行される
90
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
435 - Perl6の実行バイナリperl6, NQPの実行バイナリnqp は, それぞれmoarを起動するシェルスクリプトである為, `--cbc` オプションをシェルスクリプト内に書き加えることで, Perl6, NQPがそれぞれCbCで起動する
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
436
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
437 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
438 #!/bin/sh
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
439 exec /mnt/dalmore-home/one/src/Perl6/Optimize/llvm/build_perl6/bin/moar --cbc \
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
440 --libpath=/mnt/dalmore-home/one/src/Perl6/Optimize/llvm/build_perl6/share/nqp/lib \
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
441 /mnt/dalmore-home/one/src/Perl6/Optimize/llvm/build_perl6/share/nqp/lib/nqp.moarvm "$@"
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 88
diff changeset
442 ```
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
443
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
444 ## ThreadedCodeの実装
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
445
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
446 - MoarVM内のオペコードに対応する処理が分離出来たことにより, オペコードに該当するCodeGearを書き連ねることによってThreadedCodeが実装可能となる
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
447
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
448
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
449 ## CbCMoarVMと通常のMoarVMの比較
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
450
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
451 - CbCMoarVMと通常のMoarVMの速度比較を行った
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
452 - 対象として, 単純なループで数値をインクリメントする例題と, フィボナッチ数列を求める例題を選択した
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
453 - NQPで実装した場合とPerl6で実装した場合の速度を計測した
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
454
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
455 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
456 #! nqp
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
457
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
458 my $count := 100_000_000;
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
459
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
460 my $i := 0;
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
461
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
462 while ++$i <= $count {
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
463 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
464 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
465
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
466 ```
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
467 #! nqp
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
468
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
469 sub fib($n) {
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
470 $n < 2 ?? $n !! fib($n-1) + fib($n - 2);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
471 }
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
472
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
473 my $N := 30;
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
474
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
475 my $z := fib($N);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
476
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
477 say("fib($N) = " ~ fib($N));
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
478
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
479 ```
95
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
480 ## フィボナッチの例題
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
481
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
482 - オリジナル
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
483 - 1.379 sec
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
484 - 1.350 sec
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
485 - 1.346 sec
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
486 - CbCMoarVM
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
487 - 1.636 sec
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
488 - 1.804 sec
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
489 - 1.787 sec
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
490 - フィボナッチの例題ではCbCMoarVMが劣る結果となった
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
491
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
492
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
493 ## 単純ループ
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
494
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
495 - オリジナル
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
496 - 7.499 sec
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
497 - 7.844 sec
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
498 - 6.746 sec
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
499 - CbCMoarVM
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
500 - 6.135 sec
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
501 - 6.362 sec
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
502 - 6.074 sec
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
503
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
504 - 単純ループではCbCMoarVMの方が高速に動作する場合もある
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
505
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
506
95
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
507 ## 基本ブロックとCodeGear
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
508
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
509 - コンパイラなどでは, 関数あるいはループの先頭から, 別の関数呼び出し, あるいはジャンプするまでの間のコードを基本ブロックと呼ぶ
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
510 - 基本ブロックは入力に影響を受けず, 基本ブロックが決定したタイミングである決定的な処理を行う
96
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
511 - 予め実行する基本ブロックが確定していれば, その部分のみ抜き出してコンパイルする事が可能である
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
512 - CbCのCodeGearは, この基本ブロックとみなす事が可能である
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
513 - その為, NQPの例題の様に, 予め実行する基本ブロックが確定すれば, その部分の処理が可能となる
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
514 - これを行うことで, CbCを用いてMoarVMのThreadedCode実装が可能となる
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
515
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
516 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
517 __code cbc_const_i64(INTERP i,__code cbc_next(INTERP i)){
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
518 GET_REG(i->cur_op, 0,i).i64 = MVM_BC_get_I64(i->cur_op, 2);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
519 i->cur_op += 10;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
520 goto cbc_next(i);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
521 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
522
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
523 goto cbc_const_i64_16(i,cbc_gt_i_01);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
524
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
525 __code cbc_gt_i_01(INTERP i){
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
526 goto cbc_gt_i(i,cbc_unless_i_01);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
527 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
528
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
529 __code cbc_unless_i_01(INTERP i,cbc_osrpoint_01){
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
530 goto cbc_unless_i(i,cbc_osrpoint_01);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
531 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 95
diff changeset
532 ```
95
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
533
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
534
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
535 ## まとめと今後の課題
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
536 - 継続と基本としたC言語 Continuation Based Cを用いてPerl6の処理系の一部を書き直した
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
537 - CbCの持つCodeGearによって, 本来はモジュール化出来ない箇所をモジュール化する事が出来た
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
538 - MoarVMの速度改善にはThreadedCodeが期待でき, CodeGearベースの命令ディスパッチとThreadedCodeは相性が良いと考えられる
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
539 - 今後は実行するバイトコードによりThreadedCode箇所と通常の配列を読み取り, 次のCodeGearを計算する処理を両立させていく
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
540