* small compilation fixes for win64 system unit

git-svn-id: trunk@373 -

rtl/win64/system.pp

@@ -36,7 +36,7 @@ const
 { FileNameCaseSensitive is defined separately below!!! }
  maxExitCode = 65535;
  MaxPathLen = 260;
- 
+
 type
    PEXCEPTION_FRAME = ^TEXCEPTION_FRAME;
    TEXCEPTION_FRAME = record
@@ -382,6 +382,7 @@ procedure Exe_entry;[public, alias : '_FPC_EXE_Entry'];
      { This strange construction is needed to solve the _SS problem
        with a smartlinked syswin32 (PFV) }
      asm
+{!!!!!!!
          { allocate space for an exception frame }
         pushl $0
         pushl %fs:(0)
@@ -401,6 +402,7 @@ procedure Exe_entry;[public, alias : '_FPC_EXE_Entry'];
         xorl %ebp,%ebp
         call PASCALMAIN
         popl %ebp
+}
      end;
      { if we pass here there was no error ! }
      system_exit;

rtl/x86_64/math.inc

@@ -23,16 +23,12 @@ procedure dummyproc;assembler;
     .balign 16
     .globl FPC_ABSMASK_SINGLE
 FPC_ABSMASK_SINGLE:
-    .long 0x7FFFFFFF
-    .long 0x7FFFFFFF
-    .long 0x7FFFFFFF
-    .long 0x7FFFFFFF
+    .quad 0x7FFFFFFF7FFFFFFF
+    .quad 0x7FFFFFFF7FFFFFFF
     .globl FPC_ABSMASK_DOUBLE
 FPC_ABSMASK_DOUBLE:
-    .long 0xFFFFFFFF
-    .long 0x7FFFFFFF
-    .long 0xFFFFFFFF
-    .long 0x7FFFFFFF
+    .quad 0x7FFFFFFFFFFFFFFF
+    .quad 0x7FFFFFFFFFFFFFFF
   .text
   end;