Mercurial > hg > truffle
annotate graal/com.oracle.truffle.sl.test/tests/HelloEqualsWorld.sl @ 15177:66e3af78ea96
HSAIL: added safepoint support
Contributed-by: Eric Caspole <eric.caspole@amd.com>
author | Doug Simon <doug.simon@oracle.com> |
---|---|
date | Thu, 17 Apr 2014 00:44:32 +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 } |