Make32bitForthの変更点

• 追加された行はこのように表示されます。
• 削除された行はこのように表示されます。

!!! Forthを32ビット化する

私が作ったForth、moiforthは、数値の型がchar型である。
元々実用性を考えていないとはいえ、-128～127までの数しか扱えないのはあんまりなので、もう少し何とかしよう。
というわけで、扱える数値を、いきなり32ビットにする。

!! push

まず、push()の引数をlongにする。

 /** 
  * 値をスタックに積む
  */
 void push(char val)
 {
     pos--;
     stack[pos] = val;
 }

これを、以下のように変える。

 void push(long val)
 {
     pos = pos - 4;
     *(long *)(stack + pos) = val;
 }

!! pop

pop()は、戻り値をlongにする。

 /**
  * スタックから値を取り出す
  */
 char pop(void)
 {
     return stack[pos++];
 }

から、次のように変える。

 long pop(void)
 {
     long val = *(long *)(stack + pos);
 
     pos += 4;
 
     return val;
 }

!! parse

parse()で内部コードに数値を内部コード化する部分をlongにする。

        } else if (isnumber(token)) {
            prog[idx] = CODE_PUSH;
            prog[idx + 1] = atoi(token);
            idx += 2;

これを、このように変更。

        } else if (isnumber(token)) {
            prog[idx] = CODE_PUSH;
            *(long *)(prog + idx + 1) = atol(token);
            idx += 5;

!! proc_prog

proc_prog()のPUSH処理は、

        case CODE_PUSH:
            push(prog[prog_cnt + 1]);
            prog_cnt += 2;
            break;

を、次のように変更。

        case CODE_PUSH:
            push(*(long *)(prog + prog_cnt + 1));
            prog_cnt += 5;
            break;

!! plus

plus()は、push()、pop()を呼び出しているため、変更が必要である。

 /** 
  * 加算する
  */
 void plus(void)
 {
     char a, b, c;
 
     a = pop();
     b = pop();
 
     c = a + b;
 
     push(c);
 }

以下のように変更する。

 void plus(void)
 {
     long a, b, c;
 
     a = pop();
     b = pop();
 
     c = a + b;
 
     push(c);
 }

!! print

print()もplus()同様に修正する。

 /** 
  * 表示する
  */
 void print(void)
 {
     char a;
 
     a = pop();
     printf("%d", a);
 }

これを、

 /** 
  * 表示する
  */
 void print(void)
 {
     long a;
 
     a = pop();
     printf("%d", a);
 }

のように変更した。

!!! 全部書くの疲れた

以下省略。
やった事は、

*push/popするときの、カウンタの増減量を1バイトから4バイトにした
*変数の型をcharからlongに変更した

実行してみた。

 $ ./moiforth.exe
 >65535 65535 + .
 131070>

大きな数が扱えるようになった。

[ソースコード|http://moi2.sakura.ne.jp/fswiki/wiki.cgi?page=Make32bitForth&file=moiforth%2D0%2E7%2Ezip&action=ATTACH]

[[戻る|ForthImplementation]] [[前へ|ImplementInteractiveEnvironment]] [[次へ|MultiLineInput]]

{{adsence}}
[[Forthを作ってみる / Forthを32ビット化する]]に移動しました。