Mercurial > hg > truffle

annotate graal/com.oracle.truffle.sl.test/tests/HelloEqualsWorld.sl @ 15234:25a18b4a5b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Backed out changeset: 6133189d8eea (SL: temporary disable failing HelloEqualsWorld.)
author Lukas Stadler <lukas.stadler@oracle.com>
date Fri, 18 Apr 2014 13:45:41 +0200
parents 6133189d8eea
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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) {
15234
25a18b4a5b90 Backed out changeset: 6133189d8eea (SL: temporary disable failing HelloEqualsWorld.)
Lukas Stadler <lukas.stadler@oracle.com>
parents: 15095
diff changeset
2 println("Initial stack trace:");
25a18b4a5b90 Backed out changeset: 6133189d8eea (SL: temporary disable failing HelloEqualsWorld.)
Lukas Stadler <lukas.stadler@oracle.com>
parents: 15095
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;
15234
25a18b4a5b90 Backed out changeset: 6133189d8eea (SL: temporary disable failing HelloEqualsWorld.)
Lukas Stadler <lukas.stadler@oracle.com>
parents: 15095
diff changeset
6 println("After 123 assignment:");
25a18b4a5b90 Backed out changeset: 6133189d8eea (SL: temporary disable failing HelloEqualsWorld.)
Lukas Stadler <lukas.stadler@oracle.com>
parents: 15095
diff changeset
7 println(stacktrace());
15064
f675818d9ad0 new getStackTrace and getCurrentFrame functionality in TruffleRuntime
Lukas Stadler <lukas.stadler@oracle.com>
parents:
diff changeset
8
15234
25a18b4a5b90 Backed out changeset: 6133189d8eea (SL: temporary disable failing HelloEqualsWorld.)
Lukas Stadler <lukas.stadler@oracle.com>
parents: 15095
diff changeset
9 helloEqualsWorld();
25a18b4a5b90 Backed out changeset: 6133189d8eea (SL: temporary disable failing HelloEqualsWorld.)
Lukas Stadler <lukas.stadler@oracle.com>
parents: 15095
diff changeset
10 println("After hello assignment:");
25a18b4a5b90 Backed out changeset: 6133189d8eea (SL: temporary disable failing HelloEqualsWorld.)
Lukas Stadler <lukas.stadler@oracle.com>
parents: 15095
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 }