pkgsrc/lang/g95/patches/patch-libf95.a-0.93_io_read.c
2015-12-29 23:34:43 +00:00

15 lines
438 B
C

$NetBSD: patch-libf95.a-0.93_io_read.c,v 1.2 2015/12/29 23:34:46 dholland Exp $
Fix assembler instructions.
--- 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;