diff mbox series

[4/5] s390x: Add boot device fallback infrastructure

Message ID 20240529154311.734548-5-jrossi@linux.ibm.com (mailing list archive)
State New, archived
Headers show
Series s390x: Add Full Boot Order Support | expand

Commit Message

Jared Rossi May 29, 2024, 3:43 p.m. UTC
From: Jared Rossi <jrossi@linux.ibm.com>

Add a routine for loading the next IPLB if a device fails to boot.

This includes some minor changes to the List-Directed IPL routine so that the
failing device may be retried using the legacy boot pointers before moving on to
the next device.

Signed-off-by: Jared Rossi <jrossi@linux.ibm.com>
---
 pc-bios/s390-ccw/bootmap.h |  5 +++++
 pc-bios/s390-ccw/iplb.h    | 24 ++++++++++++++++++++++
 pc-bios/s390-ccw/bootmap.c | 41 ++++++++++++++++++++++++++------------
 pc-bios/s390-ccw/main.c    | 15 +++++++++-----
 pc-bios/s390-ccw/netmain.c |  4 ++++
 5 files changed, 71 insertions(+), 18 deletions(-)

Comments

Thomas Huth June 5, 2024, 8:20 a.m. UTC | #1
On 29/05/2024 17.43, jrossi@linux.ibm.com wrote:
> From: Jared Rossi <jrossi@linux.ibm.com>
> 
> Add a routine for loading the next IPLB if a device fails to boot.
> 
> This includes some minor changes to the List-Directed IPL routine so that the
> failing device may be retried using the legacy boot pointers before moving on to
> the next device.
> 
> Signed-off-by: Jared Rossi <jrossi@linux.ibm.com>
> ---
...
> diff --git a/pc-bios/s390-ccw/bootmap.c b/pc-bios/s390-ccw/bootmap.c
> index a2137449dc..69391557fa 100644
> --- a/pc-bios/s390-ccw/bootmap.c
> +++ b/pc-bios/s390-ccw/bootmap.c
> @@ -144,7 +144,10 @@ static block_number_t load_eckd_segments(block_number_t blk, bool ldipl,
>       bool more_data;
>   
>       memset(_bprs, FREE_SPACE_FILLER, sizeof(_bprs));
> -    read_block(blk, bprs, "BPRS read failed");
> +    if (!read_block_nonfatal(blk, bprs)) {
> +        IPL_assert(ldipl, "BPRS read failed");
> +        return -1;
> +    }
>   
>       do {
>           more_data = false;
> @@ -188,7 +191,10 @@ static block_number_t load_eckd_segments(block_number_t blk, bool ldipl,
>                    * I.e. the next ptr must point to the unused memory area
>                    */
>                   memset(_bprs, FREE_SPACE_FILLER, sizeof(_bprs));
> -                read_block(block_nr, bprs, "BPRS continuation read failed");
> +                if (!read_block_nonfatal(block_nr, bprs)) {
> +                    IPL_assert(ldipl, "BPRS continuation read failed");
> +                    break;
> +                }
>                   more_data = true;
>                   break;
>               }
> @@ -197,7 +203,10 @@ static block_number_t load_eckd_segments(block_number_t blk, bool ldipl,
>                * to memory (address).
>                */
>               rc = virtio_read_many(block_nr, (void *)(*address), count + 1);
> -            IPL_assert(rc == 0, "code chunk read failed");
> +            if (rc != 0) {
> +                IPL_assert(ldipl, "code chunk read failed");
> +                break;
> +            }
>   
>               *address += (count + 1) * virtio_get_block_size();
>           }
> @@ -295,13 +304,22 @@ static void run_eckd_boot_script(block_number_t bmt_block_nr,
>                  " maximum number of boot entries allowed");
>   
>       memset(sec, FREE_SPACE_FILLER, sizeof(sec));
> -    read_block(bmt_block_nr, sec, "Cannot read Boot Map Table");
> +    if (!read_block_nonfatal(bmt_block_nr, sec)) {
> +        IPL_assert(ldipl, "Cannot read Boot Map Table");
> +        return;
> +    }
>   
>       block_nr = gen_eckd_block_num(&bmt->entry[loadparm].xeckd, ldipl);
> -    IPL_assert(block_nr != -1, "Cannot find Boot Map Table Entry");
> +    if (block_nr == -1) {
> +        IPL_assert(ldipl, "Cannot find Boot Map Table Entry");
> +        return;
> +    }
>   
>       memset(sec, FREE_SPACE_FILLER, sizeof(sec));
> -    read_block(block_nr, sec, "Cannot read Boot Map Script");
> +    if (!read_block_nonfatal(block_nr, sec)) {
> +        IPL_assert(ldipl, "Cannot read Boot Map Script");
> +        return;
> +    }
>   
>       for (i = 0; bms->entry[i].type == BOOT_SCRIPT_LOAD ||
>                   bms->entry[i].type == BOOT_SCRIPT_SIGNATURE; i++) {
> @@ -319,13 +337,10 @@ static void run_eckd_boot_script(block_number_t bmt_block_nr,
>           } while (block_nr != -1);
>       }
>   
> -    if (ldipl && bms->entry[i].type != BOOT_SCRIPT_EXEC) {
> -        /* Abort LD-IPL and retry as CCW-IPL */
> +    if (bms->entry[i].type != BOOT_SCRIPT_EXEC) {
> +        IPL_assert(ldipl, "Unknown script entry type");
>           return;
>       }
> -
> -    IPL_assert(bms->entry[i].type == BOOT_SCRIPT_EXEC,
> -               "Unknown script entry type");
>       write_reset_psw(bms->entry[i].address.load_address); /* no return */
>       jump_to_IPL_code(0); /* no return */
>   }
> @@ -492,7 +507,7 @@ static void ipl_eckd(void)
>               /* LD-IPL does not use the S1B bock, just make it NULL */
>               run_eckd_boot_script(ldipl_bmt, NULL_BLOCK_NR);
>               /* Only return in error, retry as CCW-IPL */
> -            sclp_print("Retrying IPL ");
> +            sclp_print("LD-IPL failed, retrying device\n");
>               print_eckd_msg();
>           }
>           memset(sec, FREE_SPACE_FILLER, sizeof(sec));
> @@ -944,5 +959,5 @@ void zipl_load(void)
>           panic("\n! Unknown IPL device type !\n");
>       }
>   
> -    sclp_print("zIPL load failed.\n");
> +    panic("zIPL load failed.\n");

