Changeset 117 for NEWT0/trunk

Timestamp:

09/29/07 23:54:33 (14 months ago)

Author:

eck

Message:

Make initialization via NBCInit explizit to allow repeated calls of NBCGenBC

Location:

NEWT0/trunk/src/newt_core

Files:

• NewtBC.c (modified) (6 diffs)
• incs/NewtBC.h (modified) (1 diff)

NEWT0/trunk/src/newt_core/NewtBC.c

@@ -136 +136 @@
 static void             NBCEnvFree(nbc_env_t * env);
 static newtRef          NBCFnDone(nbc_env_t ** envP);
-
-static void             NBCInit(void);
-static void             NBCCleanup(void);
 
 static void             NBCGenBC_stmt(nps_syntax_node_t * stree, nps_node_t r, bool ret);
@@ -936 +933 @@
 {
     NBCInitFreqFuncTable();
+    newt_bc_env = NBCEnvNew(NULL);
 }
 
@@ -2596 +2594 @@
     newtRefVar  fn;
 
-    NBCInit();
-
-    newt_bc_env = NBCEnvNew(NULL);
     NBCGenBC_sub(stree, size - 1, ret);
     fn = NBCFnDone(&newt_bc_env);
-
-    NBCCleanup();
 
     if (NewtRefIsNotNIL(fn))
@@ -2640 +2633 @@
     if (stree != NULL)
     {
+        NBCInit();
         fn = NBCGenBC(stree, numStree, ret);
+        NBCCleanup();
         NPSCleanup();
     }
@@ -2668 +2663 @@
     if (stree != NULL)
     {
+        NBCInit();
         fn = NBCGenBC(stree, numStree, ret);
+        NBCCleanup();
         NPSCleanup();
     }
@@ -2718 +2715 @@
 }
 
+newtRef NBCConstantTable(void)
+{
+    return (CONSTANT);
+}

NEWT0/trunk/src/newt_core/incs/NewtBC.h

@@ -106 +106 @@
 
 
+void        NBCInit(void);
+void        NBCCleanup(void);
+newtRef     NBCConstantTable(void);
 newtRef     NBCGenBC(nps_syntax_node_t * stree, uint32_t size, bool ret);
 newtRef     NBCCompileFile(char * s, bool ret);