COMMON: update changelog

Author: chrisws

ChangeLog

@@ -1,5 +1,7 @@
 2014-08-15
-	Performance tweaks
+	Improved runtime performance
+	Fixed memory leak with UDS variables
+	Fixed FUNC call with parenthesis
 
 2014-08-14
 	Added SHOWPAGE. code cleanup

src/common/scan.c

@@ -1560,7 +1560,7 @@ int comp_single_line_if(char *text) {
   char *pthen, *pelse;
   char buf[SB_SOURCELINE_SIZE + 1];
 
-if(  comp_error) {
+  if (comp_error) {
     return 0;
   }
   pthen = p;

src/common/smbas.h

@@ -13,8 +13,6 @@
 #include "common/sys.h"
 #include "common/pmem.h"
 #include "common/var.h"
-#include "common/var_uds.h"
-#include "common/var_hash.h"
 #include "common/kw.h"
 #include "common/scan.h"
 
@@ -220,186 +218,7 @@ EXTERN char gsb_last_errmsg[SB_ERRMSG_SIZE + 1]; /**< last error message
 
 #undef EXTERN
 
-/**
- * @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
-
-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 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)
+#include "common/hotspots.h"
 
 /**
  * @ingroup exec