Add warning/error handlin for problematic nested scopes cases as
described in PEP 227.

symtable_check_unoptimized() warns about import * and exec with "in"
when it is used in a function that contains a nested function with
free variables.  Warnings are issued unless nested scopes are in
effect, in which case these are SyntaxErrors.

symtable_check_shadow() warns about assignments in a function scope
that shadow free variables defined in a nested scope.  This will
always generate a warning -- and will behave differently with nested
scopes than without.

Restore full checking for free vars in children, even when nested
scopes are not enabled.  This is needed to support warnings for
shadowing.

Change symtable_warn() to return an int-- the return value of
PyErr_WarnExplicit.

Sundry cleanup: Remove commented out code.  Break long lines.
diff --git a/Python/compile.c b/Python/compile.c
index 2646dbe..3ff984b 100644
--- a/Python/compile.c
+++ b/Python/compile.c
@@ -312,7 +312,6 @@
 		co->co_firstlineno = firstlineno;
 		Py_INCREF(lnotab);
 		co->co_lnotab = lnotab;
-/*		PyObject_Print((PyObject *)co, stderr, 0); */
 	}
 	return co;
 }
@@ -1151,7 +1150,8 @@
 			*p++ = c;
 			break;
 		case 'x':
-			if (isxdigit(Py_CHARMASK(s[0])) && isxdigit(Py_CHARMASK(s[1]))) {
+			if (isxdigit(Py_CHARMASK(s[0])) 
+			    && isxdigit(Py_CHARMASK(s[1]))) {
 				unsigned int x = 0;
 				c = Py_CHARMASK(*s);
 				s++;
@@ -1173,7 +1173,8 @@
 				*p++ = x;
 				break;
 			}
-			PyErr_SetString(PyExc_ValueError, "invalid \\x escape");
+			PyErr_SetString(PyExc_ValueError, 
+					"invalid \\x escape");
 			Py_DECREF(v);
 			return NULL;
 		default:
@@ -2647,7 +2648,7 @@
 			for (i = 3; i < NCH(n); i += 2) {
 				PyTuple_SET_ITEM(tup, (i-3)/2, 
 					PyString_FromString(STR(
-							CHILD(CHILD(n, i), 0))));
+						CHILD(CHILD(n, i), 0))));
 			}
 		}
 		com_addoparg(c, LOAD_CONST, com_addconst(c, tup));
@@ -3985,7 +3986,7 @@
 
 /* Helper function to issue symbol table warnings */
 
-static void
+static int
 symtable_warn(struct symtable *st, char *msg)
 {
 	if (PyErr_WarnExplicit(PyExc_SyntaxWarning, msg, st->st_filename,
@@ -3996,7 +3997,9 @@
 					     st->st_cur->ste_lineno);
 		}
 		st->st_errors++;
+		return -1;
 	}
+	return 0;
 }
 
 /* Helper function for setting lineno and filename */
@@ -4120,6 +4123,98 @@
 }
 
 static int
