From 03a7d6c290eff523cf83375cbbd3ac374b857c4c Mon Sep 17 00:00:00 2001
From: David Schleef <ds@schleef.org>
Date: Mon, 14 Jun 2010 22:57:36 -0700
Subject: [PATCH] Add handling of ORC_CODE environment variable

A comma delimited string of values that control how the
compiler works.  Possible values are "backup", which causes
backup functions to be used instead of compiling, and "debug",
which causes the SSE backend to create frame pointers, which
produces slower code, but allows backtraces in a debugger.
---
 orc/orc.c            |  2 ++
 orc/orccompiler.c    | 33 +++++++++++++++++++++++++++++++++
 orc/orccpu-arm.c     |  2 +-
 orc/orccpu-x86.c     |  4 ++--
 orc/orcprogram-sse.c |  8 +++++++-
 orc/orcprogram.h     |  6 ++++++
 orc/orcutils.c       |  8 ++++----
 orc/orcutils.h       |  2 +-
 8 files changed, 56 insertions(+), 9 deletions(-)

diff --git a/orc/orc.c b/orc/orc.c
index ff0655a..d90abe9 100644
--- a/orc/orc.c
+++ b/orc/orc.c
@@ -16,6 +16,7 @@
 
 void _orc_debug_init(void);
 void _orc_once_init(void);
