diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-01-11 16:02:51 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-01-11 16:02:51 +0000 |
| commit | aab5a99fa4dc00e02be6d04bf77e2816d8d36a89 (patch) | |
| tree | a68fc3e5cab464a3559564752a36aeb7a2586547 /tests/webtbs/tw18334.pp | |
| parent | 76b17d9d6afed7f545def67c7351168aecedc406 (diff) | |
| download | fpc-aab5a99fa4dc00e02be6d04bf77e2816d8d36a89.tar.gz | |
+ Support for ARM CPS/CPSIE/CPSID instructions and mode flag bitfield
operand (patch by Jeppe Johansen, mantis #18334)
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16750 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/webtbs/tw18334.pp')
| -rw-r--r-- | tests/webtbs/tw18334.pp | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/webtbs/tw18334.pp b/tests/webtbs/tw18334.pp new file mode 100644 index 0000000000..bf4202b6f3 --- /dev/null +++ b/tests/webtbs/tw18334.pp @@ -0,0 +1,14 @@ +{ %cpu=arm } +{ %norun } + +procedure test; assembler; + asm + cps #0 + cpsie aif, #0 + cpsid aif, #0 + cpsie aif + cpsid aif + end; + +begin +end. |