annotate Slide/slide.md @ 88:632f160ccbd0

update
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Thu, 10 Jan 2019 21:55:46 +0900
parents 2c38abf2c77d
children 1f9baa69dfe0
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 ## 研究目的
84
6c69fdd1716c add slide.md (template...)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 - スクリプト言語であるPerl5の後継言語としてPerl6が現在開発されている.
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
10 - 現在主流なPerl6の実装にRakudoがあり, RakudoはNQP(Perl6のサブセット)で記述されたPerl6, NQPで記述されたNQPコンパイラがある
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
11 - NQPコンパイラはRakudoのVMであるMoarVM用のバイトコードを生成し, MoarVMはこのバイトコードを解釈, 実行する
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
12 - Continuation based C (CbC)という言語は継続を基本とするC言語であり, 言語処理系に応用出来ると考えられる
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
13 - CbC一部用いてMoarVMの書き換えを行い, 処理を検討する.
84
6c69fdd1716c add slide.md (template...)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
15 ## Continuation Based C (CbC)
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
16
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
17 - Continuation Based C (CbC) はCodeGearを単位として用いたプログラミング言語である.
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
18 - CodeGearはCの通常の関数呼び出しとは異なり,スタックに値を積まず, 次のCodeGearにgoto文によって遷移する.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
19 - このgoto文による遷移を軽量継続と呼ぶ.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
20 - CodeGearはCの関数宣言の型名の代わりに`__code`と書く事で宣言出来る.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
21
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 extern int printf(const char*,...);
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
24 int main (){
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
25 int data = 0;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
26 goto cg1(&data);
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
27 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
28 __code cg1(int *datap){
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
29 (*datap)++;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
30 goto cg2(datap);
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
31 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
32 __code cg2(int *datap){
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
33 (*datap)++;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
34 printf("%d\n",*datap);
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
35 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
36 ```
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 ## CbCの現在の実装
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
39
86
2c38abf2c77d add poster
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
40 - CbCは現在3種類の実装がある.
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
41 - gcc (version 9.0.0)
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
42 - llvm/clang (version 7.0.0)
86
2c38abf2c77d add poster
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 85
diff changeset
43 - micro-c
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
44
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
45 ## 言語処理系の応用
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
46 - スクリプト言語処理系は, バイトコードにコンパイルされ, バイトコードをJITを用いてネイティブに変換する
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
47 - JITを使わない場合, バイトコードに対応した, case文や, ラベルのテーブルにgotoすることで処理を実行する
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
48 - CbCを言語処理系に応用した場合, バイトコードに対応するCodeGearを生成することが可能である
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
49 - バイトコードに対応したCodeGearは, CodeGearのテーブルを経由することで実行出来る
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
50 - CodeGearに分割することで, 処理を複数の関数で記述する事が出来, ファイル分割などのモジュール化が可能となる
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
51
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
52 ## Rakudo
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
53 - Rakudoとは現在のPerl6の主力な実装である.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
54 - 実行環境のVM, Perl6のサブセットであるNQP(NotQuitPerl), NQPで記述されたPerl6(Rakudo)という構成になっている.
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
55 - コンパイラは, NQPで記述されたPerl6コンパイラ, NQPで記述されたNQPコンパイラ, MoarVMバイトコードを解釈するMoarVMという構成である
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
56
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
57 - 現在はMoarVMがRakudoの中でも主流なVM実装となっている.
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 ## MoarVM
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
60
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
61 - Perl6専用のVMであり, Cで記述されている
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
62 - レジスタマシンとして実装されている.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
63 - MoarVMはバイトコードインタプリタを `src/core/interp.c` で定義しており, この中の関数 `MVM_interp_run` で命令に応じた処理を実行する
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 ## MVM_interp_run
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
66
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
67 - DISPATCHマクロは次の様に記述されており, この中の `OP` で宣言されたブロックがそれぞれオペコードに対応する処理となっている.
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
68 - この中では `GET_REG` などのマクロを用いてMoarVMのレジスタにアクセスする.
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
69 - `cur_op`は次のオペコード列が登録されており, マクロ `NEXT` で決められた方法で次のオペコードに遷移する.
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
70
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
71 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
72 DISPATCH(NEXT_OP) {
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
73 OP(const_i64):
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
74 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
75 cur_op += 10;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
76 goto NEXT;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
77 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
78
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
79 ```
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 ## MVM_interp_run
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
82
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
83 - MVM_interp_runでは次のオペコードをフェッチする際に `NEXT_OP` マクロを介して計算を行う.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
84 - オペコードが対応する命令を実行する際は, `MVM_CGOTO` フラグが立っている場合はCのラベルgotoを利用し, 使えない場合はswitch文を利用して遷移する.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
86
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
87 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
88 #define NEXT_OP (op = *(MVMuint16 *)(cur_op), cur_op += 2, op)
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
89
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
90 #if MVM_CGOTO
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
91 #define DISPATCH(op)
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
92 #define OP(name) OP_ ## name
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
93 #define NEXT *LABELS[NEXT_OP]
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
94 #else
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
95 #define DISPATCH(op) switch (op)
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
96 #define OP(name) case MVM_OP_ ## name
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
97 #define NEXT runloop
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
98 #endif
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
99 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
100
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
101 ## MVM_interp_run
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
102
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
103 - ラベル遷移を利用する場合は配列`LABELS`にアクセスし, ラベル情報を取得する
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
104
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
105 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
106 static const void * const LABELS[] = {
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
107 &&OP_no_op,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
108 &&OP_const_i8,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
109 &&OP_const_i16,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
110 &&OP_const_i32,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
111 &&OP_const_i64,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
112 &&OP_const_n32,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
113 &&OP_const_n64,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
114 &&OP_const_s,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
115 &&OP_set,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
116 &&OP_extend_u8,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
117 &&OP_extend_u16,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
118 &&OP_extend_u32,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
119 &&OP_extend_i8,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
120 &&OP_extend_i16,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
121 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
122
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
123
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
124 ## MVM_interp_run
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
125
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
126 - Cの実装の場合, switch文に展開される可能性がある為, 命令ディスパッチが書かれているCソース・ファイルの指定の場所にのみ処理を記述せざるを得ない
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
127 - その為, 1ファイルあたりの記述量が膨大になり, 命令のモジュール化ができない
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
128 - Threaded Codeの実装を考えた場合, この命令に対応して大幅に処理系の実装を変更する必要がある.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
129 - デバッグ時には今どの命令を実行しているか, ラベルテーブルを利用して参照せざるを得ず, 手間がかかる.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
130
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
131
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
132
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
133 ## CbCMoarVMのバイトコードディスパッチ
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
134
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
135 - interp.cではマクロを利用した cur_op (現在のオペコード) の計算及び, マクロ遷移かswitch文を利用して次の命令列に遷移していた
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
136 - CbCMoarVMでは, それぞれの命令に対応するCodeGearを生成し, このCodeGearの集合であるテーブルCODESを作成した
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
137 - このテーブルは`cbc_next`というCodeGearから参照し, 以降はこのCodeGearの遷移として処理が継続される.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
138
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
139 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
140 #define NEXT_OP(i) (i->op = *(MVMuint16 *)(i
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
141 ->cur_op), i->cur_op += 2, i->op)
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
142 #define DISPATCH(op) {goto (CODES[op])(i);}
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
143 #define OP(name) OP_ ## name
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
144 #define NEXT(i) CODES[NEXT_OP(i)](i)
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
145 static int tracing_enabled = 0;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
146
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
147 _code cbc_next(INTERP i){
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
148 goto NEXT(i);
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
149 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
150 ```
84
6c69fdd1716c add slide.md (template...)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
151
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
152 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
153 __code (* CODES[])(INTERP) = {
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
154 cbc_no_op,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
155 cbc_const_i8,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
156 cbc_const_i16,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
157 cbc_const_i32,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
158 cbc_const_i64,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
159 cbc_const_n32,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
160 cbc_const_n64,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
161 cbc_const_s,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
162 cbc_set,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
163 cbc_extend_u8,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
164 cbc_extend_u16,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
165 ```
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 ## CodeGearの入出力インターフェイス
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
168
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
169 - MoarVMではレジスタの集合や命令列などをMVM_interp_runのローカル変数として利用し, 各命令実行箇所で参照している
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
170 - CodeGearに書き換えた場合, このローカル変数にはアクセスする事が不可能となる.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
171 - その為, 入出力としてMoarVMの情報をまとめた構造体interpのポインタであるINTERPを受け渡し, これを利用してアクセスする
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
172
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
173
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
174 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
175 typedef struct interp {
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
176 MVMuint16 op;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
177 MVMuint8 *cur_op;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
178 MVMuint8 *bytecode_start;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
179 MVMRegister *reg_base;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
180 /* Points to the current compilation unit
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
181 . */
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
182 MVMCompUnit *cu;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
183 /* The current call site we’re
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
184 constructing. */
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
185 MVMCallsite *cur_callsite;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
186 MVMThreadContext *tc;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
187 } INTER,*INTERP;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
188 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
189
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
190 ## DataGearへの変換
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 - バイトコードに対応する命令をそれぞれCodeGearに変換していく.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
193 - `OP(.*)`の`(.*)`の部分をCodeGearの名前として先頭に `cbc_` をつけた上で設定する.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
194 - cur_opなどはINTERPを経由してアクセスする様に修正する.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
195 - 末尾の `NEXT` を次のCodeGearにアクセスする為に `cbc_next` に修正する.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
196 - case文で次のcase文に流れる箇所は, 直接その下のcase文に該当するCodeGearに遷移する.
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
197 - GC対策の為に, CodeGear中のローカル変数をグローバル変数の配列に保存している箇所は,CodeGearに直接処理を書かず, CodeGearから別の関数を呼び出す形に修正する
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
198 - その際に, 保存するローカル変数をstatic変数に修正するなどの工夫を行う
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
199
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
200
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
201 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
202 __code cbc_no_op(INTERP i){
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
203 goto cbc_next(i);
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
204 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
205 __code cbc_const_i8(INTERP i){
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
206 goto cbc_const_i16(i);
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
207 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
208 __code cbc_const_i16(INTERP i){
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
209 goto cbc_const_i32(i);
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
210 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
211 __code cbc_const_i32(INTERP i){
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
212 MVM_exception_throw_adhoc(i->tc, "const_iX NYI");
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
213 goto cbc_const_i64(i);
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 __code cbc_const_i64(INTERP i){
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
216 GET_REG(i->cur_op, 0,i).i64 = MVM_BC_get_I64(i->cur_op, 2);
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
217 i->cur_op += 10;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
218 goto cbc_next(i);
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
219 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
220 __code cbc_pushcompsc(INTERP i){
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
221 MVMObject * sc;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
222 sc = GET_REG(i->cur_op, 0,i).o;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
223 if (REPR(sc)->ID != MVM_REPR_ID_SCRef)
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
224 MVM_exception_throw_adhoc(i->tc, "Can only push an SCRef with pushcompsc");
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
225 if (MVM_is_null(i->tc, i->tc->compiling_scs)) {
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
226 MVMROOT(i->tc, sc, {
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
227 i->tc->compiling_scs = MVM_repr_alloc_init(i->tc, i->tc->instance->boot_types.BOOTArray);
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
228 });
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
229 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
230 MVM_repr_unshift_o(i->tc, i->tc->compiling_scs, sc);
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
231 i->cur_op += 2;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
232 goto cbc_next(i);
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
233 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
234 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
235
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
236 ## NQP
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
237 - Perl6の機能を制約したプログラミング言語であり, Perl6はNQPで記述されている
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
238 - その為Perl6処理系は, NQPの動作を目的に実装することでPerl6の動作が可能となる
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
239 - NQPコンパイラ自身もNQPで記述されている
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
240 - Perl6と違い, 変数の宣言を `:=` を利用した束縛で行う, `++` 演算子が使用できないなどの違いがある
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
241 - nqpのオペコードを利用する際に,型を指定する事が可能である
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
242
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
243 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
244 sub add_test(int $n) {
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
245 my $sum := 0;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
246 while nqp::isgt_i($n,1) {
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
247 $sum := nqp::add_i($sum,$n);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
248 $n := nqp::sub_i($n,1);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
249 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
250 return $sum;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
251 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
252
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
253 say(add_test(10));
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
254 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
255
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
256 ## MoarVMのデバッグ手法
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
257
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
258 - MoarVMはバイトコードをランダムに生成する仕様となっている
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
259 - 一旦moarvmバイトコードとして出力したファイルを実行する場合は同じ処理内容となっている
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
260 - そのため, MoarVMのデバッグは同じバイトコードを入力として与え, オリジナルのMoarVMと並列してgdbを用いてトレースを行う.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
261 - この際, 実行するバイトコードの数が膨大となるので, scriptコマンドを用いて実行するバイトコードの番号を吐き出し, ログファイルを用いて比較する.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
262
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
263 ## MoarVMのデバッグ時のbreak point
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
264
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
265 - CbC側では次のオペコードの遷移は `cbc_next` というCodeGearで行う
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
266 - CodeGearは関数として扱える為, これに直接break pointを設定する
84
6c69fdd1716c add slide.md (template...)
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
267
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
268 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
269 (gdb) b cbc_next
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
270 Breakpoint 2 at 0x7ffff7560288: file src/core
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
271 /cbc-interp.cbc, line 61.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
272 (gdb) command 2
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
273 Type commands for breakpoint(s) 2, one per
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
274 line.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
275 End with a line saying just "end".
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
276 >p CODES[*(MVMuint16 *)i->cur_op]
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
277 >p *(MVMuint16 *)i->cur_op
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
278 >c
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
279 >end
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
280 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
281 - オリジナルの場合マクロである為, dummy関数をマクロに記述し, この関数にbreakpointを設定する
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
282
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
283 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
284 dalmore gdb --args ../../MoarVM_Original/
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
285 MoarVM/moar --libpath=src/vm/moar/stage0
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
286 gen/moar/stage1/nqp
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
287 (gdb) b dummy
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
288 Function "dummy" not defined.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
289 Make breakpoint pending on future shared
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
290 library load? (y or [n]) y
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
291 Breakpoint 1 (dummy) pending.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
292 (gdb) command 1
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
293 Type commands for breakpoint(s) 1, one per
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
294 line.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
295 End with a line saying just "end".
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
296 >up
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
297 >p *(MVMuint16 *)(cur_op)
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
298 >c
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
299 >end
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
300 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
301
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
302 ## MoarVMのトレース
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
303
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
304 - トレース時には次の様なデバッグ情報の表示を利用する
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
305 - デバッガに, breakpointで停止した際のcur_opの値を表示する様に設定する.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
306
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
307 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
308 Breakpoint 1, dummy () at src/core/interp.c
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
309 :46
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
310 46 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
311 #1 0x00007ffff75608fe in MVM_interp_run (tc=0
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
312 x604a20,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
313 initial_invoke=0x7ffff76c7168 <
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
314 toplevel_initial_invoke>, invoke_data
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
315 =0x67ff10)
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
316 at src/core/interp.c:119
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
317 119 goto NEXT;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
318 $1 = 159
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
319 Breakpoint 1, dummy () at src/core/interp.c
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
320 :46
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
321 46 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
322 #1 0x00007ffff75689da in MVM_interp_run (tc=0
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
323 x604a20,
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
324 initial_invoke=0x7ffff76c7168 <
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
325 toplevel_initial_invoke>, invoke_data
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
326 =0x67ff10)
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
327 at src/core/interp.c:1169
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
328 1169 goto NEXT;
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
329 $2 = 162
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
330 ```
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
331
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
332 ## アレ
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
333
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
334 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
335 100 MVM_STATIC_INLINE MVMint64 MVM_BC_get_I64(const MVMuint8 *cur_op, int offset) {
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
336 101 const MVMuint8 *const where = cur_op + offset;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
337 102 #ifdef MVM_CAN_UNALIGNED_INT64
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
338 103 return *(MVMint64 *)where;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
339 104 #else
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
340 105 MVMint64 temp;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
341 106 memmove(&temp, where, sizeof(MVMint64));
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
342 107 return temp;
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
343 108 #endif
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
344 109 }
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
345 ```
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
346
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
347 ## MoarVMのデバッグ
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
348
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
349 - cur_opのみをPerlスクリプトなどを用いて抜き出し, 並列にログを取得したオリジナルと差分を図る
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
350 - この際に差異が発生したオペコードを確認し, その前の状態で確認していく
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 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
353 131 : 131
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
354 139 : 139
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
355 140 : 140
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
356 144 : 144
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
357 558 : 558
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
358 391 : 391
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
359 749 : 749
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
360 53 : 53
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
361 *54 : 8
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
362 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
363 ## 現在のCbCMoarVM
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
364
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
365 - 現在はNQP, Rakudoのセルフビルドが達成でき, オリジナルと同等のテスト達成率を持っている
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
366 - moarの起動時のオプションとして `--cbc` を与えることによりCbCで動き, そうでない場合は通常のCで記述された箇所で実行される
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
367
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
368 ## CbCMoarVMの利点
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 - バイトコードインタプリタの箇所をモジュール化する事が可能となり, CodeGearの再利用性や記述生が高まる
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
371 - デバッグ時にラベルではなくCodeGearにbreakpointを設定可能となり,デバッグが安易となる
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
372 - ThreadedCodeを実装する場合, CodeGearを組み合わせることにより実装する事が可能となる
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
373
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
374 ## CbCMoarVMの欠点
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
375
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
376 - CbCコンパイラがバグを発生させやすく, 意図しない挙動を示す事がある
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
377 - CbCコンパイラ自体のバグも存在する
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
378 - MoarVMのオリジナルの更新頻度が高い為, 追従していく必要がある
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
379 - CodeGear側からCに戻る際に手順が複雑となる
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
380 - CodeGearを単位として用いる事で複雑なプログラミングが要求される.
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
381
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
382 ## ThreadedCodeの実装
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
383
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
384 - MoarVM内のオペコードに対応する処理が分離出来たことにより, オペコードに該当するCodeGearを書き連ねることによってThreadedCodeが実装可能となる
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
385
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
386
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
387 ## CbCMoarVMと通常のMoarVMの比較
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
388
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
389 - CbCMoarVMと通常のMoarVMの速度比較を行った
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
390 - 対象として, 単純なループで数値をインクリメントする例題と, フィボナッチ数列を求める例題を選択した
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
391 - NQPで実装した場合とPerl6で実装した場合の速度を計測した
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
392
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
393 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
394 #! nqp
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
395
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
396 my $count := 100_000_000;
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
397
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
398 my $i := 0;
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
399
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
400 while ++$i <= $count {
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
401 }
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
402 ```
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
403
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
404 ```
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
405 #! nqp
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
406
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
407 sub fib($n) {
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
408 $n < 2 ?? $n !! fib($n-1) + fib($n - 2);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
409 }
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
410
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
411 my $N := 29;
85
1f4e174f0f1a add slide
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 84
diff changeset
412
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
413 my $t0 := nqp::time_n();
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
414 my $z := fib($N);
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
415 my $t1 := nqp::time_n();
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
416
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
417 say("fib($N) = " ~ fib($N));
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
418 say("time = " ~ ($t1-$t0));
85
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 ```
88
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
421 # フィボナッチの例題
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
422
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
423 - フィボナッチの例題ではCbCMoarVMが劣る結果となった
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
424
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
425
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
426 ## 単純ループ
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
427
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
428 - オリジナル
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
429 - 7.499 sec
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
430 - 7.844 sec
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
431 - 6.074 sec
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
432 - CbCMoarVM
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
433 - 6.135 sec
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
434 - 6.362 sec
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
435 - 6.074 sec
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
436
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
437 - 単純ループではCbCMoarVMの方が高速に動作する場合もある
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
438
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
439 ## まとめ
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
440
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
441 - 速度を計測した所, 現在はCbCMoarVMの方が僅かに劣る結果となった
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
442 - ただしフィボナッチを求める例題などで, ケースによってはCbCMoarVMの方が高速に動作する場合もある
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
443
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
444
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 - 継続と基本としたC言語 Continuation Based Cを用いてPerl6の処理系の一部を書き直した
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
447 - CbCの持つCodeGearによって, 本来はモジュール化出来ない箇所をモジュール化する事が出来た
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
448 - MoarVMの速度改善にはThreadedCodeが期待でき, CodeGearベースの命令ディスパッチとThreadedCodeは相性が良いと考えられる
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
449 - 今後は実行するバイトコードによりThreadedCode箇所と通常の配列を読み取り, 次のCodeGearを計算する処理を両立させていく
Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
450