From patchwork Fri Apr 29 07:01:19 2016 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Thomas Huth X-Patchwork-Id: 616625 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from lists.ozlabs.org (lists.ozlabs.org [IPv6:2401:3900:2:1::3]) (using TLSv1.2 with cipher AECDH-AES256-SHA (256/256 bits)) (No client certificate requested) by ozlabs.org (Postfix) with ESMTPS id 3qx4PB5g8Qz9t3l for ; Fri, 29 Apr 2016 17:01:34 +1000 (AEST) Received: from lists.ozlabs.org (lists.ozlabs.org [IPv6:2401:3900:2:1::3]) by lists.ozlabs.org (Postfix) with ESMTP id 3qx4PB4vYVzDqBF for ; Fri, 29 Apr 2016 17:01:34 +1000 (AEST) X-Original-To: slof@lists.ozlabs.org Delivered-To: slof@lists.ozlabs.org Received: from mx1.redhat.com (mx1.redhat.com [209.132.183.28]) (using TLSv1.2 with cipher AECDH-AES256-SHA (256/256 bits)) (No client certificate requested) by lists.ozlabs.org (Postfix) with ESMTPS id 3qx4P34Nd2zDqB9 for ; Fri, 29 Apr 2016 17:01:27 +1000 (AEST) Received: from int-mx11.intmail.prod.int.phx2.redhat.com (int-mx11.intmail.prod.int.phx2.redhat.com [10.5.11.24]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by mx1.redhat.com (Postfix) with ESMTPS id 2321AC062D15 for ; Fri, 29 Apr 2016 07:01:26 +0000 (UTC) Received: from thh440s.fritz.box (vpn1-5-227.ams2.redhat.com [10.36.5.227]) by int-mx11.intmail.prod.int.phx2.redhat.com (8.14.4/8.14.4) with ESMTP id u3T71KQG013693 for ; Fri, 29 Apr 2016 03:01:25 -0400 From: Thomas Huth To: slof@lists.ozlabs.org Date: Fri, 29 Apr 2016 09:01:19 +0200 Message-Id: <1461913280-29906-5-git-send-email-thuth@redhat.com> In-Reply-To: <1461913280-29906-1-git-send-email-thuth@redhat.com> References: <1461913280-29906-1-git-send-email-thuth@redhat.com> X-Scanned-By: MIMEDefang 2.68 on 10.5.11.24 Subject: [SLOF] [PATCH 4/5] boot: Remove legacy Forth words for network loading X-BeenThere: slof@lists.ozlabs.org X-Mailman-Version: 2.1.20 Precedence: list List-Id: "Patches for https://github.com/aik/SLOF" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , MIME-Version: 1.0 Errors-To: slof-bounces+incoming=patchwork.ozlabs.org@lists.ozlabs.org Sender: "SLOF" 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 Reviewed-by: Nikunj A Dadhania --- 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 ; -