diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-01-02 18:15:30 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-01-02 18:15:30 +0000 |
commit | 1344cf863af7180eb1de589b00820e8f53a1bd3b (patch) | |
tree | 39352c2d92bc4b16ea0fec035a409bf987062bed /tests/webtbf/tw32906.pp | |
parent | bacb9b738fa3fdbc60ab371150eb57e0ba9e3b03 (diff) | |
download | fpc-1344cf863af7180eb1de589b00820e8f53a1bd3b.tar.gz |
* test for mantis #32906 (already fixed in revision 37886)
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@37892 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/webtbf/tw32906.pp')
-rw-r--r-- | tests/webtbf/tw32906.pp | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/tests/webtbf/tw32906.pp b/tests/webtbf/tw32906.pp new file mode 100644 index 0000000000..e22b81cb0f --- /dev/null +++ b/tests/webtbf/tw32906.pp @@ -0,0 +1,39 @@ +{ %cpu=i386 } +{ %fail } + +program Project1; + +{$mode delphi} +{$ASMMODE INTEL} + +type + TA = class + b: integer; + end; + +procedure Test(); + var + a: TA; + r: integer; + + begin + a := TA.Create(); + a.b := 5; + + asm + CMP a.b, 7 + JG @Bigger + MOV r, 1 + JMP @Exit + @Bigger: + MOV r, 2 + @Exit: + end []; + + writeln(r); + readln(); +end; + +begin + Test(); +end. |