diff mbox

[4/5] boot: Remove legacy Forth words for network loading

Message ID 1461913280-29906-5-git-send-email-thuth@redhat.com
State Accepted
Headers show

Commit Message

Thomas Huth April 29, 2016, 7:01 a.m. UTC
These words were required in the very early days of SLOF when
"boot net" / "load net" was not working yet. Nowadays, they
are pretty useless and thus can be removed.

Signed-off-by: Thomas Huth <thuth@redhat.com>
---
 slof/fs/boot.fs | 20 --------------------
 1 file changed, 20 deletions(-)

Comments

Nikunj A Dadhania April 29, 2016, 7:36 a.m. UTC | #1
Thomas Huth <thuth@redhat.com> writes:

> These words were required in the very early days of SLOF when
> "boot net" / "load net" was not working yet. Nowadays, they
> are pretty useless and thus can be removed.
>
> Signed-off-by: Thomas Huth <thuth@redhat.com>

Reviewed-by: Nikunj A Dadhania <nikunj@linux.vnet.ibm.com>

> ---
>  slof/fs/boot.fs | 20 --------------------
>  1 file changed, 20 deletions(-)
>
> diff --git a/slof/fs/boot.fs b/slof/fs/boot.fs
> index e0b6281..e99a164 100644
> --- a/slof/fs/boot.fs
> +++ b/slof/fs/boot.fs
> @@ -274,23 +274,3 @@ read-bootlist
>  ;
>  
>  : load load 0= IF -65 boot-exception-handler THEN ;
> -
> -\ \\\\ Temporary hacks for backwards compatibility
> -: yaboot ." Use 'boot disk' instead " ;
> -
> -: netboot ( -- rc ) ." Use 'boot net' instead " ;
> -
> -: netboot-arg ( arg-string -- rc )
> -   s" boot net " 2swap $cat (parse-line) $cat
> -   evaluate
> -;
> -
> -: netload ( -- rc ) (parse-line)
> -   load-base-override >r flash-load-base to load-base-override
> -   s" load net:" strdup 2swap $cat strdup evaluate
> -   r> to load-base-override
> -   load-size
> -;
> -
> -: neteval ( -- ) FLASH-LOAD-BASE netload evaluate ;
> -
> -- 
> 1.8.3.1
>
> _______________________________________________
> SLOF mailing list
> SLOF@lists.ozlabs.org
> https://lists.ozlabs.org/listinfo/slof
diff mbox

Patch

diff --git a/slof/fs/boot.fs b/slof/fs/boot.fs
index e0b6281..e99a164 100644
--- a/slof/fs/boot.fs
+++ b/slof/fs/boot.fs
@@ -274,23 +274,3 @@  read-bootlist
 ;
 
 : load load 0= IF -65 boot-exception-handler THEN ;
-
-\ \\\\ Temporary hacks for backwards compatibility
-: yaboot ." Use 'boot disk' instead " ;
-
-: netboot ( -- rc ) ." Use 'boot net' instead " ;
-
-: netboot-arg ( arg-string -- rc )
-   s" boot net " 2swap $cat (parse-line) $cat
-   evaluate
-;
-
-: netload ( -- rc ) (parse-line)
-   load-base-override >r flash-load-base to load-base-override
-   s" load net:" strdup 2swap $cat strdup evaluate
-   r> to load-base-override
-   load-size
-;
-
-: neteval ( -- ) FLASH-LOAD-BASE netload evaluate ;
-