Why replacing the sclp_print() here? Wouldn't it be nicer to continue 
panicking on the calling site instead?

>   }
> diff --git a/pc-bios/s390-ccw/main.c b/pc-bios/s390-ccw/main.c
> index 3e51d698d7..248ed5a410 100644
> --- a/pc-bios/s390-ccw/main.c
> +++ b/pc-bios/s390-ccw/main.c
> @@ -53,6 +53,12 @@ unsigned int get_loadparm_index(void)
>       return atoui(loadparm_str);
>   }
>   
> +static void copy_qipl(void)
> +{
> +    QemuIplParameters *early_qipl = (QemuIplParameters *)QIPL_ADDRESS;
> +    memcpy(&qipl, early_qipl, sizeof(QemuIplParameters));
> +}

You could move this function as a static inline into iplb.h ...

...
> diff --git a/pc-bios/s390-ccw/netmain.c b/pc-bios/s390-ccw/netmain.c
> index 5cd619b2d6..65cee15fef 100644
> --- a/pc-bios/s390-ccw/netmain.c
> +++ b/pc-bios/s390-ccw/netmain.c
> @@ -36,6 +36,7 @@
>   #include "cio.h"
>   #include "virtio.h"
>   #include "s390-time.h"
> +#include "iplb.h"
>   
>   #define DEFAULT_BOOT_RETRIES 10
>   #define DEFAULT_TFTP_RETRIES 20
> @@ -51,6 +52,7 @@ void write_iplb_location(void) {}
>   #define STSI322_VMDB_UUID_OFFSET ((8 + 12) * 4)
>   
>   IplParameterBlock iplb __attribute__((aligned(PAGE_SIZE)));
> +QemuIplParameters qipl;
>   static char cfgbuf[2048];
>   
>   static SubChannelId net_schid = { .one = 1 };
> @@ -513,6 +515,8 @@ void main(void)
>   {
>       filename_ip_t fn_ip;
>       int rc, fnlen;
> +    QemuIplParameters *early_qipl = (QemuIplParameters *)QIPL_ADDRESS;
> +    memcpy(&qipl, early_qipl, sizeof(QemuIplParameters));

... then you could use copy_qipl() here, too.

  Thomas
Thomas Huth June 5, 2024, 12:13 p.m. UTC | #2
On 05/06/2024 10.20, Thomas Huth wrote:
> On 29/05/2024 17.43, jrossi@linux.ibm.com wrote:
>> From: Jared Rossi <jrossi@linux.ibm.com>
>>
>> Add a routine for loading the next IPLB if a device fails to boot.
>>
>> This includes some minor changes to the List-Directed IPL routine so that the
>> failing device may be retried using the legacy boot pointers before moving 
>> on to
>> the next device.
>>
>> Signed-off-by: Jared Rossi <jrossi@linux.ibm.com>
>> ---
> ...
>> diff --git a/pc-bios/s390-ccw/bootmap.c b/pc-bios/s390-ccw/bootmap.c
>> index a2137449dc..69391557fa 100644
>> --- a/pc-bios/s390-ccw/bootmap.c
>> +++ b/pc-bios/s390-ccw/bootmap.c
>> @@ -144,7 +144,10 @@ static block_number_t 
>> load_eckd_segments(block_number_t blk, bool ldipl,
>>       bool more_data;
>>       memset(_bprs, FREE_SPACE_FILLER, sizeof(_bprs));
>> -    read_block(blk, bprs, "BPRS read failed");
>> +    if (!read_block_nonfatal(blk, bprs)) {
>> +        IPL_assert(ldipl, "BPRS read failed");
>> +        return -1;
>> +    }
>>       do {
>>           more_data = false;
>> @@ -188,7 +191,10 @@ static block_number_t 
>> load_eckd_segments(block_number_t blk, bool ldipl,
>>                    * I.e. the next ptr must point to the unused memory area
>>                    */
>>                   memset(_bprs, FREE_SPACE_FILLER, sizeof(_bprs));
>> -                read_block(block_nr, bprs, "BPRS continuation read failed");
>> +                if (!read_block_nonfatal(block_nr, bprs)) {
>> +                    IPL_assert(ldipl, "BPRS continuation read failed");
>> +                    break;
>> +                }
>>                   more_data = true;
>>                   break;
>>               }
>> @@ -197,7 +203,10 @@ static block_number_t 
>> load_eckd_segments(block_number_t blk, bool ldipl,
>>                * to memory (address).
>>                */
>>               rc = virtio_read_many(block_nr, (void *)(*address), count + 1);
>> -            IPL_assert(rc == 0, "code chunk read failed");
>> +            if (rc != 0) {
>> +                IPL_assert(ldipl, "code chunk read failed");
>> +                break;
>> +            }
>>               *address += (count + 1) * virtio_get_block_size();
>>           }
>> @@ -295,13 +304,22 @@ static void run_eckd_boot_script(block_number_t 
>> bmt_block_nr,
>>                  " maximum number of boot entries allowed");
>>       memset(sec, FREE_SPACE_FILLER, sizeof(sec));
>> -    read_block(bmt_block_nr, sec, "Cannot read Boot Map Table");
>> +    if (!read_block_nonfatal(bmt_block_nr, sec)) {
>> +        IPL_assert(ldipl, "Cannot read Boot Map Table");
>> +        return;
>> +    }
>>       block_nr = gen_eckd_block_num(&bmt->entry[loadparm].xeckd, ldipl);
>> -    IPL_assert(block_nr != -1, "Cannot find Boot Map Table Entry");
>> +    if (block_nr == -1) {
>> +        IPL_assert(ldipl, "Cannot find Boot Map Table Entry");
>> +        return;
>> +    }
>>       memset(sec, FREE_SPACE_FILLER, sizeof(sec));
>> -    read_block(block_nr, sec, "Cannot read Boot Map Script");
>> +    if (!read_block_nonfatal(block_nr, sec)) {
>> +        IPL_assert(ldipl, "Cannot read Boot Map Script");
>> +        return;
>> +    }
>>       for (i = 0; bms->entry[i].type == BOOT_SCRIPT_LOAD ||
>>                   bms->entry[i].type == BOOT_SCRIPT_SIGNATURE; i++) {
>> @@ -319,13 +337,10 @@ static void run_eckd_boot_script(block_number_t 
>> bmt_block_nr,
>>           } while (block_nr != -1);
>>       }
>> -    if (ldipl && bms->entry[i].type != BOOT_SCRIPT_EXEC) {
>> -        /* Abort LD-IPL and retry as CCW-IPL */
>> +    if (bms->entry[i].type != BOOT_SCRIPT_EXEC) {
>> +        IPL_assert(ldipl, "Unknown script entry type");
>>           return;
>>       }
>> -
>> -    IPL_assert(bms->entry[i].type == BOOT_SCRIPT_EXEC,
>> -               "Unknown script entry type");
>>       write_reset_psw(bms->entry[i].address.load_address); /* no return */
>>       jump_to_IPL_code(0); /* no return */
>>   }
>> @@ -492,7 +507,7 @@ static void ipl_eckd(void)
>>               /* LD-IPL does not use the S1B bock, just make it NULL */
>>               run_eckd_boot_script(ldipl_bmt, NULL_BLOCK_NR);
>>               /* Only return in error, retry as CCW-IPL */
>> -            sclp_print("Retrying IPL ");
>> +            sclp_print("LD-IPL failed, retrying device\n");
>>               print_eckd_msg();
>>           }
>>           memset(sec, FREE_SPACE_FILLER, sizeof(sec));
>> @@ -944,5 +959,5 @@ void zipl_load(void)
>>           panic("\n! Unknown IPL device type !\n");
>>       }
>> -    sclp_print("zIPL load failed.\n");
>> +    panic("zIPL load failed.\n");
> 
> Why replacing the sclp_print() here? Wouldn't it be nicer to continue 
> panicking on the calling site instead?

Ok, after looking at the 5th patch, I think I understand it now: panic() is 
not fatal anymore and might restart with the next boot device... not sure 
whether I like that, but let's discuss that on patch 5 instead...

  Thomas
diff mbox series

Patch

diff --git a/pc-bios/s390-ccw/bootmap.h b/pc-bios/s390-ccw/bootmap.h
index d4690a88c2..d5061ed6c8 100644
--- a/pc-bios/s390-ccw/bootmap.h
+++ b/pc-bios/s390-ccw/bootmap.h
@@ -366,6 +366,11 @@  static inline void read_block(block_number_t blockno,
     IPL_assert(virtio_read(blockno, buffer) == 0, errmsg);
 }
 
+static inline bool read_block_nonfatal(block_number_t blockno, void *buffer)
+{
+    return (virtio_read(blockno, buffer) == 0);
+}
+
 static inline bool block_size_ok(uint32_t block_size)
 {
     return block_size == virtio_get_block_size();
diff --git a/pc-bios/s390-ccw/iplb.h b/pc-bios/s390-ccw/iplb.h
index 16643f5879..3c29d23375 100644
--- a/pc-bios/s390-ccw/iplb.h
+++ b/pc-bios/s390-ccw/iplb.h
@@ -49,4 +49,28 @@  static inline bool set_iplb(IplParameterBlock *iplb)
     return manage_iplb(iplb, false);
 }
 
+/*
+ * The IPL started on the device, but failed in some way.  If the IPLB chain
+ * still has more devices left to try, use the next device in order. Set the
+ * next IPLB and save the current qipl parameters state.
+ */
+static inline bool load_next_iplb(void)
+{
+    IplParameterBlock *next_iplb;
+
+    if (qipl.num_iplbs < 1) {
+        return false;
+    }
+
+    next_iplb = (IplParameterBlock *) qipl.next_iplb;
+    memcpy(&iplb, next_iplb, sizeof(IplParameterBlock));
+    set_iplb(&iplb);
+
+    qipl.num_iplbs--;
+    qipl.next_iplb = qipl.next_iplb + sizeof(IplParameterBlock);
+    memcpy((QemuIplParameters *)QIPL_ADDRESS, &qipl, sizeof(QemuIplParameters));
+
+    return true;
+}
+
 #endif /* IPLB_H */
diff --git a/pc-bios/s390-ccw/bootmap.c b/pc-bios/s390-ccw/bootmap.c
index a2137449dc..69391557fa 100644
--- a/pc-bios/s390-ccw/bootmap.c
+++ b/pc-bios/s390-ccw/bootmap.c
@@ -144,7 +144,10 @@  static block_number_t load_eckd_segments(block_number_t blk, bool ldipl,
     bool more_data;
 
     memset(_bprs, FREE_SPACE_FILLER, sizeof(_bprs));
-    read_block(blk, bprs, "BPRS read failed");
+    if (!read_block_nonfatal(blk, bprs)) {
+        IPL_assert(ldipl, "BPRS read failed");
+        return -1;
+    }
 
     do {
         more_data = false;
@@ -188,7 +191,10 @@  static block_number_t load_eckd_segments(block_number_t blk, bool ldipl,
                  * I.e. the next ptr must point to the unused memory area
                  */
                 memset(_bprs, FREE_SPACE_FILLER, sizeof(_bprs));
-                read_block(block_nr, bprs, "BPRS continuation read failed");
+                if (!read_block_nonfatal(block_nr, bprs)) {
+                    IPL_assert(ldipl, "BPRS continuation read failed");
+                    break;
+                }
                 more_data = true;
                 break;
             }
@@ -197,7 +203,10 @@  static block_number_t load_eckd_segments(block_number_t blk, bool ldipl,
              * to memory (address).
              */
             rc = virtio_read_many(block_nr, (void *)(*address), count + 1);
-            IPL_assert(rc == 0, "code chunk read failed");
+            if (rc != 0) {
+                IPL_assert(ldipl, "code chunk read failed");
+                break;
+            }
 
             *address += (count + 1) * virtio_get_block_size();
         }
@@ -295,13 +304,22 @@  static void run_eckd_boot_script(block_number_t bmt_block_nr,
                " maximum number of boot entries allowed");
 
     memset(sec, FREE_SPACE_FILLER, sizeof(sec));
-    read_block(bmt_block_nr, sec, "Cannot read Boot Map Table");
+    if (!read_block_nonfatal(bmt_block_nr, sec)) {
+        IPL_assert(ldipl, "Cannot read Boot Map Table");
+        return;
+    }
 
     block_nr = gen_eckd_block_num(&bmt->entry[loadparm].xeckd, ldipl);
-    IPL_assert(block_nr != -1, "Cannot find Boot Map Table Entry");
+    if (block_nr == -1) {
+        IPL_assert(ldipl, "Cannot find Boot Map Table Entry");
+        return;
+    }
 
     memset(sec, FREE_SPACE_FILLER, sizeof(sec));
-    read_block(block_nr, sec, "Cannot read Boot Map Script");
+    if (!read_block_nonfatal(block_nr, sec)) {
+        IPL_assert(ldipl, "Cannot read Boot Map Script");
+        return;
+    }
 
     for (i = 0; bms->entry[i].type == BOOT_SCRIPT_LOAD ||
                 bms->entry[i].type == BOOT_SCRIPT_SIGNATURE; i++) {
@@ -319,13 +337,10 @@  static void run_eckd_boot_script(block_number_t bmt_block_nr,
         } while (block_nr != -1);
     }
 
-    if (ldipl && bms->entry[i].type != BOOT_SCRIPT_EXEC) {
-        /* Abort LD-IPL and retry as CCW-IPL */
+    if (bms->entry[i].type != BOOT_SCRIPT_EXEC) {
+        IPL_assert(ldipl, "Unknown script entry type");
         return;
     }
-
-    IPL_assert(bms->entry[i].type == BOOT_SCRIPT_EXEC,
-               "Unknown script entry type");
     write_reset_psw(bms->entry[i].address.load_address); /* no return */
     jump_to_IPL_code(0); /* no return */
 }
@@ -492,7 +507,7 @@  static void ipl_eckd(void)
             /* LD-IPL does not use the S1B bock, just make it NULL */
             run_eckd_boot_script(ldipl_bmt, NULL_BLOCK_NR);
             /* Only return in error, retry as CCW-IPL */
-            sclp_print("Retrying IPL ");
+            sclp_print("LD-IPL failed, retrying device\n");
             print_eckd_msg();
         }
         memset(sec, FREE_SPACE_FILLER, sizeof(sec));
@@ -944,5 +959,5 @@  void zipl_load(void)
         panic("\n! Unknown IPL device type !\n");
     }
 
-    sclp_print("zIPL load failed.\n");
+    panic("zIPL load failed.\n");
 }
