diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-08-03 12:19:50 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-08-03 12:19:50 +0000 |
commit | 3c1c4ea73a90bb18e0b68a6b34d909cf7550b5c7 (patch) | |
tree | e3d7840f5a887877000184bf7cdb0b8c2071580b /tests/tbs | |
parent | ff55bfb99fdc8877aee6b6663e30846b601c1d2b (diff) | |
download | fpc-3c1c4ea73a90bb18e0b68a6b34d909cf7550b5c7.tar.gz |
* factored out the conditions under which add nodes need to perform
overflow checks
o in particular ensure that cpu-specific overrides don't perform overflow
checks when nf_internal is set
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@42573 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/tbs')
-rw-r--r-- | tests/tbs/tb0658.pp | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/tbs/tb0658.pp b/tests/tbs/tb0658.pp new file mode 100644 index 0000000000..3c00bc6ffb --- /dev/null +++ b/tests/tbs/tb0658.pp @@ -0,0 +1,11 @@ +{$r+,q+} + +procedure test(i: int64); +begin + if (i>0) and (i<$1fff) then + halt(1); +end; + +begin + test(0); +end. |