-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathwhiletest.j
executable file
·136 lines (118 loc) · 2.5 KB
/
whiletest.j
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
.class public whiletest
.super java/lang/Object
.field private static _runTimer LRunTimer;
.field private static _standardIn LPascalTextIn;
.field private static number I
.method public <init>()V
aload_0
invokenonvirtual java/lang/Object/<init>()V
return
.limit locals 1
.limit stack 1
.end method
.method private static sqroot(I)F
.var 0 is n I
.var 1 is r F
.var 2 is sqroot F
.line 15
iload_0
i2f
fstore_1
.line 17
L001:
fload_1
fload_1
fmul
iload_0
i2f
fsub
ldc 1.0E-6
fcmpg
ifgt L003
iconst_0
goto L004
L003:
iconst_1
L004:
iconst_1
ixor
ifne L002
.line 18
iload_0
i2f
fload_1
fdiv
fload_1
fadd
iconst_2
i2f
fdiv
fstore_1
goto L001
L002:
.line 21
fload_1
fstore_2
fload_2
freturn
.limit locals 3
.limit stack 2
.end method
.method public static main([Ljava/lang/String;)V
new RunTimer
dup
invokenonvirtual RunTimer/<init>()V
putstatic whiletest/_runTimer LRunTimer;
new PascalTextIn
dup
invokenonvirtual PascalTextIn/<init>()V
putstatic whiletest/_standardIn LPascalTextIn;
.line 25
sipush 1024
putstatic whiletest/number I
.line 27
getstatic java/lang/System/out Ljava/io/PrintStream;
ldc "The square root of %4d\n"
iconst_1
anewarray java/lang/Object
dup
iconst_0
getstatic whiletest/number I
invokestatic java/lang/Integer.valueOf(I)Ljava/lang/Integer;
aastore
invokestatic java/lang/String/format(Ljava/lang/String;[Ljava/lang/Object;)Ljava/lang/String;
invokevirtual java/io/PrintStream.print(Ljava/lang/String;)V
.line 28
getstatic java/lang/System/out Ljava/io/PrintStream;
ldc " by standard sqrt() function: %9.6f\n"
iconst_1
anewarray java/lang/Object
dup
iconst_0
getstatic whiletest/number I
i2d
invokestatic java/lang/Math/sqrt(D)D
d2f
invokestatic java/lang/Float.valueOf(F)Ljava/lang/Float;
aastore
invokestatic java/lang/String/format(Ljava/lang/String;[Ljava/lang/Object;)Ljava/lang/String;
invokevirtual java/io/PrintStream.print(Ljava/lang/String;)V
.line 29
getstatic java/lang/System/out Ljava/io/PrintStream;
ldc " by declared sqroot() function: %9.6f\n"
iconst_1
anewarray java/lang/Object
dup
iconst_0
getstatic whiletest/number I
invokestatic whiletest/sqroot(I)F
invokestatic java/lang/Float.valueOf(F)Ljava/lang/Float;
aastore
invokestatic java/lang/String/format(Ljava/lang/String;[Ljava/lang/Object;)Ljava/lang/String;
invokevirtual java/io/PrintStream.print(Ljava/lang/String;)V
getstatic whiletest/_runTimer LRunTimer;
invokevirtual RunTimer.printElapsedTime()V
return
.limit locals 1
.limit stack 8
.end method