diff --git a/pc-bios/s390-ccw/main.c b/pc-bios/s390-ccw/main.c
index 3e51d698d7..248ed5a410 100644
--- a/pc-bios/s390-ccw/main.c
+++ b/pc-bios/s390-ccw/main.c
@@ -53,6 +53,12 @@  unsigned int get_loadparm_index(void)
     return atoui(loadparm_str);
 }
 
+static void copy_qipl(void)
+{
+    QemuIplParameters *early_qipl = (QemuIplParameters *)QIPL_ADDRESS;
+    memcpy(&qipl, early_qipl, sizeof(QemuIplParameters));
+}
+
 static int is_dev_possibly_bootable(int dev_no, int sch_no)
 {
     bool is_virtio;
@@ -194,7 +200,7 @@  static void boot_setup(void)
 static void find_boot_device(void)
 {
     VDev *vdev = virtio_get_device();
-    bool found;
+    bool found = false;
 
     switch (iplb.pbt) {
     case S390_IPL_TYPE_CCW:
@@ -221,11 +227,8 @@  static void find_boot_device(void)
 static int virtio_setup(void)
 {
     VDev *vdev = virtio_get_device();
-    QemuIplParameters *early_qipl = (QemuIplParameters *)QIPL_ADDRESS;
     int ret;
 
-    memcpy(&qipl, early_qipl, sizeof(QemuIplParameters));
-
     if (have_iplb) {
         menu_setup();
     }
@@ -242,7 +245,8 @@  static int virtio_setup(void)
         ret = virtio_scsi_setup_device(blk_schid);
         break;
     default:
-        panic("\n! No IPL device available !\n");
+        ret = 1;
+        panic("Unrecognized virtio device type!\n");
     }
 
     if (!ret) {
@@ -296,6 +300,7 @@  static void probe_boot_device(void)
 
 void main(void)
 {
+    copy_qipl();
     sclp_setup();
     css_setup();
     boot_setup();
diff --git a/pc-bios/s390-ccw/netmain.c b/pc-bios/s390-ccw/netmain.c
index 5cd619b2d6..65cee15fef 100644
--- a/pc-bios/s390-ccw/netmain.c
+++ b/pc-bios/s390-ccw/netmain.c
@@ -36,6 +36,7 @@ 
 #include "cio.h"
 #include "virtio.h"
 #include "s390-time.h"
+#include "iplb.h"
 
 #define DEFAULT_BOOT_RETRIES 10
 #define DEFAULT_TFTP_RETRIES 20
@@ -51,6 +52,7 @@  void write_iplb_location(void) {}
 #define STSI322_VMDB_UUID_OFFSET ((8 + 12) * 4)
 
 IplParameterBlock iplb __attribute__((aligned(PAGE_SIZE)));
+QemuIplParameters qipl;
 static char cfgbuf[2048];
 
 static SubChannelId net_schid = { .one = 1 };
@@ -513,6 +515,8 @@  void main(void)
 {
     filename_ip_t fn_ip;
     int rc, fnlen;
+    QemuIplParameters *early_qipl = (QemuIplParameters *)QIPL_ADDRESS;
+    memcpy(&qipl, early_qipl, sizeof(QemuIplParameters));
 
     sclp_setup();
     sclp_print("Network boot starting...\n");