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

diff --git a/src/language/expressions/parse.inc.pl b/src/language/expressions/parse.inc.pl
index ea878c92..47c590fb 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}");