Browse Source

* Define FPC_ABSMASK_SINGLE and FPC_ABSMASK_DOUBLE without using assembler.

git-svn-id: trunk@25371 -
sergei 12 years ago
parent
commit
db045c4871
1 changed files with 6 additions and 17 deletions
  1. 6 17
      rtl/x86_64/math.inc

+ 6 - 17
rtl/x86_64/math.inc

@@ -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