xref: /netbsd-src/external/cddl/dtracetoolkit/dist/Code/Ruby/func_slow.rb (revision c29d51755812ace2e87aeefdb06cb2b4dac7087a)
1*c29d5175Schristos#!./ruby -w
2*c29d5175Schristos
3*c29d5175Schristosdef func_c
4*c29d5175Schristos  print "Function C\n"
5*c29d5175Schristos  i = 0
6*c29d5175Schristos  while i < 300000
7*c29d5175Schristos     i = i + 1
8*c29d5175Schristos     j = i + 1
9*c29d5175Schristos  end
10*c29d5175Schristosend
11*c29d5175Schristos
12*c29d5175Schristosdef func_b
13*c29d5175Schristos  print "Function B\n"
14*c29d5175Schristos  i = 0
15*c29d5175Schristos  while i < 200000
16*c29d5175Schristos     i = i + 1
17*c29d5175Schristos     j = i + 1
18*c29d5175Schristos  end
19*c29d5175Schristos  func_c
20*c29d5175Schristosend
21*c29d5175Schristos
22*c29d5175Schristosdef func_a
23*c29d5175Schristos  print "Function A\n"
24*c29d5175Schristos  i = 0
25*c29d5175Schristos  while i < 100000
26*c29d5175Schristos     i = i + 1
27*c29d5175Schristos     j = i + 1
28*c29d5175Schristos  end
29*c29d5175Schristos  func_b
30*c29d5175Schristosend
31*c29d5175Schristos
32*c29d5175Schristosfunc_a
33