Convert orc_program_compile to boolean

diff --git a/orc/orcprogram.c b/orc/orcprogram.c
index f418691..ec24a3b 100644 (file)
--- a/orc/orcprogram.c
+++ b/orc/orcprogram.c
@@ -288,7 +288,7 @@ orc_program_allocate_register (OrcProgram *program, int data_reg)
   return 0;
 }
 
-void
+orc_bool
 orc_program_compile (OrcProgram *program)
 {
   int i;
@@ -353,6 +353,12 @@ orc_program_compile (OrcProgram *program)
   }
 
   orc_program_dump_code (program);
+
+  if (program->error) {
+    ORC_ERROR("program failed to compile");
+    return FALSE;
+  }
+  return TRUE;
 }
 
 void

diff --git a/orc/orcprogram.h b/orc/orcprogram.h
index 4429e63..120cbb1 100644 (file)
--- a/orc/orcprogram.h
+++ b/orc/orcprogram.h
@@ -3,7 +3,7 @@
 #define _ORC_PROGRAM_H_
 
 #include <orc/orc-stdint.h>
-//#include <glib.h>
+#include <orc/orcutils.h>
 
 typedef struct _OrcExecutor OrcExecutor;
 typedef struct _OrcVariable OrcVariable;
@@ -224,7 +224,7 @@ void orc_arm_init (void);
 void orc_powerpc_init (void);
 void orc_c_init (void);
 
-void orc_program_compile (OrcProgram *p);
+orc_bool orc_program_compile (OrcProgram *p);
 void orc_program_c_init (OrcProgram *p);
 void orc_program_mmx_init (OrcProgram *p);
 void orc_program_sse_init (OrcProgram *p);