X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fexpressions%2Fparse.inc.pl;h=47c590fb306f2c06bc7e1abb8ede6fbdf5773967;hb=5e89e0049bd55f22412f547d8d7bfefc69443e98;hp=ea878c92ccec4fe8db8a603a416203803da78689;hpb=dcf9b154cbcaa35c3d8459a201b77eec8bcb30bd;p=pspp

diff --git a/src/language/expressions/parse.inc.pl b/src/language/expressions/parse.inc.pl
index ea878c92cc..47c590fb30 100644
--- a/src/language/expressions/parse.inc.pl
+++ b/src/language/expressions/parse.inc.pl
@@ -55,6 +55,7 @@ sub generate_output {
 	push (@flags, "OPF_NONOPTIMIZABLE") if !$op->{OPTIMIZABLE};
 	push (@flags, "OPF_EXTENSION") if $op->{EXTENSION};
 	push (@flags, "OPF_UNIMPLEMENTED") if $op->{UNIMPLEMENTED};
+	push (@flags, "OPF_PERM_ONLY") if $op->{PERM_ONLY};
 	push (@members, @flags ? join (' | ', @flags) : 0);
 
 	push (@members, "OP_$op->{RETURNS}{NAME}");