find local iterators and add them to frame info

The iterators are orderd by scope depth. This will allow a stack unwind.

1 files changed, 28 insertions, 2 deletions

diff --git a/src/pdacodegen.cc b/src/pdacodegen.cc
index 469f95c0..8ce95216 100644
--- a/src/pdacodegen.cc
+++ b/src/pdacodegen.cc
@@ -124,6 +124,22 @@ void PdaCodeGen::writeRuntimeData( RuntimeData *runtimeData, PdaTables *pdaTable
 			}
 			out << "\n};\n\n";
 		}
+
+		if ( runtimeData->frameInfo[i].itersLen > 0 ) {
+			out << "static char iters_" << i << "[] = {\n\t";
+
+			char *block = runtimeData->frameInfo[i].iters;
+			for ( int j = 0; j < runtimeData->frameInfo[i].itersLen; j++ ) {
+				out << (long) block[j];
+
+				if ( j < runtimeData->frameInfo[i].itersLen-1 ) {
+					out << ", ";
+					if ( (j+1) % 8 == 0 )
+						out << "\n\t";
+				}
+			}
+			out << "\n};\n\n";
+		}
 	}
 
 	/*
@@ -233,13 +249,23 @@ void PdaCodeGen::writeRuntimeData( RuntimeData *runtimeData, PdaTables *pdaTable
 			out << "0, ";
 		out << runtimeData->frameInfo[i].codeLenWC << ", ";
 
+		/* trees */
 		if ( runtimeData->frameInfo[i].treesLen > 0 )
 			out << "trees_" << i << ", ";
 		else
 			out << "0, ";
 
-		out << 
-			runtimeData->frameInfo[i].treesLen << ", " <<
+		out << runtimeData->frameInfo[i].treesLen << ", ";
+
+		/* iters. */
+		if ( runtimeData->frameInfo[i].itersLen > 0 )
+			out << "iters_" << i << ", ";
+		else
+			out << "0, ";
+
+		out << runtimeData->frameInfo[i].itersLen << ", ";
+
+		out <<
 			runtimeData->frameInfo[i].argSize << ", " <<
 			runtimeData->frameInfo[i].frameSize;