fixed some dup problems

This commit is contained in:
Jindra Petřík
2021-02-08 20:15:19 +01:00
parent 97c325eb20
commit 2bebbfad0b
21 changed files with 644 additions and 76 deletions
@@ -0,0 +1,72 @@
class
refid "tests:TestDoubleDup"
instance QName(PackageNamespace("tests"), "TestDoubleDup")
extends QName(PackageNamespace(""), "Object")
flag SEALED
flag PROTECTEDNS
protectedns ProtectedNamespace("tests:TestDoubleDup")
iinit
refid "tests:TestDoubleDup/instance/init"
body
maxstack 1
localcount 1
initscopedepth 4
maxscopedepth 5
code
getlocal0
pushscope
getlocal0
constructsuper 0
returnvoid
end ; code
end ; body
end ; method
trait method QName(PackageNamespace(""), "run")
method
refid "tests:TestDoubleDup/instance/run"
returns QName(PackageNamespace(""), "void")
body
maxstack 2
localcount 4
initscopedepth 4
maxscopedepth 5
code
getlocal0
pushscope
findpropstrict QName(PackageNamespace(""),"myprop")
getlocal 5
callproperty QName(PackageNamespace(""),"myprop"), 1
coerce QName(PackageNamespace("flash.geom"),"Rectangle")
dup
dup
setlocal 10
getproperty QName(PackageNamespace(""),"width")
negate
getlocal 10
getproperty QName(PackageNamespace(""),"height")
negate
callpropvoid QName(PackageNamespace(""),"mymethod"), 2
returnvoid
end ; code
end ; body
end ; method
end ; trait
end ; instance
cinit
refid "tests:TestDoubleDup/class/init"
body
maxstack 1
localcount 1
initscopedepth 3
maxscopedepth 4
code
getlocal0
pushscope
returnvoid
end ; code
end ; body
end ; method
end ; class