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

diff --git a/src/language/expressions/parse.c b/src/language/expressions/parse.c
index f2bc3254..b4294c16 100644
--- a/src/language/expressions/parse.c
+++ b/src/language/expressions/parse.c
@@ -1222,6 +1222,11 @@ parse_function (struct expression *e)
       msg (SE, _("%s is not yet implemented."), f->prototype);
       goto fail;
     }
+  if ((f->flags & OPF_PERM_ONLY) && in_temporary_transformations ()) 
+    {
+      msg (SE, _("%s may not appear after TEMPORARY."), f->prototype);
+      goto fail;
+    }
   
   n = expr_allocate_composite (e, f - operations, args, arg_cnt);
   n->composite.min_valid = min_valid != -1 ? min_valid : f->array_min_elems;