Mercurial > repos > tabletprog
annotate samples/compilerbug_004.tp @ 279:eb83863fd33e
Store renderer pointer in texture object since the texture can only be used with the renderer it was created with
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 21 Jul 2014 19:11:15 -0700 |
parents | 38127fbf5f9d |
children |
rev | line source |
---|---|
64
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1 #{ |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
2 foo <- 42 |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
3 new <- { |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
4 #{ |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
5 bar <- foo |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
6 } |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
7 } |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
8 |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
9 main <- { |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
10 print: (string: ((new: ) bar)) . "\n" |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
11 } |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
12 |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
13 } |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
14 |