+void _orc_compiler_init(void);
 
 /**
  * orc_init:
@@ -36,6 +37,7 @@ orc_init (void)
 
   _orc_debug_init();
   _orc_once_init();
+  _orc_compiler_init();
   orc_opcode_init();
   orc_c_init();
 #ifdef ENABLE_BACKEND_C64X
diff --git a/orc/orccompiler.c b/orc/orccompiler.c
index 619933b..0a27643 100644
--- a/orc/orccompiler.c
+++ b/orc/orccompiler.c
@@ -35,6 +35,34 @@ void orc_compiler_rewrite_vars2 (OrcCompiler *compiler);
 int orc_compiler_dup_temporary (OrcCompiler *compiler, int var, int j);
 void orc_compiler_check_sizes (OrcCompiler *compiler);
 
+static char **_orc_compiler_flag_list;
+static int _orc_compiler_flag_backup;
+
+void
+_orc_compiler_init (void)
+{
+  const char *envvar;
+
+  envvar = getenv ("ORC_CODE");
+  if (envvar != NULL) {
+    _orc_compiler_flag_list = strsplit (envvar, ',');
+  }
+
+  _orc_compiler_flag_backup = orc_compiler_flag_check ("backup");
+}
+
+int
+orc_compiler_flag_check (const char *flag)
+{
+  int i;
+
+  if (_orc_compiler_flag_list == NULL) return FALSE;
+
+  for (i=0;_orc_compiler_flag_list[i];i++){
+    if (strcmp (_orc_compiler_flag_list[i], flag) == 0) return TRUE;
+  }
+  return FALSE;
+}
 
 int
 orc_compiler_allocate_register (OrcCompiler *compiler, int data_reg)
@@ -158,6 +186,11 @@ orc_program_compile_full (OrcProgram *program, OrcTarget *target,
   compiler->target = target;
   compiler->target_flags = flags;
 
+  if (program->backup_func && _orc_compiler_flag_backup) {
+    ORC_COMPILER_ERROR(compiler, "Compilation disabled");
+    goto error;
+  }
+
   {
     ORC_LOG("variables");
     for(i=0;i<ORC_N_VARIABLES;i++){
diff --git a/orc/orccpu-arm.c b/orc/orccpu-arm.c
index d1d9f28..347cc69 100644
--- a/orc/orccpu-arm.c
+++ b/orc/orccpu-arm.c
@@ -70,7 +70,7 @@ orc_cpu_arm_getflags_cpuinfo (char *cpuinfo)
     return;
   }
 
-  flags = strsplit(cpuinfo_flags);
+  flags = strsplit(cpuinfo_flags, ' ');
   for (f = flags; *f; f++) {
 #if 0
     if (strcmp (*f, "edsp") == 0) {
diff --git a/orc/orccpu-x86.c b/orc/orccpu-x86.c
index 3254f34..86d89c6 100644
--- a/orc/orccpu-x86.c
+++ b/orc/orccpu-x86.c
@@ -75,7 +75,7 @@ orc_sse_getflags_cpuinfo (char *cpuinfo)
     return;
   }
 
-  flags = strsplit(cpuinfo_flags);
+  flags = strsplit(cpuinfo_flags, ' ');
   for (f = flags; *f; f++) {
     if (strcmp (*f, "sse2") == 0) {
       ORC_DEBUG ("cpu flag %s", *f);
@@ -129,7 +129,7 @@ orc_mmx_getflags_cpuinfo (char *cpuinfo)
     return;
   }
 
-  flags = strsplit(cpuinfo_flags);
+  flags = strsplit(cpuinfo_flags, ' ');
   for (f = flags; *f; f++) {
     if (strcmp (*f, "mmx") == 0) {
       ORC_DEBUG ("cpu flag %s", *f);
diff --git a/orc/orcprogram-sse.c b/orc/orcprogram-sse.c
index d5e83dd..bb03ea3 100644
--- a/orc/orcprogram-sse.c
+++ b/orc/orcprogram-sse.c
@@ -47,6 +47,8 @@ static OrcTarget sse_target = {
 
 };
 
+static int _orc_compiler_flag_debug;
+
 
 void
 orc_sse_init (void)
@@ -60,6 +62,8 @@ orc_sse_init (void)
   orc_target_register (&sse_target);
 
   orc_compiler_sse_register_rules (&sse_target);
+
+  _orc_compiler_flag_debug = orc_compiler_flag_check ("debug");
 }
 
 unsigned int
@@ -70,7 +74,9 @@ orc_compiler_sse_get_default_flags (void)
 #ifdef HAVE_AMD64
   flags |= ORC_TARGET_SSE_64BIT;
 #endif
-  flags &= ~ORC_TARGET_SSE_FRAME_POINTER;
+  if (_orc_compiler_flag_debug) {
+    flags |= ORC_TARGET_SSE_FRAME_POINTER;
+  }
   
 #if defined(HAVE_AMD64) || defined(HAVE_I386)
   flags |= orc_sse_get_cpu_flags ();
diff --git a/orc/orcprogram.h b/orc/orcprogram.h
index 41216ba..43d08ec 100644
--- a/orc/orcprogram.h
+++ b/orc/orcprogram.h
@@ -589,5 +589,11 @@ int orc_program_get_max_var_size (OrcProgram *program);
 int orc_program_get_max_array_size (OrcProgram *program);
 int orc_program_get_max_accumulator_size (OrcProgram *program);
 
+#ifdef ORC_ENABLE_UNSTABLE_API
+
+int orc_compiler_flag_check (const char *flag);
+
+#endif
+
 #endif
 
diff --git a/orc/orcutils.c b/orc/orcutils.c
index cc74063..ec51179 100644
--- a/orc/orcutils.c
+++ b/orc/orcutils.c
@@ -53,10 +53,10 @@ _strndup (const char *s, int n)
 }
 
 char **
-strsplit (char *s)
+strsplit (const char *s, char delimiter)
 {
   char **list = NULL;
-  char *tok;
+  const char *tok;
   int n = 0;
 
   while (*s == ' ') s++;
@@ -64,10 +64,10 @@ strsplit (char *s)
   list = malloc (1 * sizeof(char *));
   while (*s) {
     tok = s;
-    while (*s && *s != ' ') s++;
+    while (*s && *s != delimiter) s++;
 
     list[n] = _strndup (tok, s - tok);
-    while (*s && *s == ' ') s++;
+    while (*s && *s == delimiter) s++;
     list = realloc (list, (n + 2) * sizeof(char *));
     n++;
   }
diff --git a/orc/orcutils.h b/orc/orcutils.h
index feb977d..57eb8ac 100644
--- a/orc/orcutils.h
+++ b/orc/orcutils.h
@@ -155,7 +155,7 @@ int get_file_int (const char *file, int *value);
 char * get_file (const char *file);
 char * get_cpuinfo_line (char *cpuinfo, const char *tag);
 char * _strndup (const char *s, int n);
-char ** strsplit (char *s);
+char ** strsplit (const char *s, char delimiter);
 char * get_tag_value (char *s, const char *tag);
 
 #endif
-- 
2.7.4