diff mbox

Increase MAX-ALIAS to 10

Message ID 1496766701-30411-1-git-send-email-thuth@redhat.com
State Accepted
Headers show

Commit Message

Thomas Huth June 6, 2017, 4:31 p.m. UTC
It's not obvious for the normal user why the alias enumeration should
stop at the digit '7' already, so let's allow '8' and '9', too, by
bumping the MAX-ALIAS constant to 10. Also remove the unnecessary
duplicate of this value from qemu-bootlist.fs.

Signed-off-by: Thomas Huth <thuth@redhat.com>
---
 board-qemu/slof/qemu-bootlist.fs | 1 -
 slof/fs/node.fs                  | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

Comments

Alexey Kardashevskiy June 7, 2017, 4:21 a.m. UTC | #1
On 07/06/17 02:31, Thomas Huth wrote:
> It's not obvious for the normal user why the alias enumeration should
> stop at the digit '7' already, so let's allow '8' and '9', too, by
> bumping the MAX-ALIAS constant to 10. Also remove the unnecessary
> duplicate of this value from qemu-bootlist.fs.

Thanks, applied.

> 
> Signed-off-by: Thomas Huth <thuth@redhat.com>
> ---
>  board-qemu/slof/qemu-bootlist.fs | 1 -
>  slof/fs/node.fs                  | 2 +-
>  2 files changed, 1 insertion(+), 2 deletions(-)
> 
> diff --git a/board-qemu/slof/qemu-bootlist.fs b/board-qemu/slof/qemu-bootlist.fs
> index 60dd29d..6a4005d 100644
> --- a/board-qemu/slof/qemu-bootlist.fs
> +++ b/board-qemu/slof/qemu-bootlist.fs
> @@ -13,7 +13,6 @@
>  defer set-boot-device
>  defer add-boot-device
>  
> -8 CONSTANT MAX-ALIAS
>  : add-boot-aliases ( str -- )
>      2dup add-boot-device               ( $str )
>      MAX-ALIAS 1 DO
> diff --git a/slof/fs/node.fs b/slof/fs/node.fs
> index 22bf77b..3b079e4 100644
> --- a/slof/fs/node.fs
> +++ b/slof/fs/node.fs
> @@ -324,7 +324,7 @@ defer find-node
>  
>  \ return next available name for aliasing or
>  \ false if more than MAX-ALIAS aliases found
> -8 CONSTANT MAX-ALIAS
> +d# 10 CONSTANT MAX-ALIAS
>  1 VALUE alias-ind
>  : get-next-alias ( $alias-name -- $next-alias-name|FALSE )
>      2dup find-alias IF
>
diff mbox

Patch

diff --git a/board-qemu/slof/qemu-bootlist.fs b/board-qemu/slof/qemu-bootlist.fs
index 60dd29d..6a4005d 100644
--- a/board-qemu/slof/qemu-bootlist.fs
+++ b/board-qemu/slof/qemu-bootlist.fs
@@ -13,7 +13,6 @@ 
 defer set-boot-device
 defer add-boot-device
 
-8 CONSTANT MAX-ALIAS
 : add-boot-aliases ( str -- )
     2dup add-boot-device               ( $str )
     MAX-ALIAS 1 DO
diff --git a/slof/fs/node.fs b/slof/fs/node.fs
index 22bf77b..3b079e4 100644
--- a/slof/fs/node.fs
+++ b/slof/fs/node.fs
@@ -324,7 +324,7 @@  defer find-node
 
 \ return next available name for aliasing or
 \ false if more than MAX-ALIAS aliases found
-8 CONSTANT MAX-ALIAS
+d# 10 CONSTANT MAX-ALIAS
 1 VALUE alias-ind
 : get-next-alias ( $alias-name -- $next-alias-name|FALSE )
     2dup find-alias IF