X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Futilities%2Fset.q;fp=src%2Flanguage%2Futilities%2Fset.q;h=37388f9264162e2c346c4f7b7a3edc637aa8bcce;hb=ee7be3e962a4faba54d7bc01364365b51167242c;hp=e058aa5958330e4924f415dd60713882b8767305;hpb=0bd3b06bbdf530044eeb6b1518edbffd7124fcb7;p=pspp-builds.git

diff --git a/src/language/utilities/set.q b/src/language/utilities/set.q
index e058aa59..37388f92 100644
--- a/src/language/utilities/set.q
+++ b/src/language/utilities/set.q
@@ -115,7 +115,7 @@ int tgetnum (const char *);
      wib=wib:msbfirst/lsbfirst/vax/native;
      wrb=wrb:native/isl/isb/idl/idb/vf/vd/vg/zs/zl;
      width=custom;
-     workspace=integer "x>=1024" "%s must be at least 1 MB";
+     workspace=integer "x>0" "%s must be positive";
      xsort=xsort:yes/no.
 */
 
@@ -195,7 +195,12 @@ cmd_set (struct lexer *lexer, struct dataset *ds)
   if (cmd.sbc_wrb)
     settings_set_output_float_format (stc_to_float_format (cmd.wrb));
   if (cmd.sbc_workspace)
-    settings_set_workspace (cmd.n_workspace[0] * 1024L);
+    {
+      if ( cmd.n_workspace[0] < 1024 && ! settings_get_testing_mode ())
+	msg (SE, _("WORKSPACE must be at least 1MB"));
+      else
+	settings_set_workspace (cmd.n_workspace[0] * 1024L);
+    }
 
   if (cmd.sbc_block)
     msg (SW, _("%s is obsolete."), "BLOCK");