declarations on activation object properties

This commit is contained in:
Jindra Petřík
2021-12-04 09:15:19 +01:00
parent 4197e4913b
commit b0962137f9
6 changed files with 80 additions and 4 deletions

View File

@@ -41,6 +41,10 @@ class
slotid 1
type QName(PackageNamespace(""),"int")
end ; trait
trait slot QName(PackageInternalNs("testing"),"myvar2")
slotid 2
type QName(PackageNamespace(""),"int")
end ; trait
code
debug 1, "myvar", 0, 0
getlocal0
@@ -52,6 +56,9 @@ class
findpropstrict QName(PackageInternalNs("testing"),"myvar")
getlocal1
setproperty QName(PackageInternalNs("testing"),"myvar")
findpropstrict QName(PackageInternalNs("testing"),"myvar2")
pushbyte 10
setproperty QName(PackageInternalNs("testing"),"myvar2")
returnvoid
end ; code
end ; body