X-Git-Url: http://andersk.mit.edu/gitweb/splint.git/blobdiff_plain/e7af859818da51dc25010dd482f685fc49fbfdc9..c21b4c8757c25a46058958848352f8cdffac86f9:/src/context.c

diff --git a/src/context.c b/src/context.c
index 6df5dde..361692a 100644
--- a/src/context.c
+++ b/src/context.c
@@ -1864,6 +1864,14 @@ context_enterFunction (/*@exposed@*/ uentry e)
   sRef_enterFunctionScope ();
 }
 
+bool context_inOldSytleScope(void)
+{
+  if (gc.kind == CX_OLDSTYLESCOPE)
+    return TRUE;
+  else
+    return FALSE;
+}
+
 void
 context_enterOldStyleScope (void)
 {