12 lines
484 B
Diff
12 lines
484 B
Diff
|
--- guile-2.0.11/libguile/vm-i-scheme.c.orig 2016-05-16 11:11:30.490598931 +0200
|
||
|
|
+++ guile-2.0.11/libguile/vm-i-scheme.c 2016-05-16 11:12:00.738677032 +0200
|
||
|
|
@@ -363,7 +363,7 @@
|
||
|
|
{ \
|
||
|
|
scm_t_signed_bits rlo, rhi; \
|
||
|
|
asm ("smull %0, %1, %2, %3\n" \
|
||
|
|
- : "=r" (rlo), "=r" (rhi) \
|
||
|
|
+ : "=&r" (rlo), "=&r" (rhi) \
|
||
|
|
: "r" (SCM_UNPACK (x) - scm_tc2_int), \
|
||
|
|
"r" (SCM_I_INUM (y))); \
|
||
|
|
if (SCM_LIKELY (SCM_SRS (rlo, 31) == rhi)) \
|