mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-07 19:30:47 -04:00
14 lines
406 B
C
14 lines
406 B
C
$NetBSD: patch-libf95.a-0.93_io_read.c,v 1.1 2013/03/02 18:05:46 joerg Exp $
|
|
|
|
--- libf95.a-0.93/io/read.c.orig 2013-03-01 11:14:56.000000000 +0000
|
|
+++ libf95.a-0.93/io/read.c
|
|
@@ -102,7 +102,7 @@ void set_real(int value, void *dest, int
|
|
|
|
#if HAVE_REAL_10
|
|
case 10:
|
|
- asm("fild %0\n"
|
|
+ asm("filds %0\n"
|
|
"mov %1, %" EAX "\n"
|
|
"fstpt (%" EAX ")\n" : : "m" (value), "m" (dest) : EAX);
|
|
break;
|