mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-23 04:23:08 +00:00
Code Issues Releases Activity

When initializing the GNAT (i386) run-time, initialize the floating point

Browse Source 
control word to use 64-bit (extended) precision instead of FreeBSDs
default 53-bit (double) precision.

Submitted by:	Sune Falck <sunef@hem.passagen.se>
This commit is contained in:
Daniel Eischen 2000-06-27 11:27:25 +00:00
parent 17c6461282
commit 4c48f0e44d
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=29905
1 changed files with 28 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lang/gnat/files/patch-ai
View File

@ -1,8 +1,8 @@
*** ./ada/a-init.c.orig Fri Sep 24 08:42:43 1999
--- ./ada/a-init.c Sat Nov 6 16:22:51 1999
--- ./ada/a-init.c Mon Jun 26 21:43:54 2000
***************
*** 1445,1450 ****
--- 1445,1523 ----
--- 1445,1532 ----
}
@ -73,12 +73,38 @@
+ (void) sigaction (SIGBUS, &act, NULL);
+ }
+
+ void __gnat_init_float ();
+
+ void
+ __gnat_initialize ()
+ {
+ __gnat_install_handler ();
+
+ /* XXX - Initialize floating-point coprocessor. This call is
+ needed because FreeBSD defaults to 53-bit precision instead
+ of 64-bit precision. We require the full precision for
+ proper operation, given that we have set Max_Digits etc
+ with this in mind. */
+ __gnat_init_float ();
+ }
+
/***************************************/
/* __gnat_initialize (default version) */
/***************************************/
***************
*** 1470,1476 ****
defined in all Win32 versions, but only actually does something on
the i386 version, where it properly initializes the FPU for GNAT use. */
! #if defined (_WIN32) || defined (__INTERIX)
void
__gnat_init_float ()
{
--- 1552,1558 ----
defined in all Win32 versions, but only actually does something on
the i386 version, where it properly initializes the FPU for GNAT use. */
! #if defined (_WIN32) || defined (__INTERIX) || defined (__FreeBSD__)
void
__gnat_init_float ()
{