Import from SrcFiler

CMHG/header

@@ -14,7 +14,7 @@
 ;
 title-string: BootCommands
 
-help-string: Boot_Commands 1.14
+help-string: Boot_Commands 1.15
 
 initialisation-code: main_initialise
 
@@ -59,4 +59,9 @@ command-keyword-table: main_command
       gstrans-map: 0,
       international:,
       invalid-syntax: "SafeLogonSyntax",
-      help-text: "SafeLogonHelp")
+      help-text: "SafeLogonHelp"),
+   FreePool( min-args: 0, max-args: 0,
+      gstrans-map: 0,
+      international:,
+      invalid-syntax: "FreePoolSyntax",
+      help-text: "FreePoolHelp")

c/main

@@ -628,6 +628,23 @@ finish:
 
    return error;
 }
+
+static os_error *Free_Pool( char *tail )
+{
+   int next_size;
+   os_error *err = xwimp_slot_size( -1, -1, NULL, &next_size, NULL );
+   if ( err == NULL )
+   {
+      int app_size;
+      err = xos_change_environment( 0x0E, 0, 0, 0, (void **)&app_size, NULL, NULL );
+      if ( err == NULL ) err = xos_read_dynamic_area( 6, NULL, NULL, NULL );
+      if ( err == NULL ) err = xos_change_dynamic_area( 6, app_size-next_size, NULL );
+   }
+   return err;
+
+   NOT_USED( tail );
+}
+
 /*------------------------------------------------------------------------*/
 _kernel_oserror *main_initialise (char *tail, int podule_base,
       void *workspace)
@@ -679,6 +696,7 @@ _kernel_oserror *main_initialise (char *tail, int podule_base,
    Commands [main_LOAD_CMOS]  = &Load_CMOS;
    Commands [main_REPEAT]     = &Repeat;
    Commands [main_SAFE_LOGON] = &Safe_Logon;
+   Commands [main_FREE_POOL]  = *Free_Pool;
 
 finish:
    if (error != NULL)

h/main

@@ -42,7 +42,8 @@
 #define main_LOAD_CMOS     4
 #define main_REPEAT        5
 #define main_SAFE_LOGON    6
-#define main_COMMAND_COUNT 7
+#define main_FREE_POOL     7
+#define main_COMMAND_COUNT 8
 
 extern _kernel_oserror *main_initialise (char *, int, void *);