Fix confusion over workspace units.

diff --git a/doc/utilities.texi b/doc/utilities.texi
index 4423080f1bcc353457afa93935b5f956f36dd0e6..158177b6884f6435e006099722643f66e5082e5b 100644 (file)
--- a/doc/utilities.texi
+++ b/doc/utilities.texi
@@ -606,7 +606,7 @@ RANDOM, which will obtain an initial seed from the current time of day.
 Currently not used.
 
 @item WORKSPACE
-The maximum amount of memory (in bytes) that @pspp{} will use to store data being processed.
+The maximum amount of memory (in kilobytes) that @pspp{} will use to store data being processed.
 If memory in excess of the workspace size is required, then @pspp{} will start
 to use temporary files to store the data.
 Setting a higher value will, in general, mean procedures will run faster, 

diff --git a/src/data/settings.c b/src/data/settings.c
index 47b3f3d5ce6081f58f53afe03a2f1bd1fd381904..b1d4a80b9d2773b798fe432e2731aa215979865d 100644 (file)
--- a/src/data/settings.c
+++ b/src/data/settings.c
@@ -452,7 +452,7 @@ settings_get_workspace_cases (const struct caseproto *proto)
    bytes. */
 
 void
-settings_set_workspace ( size_t workspace)
+settings_set_workspace (size_t workspace)
 {
   the_settings.workspace = workspace;
 }

diff --git a/src/language/utilities/set.q b/src/language/utilities/set.q
index 8f59156e2b80a90b14c2f227f6ef773d712322ed..14cc4be5873daa66edbd3428f8ffff24f29c11eb 100644 (file)
--- a/src/language/utilities/set.q
+++ b/src/language/utilities/set.q
@@ -875,7 +875,8 @@ show_width (const struct dataset *ds UNUSED)
 static char *
 show_workspace (const struct dataset *ds UNUSED)
 {
-  return xasprintf ("%d", settings_get_workspace ());
+  size_t ws = settings_get_workspace () / 1024L;
+  return xasprintf ("%ld", ws);
 }
 
 static char *