diff options
author | sergei <sergei@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-06-05 10:35:51 +0000 |
---|---|---|
committer | sergei <sergei@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-06-05 10:35:51 +0000 |
commit | 7640e4f85d280faaf927c44f63b3973e6b7be5f6 (patch) | |
tree | 3362b6e367bed28f240862ed72a53e01db03be0e /rtl/m68k | |
parent | da7d895ef78560c1d432e045d3db835e6a475a6d (diff) | |
download | fpc-7640e4f85d280faaf927c44f63b3973e6b7be5f6.tar.gz |
* Enabled internal handling of Abs(longint) for all targets. It has been implemented in cross-platform way ages ago (see tcginlinenode.second_abs_long), but not enabled on MIPS,SPARC and m68k.
- RTL: removed MIPS,SPARC and m68k-specific implementations of Abs(longint), and marked the generic one as required for bootstrapping purposes only.
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@27857 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/m68k')
-rw-r--r-- | rtl/m68k/m68k.inc | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/rtl/m68k/m68k.inc b/rtl/m68k/m68k.inc index b7dc4c968e..f67ccf1280 100644 --- a/rtl/m68k/m68k.inc +++ b/rtl/m68k/m68k.inc @@ -336,20 +336,6 @@ asm end; -{$define FPC_SYSTEM_HAS_ABS_LONGINT} -function abs(l : longint) : longint; - begin - asm - move.l l,d0 - tst.l d0 - bpl @LMABS1 - neg.l d0 - @LMABS1: - move.l d0,@RESULT - end ['d0']; - end; - - function InterLockedDecrement (var Target: longint) : longint; begin {$warning FIX ME} |