Avoid wasm builds from using long doubles ##wasm

Author: radare

libr/core/cmd_debug.inc.c

@@ -3074,8 +3074,14 @@ static void cmd_debug_reg(RCore *core, const char *str) {
 					double dval = 0.0f;
 					sscanf (eq, "%lf", (double*)&dval);
 					val = dval;
+#else
+#if R2_NO_LONG_DOUBLE_FMT
+					double dval = 0.0;
+					sscanf (eq, "%lf", &dval);
+					val = (long double)dval;
 #else
 					sscanf (eq, "%Lf", &val);
+#endif
 #endif
 					r_reg_set_double (core->dbg->reg, item, val);
 					r_debug_reg_sync (core->dbg, R_REG_TYPE_GPR, true);
@@ -3084,7 +3090,11 @@ static void cmd_debug_reg(RCore *core, const char *str) {
 					r_debug_reg_sync (core->dbg, R_REG_TYPE_GPR, false);
 					r_debug_reg_sync (core->dbg, R_REG_TYPE_FPU, false);
 					long double res = r_reg_get_longdouble (core->dbg->reg, item);
+#if R2_NO_LONG_DOUBLE_FMT
+					r_cons_printf (core->cons, "%f\n", (double)res);
+#else
 					r_cons_printf (core->cons, "%Lf\n", res);
+#endif
 				}
 			} else {
 				/* note, that negative type forces sync to print the regs from the backend */

libr/core/cmd_write.inc.c

@@ -530,7 +530,12 @@ static void cmd_write_value_float(RCore *core, const char *input) {
 
 static void cmd_write_value_long_double(RCore *core, const char *input) {
 	long double v = 0.0;
+#if R2_NO_LONG_DOUBLE_FMT
+	double tmp = strtod (input, NULL);
+	v = (long double)tmp;
+#else
 	sscanf (input, "%Lf", &v);
+#endif
 	r_io_write_at (core->io, core->addr, (const ut8*)&v, sizeof (long double));
 }
 

libr/debug/p/native/linux/linux_debug.c

@@ -1029,7 +1029,11 @@ static void print_fpu(RCons *cons, void *f) {
 			}
 			// Using %Lf and %Le even though we do not show the extra precision to avoid another cast
 			// %f with (double)*st_ld would also work
+#if R2_NO_LONG_DOUBLE_FMT
+			r_cons_printf (cons, " %e %f\n", (double)(*st_ld), (double)(*st_ld));
+#else
 			r_cons_printf (cons, " %Le %Lf\n", *st_ld, *st_ld);
+#endif
 		} else {
 			r_cons_printf (cons, "\n");
 		}

libr/util/format.c

@@ -1071,18 +1071,26 @@ static void r_print_format_long_double(const RPrint* p, int endian, int mode, co
 	r_mem_swaporcopy ((ut8*)&val_f, buf + i, sizeof (long double), endian);
 	if (MUSTSET) {
 		r_print_printf (p, "wv8 %s @ 0x%08"PFMT64x"\n", setval,
-			seeki + ((elem >= 0) ? elem * 8 : 0));
+				seeki + ((elem >= 0) ? elem * 8 : 0));
 	} else if ((mode & R_PRINT_DOT) || MUSTSEESTRUCT) {
+#if R2_NO_LONG_DOUBLE_FMT
+		r_print_printf (p, "%.17g", (double)val_f);
+#else
 		r_print_printf (p, "%.17Lg", val_f);
+#endif
 	} else {
 		if (MUSTSEE) {
 			if (!SEEVALUE && !ISQUIET) {
 				r_print_printf (p, "0x%08"PFMT64x" = ",
-					seeki + ((elem >= 0) ? elem * 8 : 0));
+						seeki + ((elem >= 0) ? elem * 8 : 0));
 			}
 		}
 		if (size == -1) {
+#if R2_NO_LONG_DOUBLE_FMT
+			r_print_printf (p, "%.17g", (double)val_f);
+#else
 			r_print_printf (p, "%.17Lg", val_f);
+#endif
 		} else {
 			if (!SEEVALUE) {
 				r_print_printf (p, "[ ");
@@ -1092,7 +1100,11 @@ static void r_print_format_long_double(const RPrint* p, int endian, int mode, co
 				updateAddr (buf + i, 9999, endian, &addr, NULL);
 				r_mem_swaporcopy ((ut8*)&val_f, buf + i, sizeof (double), endian);
 				if (elem == -1 || elem == 0) {
+#if R2_NO_LONG_DOUBLE_FMT
+					r_print_printf (p, "%.17g", (double)val_f);
+#else
 					r_print_printf (p, "%.17Lg", val_f);
+#endif
 					if (elem == 0) {
 						elem = -2;
 					}

mk/emscripten.mk

@@ -3,7 +3,7 @@ _INCLUDE_MK_GCC_=1
 EXT_EXE=.js
 EXT_SO=.bc
 EXT_AR=a
-CC=emcc
+CC=emcc -DR2_NO_LONG_DOUBLE_FMT=1
 AR=emar
 LINK=
 RANLIB=emranlib

mk/wasi.mk

@@ -4,7 +4,7 @@ EXT_EXE=.wasm
 EXT_SO=so
 WITH_LIBS=0
 EXT_AR=a
-CC=$(WASI_SDK)/bin/clang --sysroot=$(WASI_SYSROOT) -DHAVE_PTHREAD=0 -D_WASI_EMULATED_SIGNAL -D_WASI_EMULATED_MMAN -DHAVE_PTY=0
+CC=$(WASI_SDK)/bin/clang --sysroot=$(WASI_SYSROOT) -DHAVE_PTHREAD=0 -D_WASI_EMULATED_SIGNAL -D_WASI_EMULATED_MMAN -DHAVE_PTY=0 -DR2_NO_LONG_DOUBLE_FMT=1
 # -lc-printscan-long-double
 AR=$(WASI_SDK)/bin/ar
 LINK=

mk/wasm.mk

@@ -3,7 +3,7 @@ _INCLUDE_MK_GCC_=1
 EXT_EXE=.wasm
 EXT_SO=wasm
 EXT_AR=a
-CC=emcc
+CC=emcc -DR2_NO_LONG_DOUBLE_FMT=1
 AR=emar
 RANLIB=emranlib
 ONELIB=0