[BACK]Return to int.k CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097 / debug
File: [local] / OpenXM / src / k097 / debug / int.k (download)

Revision 1.1.1.1 (vendor branch), Fri Oct 8 02:12:15 1999 UTC (24 years, 7 months ago) by maekawa
Branch: OpenXM, MAIN
CVS Tags: maekawa-ipv6, R_1_3_1-2, RELEASE_20000124, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9, ALPHA
Changes since 1.1: +0 -0 lines 

o import OpenXM sources

Println("SSWork/yacc/debug/int.k  1997, 3/10  cf. SSWork/yacc/memo.txt");
Println("Check the performance of loop");
/* As to timing data, please see SSWork/yacc/memo.txt */
Println("Loaded  foo1  foo2");

def void foo1() {
  local i,j,one,hundred ;
  Println("sm1 native for loop");
  sm1(" { 1 1 100 { /ii set 1 1 100 {/jj set } for } for } timer ");
  Println("k0 loop with sm1.integer.");
  one = sm1(" 1 "); hundred = sm1(" 100 ");
  sm1(" set_timer ");
  for (i=one; i< hundred ; i=i+one) {
    for (j=one; j< hundred ; j = j+one) {
      ;
    }
  }
  sm1(" set_timer ");
  /* sm1(" set_timer ");
  for (i=sm1(" 1 "); i< sm1(" 100 ") ; i=i+sm1(" 1 ")) {
    for (j=sm1(" 1 "); j<sm1(" 100 ") ; j = j+sm1(" 1 ")) {
      ;
    }
  }
  sm1(" set_timer "); */
  Println("Now, k0 loop with k0.integer (sm1.universalNumber). Please wait patiently.");
  sm1(" set_timer ");
  for (i=1; i<100; i=i+1 ) {
    for (j=1; j<100;j=j+1) {
      ;
    }
  }
  sm1(" set_timer ");
}

def void foo2() {
  local i,j,one,hundred, a;
  Println("Array Indexing.");
  a = NewVector(101);
  one = sm1(" 1 "); hundred = sm1(" 100 ");
  sm1(" set_timer ");
  for (i=one; i< hundred ; i=i+one) {
    for (j=one; j< hundred ; j = j+one) {
      a[i] = i;
      if ( i + j < sm1(" 100 ")) { a[i+j] = -1; }
    }
  }
  sm1(" set_timer ");
  Println("Now, k0 loop with k0.integer (sm1.universalNumber). Please wait patiently.");
  sm1(" set_timer ");
  for (i=1; i<100; i=i+1 ) {
    for (j=1; j<100;j=j+1) {
      a[i] = i;
      if ( i + j <  100 ) { a[i+j] = -1; }
    }
  }
  sm1(" set_timer ");
}