pic_get_args supports double type (f)

2013-10-15 23:25:07 +09:00 · 2013-10-15 23:25:07 +09:00 · 0515b8ba2a
parent e42eb5acd5
commit 0515b8ba2a
1 changed files with 9 additions and 0 deletions
--- a/src/vm.c
+++ b/src/vm.c
@ -86,6 +86,15 @@ pic_get_args(pic_state *pic, const char *format, ...)
 	i++;
      }
      break;
+    case 'f':
+      {
+	double *f;
+
+	f = va_arg(ap, double *);
+	*f = pic_float(*--pic->sp);
+	i++;
+      }
+      break;
    }
  }
 }