paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 04:32:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Define FPC_ABSMASK_SINGLE and FPC_ABSMASK_DOUBLE without using assembler.

Browse Source 
git-svn-id: trunk@25371 -
This commit is contained in:
sergei 2013-08-26 07:32:41 +00:00
parent d4968e054b
commit db045c4871
1 changed files with 6 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/x86_64/math.inc
View File

@ -13,24 +13,13 @@
**********************************************************************}
label
FPC_ABSMASK_DOUBLE,
FPC_ABSMASK_SINGLE;
procedure dummyproc;assembler;nostackframe;
asm
.data
.balign 16
.globl FPC_ABSMASK_SINGLE
FPC_ABSMASK_SINGLE:
.quad 0x7FFFFFFF7FFFFFFF
.quad 0x7FFFFFFF7FFFFFFF
.globl FPC_ABSMASK_DOUBLE
FPC_ABSMASK_DOUBLE:
.quad 0x7FFFFFFFFFFFFFFF
.quad 0x7FFFFFFFFFFFFFFF
.text
end;
{$push}
{$codealign constmin=16}
const
FPC_ABSMASK_SINGLE: array[0..1] of qword=($7fffffff7fffffff,$7fffffff7fffffff); cvar; public;
FPC_ABSMASK_DOUBLE: array[0..1] of qword=($7fffffffffffffff,$7fffffffffffffff); cvar; public;
{$pop}
{****************************************************************************
FPU Control word