--- /n/sources/plan9/sys/src/libc/386/vlrt.c	Tue Sep 17 20:27:58 2013
+++ /sys/src/libc/386/vlrt.c	Thu Feb 18 00:00:00 2016
@@ -445,6 +445,34 @@
 }
 
 void
+_vasaddd(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)+rv);
+	*ret = *lv;
+}
+
+void
+_vassubd(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)-rv);
+	*ret = *lv;
+}
+
+void
+_vasmuld(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)*rv);
+	*ret = *lv;
+}
+
+void
+_vasdivd(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)/rv);
+	*ret = *lv;
+}
+
+void
 _vasop(Vlong *ret, void *lv, void fn(Vlong*, Vlong, Vlong), int type, Vlong rv)
 {
 	Vlong t, u;
--- /n/sources/plan9/sys/src/libc/arm/vlrt.c	Tue Mar 27 01:37:01 2012
+++ /sys/src/libc/arm/vlrt.c	Thu Feb 18 00:00:00 2016
@@ -410,6 +410,34 @@
 }
 
 void
+_vasaddd(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)+rv);
+	*ret = *lv;
+}
+
+void
+_vassubd(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)-rv);
+	*ret = *lv;
+}
+
+void
+_vasmuld(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)*rv);
+	*ret = *lv;
+}
+
+void
+_vasdivd(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)/rv);
+	*ret = *lv;
+}
+
+void
 _vasop(Vlong *ret, void *lv, void fn(Vlong*, Vlong, Vlong), int type, Vlong rv)
 {
 	Vlong t, u;
--- /n/sources/plan9/sys/src/libc/mips/vlrt.c	Thu Jul 11 23:19:36 2013
+++ /sys/src/libc/mips/vlrt.c	Thu Feb 18 00:00:00 2016
@@ -421,6 +421,34 @@
 }
 
 void
+_vasaddd(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)+rv);
+	*ret = *lv;
+}
+
+void
+_vassubd(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)-rv);
+	*ret = *lv;
+}
+
+void
+_vasmuld(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)*rv);
+	*ret = *lv;
+}
+
+void
+_vasdivd(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)/rv);
+	*ret = *lv;
+}
+
+void
 _vasop(Vlong *ret, void *lv, void fn(Vlong*, Vlong, Vlong), int type, Vlong rv)
 {
 	Vlong t, u;
--- /n/sources/plan9/sys/src/libc/power/vlrt.c	Tue Jul  7 16:50:33 2009
+++ /sys/src/libc/power/vlrt.c	Thu Feb 18 00:00:00 2016
@@ -178,6 +178,34 @@
 }
 
 void
+_vasaddd(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)+rv);
+	*ret = *lv;
+}
+
+void
+_vassubd(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)-rv);
+	*ret = *lv;
+}
+
+void
+_vasmuld(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)*rv);
+	*ret = *lv;
+}
+
+void
+_vasdivd(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)/rv);
+	*ret = *lv;
+}
+
+void
 _vasop(Vlong *ret, void *lv, void fn(Vlong*, Vlong, Vlong), int type, Vlong rv)
 {
 	Vlong t, u;
--- /n/sources/plan9/sys/src/libc/sparc/vlrt.c	Sat Nov  1 21:44:14 2003
+++ /sys/src/libc/sparc/vlrt.c	Thu Feb 18 00:00:00 2016
@@ -422,6 +422,34 @@
 }
 
 void
+_vasaddd(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)+rv);
+	*ret = *lv;
+}
+
+void
+_vassubd(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)-rv);
+	*ret = *lv;
+}
+
+void
+_vasmuld(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)*rv);
+	*ret = *lv;
+}
+
+void
+_vasdivd(Vlong *ret, Vlong *lv, double rv)
+{
+	_d2v(lv, _v2d(*lv)/rv);
+	*ret = *lv;
+}
+
+void
 _vasop(Vlong *ret, void *lv, void fn(Vlong*, Vlong, Vlong), int type, Vlong rv)
 {
 	Vlong t, u;