Return to return.k CVS log

Up to [local] / OpenXM / src / k097 / debug

Annotation of OpenXM/src/k097/debug/return.k, Revision 1.1.1.1

1.1       maekawa     1:
                      2:
                      3: /* return --> goto で処理がどの程度遅い原因かを調べる.   return.k
                      4:    1997, 5/31
                      5: */
                      6:
                      7: Println(" Type in Foo1(number) for regular return or Foo2(number) without regular return.");
                      8:
                      9: def Foo1(n) {
                     10:    local i;
                     11:    sm1(" set_timer ");
                     12:    PSfor (i=0; i<n; i++) {
                     13:       foo1a();
                     14:    }
                     15:    sm1(" set_timer ");
                     16: }
                     17: def foo1a() {
                     18:    local x;
                     19:    return(10);
                     20:    x = 1;    x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;
                     21:    x = 1;    x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;
                     22:    x = 1;    x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;
                     23:    x = 1;    x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;
                     24:    x = 1;    x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;
                     25:    x = 1;    x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;
                     26: }
                     27:
                     28: def Foo2(n) {
                     29:    local i;
                     30:    sm1(" set_timer ");
                     31:    PSfor (i=0; i<n; i++) {
                     32:       foo2a();
                     33:    }
                     34:    sm1(" set_timer ");
                     35: }
                     36: def foo2a() {
                     37:    local x;
                     38:    if (true) {
                     39:      x = 10;
                     40:    } else {
                     41:    x = 1;    x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;
                     42:    x = 1;    x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;
                     43:    x = 1;    x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;
                     44:    x = 1;    x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;
                     45:    x = 1;    x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;
                     46:    x = 1;    x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;   x = 1;
                     47:    }
                     48:    return(10);
                     49: }
                     50:
                     51:
                     52: