projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
New (singleton) object psppire-window-register
[pspp]
/
src
/
language
/
expressions
/
optimize.inc.pl
diff --git
a/src/language/expressions/optimize.inc.pl
b/src/language/expressions/optimize.inc.pl
index 798c5001fdc5530661ed7cc2fa8cc4ff3ed7b1c4..c44177456cb353e3dd59de8ff3aa81f6781d8612 100644
(file)
--- a/
src/language/expressions/optimize.inc.pl
+++ b/
src/language/expressions/optimize.inc.pl
@@
-1,4
+1,8
@@
+use strict;
+use warnings 'all';
+
do 'generate.pl';
do 'generate.pl';
+our (@order, %ops);
sub generate_output {
for my $opname (@order) {
sub generate_output {
for my $opname (@order) {
@@
-6,7
+10,7
@@
sub generate_output {
if (!$op->{OPTIMIZABLE} || $op->{UNIMPLEMENTED}) {
print "case $opname:\n";
if (!$op->{OPTIMIZABLE} || $op->{UNIMPLEMENTED}) {
print "case $opname:\n";
- print "
abort
();\n\n";
+ print "
NOT_REACHED
();\n\n";
next;
}
next;
}