Mercurial > hg > truffle
annotate graal/com.oracle.truffle.sl.test/tests/HelloEqualsWorld.sl @ 15107:1bf700e19e84
Make Loop generic.
author | Josef Eisl <josef.eisl@jku.at> |
---|---|
date | Wed, 09 Apr 2014 17:11:48 +0200 |
parents | 6133189d8eea |
children | 25a18b4a5b90 |
rev | line source |
---|---|
15064
f675818d9ad0
new getStackTrace and getCurrentFrame functionality in TruffleRuntime
Lukas Stadler <lukas.stadler@oracle.com>
parents:
diff
changeset
|
1 function doIt(a) { |
15095
6133189d8eea
SL: temporary disable failing HelloEqualsWorld.
Christian Humer <christian.humer@gmail.com>
parents:
15088
diff
changeset
|
2 // println("Initial stack trace:"); |
6133189d8eea
SL: temporary disable failing HelloEqualsWorld.
Christian Humer <christian.humer@gmail.com>
parents:
15088
diff
changeset
|
3 // println(stacktrace()); |
15064
f675818d9ad0
new getStackTrace and getCurrentFrame functionality in TruffleRuntime
Lukas Stadler <lukas.stadler@oracle.com>
parents:
diff
changeset
|
4 |
f675818d9ad0
new getStackTrace and getCurrentFrame functionality in TruffleRuntime
Lukas Stadler <lukas.stadler@oracle.com>
parents:
diff
changeset
|
5 hello = 123; |
15095
6133189d8eea
SL: temporary disable failing HelloEqualsWorld.
Christian Humer <christian.humer@gmail.com>
parents:
15088
diff
changeset
|
6 // println("After 123 assignment:"); |
6133189d8eea
SL: temporary disable failing HelloEqualsWorld.
Christian Humer <christian.humer@gmail.com>
parents:
15088
diff
changeset
|
7 // println(stacktrace()); |
15064
f675818d9ad0
new getStackTrace and getCurrentFrame functionality in TruffleRuntime
Lukas Stadler <lukas.stadler@oracle.com>
parents:
diff
changeset
|
8 |
15095
6133189d8eea
SL: temporary disable failing HelloEqualsWorld.
Christian Humer <christian.humer@gmail.com>
parents:
15088
diff
changeset
|
9 // helloEqualsWorld(); |
6133189d8eea
SL: temporary disable failing HelloEqualsWorld.
Christian Humer <christian.humer@gmail.com>
parents:
15088
diff
changeset
|
10 // println("After hello assignment:"); |
6133189d8eea
SL: temporary disable failing HelloEqualsWorld.
Christian Humer <christian.humer@gmail.com>
parents:
15088
diff
changeset
|
11 // println(stacktrace()); |
15064
f675818d9ad0
new getStackTrace and getCurrentFrame functionality in TruffleRuntime
Lukas Stadler <lukas.stadler@oracle.com>
parents:
diff
changeset
|
12 |
f675818d9ad0
new getStackTrace and getCurrentFrame functionality in TruffleRuntime
Lukas Stadler <lukas.stadler@oracle.com>
parents:
diff
changeset
|
13 // readln(); |
f675818d9ad0
new getStackTrace and getCurrentFrame functionality in TruffleRuntime
Lukas Stadler <lukas.stadler@oracle.com>
parents:
diff
changeset
|
14 } |
f675818d9ad0
new getStackTrace and getCurrentFrame functionality in TruffleRuntime
Lukas Stadler <lukas.stadler@oracle.com>
parents:
diff
changeset
|
15 |
f675818d9ad0
new getStackTrace and getCurrentFrame functionality in TruffleRuntime
Lukas Stadler <lukas.stadler@oracle.com>
parents:
diff
changeset
|
16 function main() { |
f675818d9ad0
new getStackTrace and getCurrentFrame functionality in TruffleRuntime
Lukas Stadler <lukas.stadler@oracle.com>
parents:
diff
changeset
|
17 i = 0; |
f675818d9ad0
new getStackTrace and getCurrentFrame functionality in TruffleRuntime
Lukas Stadler <lukas.stadler@oracle.com>
parents:
diff
changeset
|
18 while (i < 10) { |
f675818d9ad0
new getStackTrace and getCurrentFrame functionality in TruffleRuntime
Lukas Stadler <lukas.stadler@oracle.com>
parents:
diff
changeset
|
19 doIt(i); |
f675818d9ad0
new getStackTrace and getCurrentFrame functionality in TruffleRuntime
Lukas Stadler <lukas.stadler@oracle.com>
parents:
diff
changeset
|
20 i = i + 1; |
f675818d9ad0
new getStackTrace and getCurrentFrame functionality in TruffleRuntime
Lukas Stadler <lukas.stadler@oracle.com>
parents:
diff
changeset
|
21 } |
15088
d3add9b82b71
change to StackIntrospection and Truffle getStackTrace implementation
Lukas Stadler <lukas.stadler@oracle.com>
parents:
15064
diff
changeset
|
22 } |