COMMON: fix potential crash with some STR funcs

Author: chrisws

samples/distro-examples/tests/strings.bas

@@ -169,5 +169,6 @@ sub cmd_str1(n)
  x=tab(n)
 end
 cmd_str1("")
+cmd_str1(0)
 
 

src/common/blib_func.c

@@ -934,7 +934,7 @@ void cmd_str1(long funcCode, var_t *arg, var_t *r) {
     // convert C-Style string to BASIC-style string
     //
     if (!v_is_type(arg, V_STR)) {
-      v_init(arg);
+      v_init(r);
       break;
     }
     r->v.p.ptr = cstrdup(arg->v.p.ptr);
@@ -946,7 +946,7 @@ void cmd_str1(long funcCode, var_t *arg, var_t *r) {
     // convert BASIC-Style string to C-style string
     //
     if (!v_is_type(arg, V_STR)) {
-      v_init(arg);
+      v_init(r);
       break;
     }
     r->v.p.ptr = bstrdup(arg->v.p.ptr);
@@ -1016,7 +1016,7 @@ void cmd_str1(long funcCode, var_t *arg, var_t *r) {
     // str <- LTRIM$(s)
     //
     if (!v_is_type(arg, V_STR)) {
-      v_init(arg);
+      v_init(r);
       break;
     }
     p = arg->v.p.ptr;
@@ -1036,7 +1036,7 @@ void cmd_str1(long funcCode, var_t *arg, var_t *r) {
     // str <- RTRIM$(s)
     //
     if (!v_is_type(arg, V_STR)) {
-      v_init(arg);
+      v_init(r);
       break;
     }
     p = arg->v.p.ptr;

src/platform/console/dev_null.c

@@ -62,7 +62,7 @@ void osd_setxy(int x, int y) {
  * Basic output - print sans control codes
  */
 void osd_write(const char *str) {
-  int len = str == NULL ? 0 : strlen(str);
+  int len = strlen(str);
   if (len) {
     int i, index = 0, escape = 0;
     char *buffer = (char *)malloc(len + 1);