X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fexpressions%2Fevaluate.inc.pl;h=e2fccab8d558d491055295574fe77520b66db995;hb=a9acce47d67e0ab35ce1690e4f1b1ac0121c2d78;hp=85112f96903e82f18b13c8b3a8728132e5a86d0c;hpb=dcf9b154cbcaa35c3d8459a201b77eec8bcb30bd;p=pspp

diff --git a/src/language/expressions/evaluate.inc.pl b/src/language/expressions/evaluate.inc.pl
index 85112f9690..e2fccab8d5 100644
--- a/src/language/expressions/evaluate.inc.pl
+++ b/src/language/expressions/evaluate.inc.pl
@@ -1,12 +1,18 @@
+use strict;
+use warnings 'all';
+
 do 'generate.pl';
 
+our (@order);
+our (%ops);
+
 sub generate_output {
     for my $opname (@order) {
 	my ($op) = $ops{$opname};
 
 	if ($op->{UNIMPLEMENTED}) {
 	    print "case $opname:\n";
-	    print "  abort ();\n\n";
+	    print "  NOT_REACHED ();\n\n";
 	    next;
 	}