+symtable_check_unoptimized(struct compiling *c,
+			   PySymtableEntryObject *ste, 
+			   struct symbol_info *si)
+{
+	char buf[300];
+
+	if (!(si->si_ncells || si->si_nfrees || ste->ste_child_free
+	      || (ste->ste_nested && si->si_nimplicit)))
+		return 0;
+
+#define ILLEGAL_IMPORT_STAR \
+"import * is not allowed in function '%.100s' " \
+"because it contains a nested function with free variables"
+
+#define ILLEGAL_BARE_EXEC \
+"unqualified exec is not allowed in function '%.100s' " \
+"because it contains a nested function with free variables"
+
+#define ILLEGAL_EXEC_AND_IMPORT_STAR \
+"function '%.100s' uses import * and bare exec, which are illegal" \
+"because it contains a nested function with free variables"
+
+	/* XXX perhaps the linenos for these opt-breaking statements
+	   should be stored so the exception can point to them. */
+
+	if (ste->ste_optimized == OPT_IMPORT_STAR)
+		sprintf(buf, ILLEGAL_IMPORT_STAR, 
+			PyString_AS_STRING(ste->ste_name));
+	else if (ste->ste_optimized == (OPT_BARE_EXEC | OPT_EXEC))
+		sprintf(buf, ILLEGAL_BARE_EXEC,
+			PyString_AS_STRING(ste->ste_name));
+	else {
+		sprintf(buf, ILLEGAL_EXEC_AND_IMPORT_STAR,
+			PyString_AS_STRING(ste->ste_name));
+	}
+	
+	if (c->c_symtable->st_nested_scopes) {
+		PyErr_SetString(PyExc_SyntaxError, buf);
+		PyErr_SyntaxLocation(c->c_symtable->st_filename,
+				     ste->ste_lineno);
+		return -1;
+	} else {
+		/* XXX if the warning becomes an exception, we should
+		   attached more info to it. */
+		if (PyErr_Warn(PyExc_SyntaxWarning, buf) < 0)
+			return -1;
+	}
+	return 0;
+}
+
+static int
+symtable_check_shadow(struct symtable *st, PyObject *name, int flags)
+{
+	char buf[500];
+	PyObject *children, *v;
+	PySymtableEntryObject *child;
+	int i;
+
+	if (!(flags & DEF_BOUND))
+		return 0;
+	/* The semantics of this code will change with nested scopes.
+	   It is defined in the current scope and referenced in a
+	   child scope.  Under the old rules, the child will see a
+	   global.  Under the new rules, the child will see the
+	   binding in the current scope.
+	*/
+
+	/* Find name of child function that has free variable */
+	children = st->st_cur->ste_children;
+	for (i = 0; i < PyList_GET_SIZE(children); i++) {
+		int cflags;
+		child = (PySymtableEntryObject *)PyList_GET_ITEM(children, i);
+		v = PyDict_GetItem(child->ste_symbols, name);
+		if (v == NULL)
+			continue;
+		cflags = PyInt_AS_LONG(v);
+		if (!(cflags & DEF_BOUND))
+			break;
+	}
+	
+	sprintf(buf, "local name '%.100s' in '%.100s' shadows "
+		"use of '%.100s' as global in nested scope '%.100s'",
+		PyString_AS_STRING(name),
+		PyString_AS_STRING(st->st_cur->ste_name),
+		PyString_AS_STRING(name),
+		PyString_AS_STRING(child->ste_name)
+		);
+
+	return symtable_warn(st, buf);
+}
+
+static int
 symtable_update_flags(struct compiling *c, PySymtableEntryObject *ste,
 		      struct symbol_info *si)
 {
@@ -4129,26 +4224,8 @@
 		c->c_nlocals = si->si_nlocals;
 		if (ste->ste_optimized == 0)
 			c->c_flags |= CO_OPTIMIZED;
-		else if (si->si_ncells || si->si_nfrees 
-			 || (ste->ste_nested && si->si_nimplicit)
-			 || ste->ste_child_free) {
-			if (c->c_symtable->st_nested_scopes) {
-				PyErr_Format(PyExc_SyntaxError,
-					     ILLEGAL_DYNAMIC_SCOPE, 
-				     PyString_AS_STRING(ste->ste_name));
-				PyErr_SyntaxLocation(c->c_symtable->st_filename,
-						   ste->ste_lineno);
-				return -1;
-			} else {
-				char buf[200];
-				sprintf(buf, ILLEGAL_DYNAMIC_SCOPE,
-					PyString_AS_STRING(ste->ste_name));
-				if (PyErr_Warn(PyExc_SyntaxWarning,
-					       buf) < 0) {
-					return -1;
-				}
-			}
-		}
+		else if (ste->ste_optimized != OPT_EXEC) 
+			return symtable_check_unoptimized(c, ste, si);
 	}
 	return 0;
 }
@@ -4191,6 +4268,12 @@
 	while (PyDict_Next(ste->ste_symbols, &pos, &name, &v)) {
 		flags = PyInt_AS_LONG(v);
 
+		if (st->st_nested_scopes == 0 
+		    && (flags & (DEF_FREE | DEF_FREE_CLASS))) {
+			if (symtable_check_shadow(st, name, flags) < 0)
+				goto fail;
+		}
+
 		if (flags & DEF_FREE_GLOBAL)
 			/* undo the original DEF_FREE */
 			flags &= ~(DEF_FREE | DEF_FREE_CLASS);
@@ -4340,6 +4423,16 @@
 				return -1;
 			}
 		}
+/*
+		if (st->st_nested_scopes == 0 
+		    && list && PyList_GET_SIZE(list) > 0) {
+			fprintf(stderr, "function %s has children with "
+				"the following free vars:\n%s\n",
+				PyString_AS_STRING(ste->ste_name),
+				PyObject_REPR(list));
+			continue; 
+		}
+*/
 		for (j = 0; list && j < PyList_GET_SIZE(list); j++) {
 			name = PyList_GET_ITEM(list, j);
 			if (ste->ste_nested) {
@@ -4432,7 +4525,7 @@
 {
 	int end;
 
-	if (st->st_pass == 1 && st->st_nested_scopes)
+	if (st->st_pass == 1)
 		symtable_update_free_vars(st);
 	Py_DECREF(st->st_cur);
 	end = PyList_GET_SIZE(st->st_stack) - 1;