Browse Source

+ Add two new sotfpuu units with x80 or 128 bit support

git-svn-id: trunk@20204 -
pierre 13 years ago
parent
commit
6e81fe6abc
3 changed files with 52 additions and 0 deletions
  1. 2 0
      .gitattributes
  2. 25 0
      rtl/inc/sfpu128.pp
  3. 25 0
      rtl/inc/sfpux80.pp

+ 2 - 0
.gitattributes

@@ -7445,6 +7445,8 @@ rtl/inc/readme -text
 rtl/inc/real2str.inc svneol=native#text/plain
 rtl/inc/real2str.inc svneol=native#text/plain
 rtl/inc/resh.inc svneol=native#text/plain
 rtl/inc/resh.inc svneol=native#text/plain
 rtl/inc/rtti.inc svneol=native#text/plain
 rtl/inc/rtti.inc svneol=native#text/plain
+rtl/inc/sfpu128.pp svneol=native#text/pascal
+rtl/inc/sfpux80.pp svneol=native#text/pascal
 rtl/inc/sockets.inc svneol=native#text/plain
 rtl/inc/sockets.inc svneol=native#text/plain
 rtl/inc/socketsh.inc svneol=native#text/plain
 rtl/inc/socketsh.inc svneol=native#text/plain
 rtl/inc/sockovl.inc svneol=native#text/plain
 rtl/inc/sockovl.inc svneol=native#text/plain

+ 25 - 0
rtl/inc/sfpu128.pp

@@ -0,0 +1,25 @@
+unit sfpu128;
+{$mode objfpc}
+
+{ Overflow checking must be disabled,
+  since some operations expect overflow!
+}
+{$Q-}
+{$goto on}
+
+
+{ define FPC_SOFTFLOAT_FLOATX80}
+{$define FPC_SOFTFLOAT_FLOAT128}
+
+
+{$define fpc_softfpu_interface}
+interface
+{$i softfpu.pp}
+
+{$undef fpc_softfpu_interface}
+{$define fpc_softfpu_implementation}
+implementation
+
+{$i softfpu.pp}
+
+end.

+ 25 - 0
rtl/inc/sfpux80.pp

@@ -0,0 +1,25 @@
+unit sfpux80;
+{$mode objfpc}
+
+{ Overflow checking must be disabled,
+  since some operations expect overflow!
+}
+{$Q-}
+{$goto on}
+
+
+{$define FPC_SOFTFLOAT_FLOATX80}
+{ $define FPC_SOFTFLOAT_FLOAT128}
+
+
+{$define fpc_softfpu_interface}
+interface
+{$i softfpu.pp}
+
+{$undef fpc_softfpu_interface}
+{$define fpc_softfpu_implementation}
+implementation
+
+{$i softfpu.pp}
+
+end.