COMMON: move hotspots to separate include

Author: chrisws

src/common/hotspots.h

@@ -0,0 +1,193 @@
+// This file is part of SmallBASIC
+//
+// inlined hotspots
+//
+// This program is distributed under the terms of the GPL v2.0 or later
+// Download the GNU Public License (GPL) from www.gnu.org
+//
+// Copyright(C) 2014 Chris Warren-Smith
+
+#include "common/var_uds.h"
+#include "common/var_hash.h"
+
+void err_evsyntax(void);
+void err_varisarray(void);
+void err_varisnotarray(void);
+void err_notavar(void);
+var_t *code_resolve_varptr(var_t* var_p, int until_parens);
+
+/**
+ * @ingroup var
+ *
+ * returns the next integer and moves the IP 4 bytes forward.
+ *
+ * R(long int) <- Code[IP]; IP+=4
+ */
+static inline dword code_getnext32(void) {
+  dword v;
+  memcpy(&v, prog_source + prog_ip, 4);
+  prog_ip += 4;
+  return v;
+}
+
+/**
+ * @ingroup var
+ *
+ * returns the next 64bit and moves the instruction pointer to the next instruction
+ *
+ * R(double)   <- Code[IP]; IP+=8
+ */
+static inline double code_getnext64f() {
+  double v;
+  memcpy(&v, prog_source + prog_ip, sizeof(double));
+  prog_ip += sizeof(double);
+  return v;
+}
+
+#if defined(OS_PREC64)
+
+/**
+ * @ingroup var
+ *
+ * returns the next 64bit and moves the instruction pointer to the next instruction
+ */
+static inline var_int_t code_getnext64i() {
+  var_int_t v;
+  memcpy(&v, prog_source + prog_ip, sizeof(var_int_t));
+  prog_ip += sizeof(var_int_t);
+  return v;
+}
+
+/**
+ * @ingroup var
+ *
+ * returns the next 128bit and moves the instruction pointer to the next instruction
+ */
+static inline var_num_t code_getnext128f() {
+  var_num_t v;
+  memcpy(&v, prog_source + prog_ip, sizeof(var_num_t));
+  prog_ip += sizeof(var_num_t);
+  return v;
+}
+
+#endif
+
+/**
+ * @ingroup var
+ *
+ * returns the floating-point value of a var.
+ * if v is string it will converted to double.
+ *
+ * @param v the variable
+ * @return the numeric value of a variable
+ */
+static inline var_num_t v_getval(var_t *v) {
+  switch (v ? v->type : -1) {
+  case V_UDS:
+    return uds_to_int(v);
+  case V_HASH:
+    return hash_to_int(v);
+  case V_PTR:
+    return v->v.ap.p;
+  case V_INT:
+    return v->v.i;
+  case V_NUM:
+    return v->v.n;
+  case V_STR:
+    return numexpr_sb_strtof((char *) v->v.p.ptr);
+  default:
+    if (v == NULL) {
+      err_evsyntax();
+    } else {
+      err_varisarray();
+    }
+  }
+  return 0;
+}
+
+#define v_getnum(a) v_getval((a))
+
+/**
+ * @ingroup var
+ *
+ * returns the integer value of a var.
+ * if v is string it will converted to integer.
+ *
+ * @param v the variable
+ * @return the integer value of a variable
+ */
+static inline var_int_t v_igetval(var_t *v) {
+  switch (v ? v->type : -1) {
+  case V_UDS:
+    return uds_to_int(v);
+  case V_HASH:
+    return hash_to_int(v);
+  case V_PTR:
+    return v->v.ap.p;
+  case V_INT:
+    return v->v.i;
+  case V_NUM:
+    return v->v.n;
+  case V_STR:
+    return numexpr_strtol((char *) v->v.p.ptr);
+  default:
+    if (v == NULL) {
+      err_evsyntax();
+    } else {
+      err_varisarray();
+    }
+  }
+  return 0;
+}
+
+/**
+ * @ingroup exec
+ *
+ * variant of code_getvarptr() derefence until left parenthesis found
+ *
+ * R(var_t*) <- Code[IP]; IP += 2;
+ *
+ * @return the var_t*
+ */
+static inline var_t* code_getvarptr_parens(int until_parens) {
+  var_t *var_p = NULL;
+
+  switch (code_peek()) {
+  case kwTYPE_VAR:
+    code_skipnext();
+    var_p = tvar[code_getaddr()];
+    switch (var_p->type) {
+    case V_HASH:
+    case V_ARRAY:
+      var_p = code_resolve_varptr(var_p, until_parens);
+      break;
+    default:
+      if (!until_parens && code_peek() == kwTYPE_LEVEL_BEGIN) {
+        err_varisnotarray();
+      }
+    }
+    break;
+
+  case kwTYPE_UDS:
+    code_skipnext();
+    var_p = tvar[code_getaddr()];
+    var_p = code_resolve_varptr(uds_resolve_fields(var_p), until_parens);
+    break;
+  }
+
+  if (var_p == NULL && !prog_error) {
+    err_notavar();
+    return tvar[0];
+  }
+
+  return var_p;
+}
+
+/**
+ * @ingroup var
+ *
+ * Returns the varptr of the next variable. if the variable is an array 
+ * returns the element ptr
+ */
+#define code_getvarptr() code_getvarptr_parens(0)
+