paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 09:59: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; {$push}
asm {$codealign constmin=16}
.data const
.balign 16 FPC_ABSMASK_SINGLE: array[0..1] of qword=($7fffffff7fffffff,$7fffffff7fffffff); cvar; public;
.globl FPC_ABSMASK_SINGLE FPC_ABSMASK_DOUBLE: array[0..1] of qword=($7fffffffffffffff,$7fffffffffffffff); cvar; public;
FPC_ABSMASK_SINGLE: {$pop}
.quad 0x7FFFFFFF7FFFFFFF
.quad 0x7FFFFFFF7FFFFFFF
.globl FPC_ABSMASK_DOUBLE
FPC_ABSMASK_DOUBLE:
.quad 0x7FFFFFFFFFFFFFFF
.quad 0x7FFFFFFFFFFFFFFF
.text
end;
{**************************************************************************** {****************************************************************************
FPU Control word FPU Control word