summaryrefslogtreecommitdiff
path: root/rtl/m68k
diff options
context:
space:
mode:
authorsergei <sergei@3ad0048d-3df7-0310-abae-a5850022a9f2>2014-06-05 10:35:51 +0000
committersergei <sergei@3ad0048d-3df7-0310-abae-a5850022a9f2>2014-06-05 10:35:51 +0000
commit7640e4f85d280faaf927c44f63b3973e6b7be5f6 (patch)
tree3362b6e367bed28f240862ed72a53e01db03be0e /rtl/m68k
parentda7d895ef78560c1d432e045d3db835e6a475a6d (diff)
downloadfpc-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.inc14
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}