Selaa lähdekoodia

* linking problems fixed
+ abi tag added

florian 21 vuotta sitten
vanhempi
commit
515ee5aef6
2 muutettua tiedostoa jossa 32 lisäystä ja 2 poistoa
  1. 13 1
      rtl/inc/mathh.inc
  2. 19 1
      rtl/linux/x86_64/prt0.as

+ 13 - 1
rtl/inc/mathh.inc

@@ -23,6 +23,14 @@
     function Get8087CW:word;
 {$endif cpui386}
 
+{$ifdef cpux86_64}
+    const
+      Default8087CW : word = $1332;
+
+    procedure Set8087CW(cw:word);
+    function Get8087CW:word;
+{$endif cpux86_64}
+
    { declarations of the math routines }
 
     function abs(d : extended) : extended;
@@ -62,7 +70,11 @@
 
 {
   $Log$
-  Revision 1.14  2004-01-02 17:19:04  jonas
+  Revision 1.15  2004-02-08 15:33:50  florian
+    * linking problems fixed
+    + abi tag added
+
+  Revision 1.14  2004/01/02 17:19:04  jonas
     * if currency = int64, FPC_CURRENCY_IS_INT64 is defined
     + round and trunc for currency and comp if FPC_CURRENCY_IS_INT64 is
       defined

+ 19 - 1
rtl/linux/x86_64/prt0.as

@@ -65,9 +65,27 @@ __data_start:
 	.long 0
 	.weak data_start
         data_start = __data_start
+
+/* We need this stuff to make gdb behave itself, otherwise
+   gdb will chokes with SIGILL when trying to debug apps.
+*/
+        .section ".note.ABI-tag", "a"
+        .align 4
+        .long 1f - 0f
+        .long 3f - 2f
+        .long  1
+0:      .asciz "GNU"
+1:      .align 4
+2:      .long 0
+        .long 2,4,0
+3:      .align 4
 #
 # $Log$
-# Revision 1.2  2004-02-02 21:02:38  peter
+# Revision 1.3  2004-02-08 15:33:50  florian
+#   * linking problems fixed
+#   + abi tag added
+#
+# Revision 1.2  2004/02/02 21:02:38  peter
 #   * fixed syntax errors
 #
 # Revision 1.1  2003/01/06 19:33:10  florian