From abaabb2e601adfe296a64471746a997eabcc607f Mon Sep 17 00:00:00 2001 From: Thomas Huth Date: Fri, 21 Jun 2024 10:24:17 +0200 Subject: [PATCH 01/23] hw/s390x/ipl: Provide more memory to the s390-ccw.img firmware We are going to link the SLOF libc into the s390-ccw.img, and this libc needs more memory for providing space for malloc() and friends. Thus bump the memory size that we reserve for the bios to 3 MiB instead of only 2 MiB. While we're at it, add a proper check that there is really enough memory assigned to the machine before blindly using it. Message-ID: <20240621082422.136217-3-thuth@redhat.com> Signed-off-by: Thomas Huth --- hw/s390x/ipl.c | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/hw/s390x/ipl.c b/hw/s390x/ipl.c index 5ab7433908..5f60977ceb 100644 --- a/hw/s390x/ipl.c +++ b/hw/s390x/ipl.c @@ -45,6 +45,7 @@ #define INITRD_PARM_START 0x010408UL #define PARMFILE_START 0x001000UL #define ZIPL_IMAGE_START 0x009000UL +#define BIOS_MAX_SIZE 0x300000UL #define IPL_PSW_MASK (PSW_MASK_32 | PSW_MASK_64) static bool iplb_extended_needed(void *opaque) @@ -144,7 +145,14 @@ static void s390_ipl_realize(DeviceState *dev, Error **errp) * even if an external kernel has been defined. */ if (!ipl->kernel || ipl->enforce_bios) { - uint64_t fwbase = (MIN(ms->ram_size, 0x80000000U) - 0x200000) & ~0xffffUL; + uint64_t fwbase; + + if (ms->ram_size < BIOS_MAX_SIZE) { + error_setg(errp, "not enough RAM to load the BIOS file"); + return; + } + + fwbase = (MIN(ms->ram_size, 0x80000000U) - BIOS_MAX_SIZE) & ~0xffffUL; bios_filename = qemu_find_file(QEMU_FILE_TYPE_BIOS, ipl->firmware); if (bios_filename == NULL) { From 9f4278837dc770266c8a026696dd91a525dd2682 Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:36 -0400 Subject: [PATCH 02/23] pc-bios/s390-ccw: Use the libc from SLOF and remove sclp prints We are already using the libc from SLOF for the s390-netboot.img, and this libc implementation is way more complete and accurate than the simple implementation that we currently use for the s390-ccw.img binary. Since we are now always assuming that the SLOF submodule is available when building the s390-ccw bios (see commit bf6903f6944f), we can drop the simple implementation and use the SLOF libc for the s390-ccw.img binary, too. Additionally replace sclp_print calls with puts/printf now that it is available. Co-authored by: Thomas Huth Signed-off-by: Jared Rossi Message-ID: <20241020012953.1380075-3-jrossi@linux.ibm.com> Signed-off-by: Thomas Huth --- pc-bios/s390-ccw/Makefile | 15 +++-- pc-bios/s390-ccw/bootmap.c | 47 ++++++------- pc-bios/s390-ccw/bootmap.h | 4 +- pc-bios/s390-ccw/cio.c | 76 ++++++++++----------- pc-bios/s390-ccw/dasd-ipl.c | 5 +- pc-bios/s390-ccw/jump2ipl.c | 5 +- pc-bios/s390-ccw/libc.c | 88 ------------------------ pc-bios/s390-ccw/libc.h | 89 ------------------------- pc-bios/s390-ccw/main.c | 14 ++-- pc-bios/s390-ccw/menu.c | 51 +++++++------- pc-bios/s390-ccw/netboot.mak | 3 - pc-bios/s390-ccw/netmain.c | 10 +-- pc-bios/s390-ccw/s390-ccw.h | 30 +++------ pc-bios/s390-ccw/sclp.c | 7 +- pc-bios/s390-ccw/virtio-blkdev.c | 6 +- pc-bios/s390-ccw/virtio-scsi.c | 17 ++--- pc-bios/s390-ccw/virtio.c | 2 +- tests/tcg/s390x/Makefile.softmmu-target | 2 +- tests/tcg/s390x/console.c | 3 + 19 files changed, 139 insertions(+), 335 deletions(-) delete mode 100644 pc-bios/s390-ccw/libc.c delete mode 100644 pc-bios/s390-ccw/libc.h diff --git a/pc-bios/s390-ccw/Makefile b/pc-bios/s390-ccw/Makefile index 6207911b53..3f4232636e 100644 --- a/pc-bios/s390-ccw/Makefile +++ b/pc-bios/s390-ccw/Makefile @@ -33,13 +33,18 @@ QEMU_DGFLAGS = -MMD -MP -MT $@ -MF $(@D)/$(*F).d .PHONY : all clean build-all distclean OBJECTS = start.o main.o bootmap.o jump2ipl.o sclp.o menu.o \ - virtio.o virtio-scsi.o virtio-blkdev.o libc.o cio.o dasd-ipl.o + virtio.o virtio-scsi.o virtio-blkdev.o cio.o dasd-ipl.o + +SLOF_DIR := $(SRC_PATH)/../../roms/SLOF + +LIBC_INC := -nostdinc -I$(SLOF_DIR)/lib/libc/include EXTRA_CFLAGS += -Wall EXTRA_CFLAGS += -ffreestanding -fno-delete-null-pointer-checks -fno-common -fPIE EXTRA_CFLAGS += -fwrapv -fno-strict-aliasing -fno-asynchronous-unwind-tables EXTRA_CFLAGS += -msoft-float EXTRA_CFLAGS += -std=gnu99 +EXTRA_CFLAGS += $(LIBC_INC) LDFLAGS += -Wl,-pie -nostdlib -z noexecstack cc-test = $(CC) -Werror $1 -c -o /dev/null -xc /dev/null >/dev/null 2>/dev/null @@ -55,18 +60,18 @@ config-cc.mak: Makefile $(call cc-option,-march=z900,-march=z10)) 3> config-cc.mak -include config-cc.mak +include $(SRC_PATH)/netboot.mak + build-all: s390-ccw.img s390-netboot.img -s390-ccw.elf: $(OBJECTS) - $(call quiet-command,$(CC) $(LDFLAGS) -o $@ $(OBJECTS),Linking) +s390-ccw.elf: $(OBJECTS) libc.a + $(call quiet-command,$(CC) $(LDFLAGS) -o $@ $^,Linking) s390-ccw.img: s390-ccw.elf $(call quiet-command,$(STRIP) --strip-unneeded $< -o $@,Stripping $< into) $(OBJECTS): Makefile -include $(SRC_PATH)/netboot.mak - ALL_OBJS = $(sort $(OBJECTS) $(NETOBJS) $(LIBCOBJS) $(LIBNETOBJS)) -include $(ALL_OBJS:%.o=%.d) diff --git a/pc-bios/s390-ccw/bootmap.c b/pc-bios/s390-ccw/bootmap.c index a2137449dc..3cc79706be 100644 --- a/pc-bios/s390-ccw/bootmap.c +++ b/pc-bios/s390-ccw/bootmap.c @@ -8,7 +8,8 @@ * directory. */ -#include "libc.h" +#include +#include #include "s390-ccw.h" #include "s390-arch.h" #include "bootmap.h" @@ -21,7 +22,7 @@ #ifdef DEBUG_FALLBACK #define dputs(txt) \ - do { sclp_print("zipl: " txt); } while (0) + do { printf("zipl: " txt); } while (0) #else #define dputs(fmt, ...) \ do { } while (0) @@ -270,7 +271,7 @@ static int eckd_get_boot_menu_index(block_number_t s1b_block_nr) prev_block_nr = cur_block_nr; } - sclp_print("No zipl boot menu data found. Booting default entry."); + printf("No zipl boot menu data found. Booting default entry."); return 0; } @@ -338,22 +339,22 @@ static void ipl_eckd_cdl(void) block_number_t bmt_block_nr, s1b_block_nr; /* we have just read the block #0 and recognized it as "IPL1" */ - sclp_print("CDL\n"); + puts("CDL"); memset(sec, FREE_SPACE_FILLER, sizeof(sec)); read_block(1, ipl2, "Cannot read IPL2 record at block 1"); mbr = &ipl2->mbr; if (!magic_match(mbr, ZIPL_MAGIC)) { - sclp_print("No zIPL section in IPL2 record.\n"); + puts("No zIPL section in IPL2 record."); return; } if (!block_size_ok(mbr->blockptr.xeckd.bptr.size)) { - sclp_print("Bad block size in zIPL section of IPL2 record.\n"); + puts("Bad block size in zIPL section of IPL2 record."); return; } if (mbr->dev_type != DEV_TYPE_ECKD) { - sclp_print("Non-ECKD device type in zIPL section of IPL2 record.\n"); + puts("Non-ECKD device type in zIPL section of IPL2 record."); return; } @@ -366,11 +367,11 @@ static void ipl_eckd_cdl(void) memset(sec, FREE_SPACE_FILLER, sizeof(sec)); read_block(2, vlbl, "Cannot read Volume Label at block 2"); if (!magic_match(vlbl->key, VOL1_MAGIC)) { - sclp_print("Invalid magic of volume label block.\n"); + puts("Invalid magic of volume label block."); return; } if (!magic_match(vlbl->f.key, VOL1_MAGIC)) { - sclp_print("Invalid magic of volser block.\n"); + puts("Invalid magic of volser block."); return; } print_volser(vlbl->f.volser); @@ -384,8 +385,8 @@ static void print_eckd_ldl_msg(ECKD_IPL_mode_t mode) LDL_VTOC *vlbl = (void *)sec; /* already read, 3rd block */ char msg[4] = { '?', '.', '\n', '\0' }; - sclp_print((mode == ECKD_CMS) ? "CMS" : "LDL"); - sclp_print(" version "); + printf((mode == ECKD_CMS) ? "CMS" : "LDL"); + printf(" version "); switch (vlbl->LDL_version) { case LDL1_VERSION: msg[0] = '1'; @@ -398,7 +399,7 @@ static void print_eckd_ldl_msg(ECKD_IPL_mode_t mode) msg[1] = '?'; break; } - sclp_print(msg); + printf("%s", msg); print_volser(vlbl->volser); } @@ -419,7 +420,7 @@ static void ipl_eckd_ldl(ECKD_IPL_mode_t mode) if (!magic_match(ipl1->bip.magic, ZIPL_MAGIC)) { return; /* not applicable layout */ } - sclp_print("unlabeled LDL.\n"); + puts("unlabeled LDL."); } verify_boot_info(&ipl1->bip); @@ -466,7 +467,7 @@ static void print_eckd_msg(void) *p-- = ' '; } } - sclp_print(msg); + printf("%s", msg); } static void ipl_eckd(void) @@ -488,11 +489,11 @@ static void ipl_eckd(void) if (eckd_valid_address((ExtEckdBlockPtr *)&vlbl->f.br, 0)) { ldipl_bmt = eckd_find_bmt((ExtEckdBlockPtr *)&vlbl->f.br); if (ldipl_bmt) { - sclp_print("List-Directed\n"); + puts("List-Directed"); /* 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 "); + printf("Retrying IPL "); print_eckd_msg(); } memset(sec, FREE_SPACE_FILLER, sizeof(sec)); @@ -634,7 +635,7 @@ static void ipl_scsi(void) return; } - sclp_print("Using SCSI scheme.\n"); + puts("Using SCSI scheme."); debug_print_int("MBR Version", mbr->version_id); IPL_check(mbr->version_id == 1, "Unknown MBR layout version, assuming version 1"); @@ -743,7 +744,7 @@ static inline uint32_t iso_get_file_size(uint32_t load_rba) if (cur_record->file_flags & 0x2) { /* Subdirectory */ if (level == ISO9660_MAX_DIR_DEPTH - 1) { - sclp_print("ISO-9660 directory depth limit exceeded\n"); + puts("ISO-9660 directory depth limit exceeded"); } else { level++; sec_loc[level] = iso_733_to_u32(cur_record->ext_loc); @@ -778,9 +779,9 @@ static void load_iso_bc_entry(IsoBcSection *load) if (real_size) { /* Round up blocks to load */ blks_to_load = (real_size + ISO_SECTOR_SIZE - 1) / ISO_SECTOR_SIZE; - sclp_print("ISO boot image size verified\n"); + puts("ISO boot image size verified"); } else { - sclp_print("ISO boot image size could not be verified\n"); + puts("ISO boot image size could not be verified"); } read_iso_boot_image(bswap32(s.load_rba), @@ -896,7 +897,7 @@ static void zipl_load_vblk(void) } if (blksize != VIRTIO_DASD_DEFAULT_BLOCK_SIZE) { - sclp_print("Using guessed DASD geometry.\n"); + puts("Using guessed DASD geometry."); virtio_assume_eckd(); } ipl_eckd(); @@ -909,7 +910,7 @@ static void zipl_load_vscsi(void) ipl_iso_el_torito(); } - sclp_print("Using guessed DASD geometry.\n"); + puts("Using guessed DASD geometry."); virtio_assume_eckd(); ipl_eckd(); } @@ -944,5 +945,5 @@ void zipl_load(void) panic("\n! Unknown IPL device type !\n"); } - sclp_print("zIPL load failed.\n"); + puts("zIPL load failed."); } diff --git a/pc-bios/s390-ccw/bootmap.h b/pc-bios/s390-ccw/bootmap.h index d4690a88c2..4a7d8a91f1 100644 --- a/pc-bios/s390-ccw/bootmap.h +++ b/pc-bios/s390-ccw/bootmap.h @@ -336,9 +336,7 @@ static inline void print_volser(const void *volser) ebcdic_to_ascii((char *)volser, ascii, 6); ascii[6] = '\0'; - sclp_print("VOLSER=["); - sclp_print(ascii); - sclp_print("]\n"); + printf("VOLSER=[%s]\n", ascii); } static inline bool unused_space(const void *p, size_t size) diff --git a/pc-bios/s390-ccw/cio.c b/pc-bios/s390-ccw/cio.c index 83ca27ab41..7b09a38c96 100644 --- a/pc-bios/s390-ccw/cio.c +++ b/pc-bios/s390-ccw/cio.c @@ -11,7 +11,8 @@ * directory. */ -#include "libc.h" +#include +#include #include "s390-ccw.h" #include "s390-arch.h" #include "helper.h" @@ -90,9 +91,9 @@ static void print_eckd_dasd_sense_data(SenseDataEckdDasd *sd) char msgline[512]; if (sd->config_info & 0x8000) { - sclp_print("Eckd Dasd Sense Data (fmt 24-bytes):\n"); + puts("Eckd Dasd Sense Data (fmt 24-bytes):"); } else { - sclp_print("Eckd Dasd Sense Data (fmt 32-bytes):\n"); + puts("Eckd Dasd Sense Data (fmt 32-bytes):"); } strcat(msgline, " Sense Condition Flags :"); @@ -158,22 +159,21 @@ static void print_eckd_dasd_sense_data(SenseDataEckdDasd *sd) if (sd->status[1] & SNS_STAT2_IMPRECISE_END) { strcat(msgline, " [Imprecise-End]"); } - strcat(msgline, "\n"); - sclp_print(msgline); + puts(msgline); - print_int(" Residual Count =", sd->res_count); - print_int(" Phys Drive ID =", sd->phys_drive_id); - print_int(" low cyl address =", sd->low_cyl_addr); - print_int(" head addr & hi cyl =", sd->head_high_cyl_addr); - print_int(" format/message =", sd->fmt_msg); - print_int(" fmt-dependent[0-7] =", sd->fmt_dependent_info[0]); - print_int(" fmt-dependent[8-15]=", sd->fmt_dependent_info[1]); - print_int(" prog action code =", sd->program_action_code); - print_int(" Configuration info =", sd->config_info); - print_int(" mcode / hi-cyl =", sd->mcode_hicyl); - print_int(" cyl & head addr [0]=", sd->cyl_head_addr[0]); - print_int(" cyl & head addr [1]=", sd->cyl_head_addr[1]); - print_int(" cyl & head addr [2]=", sd->cyl_head_addr[2]); + printf(" Residual Count = 0x%X\n", sd->res_count); + printf(" Phys Drive ID = 0x%X\n", sd->phys_drive_id); + printf(" low cyl address = 0x%X\n", sd->low_cyl_addr); + printf(" head addr & hi cyl = 0x%X\n", sd->head_high_cyl_addr); + printf(" format/message = 0x%X\n", sd->fmt_msg); + printf(" fmt-dependent[0-7] = 0x%llX\n", sd->fmt_dependent_info[0]); + printf(" fmt-dependent[8-15]= 0x%llX\n", sd->fmt_dependent_info[1]); + printf(" prog action code = 0x%X\n", sd->program_action_code); + printf(" Configuration info = 0x%X\n", sd->config_info); + printf(" mcode / hi-cyl = 0x%X\n", sd->mcode_hicyl); + printf(" cyl & head addr [0]= 0x%X\n", sd->cyl_head_addr[0]); + printf(" cyl & head addr [1]= 0x%X\n", sd->cyl_head_addr[1]); + printf(" cyl & head addr [2]= 0x%X\n", sd->cyl_head_addr[2]); } static void print_irb_err(Irb *irb) @@ -182,7 +182,7 @@ static void print_irb_err(Irb *irb) uint64_t prev_ccw = *(uint64_t *)u32toptr(irb->scsw.cpa - 8); char msgline[256]; - sclp_print("Interrupt Response Block Data:\n"); + puts("Interrupt Response Block Data:"); strcat(msgline, " Function Ctrl :"); if (irb->scsw.ctrl & SCSW_FCTL_START_FUNC) { @@ -194,8 +194,7 @@ static void print_irb_err(Irb *irb) if (irb->scsw.ctrl & SCSW_FCTL_CLEAR_FUNC) { strcat(msgline, " [Clear]"); } - strcat(msgline, "\n"); - sclp_print(msgline); + puts(msgline); msgline[0] = '\0'; strcat(msgline, " Activity Ctrl :"); @@ -220,8 +219,7 @@ static void print_irb_err(Irb *irb) if (irb->scsw.ctrl & SCSW_ACTL_SUSPENDED) { strcat(msgline, " [Suspended]"); } - strcat(msgline, "\n"); - sclp_print(msgline); + puts(msgline); msgline[0] = '\0'; strcat(msgline, " Status Ctrl :"); @@ -240,9 +238,7 @@ static void print_irb_err(Irb *irb) if (irb->scsw.ctrl & SCSW_SCTL_STATUS_PEND) { strcat(msgline, " [Status-Pending]"); } - - strcat(msgline, "\n"); - sclp_print(msgline); + puts(msgline); msgline[0] = '\0'; strcat(msgline, " Device Status :"); @@ -270,8 +266,7 @@ static void print_irb_err(Irb *irb) if (irb->scsw.dstat & SCSW_DSTAT_UEXCP) { strcat(msgline, " [Unit-Exception]"); } - strcat(msgline, "\n"); - sclp_print(msgline); + puts(msgline); msgline[0] = '\0'; strcat(msgline, " Channel Status :"); @@ -299,12 +294,11 @@ static void print_irb_err(Irb *irb) if (irb->scsw.cstat & SCSW_CSTAT_CHAINCHK) { strcat(msgline, " [Chaining-Check]"); } - strcat(msgline, "\n"); - sclp_print(msgline); + puts(msgline); - print_int(" cpa=", irb->scsw.cpa); - print_int(" prev_ccw=", prev_ccw); - print_int(" this_ccw=", this_ccw); + printf(" cpa= 0x%X\n", irb->scsw.cpa); + printf(" prev_ccw= 0x%llX\n", prev_ccw); + printf(" this_ccw= 0x%llX\n", this_ccw); } /* @@ -341,7 +335,7 @@ static int __do_cio(SubChannelId schid, uint32_t ccw_addr, int fmt, Irb *irb) return -1; } if (rc) { - print_int("ssch failed with cc=", rc); + printf("ssch failed with cc= 0x%x\n", rc); return rc; } @@ -350,7 +344,7 @@ static int __do_cio(SubChannelId schid, uint32_t ccw_addr, int fmt, Irb *irb) /* collect status */ rc = tsch(schid, irb); if (rc) { - print_int("tsch failed with cc=", rc); + printf("tsch failed with cc= 0x%X\n", rc); } return rc; @@ -406,12 +400,12 @@ int do_cio(SubChannelId schid, uint16_t cutype, uint32_t ccw_addr, int fmt) continue; } - sclp_print("cio device error\n"); - print_int(" ssid ", schid.ssid); - print_int(" cssid ", schid.cssid); - print_int(" sch_no", schid.sch_no); - print_int(" ctrl-unit type", cutype); - sclp_print("\n"); + printf("cio device error\n"); + printf(" ssid 0x%X\n", schid.ssid); + printf(" cssid 0x%X\n", schid.cssid); + printf(" sch_no 0x%X\n", schid.sch_no); + printf(" ctrl-unit type 0x%X\n", cutype); + printf("\n"); print_irb_err(&irb); if (cutype == CU_TYPE_DASD_3990 || cutype == CU_TYPE_DASD_2107 || cutype == CU_TYPE_UNKNOWN) { diff --git a/pc-bios/s390-ccw/dasd-ipl.c b/pc-bios/s390-ccw/dasd-ipl.c index 254bb1a15e..ae751adec1 100644 --- a/pc-bios/s390-ccw/dasd-ipl.c +++ b/pc-bios/s390-ccw/dasd-ipl.c @@ -8,7 +8,8 @@ * directory. */ -#include "libc.h" +#include +#include #include "s390-ccw.h" #include "s390-arch.h" #include "dasd-ipl.h" @@ -82,7 +83,7 @@ static int run_dynamic_ccw_program(SubChannelId schid, uint16_t cutype, do { has_next = dynamic_cp_fixup(cpa, &next_cpa); - print_int("executing ccw chain at ", cpa); + printf("executing ccw chain at 0x%X\n", cpa); enable_prefixing(); rc = do_cio(schid, cutype, cpa, CCW_FMT0); disable_prefixing(); diff --git a/pc-bios/s390-ccw/jump2ipl.c b/pc-bios/s390-ccw/jump2ipl.c index 78f5f46533..80b7f6a1f3 100644 --- a/pc-bios/s390-ccw/jump2ipl.c +++ b/pc-bios/s390-ccw/jump2ipl.c @@ -6,7 +6,8 @@ * directory. */ -#include "libc.h" +#include +#include #include "s390-ccw.h" #include "s390-arch.h" @@ -57,7 +58,7 @@ void jump_to_IPL_code(uint64_t address) debug_print_int("set IPL addr to", address ?: *reset_psw & PSW_MASK_SHORT_ADDR); /* Ensure the guest output starts fresh */ - sclp_print("\n"); + printf("\n"); /* * HACK ALERT. diff --git a/pc-bios/s390-ccw/libc.c b/pc-bios/s390-ccw/libc.c deleted file mode 100644 index 3187923950..0000000000 --- a/pc-bios/s390-ccw/libc.c +++ /dev/null @@ -1,88 +0,0 @@ -/* - * libc-style definitions and functions - * - * Copyright 2018 IBM Corp. - * Author(s): Collin L. Walling - * - * This code is free software; you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the - * Free Software Foundation; either version 2 of the License, or (at your - * option) any later version. - */ - -#include "libc.h" -#include "s390-ccw.h" - -/** - * atoui: - * @str: the string to be converted. - * - * Given a string @str, convert it to an integer. Leading spaces are - * ignored. Any other non-numerical value will terminate the conversion - * and return 0. This function only handles numbers between 0 and - * UINT64_MAX inclusive. - * - * Returns: an integer converted from the string @str, or the number 0 - * if an error occurred. - */ -uint64_t atoui(const char *str) -{ - int val = 0; - - if (!str || !str[0]) { - return 0; - } - - while (*str == ' ') { - str++; - } - - while (*str) { - if (!isdigit(*(unsigned char *)str)) { - break; - } - val = val * 10 + *str - '0'; - str++; - } - - return val; -} - -/** - * uitoa: - * @num: an integer (base 10) to be converted. - * @str: a pointer to a string to store the conversion. - * @len: the length of the passed string. - * - * Given an integer @num, convert it to a string. The string @str must be - * allocated beforehand. The resulting string will be null terminated and - * returned. This function only handles numbers between 0 and UINT64_MAX - * inclusive. - * - * Returns: the string @str of the converted integer @num - */ -char *uitoa(uint64_t num, char *str, size_t len) -{ - long num_idx = 1; /* account for NUL */ - uint64_t tmp = num; - - IPL_assert(str != NULL, "uitoa: no space allocated to store string"); - - /* Count indices of num */ - while ((tmp /= 10) != 0) { - num_idx++; - } - - /* Check if we have enough space for num and NUL */ - IPL_assert(len > num_idx, "uitoa: array too small for conversion"); - - str[num_idx--] = '\0'; - - /* Convert int to string */ - while (num_idx >= 0) { - str[num_idx--] = num % 10 + '0'; - num /= 10; - } - - return str; -} diff --git a/pc-bios/s390-ccw/libc.h b/pc-bios/s390-ccw/libc.h deleted file mode 100644 index bcdc45732d..0000000000 --- a/pc-bios/s390-ccw/libc.h +++ /dev/null @@ -1,89 +0,0 @@ -/* - * libc-style definitions and functions - * - * Copyright (c) 2013 Alexander Graf - * - * This code is free software; you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the - * Free Software Foundation; either version 2 of the License, or (at your - * option) any later version. - */ - -#ifndef S390_CCW_LIBC_H -#define S390_CCW_LIBC_H - -typedef unsigned long size_t; -typedef int bool; -typedef unsigned char uint8_t; -typedef unsigned short uint16_t; -typedef unsigned int uint32_t; -typedef unsigned long long uint64_t; - -static inline void *memset(void *s, int c, size_t n) -{ - size_t i; - unsigned char *p = s; - - for (i = 0; i < n; i++) { - p[i] = c; - } - - return s; -} - -static inline void *memcpy(void *s1, const void *s2, size_t n) -{ - uint8_t *dest = s1; - const uint8_t *src = s2; - size_t i; - - for (i = 0; i < n; i++) { - dest[i] = src[i]; - } - - return s1; -} - -static inline int memcmp(const void *s1, const void *s2, size_t n) -{ - size_t i; - const uint8_t *p1 = s1, *p2 = s2; - - for (i = 0; i < n; i++) { - if (p1[i] != p2[i]) { - return p1[i] > p2[i] ? 1 : -1; - } - } - - return 0; -} - -static inline size_t strlen(const char *str) -{ - size_t i; - for (i = 0; *str; i++) { - str++; - } - return i; -} - -static inline char *strcat(char *dest, const char *src) -{ - int i; - char *dest_end = dest + strlen(dest); - - for (i = 0; i <= strlen(src); i++) { - dest_end[i] = src[i]; - } - return dest; -} - -static inline int isdigit(int c) -{ - return (c >= '0') && (c <= '9'); -} - -uint64_t atoui(const char *str); -char *uitoa(uint64_t num, char *str, size_t len); - -#endif diff --git a/pc-bios/s390-ccw/main.c b/pc-bios/s390-ccw/main.c index 5506798098..203df20965 100644 --- a/pc-bios/s390-ccw/main.c +++ b/pc-bios/s390-ccw/main.c @@ -8,7 +8,9 @@ * directory. */ -#include "libc.h" +#include +#include +#include #include "helper.h" #include "s390-arch.h" #include "s390-ccw.h" @@ -50,7 +52,7 @@ void write_iplb_location(void) unsigned int get_loadparm_index(void) { - return atoui(loadparm_str); + return atoi(loadparm_str); } static int is_dev_possibly_bootable(int dev_no, int sch_no) @@ -176,7 +178,7 @@ static void boot_setup(void) sclp_get_loadparm_ascii(loadparm_str); memcpy(lpmsg + 10, loadparm_str, 8); - sclp_print(lpmsg); + puts(lpmsg); /* * Clear out any potential S390EP magic (see jump_to_low_kernel()), @@ -228,7 +230,7 @@ static int virtio_setup(void) switch (vdev->senseid.cu_model) { case VIRTIO_ID_NET: - sclp_print("Network boot device detected\n"); + puts("Network boot device detected"); vdev->netboot_start_addr = qipl.netboot_start_addr; return 0; case VIRTIO_ID_BLOCK: @@ -261,7 +263,7 @@ static void ipl_boot_device(void) } break; default: - print_int("Attempting to boot from unexpected device type", cutype); + printf("Attempting to boot from unexpected device type 0x%X\n", cutype); panic("\nBoot failed.\n"); } } @@ -287,7 +289,7 @@ static void probe_boot_device(void) } } - sclp_print("Could not find a suitable boot device (none specified)\n"); + puts("Could not find a suitable boot device (none specified)"); } void main(void) diff --git a/pc-bios/s390-ccw/menu.c b/pc-bios/s390-ccw/menu.c index d601952d3e..84062e94af 100644 --- a/pc-bios/s390-ccw/menu.c +++ b/pc-bios/s390-ccw/menu.c @@ -9,7 +9,10 @@ * directory. */ -#include "libc.h" +#include +#include +#include +#include #include "s390-ccw.h" #include "sclp.h" #include "s390-time.h" @@ -93,7 +96,7 @@ static int read_prompt(char *buf, size_t len) case KEYCODE_BACKSP: if (idx > 0) { buf[--idx] = 0; - sclp_print("\b \b"); + printf("\b \b"); } continue; case KEYCODE_ENTER: @@ -103,7 +106,7 @@ static int read_prompt(char *buf, size_t len) /* Echo input and add to buffer */ if (idx < len) { buf[idx++] = inp[0]; - sclp_print(inp); + printf("%s", inp); } } } @@ -140,22 +143,19 @@ static int get_index(void) } } - return atoui(buf); + return atoi(buf); } static void boot_menu_prompt(bool retry) { - char tmp[11]; - if (retry) { - sclp_print("\nError: undefined configuration" + printf("\nError: undefined configuration" "\nPlease choose:\n"); } else if (timeout > 0) { - sclp_print("Please choose (default will boot in "); - sclp_print(uitoa(timeout / 1000, tmp, sizeof(tmp))); - sclp_print(" seconds):\n"); + printf("Please choose (default will boot in %d seconds):\n", + (int)(timeout / 1000)); } else { - sclp_print("Please choose:\n"); + puts("Please choose:"); } } @@ -163,7 +163,6 @@ static int get_boot_index(bool *valid_entries) { int boot_index; bool retry = false; - char tmp[5]; do { boot_menu_prompt(retry); @@ -172,8 +171,7 @@ static int get_boot_index(bool *valid_entries) } while (boot_index < 0 || boot_index >= MAX_BOOT_ENTRIES || !valid_entries[boot_index]); - sclp_print("\nBooting entry #"); - sclp_print(uitoa(boot_index, tmp, sizeof(tmp))); + printf("\nBooting entry #%d", boot_index); return boot_index; } @@ -187,9 +185,9 @@ static int zipl_print_entry(const char *data, size_t len) buf[len] = '\n'; buf[len + 1] = '\0'; - sclp_print(buf); + printf("%s", buf); - return buf[0] == ' ' ? atoui(buf + 1) : atoui(buf); + return buf[0] == ' ' ? atoi(buf + 1) : atoi(buf); } int menu_get_zipl_boot_index(const char *menu_data) @@ -209,7 +207,7 @@ int menu_get_zipl_boot_index(const char *menu_data) } /* Print banner */ - sclp_print("s390-ccw zIPL Boot Menu\n\n"); + puts("s390-ccw zIPL Boot Menu\n"); menu_data += strlen(menu_data) + 1; /* Print entries */ @@ -221,37 +219,34 @@ int menu_get_zipl_boot_index(const char *menu_data) valid_entries[entry] = true; if (entry == 0) { - sclp_print("\n"); + printf("\n"); } } - sclp_print("\n"); + printf("\n"); return get_boot_index(valid_entries); } int menu_get_enum_boot_index(bool *valid_entries) { - char tmp[3]; int i; - sclp_print("s390-ccw Enumerated Boot Menu.\n\n"); + puts("s390-ccw Enumerated Boot Menu.\n"); for (i = 0; i < MAX_BOOT_ENTRIES; i++) { if (valid_entries[i]) { if (i < 10) { - sclp_print(" "); + printf(" "); } - sclp_print("["); - sclp_print(uitoa(i, tmp, sizeof(tmp))); - sclp_print("]"); + printf("[%d]", i); if (i == 0) { - sclp_print(" default\n"); + printf(" default\n"); } - sclp_print("\n"); + printf("\n"); } } - sclp_print("\n"); + printf("\n"); return get_boot_index(valid_entries); } diff --git a/pc-bios/s390-ccw/netboot.mak b/pc-bios/s390-ccw/netboot.mak index 046aa35587..d2b3d8ee74 100644 --- a/pc-bios/s390-ccw/netboot.mak +++ b/pc-bios/s390-ccw/netboot.mak @@ -1,9 +1,6 @@ -SLOF_DIR := $(SRC_PATH)/../../roms/SLOF - NETOBJS := start.o sclp.o cio.o virtio.o virtio-net.o jump2ipl.o netmain.o -LIBC_INC := -nostdinc -I$(SLOF_DIR)/lib/libc/include LIBNET_INC := -I$(SLOF_DIR)/lib/libnet NETLDFLAGS := $(LDFLAGS) -Wl,-Ttext=0x7800000 diff --git a/pc-bios/s390-ccw/netmain.c b/pc-bios/s390-ccw/netmain.c index 5cd619b2d6..509119be15 100644 --- a/pc-bios/s390-ccw/netmain.c +++ b/pc-bios/s390-ccw/netmain.c @@ -293,7 +293,7 @@ static int load_kernel_with_initrd(filename_ip_t *fn_ip, printf("Loading pxelinux.cfg entry '%s'\n", entry->label); if (!entry->kernel) { - printf("Kernel entry is missing!\n"); + puts("Kernel entry is missing!\n"); return -1; } @@ -515,13 +515,13 @@ void main(void) int rc, fnlen; sclp_setup(); - sclp_print("Network boot starting...\n"); + puts("Network boot starting..."); virtio_setup(); rc = net_init(&fn_ip); if (rc) { - panic("Network initialization failed. Halting.\n"); + panic("Network initialization failed. Halting."); } fnlen = strlen(fn_ip.filename); @@ -535,9 +535,9 @@ void main(void) net_release(&fn_ip); if (rc > 0) { - sclp_print("Network loading done, starting kernel...\n"); + puts("Network loading done, starting kernel..."); jump_to_low_kernel(); } - panic("Failed to load OS from network\n"); + panic("Failed to load OS from network."); } diff --git a/pc-bios/s390-ccw/s390-ccw.h b/pc-bios/s390-ccw/s390-ccw.h index c977a52b50..6f6d95d170 100644 --- a/pc-bios/s390-ccw/s390-ccw.h +++ b/pc-bios/s390-ccw/s390-ccw.h @@ -13,6 +13,11 @@ /* #define DEBUG */ +#include +#include +#include +#include + typedef unsigned char u8; typedef unsigned short u16; typedef unsigned int u32; @@ -26,9 +31,6 @@ typedef unsigned long long u64; #define EBUSY 2 #define ENODEV 3 -#ifndef NULL -#define NULL 0 -#endif #ifndef MIN #define MIN(a, b) (((a) < (b)) ? (a) : (b)) #endif @@ -87,7 +89,7 @@ bool menu_is_enabled_enum(void); __attribute__ ((__noreturn__)) static inline void panic(const char *string) { - sclp_print(string); + printf("ERROR: %s\n ", string); disabled_wait(); } @@ -109,20 +111,10 @@ static inline void fill_hex_val(char *out, void *ptr, unsigned size) } } -static inline void print_int(const char *desc, u64 addr) -{ - char out[] = ": 0xffffffffffffffff\n"; - - fill_hex_val(&out[4], &addr, sizeof(addr)); - - sclp_print(desc); - sclp_print(out); -} - static inline void debug_print_int(const char *desc, u64 addr) { #ifdef DEBUG - print_int(desc, addr); + printf("%s 0x%X\n", desc, addr); #endif } @@ -147,18 +139,14 @@ static inline void debug_print_addr(const char *desc, void *p) static inline void IPL_assert(bool term, const char *message) { if (!term) { - sclp_print("\n! "); - sclp_print(message); - panic(" !\n"); /* no return */ + panic(message); /* no return */ } } static inline void IPL_check(bool term, const char *message) { if (!term) { - sclp_print("\n! WARNING: "); - sclp_print(message); - sclp_print(" !\n"); + printf("WARNING: %s\n", message); } } diff --git a/pc-bios/s390-ccw/sclp.c b/pc-bios/s390-ccw/sclp.c index 7251f9af4d..4a07de018d 100644 --- a/pc-bios/s390-ccw/sclp.c +++ b/pc-bios/s390-ccw/sclp.c @@ -8,7 +8,7 @@ * directory. */ -#include "libc.h" +#include #include "s390-ccw.h" #include "sclp.h" @@ -101,11 +101,6 @@ long write(int fd, const void *str, size_t len) return len; } -void sclp_print(const char *str) -{ - write(1, str, strlen(str)); -} - void sclp_get_loadparm_ascii(char *loadparm) { diff --git a/pc-bios/s390-ccw/virtio-blkdev.c b/pc-bios/s390-ccw/virtio-blkdev.c index a81207b52e..2666326801 100644 --- a/pc-bios/s390-ccw/virtio-blkdev.c +++ b/pc-bios/s390-ccw/virtio-blkdev.c @@ -8,7 +8,7 @@ * directory. */ -#include "libc.h" +#include #include "s390-ccw.h" #include "virtio.h" #include "virtio-scsi.h" @@ -76,7 +76,7 @@ unsigned long virtio_load_direct(unsigned long rec_list1, unsigned long rec_list return -1; } - sclp_print("."); + printf("."); status = virtio_read_many(sec, (void *)addr, sec_num); if (status) { panic("I/O Error"); @@ -230,7 +230,7 @@ int virtio_blk_setup_device(SubChannelId schid) vdev->schid = schid; virtio_setup_ccw(vdev); - sclp_print("Using virtio-blk.\n"); + puts("Using virtio-blk."); return 0; } diff --git a/pc-bios/s390-ccw/virtio-scsi.c b/pc-bios/s390-ccw/virtio-scsi.c index d1a84b937c..6b4a1caf8a 100644 --- a/pc-bios/s390-ccw/virtio-scsi.c +++ b/pc-bios/s390-ccw/virtio-scsi.c @@ -9,7 +9,8 @@ * directory. */ -#include "libc.h" +#include +#include #include "s390-ccw.h" #include "virtio.h" #include "scsi.h" @@ -30,9 +31,9 @@ static inline void vs_assert(bool term, const char **msgs) if (!term) { int i = 0; - sclp_print("\n! "); + printf("\n! "); while (msgs[i]) { - sclp_print(msgs[i++]); + printf("%s", msgs[i++]); } panic(" !\n"); } @@ -236,11 +237,11 @@ static int virtio_scsi_locate_device(VDev *vdev) if (resp.response == VIRTIO_SCSI_S_BAD_TARGET) { continue; } - print_int("target", target); + printf("target 0x%X\n", target); virtio_scsi_verify_response(&resp, "SCSI cannot report LUNs"); } if (r->lun_list_len == 0) { - print_int("no LUNs for target", target); + printf("no LUNs for target 0x%X\n", target); continue; } luns = r->lun_list_len / 8; @@ -264,7 +265,7 @@ static int virtio_scsi_locate_device(VDev *vdev) } } - sclp_print("Warning: Could not locate a usable virtio-scsi device\n"); + puts("Warning: Could not locate a usable virtio-scsi device"); return -ENODEV; } @@ -379,7 +380,7 @@ static int virtio_scsi_setup(VDev *vdev) } if (virtio_scsi_inquiry_response_is_cdrom(scsi_inquiry_std_response)) { - sclp_print("SCSI CD-ROM detected.\n"); + puts("SCSI CD-ROM detected."); vdev->is_cdrom = true; vdev->scsi_block_size = VIRTIO_ISO_BLOCK_SIZE; } @@ -443,7 +444,7 @@ int virtio_scsi_setup_device(SubChannelId schid) IPL_assert(vdev->config.scsi.cdb_size == VIRTIO_SCSI_CDB_SIZE, "Config: CDB size mismatch"); - sclp_print("Using virtio-scsi.\n"); + puts("Using virtio-scsi."); return virtio_scsi_setup(vdev); } diff --git a/pc-bios/s390-ccw/virtio.c b/pc-bios/s390-ccw/virtio.c index 5edd058d88..8c6b0a8a92 100644 --- a/pc-bios/s390-ccw/virtio.c +++ b/pc-bios/s390-ccw/virtio.c @@ -8,7 +8,7 @@ * directory. */ -#include "libc.h" +#include #include "s390-ccw.h" #include "cio.h" #include "virtio.h" diff --git a/tests/tcg/s390x/Makefile.softmmu-target b/tests/tcg/s390x/Makefile.softmmu-target index 3227903348..969bc5728f 100644 --- a/tests/tcg/s390x/Makefile.softmmu-target +++ b/tests/tcg/s390x/Makefile.softmmu-target @@ -3,7 +3,7 @@ VPATH+=$(S390X_SRC) # EXTFLAGS can be passed by the user, e.g. to override the --accel QEMU_OPTS+=-action panic=exit-failure -nographic -serial chardev:output $(EXTFLAGS) -kernel LINK_SCRIPT=$(S390X_SRC)/softmmu.ld -CFLAGS+=-ggdb -O0 +CFLAGS+=-ggdb -O0 -I$(SRC_PATH)/include/hw/s390x/ipl/ LDFLAGS=-nostdlib -static %.o: %.S diff --git a/tests/tcg/s390x/console.c b/tests/tcg/s390x/console.c index d43ce3f44b..6c26f04949 100644 --- a/tests/tcg/s390x/console.c +++ b/tests/tcg/s390x/console.c @@ -4,7 +4,10 @@ * * SPDX-License-Identifier: GPL-2.0-or-later */ + #include "../../../pc-bios/s390-ccw/sclp.c" +#include "../../../roms/SLOF/lib/libc/string/memset.c" +#include "../../../roms/SLOF/lib/libc/string/memcpy.c" void __sys_outc(char c) { From 8e5739ce4b0b04d7121cb2b29521acde2a8f3a24 Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:37 -0400 Subject: [PATCH 03/23] pc-bios/s390-ccw: Link the netboot code into the main s390-ccw.img binary We originally built a separate binary for the netboot code since it was considered as experimental and we could not be sure that the necessary SLOF module had been checked out. Time passed, the code proved its usefulness, and the build system nowadays makes sure that the SLOF module is checked out if you have a s390x compiler available for building the s390-ccw bios. So there is no real compelling reason anymore to keep the netboot code in a separate binary. Linking the code together with the main s390-ccw.img will make future enhancements much easier, like supporting more than one boot device. Co-authored by: Thomas Huth Signed-off-by: Jared Rossi Message-ID: <20241020012953.1380075-4-jrossi@linux.ibm.com> Signed-off-by: Thomas Huth --- pc-bios/s390-ccw/Makefile | 13 +++++++------ pc-bios/s390-ccw/bootmap.c | 2 +- pc-bios/s390-ccw/cio.h | 2 ++ pc-bios/s390-ccw/iplb.h | 4 ++-- pc-bios/s390-ccw/main.c | 10 +++++++--- pc-bios/s390-ccw/netboot.mak | 14 -------------- pc-bios/s390-ccw/netmain.c | 15 ++------------- pc-bios/s390-ccw/s390-ccw.h | 3 +++ pc-bios/s390-ccw/virtio.h | 1 - 9 files changed, 24 insertions(+), 40 deletions(-) diff --git a/pc-bios/s390-ccw/Makefile b/pc-bios/s390-ccw/Makefile index 3f4232636e..cf6859823a 100644 --- a/pc-bios/s390-ccw/Makefile +++ b/pc-bios/s390-ccw/Makefile @@ -32,19 +32,20 @@ QEMU_DGFLAGS = -MMD -MP -MT $@ -MF $(@D)/$(*F).d .PHONY : all clean build-all distclean -OBJECTS = start.o main.o bootmap.o jump2ipl.o sclp.o menu.o \ - virtio.o virtio-scsi.o virtio-blkdev.o cio.o dasd-ipl.o +OBJECTS = start.o main.o bootmap.o jump2ipl.o sclp.o menu.o netmain.o \ + virtio.o virtio-net.o virtio-scsi.o virtio-blkdev.o cio.o dasd-ipl.o SLOF_DIR := $(SRC_PATH)/../../roms/SLOF LIBC_INC := -nostdinc -I$(SLOF_DIR)/lib/libc/include +LIBNET_INC := -I$(SLOF_DIR)/lib/libnet EXTRA_CFLAGS += -Wall EXTRA_CFLAGS += -ffreestanding -fno-delete-null-pointer-checks -fno-common -fPIE EXTRA_CFLAGS += -fwrapv -fno-strict-aliasing -fno-asynchronous-unwind-tables EXTRA_CFLAGS += -msoft-float EXTRA_CFLAGS += -std=gnu99 -EXTRA_CFLAGS += $(LIBC_INC) +EXTRA_CFLAGS += $(LIBC_INC) $(LIBNET_INC) LDFLAGS += -Wl,-pie -nostdlib -z noexecstack cc-test = $(CC) -Werror $1 -c -o /dev/null -xc /dev/null >/dev/null 2>/dev/null @@ -62,9 +63,9 @@ config-cc.mak: Makefile include $(SRC_PATH)/netboot.mak -build-all: s390-ccw.img s390-netboot.img +build-all: s390-ccw.img -s390-ccw.elf: $(OBJECTS) libc.a +s390-ccw.elf: $(OBJECTS) libnet.a libc.a $(call quiet-command,$(CC) $(LDFLAGS) -o $@ $^,Linking) s390-ccw.img: s390-ccw.elf @@ -72,7 +73,7 @@ s390-ccw.img: s390-ccw.elf $(OBJECTS): Makefile -ALL_OBJS = $(sort $(OBJECTS) $(NETOBJS) $(LIBCOBJS) $(LIBNETOBJS)) +ALL_OBJS = $(sort $(OBJECTS) $(LIBCOBJS) $(LIBNETOBJS)) -include $(ALL_OBJS:%.o=%.d) clean: diff --git a/pc-bios/s390-ccw/bootmap.c b/pc-bios/s390-ccw/bootmap.c index 3cc79706be..414c3f1b47 100644 --- a/pc-bios/s390-ccw/bootmap.c +++ b/pc-bios/s390-ccw/bootmap.c @@ -929,7 +929,7 @@ void zipl_load(void) } if (virtio_get_device_type() == VIRTIO_ID_NET) { - jump_to_IPL_code(vdev->netboot_start_addr); + netmain(); } ipl_scsi(); diff --git a/pc-bios/s390-ccw/cio.h b/pc-bios/s390-ccw/cio.h index 8b18153deb..6a5e86ba01 100644 --- a/pc-bios/s390-ccw/cio.h +++ b/pc-bios/s390-ccw/cio.h @@ -361,6 +361,8 @@ typedef struct CcwSearchIdData { uint8_t record; } __attribute__((packed)) CcwSearchIdData; +extern SubChannelId net_schid; + int enable_mss_facility(void); void enable_subchannel(SubChannelId schid); uint16_t cu_type(SubChannelId schid); diff --git a/pc-bios/s390-ccw/iplb.h b/pc-bios/s390-ccw/iplb.h index cb6ac8a880..3758698468 100644 --- a/pc-bios/s390-ccw/iplb.h +++ b/pc-bios/s390-ccw/iplb.h @@ -87,9 +87,9 @@ extern IplParameterBlock iplb __attribute__((__aligned__(PAGE_SIZE))); struct QemuIplParameters { uint8_t qipl_flags; uint8_t reserved1[3]; - uint64_t netboot_start_addr; + uint64_t reserved2; uint32_t boot_menu_timeout; - uint8_t reserved2[12]; + uint8_t reserved3[12]; } __attribute__ ((packed)); typedef struct QemuIplParameters QemuIplParameters; diff --git a/pc-bios/s390-ccw/main.c b/pc-bios/s390-ccw/main.c index 203df20965..fc44da3161 100644 --- a/pc-bios/s390-ccw/main.c +++ b/pc-bios/s390-ccw/main.c @@ -38,8 +38,13 @@ LowCore *lowcore; /* Yes, this *is* a pointer to address 0 */ */ void write_subsystem_identification(void) { - lowcore->subchannel_id = blk_schid.sch_id; - lowcore->subchannel_nr = blk_schid.sch_no; + if (cutype == CU_TYPE_VIRTIO && virtio_get_device_type() == VIRTIO_ID_NET) { + lowcore->subchannel_id = net_schid.sch_id; + lowcore->subchannel_nr = net_schid.sch_no; + } else { + lowcore->subchannel_id = blk_schid.sch_id; + lowcore->subchannel_nr = blk_schid.sch_no; + } lowcore->io_int_parm = 0; } @@ -231,7 +236,6 @@ static int virtio_setup(void) switch (vdev->senseid.cu_model) { case VIRTIO_ID_NET: puts("Network boot device detected"); - vdev->netboot_start_addr = qipl.netboot_start_addr; return 0; case VIRTIO_ID_BLOCK: ret = virtio_blk_setup_device(blk_schid); diff --git a/pc-bios/s390-ccw/netboot.mak b/pc-bios/s390-ccw/netboot.mak index d2b3d8ee74..0a24257ff4 100644 --- a/pc-bios/s390-ccw/netboot.mak +++ b/pc-bios/s390-ccw/netboot.mak @@ -1,18 +1,4 @@ -NETOBJS := start.o sclp.o cio.o virtio.o virtio-net.o jump2ipl.o netmain.o - -LIBNET_INC := -I$(SLOF_DIR)/lib/libnet - -NETLDFLAGS := $(LDFLAGS) -Wl,-Ttext=0x7800000 - -$(NETOBJS): EXTRA_CFLAGS += $(LIBC_INC) $(LIBNET_INC) - -s390-netboot.elf: $(NETOBJS) libnet.a libc.a - $(call quiet-command,$(CC) $(NETLDFLAGS) -o $@ $^,Linking) - -s390-netboot.img: s390-netboot.elf - $(call quiet-command,$(STRIP) --strip-unneeded $< -o $@,Stripping $< into) - # libc files: LIBC_CFLAGS = $(EXTRA_CFLAGS) $(CFLAGS) $(LIBC_INC) $(LIBNET_INC) \ diff --git a/pc-bios/s390-ccw/netmain.c b/pc-bios/s390-ccw/netmain.c index 509119be15..bc6ad8695f 100644 --- a/pc-bios/s390-ccw/netmain.c +++ b/pc-bios/s390-ccw/netmain.c @@ -41,7 +41,6 @@ #define DEFAULT_TFTP_RETRIES 20 extern char _start[]; -void write_iplb_location(void) {} #define KERNEL_ADDR ((void *)0L) #define KERNEL_MAX_SIZE ((long)_start) @@ -50,10 +49,9 @@ void write_iplb_location(void) {} /* STSI 3.2.2 offset of first vmdb + offset of uuid inside vmdb */ #define STSI322_VMDB_UUID_OFFSET ((8 + 12) * 4) -IplParameterBlock iplb __attribute__((aligned(PAGE_SIZE))); static char cfgbuf[2048]; -static SubChannelId net_schid = { .one = 1 }; +SubChannelId net_schid = { .one = 1 }; static uint8_t mac[6]; static uint64_t dest_timer; @@ -438,15 +436,6 @@ static int net_try_direct_tftp_load(filename_ip_t *fn_ip) return rc; } -void write_subsystem_identification(void) -{ - SubChannelId *schid = (SubChannelId *) 184; - uint32_t *zeroes = (uint32_t *) 188; - - *schid = net_schid; - *zeroes = 0; -} - static bool find_net_dev(Schib *schib, int dev_no) { int i, r; @@ -509,7 +498,7 @@ static void virtio_setup(void) IPL_assert(found, "No virtio net device found"); } -void main(void) +void netmain(void) { filename_ip_t fn_ip; int rc, fnlen; diff --git a/pc-bios/s390-ccw/s390-ccw.h b/pc-bios/s390-ccw/s390-ccw.h index 6f6d95d170..6abb34e563 100644 --- a/pc-bios/s390-ccw/s390-ccw.h +++ b/pc-bios/s390-ccw/s390-ccw.h @@ -55,6 +55,9 @@ void write_iplb_location(void); unsigned int get_loadparm_index(void); void main(void); +/* netmain.c */ +void netmain(void); + /* sclp.c */ void sclp_print(const char *string); void sclp_set_write_mask(uint32_t receive_mask, uint32_t send_mask); diff --git a/pc-bios/s390-ccw/virtio.h b/pc-bios/s390-ccw/virtio.h index 85bd9d1695..6f9a558ff5 100644 --- a/pc-bios/s390-ccw/virtio.h +++ b/pc-bios/s390-ccw/virtio.h @@ -253,7 +253,6 @@ struct VDev { uint8_t scsi_dev_heads; bool scsi_device_selected; ScsiDevice selected_scsi_device; - uint64_t netboot_start_addr; uint32_t max_transfer; uint32_t guest_features[2]; }; From 188e255bf8ed68fa64bcb63577cb100eeb326254 Mon Sep 17 00:00:00 2001 From: Thomas Huth Date: Thu, 20 Jun 2024 16:59:28 +0200 Subject: [PATCH 04/23] hw/s390x: Remove the possibility to load the s390-netboot.img binary Since the netboot code has now been merged into the main s390-ccw.img binary, we don't need the separate s390-netboot.img anymore. Remove it and the code that was responsible for loading it. Message-Id: <20240621082422.136217-6-thuth@redhat.com> Signed-off-by: Thomas Huth --- hw/s390x/ipl.c | 55 ------------------------------------- hw/s390x/ipl.h | 12 +++----- hw/s390x/s390-virtio-ccw.c | 10 ++----- pc-bios/meson.build | 1 - pc-bios/s390-netboot.img | Bin 67232 -> 0 bytes 5 files changed, 6 insertions(+), 72 deletions(-) delete mode 100644 pc-bios/s390-netboot.img diff --git a/hw/s390x/ipl.c b/hw/s390x/ipl.c index 5f60977ceb..8c490eeb52 100644 --- a/hw/s390x/ipl.c +++ b/hw/s390x/ipl.c @@ -288,7 +288,6 @@ static Property s390_ipl_properties[] = { DEFINE_PROP_STRING("initrd", S390IPLState, initrd), DEFINE_PROP_STRING("cmdline", S390IPLState, cmdline), DEFINE_PROP_STRING("firmware", S390IPLState, firmware), - DEFINE_PROP_STRING("netboot_fw", S390IPLState, netboot_fw), DEFINE_PROP_BOOL("enforce_bios", S390IPLState, enforce_bios, false), DEFINE_PROP_BOOL("iplbext_migration", S390IPLState, iplbext_migration, true), @@ -480,56 +479,6 @@ int s390_ipl_set_loadparm(uint8_t *loadparm) return -1; } -static int load_netboot_image(Error **errp) -{ - MachineState *ms = MACHINE(qdev_get_machine()); - S390IPLState *ipl = get_ipl_device(); - char *netboot_filename; - MemoryRegion *sysmem = get_system_memory(); - MemoryRegion *mr = NULL; - void *ram_ptr = NULL; - int img_size = -1; - - mr = memory_region_find(sysmem, 0, 1).mr; - if (!mr) { - error_setg(errp, "Failed to find memory region at address 0"); - return -1; - } - - ram_ptr = memory_region_get_ram_ptr(mr); - if (!ram_ptr) { - error_setg(errp, "No RAM found"); - goto unref_mr; - } - - netboot_filename = qemu_find_file(QEMU_FILE_TYPE_BIOS, ipl->netboot_fw); - if (netboot_filename == NULL) { - error_setg(errp, "Could not find network bootloader '%s'", - ipl->netboot_fw); - goto unref_mr; - } - - img_size = load_elf_ram(netboot_filename, NULL, NULL, NULL, - &ipl->start_addr, - NULL, NULL, NULL, 1, EM_S390, 0, 0, NULL, - false); - - if (img_size < 0) { - img_size = load_image_size(netboot_filename, ram_ptr, ms->ram_size); - ipl->start_addr = KERN_IMAGE_START; - } - - if (img_size < 0) { - error_setg(errp, "Failed to load network bootloader"); - } - - g_free(netboot_filename); - -unref_mr: - memory_region_unref(mr); - return img_size; -} - static bool is_virtio_ccw_device_of_type(IplParameterBlock *iplb, int virtio_id) { @@ -754,10 +703,6 @@ void s390_ipl_prepare_cpu(S390CPU *cpu) ipl->iplb_valid = s390_gen_initial_iplb(ipl); } } - if (ipl->netboot) { - load_netboot_image(&error_fatal); - ipl->qipl.netboot_start_addr = cpu_to_be64(ipl->start_addr); - } s390_ipl_set_boot_menu(ipl); s390_ipl_prepare_qipl(cpu); } diff --git a/hw/s390x/ipl.h b/hw/s390x/ipl.h index 57cd125769..b2105b616a 100644 --- a/hw/s390x/ipl.h +++ b/hw/s390x/ipl.h @@ -134,11 +134,8 @@ void s390_ipl_clear_reset_request(void); /* * The QEMU IPL Parameters will be stored at absolute address * 204 (0xcc) which means it is 32-bit word aligned but not - * double-word aligned. - * Placement of data fields in this area must account for - * their alignment needs. E.g., netboot_start_address must - * have an offset of 4 + n * 8 bytes within the struct in order - * to keep it double-word aligned. + * double-word aligned. Placement of 64-bit data fields in this + * area must account for their alignment needs. * The total size of the struct must never exceed 28 bytes. * This definition must be kept in sync with the definition * in pc-bios/s390-ccw/iplb.h. @@ -146,9 +143,9 @@ void s390_ipl_clear_reset_request(void); struct QemuIplParameters { uint8_t qipl_flags; uint8_t reserved1[3]; - uint64_t netboot_start_addr; + uint64_t reserved2; uint32_t boot_menu_timeout; - uint8_t reserved2[12]; + uint8_t reserved3[12]; } QEMU_PACKED; typedef struct QemuIplParameters QemuIplParameters; @@ -178,7 +175,6 @@ struct S390IPLState { char *initrd; char *cmdline; char *firmware; - char *netboot_fw; uint8_t cssid; uint8_t ssid; uint16_t devno; diff --git a/hw/s390x/s390-virtio-ccw.c b/hw/s390x/s390-virtio-ccw.c index 5aa8d207a3..529e53f308 100644 --- a/hw/s390x/s390-virtio-ccw.c +++ b/hw/s390x/s390-virtio-ccw.c @@ -197,11 +197,10 @@ static void s390_memory_init(MemoryRegion *ram) static void s390_init_ipl_dev(const char *kernel_filename, const char *kernel_cmdline, const char *initrd_filename, const char *firmware, - const char *netboot_fw, bool enforce_bios) + bool enforce_bios) { Object *new = object_new(TYPE_S390_IPL); DeviceState *dev = DEVICE(new); - char *netboot_fw_prop; if (kernel_filename) { qdev_prop_set_string(dev, "kernel", kernel_filename); @@ -212,11 +211,6 @@ static void s390_init_ipl_dev(const char *kernel_filename, qdev_prop_set_string(dev, "cmdline", kernel_cmdline); qdev_prop_set_string(dev, "firmware", firmware); qdev_prop_set_bit(dev, "enforce_bios", enforce_bios); - netboot_fw_prop = object_property_get_str(new, "netboot_fw", &error_abort); - if (!strlen(netboot_fw_prop)) { - qdev_prop_set_string(dev, "netboot_fw", netboot_fw); - } - g_free(netboot_fw_prop); object_property_add_child(qdev_get_machine(), TYPE_S390_IPL, new); object_unref(new); @@ -284,7 +278,7 @@ static void ccw_init(MachineState *machine) s390_init_ipl_dev(machine->kernel_filename, machine->kernel_cmdline, machine->initrd_filename, machine->firmware ?: "s390-ccw.img", - "s390-netboot.img", true); + true); dev = qdev_new(TYPE_S390_PCI_HOST_BRIDGE); object_property_add_child(qdev_get_machine(), TYPE_S390_PCI_HOST_BRIDGE, diff --git a/pc-bios/meson.build b/pc-bios/meson.build index 090379763e..4823dff189 100644 --- a/pc-bios/meson.build +++ b/pc-bios/meson.build @@ -68,7 +68,6 @@ blobs = [ 'kvmvapic.bin', 'pvh.bin', 's390-ccw.img', - 's390-netboot.img', 'slof.bin', 'skiboot.lid', 'palcode-clipper', diff --git a/pc-bios/s390-netboot.img b/pc-bios/s390-netboot.img deleted file mode 100644 index 6908e49f06801808b826d3a01f88132cf1b2f57c..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 67232 zcmeEvd3;nwwtwADX8{9rLJ~Rw;f6#A0inYti%NG08o;Gd(cnhJ4M)_d8J~^|O$dm4 zh~nt@W^9mnQD?M4M#YVcGCrR(`ZBnn&gh_xiW8R(Mz%oi@B2Mob?VfqQ>UuuPCDrXm&;Ize@Q9_?~;%jN}KJZ`{il4Hpm}=S z`L0q!`dj>|RP(tyCH_p*BaQgizJh;KLwi0!N*&Wx!5gp3Q%OA+-VajG(1@t`Q}{yK z;(RIB@LYR6RiRE#Jlz*ne>Sb7Jtz0z4-e{{hGI^8d(suB6RfMypyE$u44ZS=tYLF5 z8a;C8wO0)-kzB&a!YAp(Q>LqbJz&(`eEJP{e)gt+YcT60Z$a7Qw>1puck+h)k+RsW zT>d^8A-wY+(^J3x`>f%2G=7`%(WYS=$E+Fo&P@;8-R;@uHry*Ee&7!TiZB!X>J;q; zCOhc~d1h8thEnN#Nu7VoWDsYE)qz73I|6H~B zV|0S^z9cJUs%xt+y7-!FW?pnb^#y9?wbd6~Q?0JO_{xiBURK4dtA1Invo5O|&D`pX z)n!$4X6f3gp)Ru>I2!MHdc35D?4~`_4QUVQ@pg52XFMZ);~wQ5`jH;zg9BgFkM!7{ zE1oc&x<(eF7loKbotuXU+0(9d9ETp@y|*B-*|nU z`t#qPIq)+Fe&)c>9Qc_7KXc$`4*bl4pE>X|2M&t^%~!>Is<5$1sj3-PTU)5{Gc1zN zZ8Vj-@+En{oqto$X~cTQ`pU{x${M6n=DU*8tbRzTRYR=jlxnO~Dzq{X-V(CBDk-bC zH^1Cdr*1Qq(a_7@k&|hSwe2--RqRJ9;T2q!+25*GBdzBF<7Jg(RokCQn-4L!u(8pH z^gk|f`O>ZGq_-RWfL;?deOIVDt3oA}d;BWvC_-inIhkxX>hoQx7V9?rx{c$|My>r` zAktD~O*Sg5u}UF-Fk3k9Dzs*-*vNPD%gp{r&$P;tt^*y$igyK*>!SX;WK|dS)w%gM z7FLB(e{2Q*2J2i%@z)uWtMIq7E=kn|JzK6Pyh}dE9%)2QZ;LG zRKC0wGQZLzEuAB^Ug6(Cf9Kz0J;1fAyVPz_`;z;*>RA)MRU_9kCu# zLDchrr{H^OR-MY3hcv@F#@>!{0}1Pb3sA4tbtCwE5Bf%Jxf_3jTkgVN|CT%P*SF;k z{57}Sj=!E3h#N}YhIbX)&fbm1@KQaoGc<8Lt5$da+=@YffMFjwS8#a_p|Mx!p8%FfBukB3pV?nzaUiAAs&0P{(s2x7&1tiKW!o%s$w}7z?f)H@@j2f~ zS}Dt1;ghB9+7M{=sny(Bj?E%9g?8Zc8z_ z+cF4$eJEKcSjd>aP7|1%E(7Zkq1f(<@3)GT`~)NENj2T8mdyQb;hOE(A0LTP|ZNuQbGY9#-j}^f6jQo zHXeN#5Ykj3@=F3a7#Wk5OK|<7UU{U4W;{e)rWPZoEBp4*g~E$;!Z`b6v1z)cs`xlObra>FefWXoAivss4f|eo1J(Ti;{;+$T_f#$pWtz=8YbiowXeV960bgpL{aeDm{Bwa_fSPwY5@j@OW7=7tKUopTcS?$teau`3V?8P@f-y#(bjZ`>RWAur!rZeLHhXt_wBJ_D$ky1xM1 z%^r&9Rd{soqc^&scA9bv%vSq-KrrK_&RU|ip*kJ266=nsS5f@s6i&6V z=0z`~#0Gx{0i-Vkz=AOmd5(9s~MR-lwilH6l)}<5;Wt5~*Rw-14Stt9li7Rd|}zDpTcQHZ~WTs!!u*wr!v7$RxBLFpDX7 zYO6J)$F?>3D%&cw-`fL+YP&ITPPlu0x1gHnW*^zl6I+=@id1)E{mQFIeU$>z7*y)Q zUF?%r)>!4LkKd0TELZNJ=}E_X*PzeisW5}YC?6R47WsftD=^A%&x%#%gRkCe>)L1>Q=f;ZF36C1U_8l#Ntp3s7+;LJ#A!*30;ZT4bn>JkM? z#)67kSYzXr5$I{EB?`D!+dHLfF-xVUcJ$kY53=7N?dp}20C5$1jk=(qo{$EkPkPzA zEUyQ=_bG?xJwai3QCRc5J#0O0w}Wd&_EK0}y=a3Ax2~mK{K`=1=d@@EUh5`~2&&SO zh(a$L)=NMpqD?RuJP6bdINADYCQ*AIyYd(e!psjNlP@c zD5Cm!2h+|K$tVDa{*?IwbbJ-t-u*9c?y6B?mh>$0z-C>EoNUk;gyzn|D0vu`2k4yc zYf{!ad%aKuTLHM=MQOe8c$R{N7*>Vrd&J)GsP)OQ4?P}W5Ds`^Z%I!dgVCOb+%-WJ zh2~Rr>s9Q3gP!IUcn>u{u8xHr-bM9T6H-1(RN(R0n!t$In)Q&&u)<%%N11Rzf67cS zYlm>{w`k)Hd3#`Ae2Lqv*uim|_2qvUx3FMzY67<@`{LG_-|R2Q&1CX*)|FEC6G}Sy zcJcchb+2<(SYYLPpw&7?T!kly^$GZbH3vps%Bq>lm*~R`^kD|1*@${Zy0EIOQJHI! zRDN@RH360Yq!;#Fk+jw4vG{%1=SMxdXomHJS9o~U- zt2VjP%7EO}V%_jEp6k-Y9=u=^;p{#S98PM^Q5l%;Ln@P)Uhu3Q31}N@sP#QsW}7Nd z6>AKHTIQ@zZn@s11?a_RAobG)PdKu-KHM=bJ`H=CD*!6gJbj;WF+H{(<6=F>MQ}gk z;)11uR|Y%=v(biVo84W#Il$A#*!B`jjhXPqO*}LPEwedpTdwyAei*6$DU7g|x9wf8 z$FbS)_TD5JFG7TP?Y z0)x$1S(+`gVV#wz5G;-A%%kz;U^?Y5C< z2`eAG4MWRc{nS`ou!U{!Y>8vB^DAKS^-qq)i-N_I2`nB17T^5jSYUMsUR<8Q;u2u- z?N5$HP_QUUU{L@puxi0ytN`&hEZ&^|&(e889bnONtm*P#OIK$m zpXOJb$&)U%rg27ePqd~1W_8m4{g_#E+lG2rCEl@IwVeAqSR4iLeRNnHfuOcH0tt(Q z>w&HlGqK*szKb;uvwN%kdATovT}hh8uF)!S6RVS~5*M)?Zj~5#CZ7hoB82BUJpD-j z5Kq&pPI3Pz?62>H{eu4l_R2%vy8j1Q!JcuSjwdV(q`aE zIStti_XbOv4j&Bwv9i=twTX6Lc62c!Cb> z{QU@vaqA3>^mJL#Bl{SbYB`uvqbvV@^sJrlxR$nJHZbXeMtq=CM z`r5dk)z^+wfs3>H+UTslK9}%j7kNI&T9G>Y?DwqO1lO_9+vg-!iu>wqtP~YJnGUW&W&MUL#k)1G96e)IC*Sfu zE7KD146aPiu6I_ZldQB(?HM7>8zV7K(8HOD_IhGvnl-U3q^z^iUO=x*Cwee-Ikc7WjN=n4;~#FH^nTMpFWT?4GCmaUYI7c^LF9`VY`|VS>Jc_g}?<=+ko3HjlQ2yw|p^KO`P&nol@% znvK;5qS?XWZs$4Cd5%8}JW3B8kAy7$IN8#4yAHiQW5|K%K6Lud`u$#jp@FEMuh4St?gd>HM$b0GR?S!x;H`SxM(_AuH`ijSjzgVr-&It*H=_c_n()1Dq9 zJI`{SdhE9DoT|U?h#eCBq9@P1)xn1z(vEp=|9Ucx&psYfr`^WAo)N+0kmkcP?L+5_ z@fP^9-}&$`+I#UZ+M`AH@3uGk(A#s-O8$4-8+PdJ8IS+_?M=51qrLY3Kzr*CqrKt( zf%c{xMtci?u)Tv=qk89J`VgnRLl~Dv8rs|M&c&hYfiwPa80~T0u;2Fd_}{+a(8u8! z%MP8d2eX5>|JrGP*kQCk{Xf|L>AL-GUtl$2%6skhNr!>U%)`Ki(G~mE5e^P(oaf10 z8EIU$J#px`oc`Hi;KF&~hj6*j!R2!28Ryfp`ukQJw#kS?TQ{9P=P>Z%I&Hsr9Y%XM z9Y%Wx;ltLq9r{ObJ$?EbuBX3#!D`)JaVY)574;c4&Wid>#6xw=*7?qgIzO>$oaU@j zNqzRjqp+ezlwoPUv!XtfRceZ~=Xcr*9zuIThugZnuASP$Zlq9N+p^}6D8+jGj9%7d zF@<&i3YE2I+m0u-gI27NT?x)tz<+_bID>wSiG}d4=3mK``A3@bEmt2(`(B~_^gkXt z?FN1C9lY*L`=Rj~6rVoZ`cga){)5wNyqAz{&}d0}-*k8&W;h;*bKp16-p2zm&3i(l zPpQ*3IrMGXvpt{oKy>i;6Y%$UXfGSG)OX@gpY{NBmZix~dsER~);{e8G(S&!JHgK} zon*Jfk=>HcvTJ;f_Oe8FM?rQ;Ur8s~J+$_wCE7daSaH!p(Cu-o?A?Ed*4{4@?H!!H z(TVncG=0;yCE7bEePS{HoAgclB+=f%=_@}FeR>>z`PWw+EM*GVTqkYE3?w5X8A8FEd?Kck` zM%#Z*w0%%nQ(Tqnw)YxK4$a)-aICR!PB{!5st*H){s+M!N#pYMw+>F3&NIhJZ+4#T z;-xvHadGOK3H%N&pSL9N+n;_r*a}_d!(jizXm1MIJMesXX!JdtXz$=MkdvTqzcTRk zV28h#InUD0aht)Fh}*0{KGH7h^JK>X2!yZfd)R_%vGa0;%756a5`uE5*2$4QMy^+*9t_mCU(SKc0ed9;{lxMARa7YSj^-AJ~_BOc&087=Ap3!bDs$AexAM z0JjiF3A$!@%rwYCE@0rK2v47yh@xWqu>Vxh^Z?@^vB7x_q!^%>QPKzGwC3=9rOH@e zmuCMo&y9^ya^B_CHI&O$$&fpf`*-Nqbd`>=r8Hh^7OH?m0WSrXg~-iBt{FBJ{TVg* zT)nnm7%}(QqkKRqMm3|A!6=u4Uf_v@G?B);x!0FhKO=&&Wp<1hWj+WF4TyRG%Z)f@ z?8n*v*c%UW1{j>!(Kg~hYj6hUe@H#zMAL+}R{LYpr^f=R1brJhvT^>wFDL$Lo9`t? zfU`R4^Mf{?eSmBMKWl|j6@GtOg(s8_|EkKF1_;yfDMM+T7DKf6vliqGDS3;HNDnO) z=%t)M211qTms=V2c>uG*?@6;ND7)yLYWpKX!@A}J;lShyvrghC+siWg-)^dYz!p6z z*gB^);&J0VhjdB{F>HkBBBIQPzdM3vWQdh(APyAP{diE%6D^nFIm1vqqf)sUx^7b= z21?~$*y8SWIK77W4mIpuBT~}D{mvs2ZRR6Fy@?!(ni1#(oViHLE&yL!AWKGb27q+4 z1{o=g#l~posKOZCw>D*T-_$rApkNHRvy2)`cyKRtaINtdE!j)Uf}U^@C{WO5JdMc{ zKO;~cXHS9s#nAQCt^r4j^Xv@HltD%d>y4Pix9vWiI^94dRhTsN#jbL#aR#0oLs#I* zlk-QABPTyYn4jUascmmsj`m$>o2L>m!onV$`%ZE2F!U}qFp>6frcJlh7rd-TTh|66 zOaB{j6Hl|QQzsdim7@mNx5b!;o-VD6Ju5UM34Svxe6go1JQ1~~pDM`8$KQ;sp6E@| z9j}`augiM7zL0u@ahA+&{Z6RJ#OQ*&+pnSBBnNlWK->$Fz6^47R=~g12Rvx!2oHC? z3anQF>vU&~{vM~D)w3@G|ECc5@tn6ePVV$T%?vAzvHGz_p(qU}6EdoZ9W@gv^aUbG1mAmzuX+TK#$%4sP<5Ax0w=r;VtYy?@tiP8!) z%ss)$!2(Ya=6zF$M=(dFA{qr-%mb4-hauz(NZaCNs64~K1t+s();!uM?@vhj zhy44gB_)N<=-(t)Vnd^Uk@x$hDmeK;7ODWbKRdK*tWa28{Zl-mx8f$ddc zMs&RW5RoA2ZpbahSTV4Q#pymNo2{O(&{`oUrM`9WmigVm`&vN0kC1n^X`CCw%D8z= z)E5Cfj8df*ziWh*k0*%2&dHZdjLj7oQ!+ZJbDJmOFG@!+LBjefmG2lWvE?cU<2Fgg z?eYrPRMr%GYwl#&t`~8ntBymoP@Yx@`@)N6MS%aCu=@J2j6Zzh#cKZfD(tm z9)WxrH@lm^ja5No;+*`=E?9=3238+wqAh|KRoLxQ-G5PJszRJ`mURd1fvG1uqfO3# zyUr#?MjK$MbDN@2gn;EU(=iJkPamC1uXma0pj`ADxRcDgWH7>BKp*E3o16X=^`Q-S zqX%n+r{#1A_>P7+&W)R%)c8PNfCp04RI%ee9ZmaSenwIn)23{du_C%+;|^lpan5ea z4&n>D;&fT3xf}hq{YDg+q`Xw(QNS=mPWKE{sSQK*TE@O}BF@)JZms>Dwm=1o5Jtnd z>|wTM-yrSCeL8WDfX)kPeKv-1=S)6N)i>M?U0=u3)nVlwxN2l1aZV7oMI?a-N6Wn# zwQ3M7I-cXshsGE9(Kq97ZO3vPsw}p;V;1TeVojx6S7M~qs_u}16ty^a0N&FWUuG?| zU*{a8^%G<;VPkc&hy2h8S-`hG5ROIg`~~~5I8~zgR#|1xfI|^UT!^q@woMzPG~lcA z3%9Rf*|G}&-zOttFlH0c1K!fx{i-X=VVspo*{M=?>b_+qcbw!h3S}HeIG%$7m9gc4 zU~C26r|PlKGDGgixvCXtP2U|LC%>i~FSU={4{S)(lw^#AZ}j;`k=r+&UU~$O>-Cv2 z!J&XqChpYpt+xNwoIq8bpZ7IHeVm0+1Lurz$Hg#4Ea(ac))1?>2X8|vLD^N#9S|B?TEnw3)%%V(43v@c&9={hW8%Cg;ApwcyF3~J zS%osjFhau6Ax;Y%UnSP$q)^nvxWR0v)M%Xja;*9RaSNN&PL^AqCeF8JYc0L+`RlSj zQO-6l1WcI)HgX)Q$tOuF?y9lvf0je?<#ascN#9oh#HJ1cfA#tez5`eoWw^~5>o;VP zf2*;2;>v9bwN7m>k{xFIX2Exf_`YgUYPm+1j=2}!U*#6GP9>q zYhW#%8|}{&YZyw?CVJAF&;2qB`!6U_inZnE-gxOkyBTW$ws#r0cPZAvcGOde+Fm1z zH+$TMbrAK{^=oHho~u>I$=t;ipPe;4w zT(QsiSg7OuXw|MG!Buzm)v$Qo;9@Dq*P>m}vtisb)l`!csGOezu00gU1t&P_>H_^k zs@^cc7k&dhqq5PPMm1`O@a;VL7Q{?382wv{oB}*2;yEAB(ReANoYSGoG1il7#~I%o+HuHR6J9FX>AAX^+qVAVo=x>G;7lK z;X^qf-b7C)PMFhMP;FnjM@_@2>Di|yZpN}_Qp)zjz2_le>`oD6v2K6+tryf*^< zd0RwHHu|=6pSVzZ^uaki2EHch`OX}+FYDm2V4C3asF!tV&FlSfS<6@6O0<6Jo~=Wc zGYJ>Zqw!g+A$y$u8?{)&3}n>g@MN<7rh5vvjYPt5;`dst2!<=9utFp|_+%SHRZf?sq2N7=}iqvoRXl#80DkjKgmch zH8Z+H`bMDEF9MN_9!pdhV-PnEc!#_FSdCS9mbrtThzslB6y!k{F>iD{53{Gv3;34u z?jhWK278b8N?l%-Hz1zPf%Xn7L#*t)QcuLFKL)-s*r|Z%V(CE1Qk;mt8^VvvPjuF}uD}imR{ii_PvYh(T zPPHRHRC~l{d({42=lO^B^a%mjL9~5o)6zGmU?&<2KWA@`c$V)A-skMH@FQ!CVZigM zus6}CKE=})y9Xvq_53T^PXUDCQu8yZ`8d`i;rLvJJos7w?;gu*&@RJ`qAj1+8(UV_ z8!b!mc@&>V@YyZ%r}HoSfwuG1%DHX3V`OQ}0q z%FFxf29p-f1Pg1Jmh~#Et0J+kHgi6LyeIbGm_Pam)RA@Y=#<+c%ENXRoY!lWwgZ9@ z+%L9P``HrnHus;!XNzYIN6Hj>ii`#8xNleyUWpUzO8MTFoDU@D7)g0UU>9IaJRS{! zf;Dg_@?WSFLq<0HCu^y!5&a=RLQz>=gs8RPHG_GZO?A7 zCn58gcW6ar;K}{23wYxV=zz5#m-|D-kU}>psTJQy zGEaT-=8$iM=Adw)+MWyk?m{iZ%GtZ|JgM{ek`bjxSABeBEubGyWNmmFA=M7DiZHHV zmq44Celvox73o`#3#^D+X5Y?ZYk|m6$*#sQXzU5Edzk(R)Wb~(+G+%B`1qhvKBTs( z<$ASF+RCt4ZVYjkN@=%sy=&giOrn{|3( zCw9-#757h2zm#QLZQH!i2G7C13yY2WG_bk|A6T{>wrl$ICF{G@+L}R z#kA$Gs!pu4r^vxuFBe~B9X&Cy`L4y&g>uJZ~oIc?);7lXe+*VZN6#;Mh0x?u`wk$^nxGP!*=Cc_lglO{R12tLW*jWao?WI zD(G|E^hytuQbWU9_Eom*+Q3srtiVkfD>cnh=21ec`3#nqA2Zq({_{bMdqAWlc3?H#!74?tsx|%*2ur)7&4!-fv^!ns z#+Y7sA2FDJe|?gvDhgiu2RRTmp-*y%XLbs6YyL}n7#zsmtSeKV!=1Q|X!`_w;FW|D#Crf$7CK3I+U;If!^z9WYzpp~l)? zaGR;T*pu~I`LsIhEbQ2=#%k6LET+gh$4%>1%I>C=+DQrNtZwIxdgo(wuMX6;zJnT+ z>Ot{#SZCXJqKj(f=GJ(wA6SUzblavx>#!D3PjUb=0!f2}+uW%!YQC$$#3o$(Dn9dL z?@Lt#w>&5Lp9L|)l4HYGODV{w0b9n?r^2jKo#+1^d(8heGXD>IJP>JZijQyLFVZyZ z9%l?2HQ?3Ocj}Y2Zju)6O{71H^rm{_d$D|m-Rjs2gZ-YZu<5tLR`@;zpTFVr9zJi^ z8(WXY^JsEqXLxU&R&y7jcl#^SxgVUc6d)&JLohdMspuu_yJ(A{<}#*w9rn?3%>_e_##;xJv9S_-}%%tdaT#sx#c-ZJY;ewbkrP2ljPa$(&BBUSozm0 z+-ZsZ4yP-MQMcaa$H>G7u@sG2XISSeYKQUo6oX^MnPvFP{yrOfP|&{c=FJFX zdkp&7u+ACFbI`C)%7mIRvR71xm8bW1d}KY2z3;%%u!5})?%97X$J}cTn!vl?GP&9S zB_ndxhDQ7Rak4ZDRsqPrA&FSQSBMQ16LeAI#ZVy^kUO3ejo6VLG6><(q~xL-7uKTD#*KP7R5Dcf`g(W$Zafh=*3%g2l`i zeCF_P%3Umr&uJ*ZeFkH}?UMchlD}=xV1s*`GkXma079>-svN)T%Aj;Tv9V+tL}B~W;K6H$>8dybH7hOoTKbE zKV7fNoYf*^r4TM&FBi;tHjDLnezsi|OyT{Wf443o^abGEAc@@h} zD3)AebJjlPasM#Vr}BQ&czOSjMEME2yfIGNG!y9~FzyC>WnDEUnn*2jO7~&uF&h%; zeWbM48}JTqI6Sw3VpXF8w?aoFDvUQk zYlwsmt?fXyKa`lt4IKZFo&O>BweUHGu$F^WTC2XYo}@Gx>CBmLbGD&G37+2wm3In7 zn^{Mwx)FYzzG8oG=9r%U53XjV3|0-G`bPEuu$ThqvjM@Vc>~|X+TQ&p=iu)kAGW>a z@34uzYx`9Zixgl%t@8X5RT=+I8HeUU$!}o&tW&?xQ1AnekIR~nw~}UfSHdp(CnErx z2WzXi#q6+(wPzW)spG_g9ku(1OQHp_K?cE#+TNV_mWf|IXl;K}XxWsYnReeenOA4LmKXw4JXVDpb+&fso< zY#fB*+XP1K595%4F1oEoe#4>oV?syUSBNfwJtFjNCcNTCaN;{>K27)ok6S{G^R8j4 zCa#Xs8GG6=VY|vIftFLbljM!pow1Qf>kj!C$QVeh_~8l8 z&4UbcALB@r8{g>1T+g#dB3HYzAq$8(v;XDX-TNk`x#n(Ji5QUcR(svro^_BY`(=UN ziaT#KWbUTt;r3?knQ5quToI^k{}QOR_6Ec?1Se3$9lpIbP?Q=jrqPSF!{5<@C%IN1jg}V-ETzR*Mj%4u;{uvGb3@o z1lCPgkpQ$?Qz-r5*oD|N1t;d^vP1&!yEy`Z?Q0G^BMS+4j<}shitCQk>86gyWbp{j}r29?A5@GYnFO^mgDm@+AYF!IPQ)Pv#mjQ z;#N2dJ&IjT=pWd%h`Dj8$ARgzXc#g2Y51$KYlS&4a84M}c)-36HXeMW+y%(V!Y?c2 zLuYJRK5#QrMN(h!wn#yd>mv7AX+IBDA zAuUn!VioW`9XEu_Y|CFY!ae=;%)Ud6@O&da|AJD^Y23Hv?sHAR=ku}`@Xi~EJwh#i zouM~kSGpr|?HkM}nSn|~u@)NBaYK=D>y&1Lkqd|qYeJtiivMJ6vk`Rq3p{H?dXw&@ zLBl9*>Qn4Q<0e2zD0ia1#d92Hfqt-FB9e*~snLZJbL(Jj?|{23>4nCK&>r$A-XDhF zE^0*_x&BtGPDWWRGnmWlt<43*tGR#{V!Y=vX)n|R(l$b0_yzdC7~f)~GmU=P8Tgbo zOj!64N67q*Oz(0V(x&1gYp40*aV)w6yBFPQp&`Af(TB2cNLkn`EkVc~cNDJD{09cW zc`rOR0FPN{`DJi9h4mLMW&NUuB`)TE&~}}q-p_orA+aMxbu!)`T-)ywFV|rUZ$&vu zDMy6N%l$2(kjF#4lf)PN%EcY$y;cpQ9Op~{3(b78gU>t7R zuqCd_TyXU}+*sdgi`BSrIwd6PLtnT9hhoM372KyR&%%^CN zgSr^M2Qd_|QWG4YB#M1p)JMj$k94BVA#Bm|ju?TcTCCX7nlJVudUU<_z$;Bzz2!~Dd4|f|IF=dQ zogK!}hv+#_(!NYIOslO#pTy&}Do~zd+n#8e3bD|P+dO6}*pnOHHVl@6*jN^>jW2M^O;?5D=TW~fy? z<&I14u;rtFmU#z(zk6Xm(Zq@gH(>_Cc(&Tj#DskpZ>#WSzCm+}#1=jrSQe&cdXD3A zL6MAUMCm|JiC%`D;yPb6a`Pk~+k#%^sMb-Ll&oEUv*`bZ-wZq$n7tJ8iyenZhn_i7 z>lrx{U}84GZ*Ktlc7+uQpmBvg2%o9=wU}dddSfeodFghhLw7@lG0zos)5rvs)bk~H87>_B*tI-03^--ay>xIo}ZoRdTE zGL#yQQb~b`#HopWIN;=fFPtQ)X6z4?jsazm!giD$j}anw*T?nUfMd`zpcQ&E3?1}T z3&yHme>L=J59vK7*@=w*GRD*7q}_;!nKaDP64@2sSt53+sqCNH%DuHRXYf6=a&|&1 zd-l}IoSQjEb7q!vJp9HOcYGs!jT7dnBJz;b6|IDvuR_0e0nLm}S4=(Xd5s;Y9^4s2 zr+%AV-dsSewB7|gzreb~fmH}t{sgT1@GT8mB}`}n{UQEMjtDpCiB6N5rx0Z#=soGj zqizERMIwp7AilD7;>wz^{+lknsByorc~S(}>?yHr*Nenft24BP0Qsc+9+kj$B(PnE zl(IdrJ+7gT4VwZZ68lwX2)k04=?d4o!rdY~?<0EFewjTr{|-Hp5Ld;O&C!x}vra># zYupxd_PStk@fU5h{Umb3eu+zsXgAtV`{al{S17Pg#Tb5H`Y|3yUI~nrks>_BmoxBx zojzFBnX1C|oYCeFM&2Tvcmr*~_W||?N>LM!VUHC4pLo>W(k~~YMRmfiFi z_MMMa30hUEFV}PVLQDxH6u{}`V&o8OmN)9C|r3}Vnx<6Y6+Er{voFNZBc?W4%6 znwRz%MZKk0xYt7&=+-cVqYxN|8jfub!A>baJ=`+h$-?>48K2HsDz@c5OL*tz=oXn0 zYIeV`$20n7mfpd{Ta>+o@g@=4kW_#3Bt2fhC1=z?x5B#SxL_YZb}=5nvXedi_liaH zVH8kOzNO9W_;<9w6ZHVw2R_!|!_`eeeAE?ufNvbn5}TVp+L86qjBDn)5nSyGE6YGS z=XZ{S-YgAUL%eJGT#IF5?#six#7L%Q#7^3bOHS0Nw!f6qM2!EaRatWWE*p1o^1jh* zwgC?MfjiId&E@Z^VHfLVtfC6-@AB5*w|Fq)Lb}vw`XP%*d%-admgh=3y#kV+uYX5x z7QXX0CCk058=e6LUUg*lNKW^v6He4^YSWC=3=h) z=RlG-iZxh@6HT@D8-7wjP95JSPOZAai>3@(|WG zkkFaH($2bo+!^&HN)`h;V+`q!IZ0B*Q!(%_)>_q_--ng46mpYEjoFi{BJ0=oyGVUr z%D;j)(aHU90Pkm^Bx#o@R@o^XDZj5puXYCR_!tMPrdAaPB9$(wO>A}Tv!!;m9d$;H za~hDX_In@nt^uagQF@Bhn~OIY`2(**-V;uXc_@>gnZbBA?qz`9QYn2=ymY^(;X`tx zbw)N|y{)q0H*nEc2CRBu6lttzn+sN^W7pxkc=!dI#R7A39Hw~%HIDtLd?#OzhS#?V z+6Xp7zwcOf=(2d(e%AuqMj6+M-~SoKcKAf!hRbW#nD=Zx38X%QM!j zY9!A?re>FbYG7%qAhAqJr3F<;u4XJp9Jd!fW{;WT_nXQeG+ngp#2%ILz_@{t_+6zP zRj7k`EcqL1HE2lL8On!$AG>|Oh1C{8{%Q17&V2)KoXfDsr)TJ$pII|p1*r4BHQCia zo(jJS>^=0VG56j2BVrqoFMAmIh*N0-@32PRq}S30V|ckX9F8(yk@|eUj^Ia`Epgib z`65|J+le`KGOz(|+moXHZPfEuZEe&VJ7G78%~kL=J;rnIL$sGzTLpi?n`qsF*EEOm z-L;3^mGGa8WITPP%)wQh=jNX5oV5v;1XWhY%nQtl<#(oVjwdnio{o0a#23N+6wCuS z@5%OY>%dv^SFsK$RbM#qLH%GeLHBe0B&$4d2(r)-&BwakFn$W{O)?YI+Ft{%fl=}v z?HNr==NeA@6#4+SFHqlc4fP0YcSHK*2)1til_OH!vLqGb8j=nw)x=riGke_L<#-CG z;#AHqda`f%8k#>0U63j#r(c599fw^vSHr2Y-xBZ+4)!fr!dgovP8*qi9^5Fkj6+StX7k`Ct%zX zq%3Ue%9#!$YN(uXUj?ofuwClI;jatyW2OF9=_`|xc*_XbPwDiOrV+mz8ipa!xPfXfl7O0N;P9)bG?+lLhCHjP_clIN1V7bOp8qehHCz6%!A zqs+beJHH2Sr0NMN@hsZ|M_-5KvW5GWq?I(@EHMi17qP0BC=JNz-Z<@DiX`$o185mk5DhB z=d8Y86B4L&6`t>`mQ1{#$;eprlB@94px>uD$1$-5jxOj1SBf9|ocz6VC9$n0#tEQ{ z%z&D{PwAXLZV!6?xXXGWMOl{J%)So|MGwHF7n?f1vK5>hdo`igOa6fNOyHg+KF=BA z^Te-^CYfvd@pt2mR|QMN*D@jwDKb;|=m9^SCnd4M?HY{);gN@*_6X}7*faP=dF0M& z7>3n?M`if#j^75n?&lP4ew2Z#iZ^SHaS={ES|gUn&aHW1CgV zUoFI$jeMStaV>=;<~NrroF)a1rOjoki|W=GR<7il8MR@;yCSNZFxNw;9f1;)bO|T# zJSXa(RvK@z@FO<~-smjl5_t4)6LJ^WaXIR=+=Avw{LYhx_TT9lL+Xg;o=)o}cth*J zHY~GOF?%|Y5hl0uk?MH=j}*TJ);TPP`J@SR8|4Beu{*-Lm}9VXL9O8dxl@Ga@+*Sq z!C*{c7mkGXWnIKra>qUe@+S7FZ#~Lqa-~PM7@V6Fmhf5t~2(v>TRxLc`o2?>?$j&Tx1Ndk9#D~^PYa{>GSMI4Fy;oH z+m?|8EEWgz8+HZfg;gLwEbHDQq1kY@eW1`xJw=+S(Ot$|$=QlDMx~CIw42DWKHDjG z#ueUyh|K6NBN#9?UCr{F@*q88OK#$MA^7T0S2(q6M|RI4 z?rnZhBpguO8G#3(XCNxW-qUhJTzCCG5U!)dmEtA`NC4g-hoGJu`4zqi-2t->asjGu z#`!JABaDMx!5pD#_xaG_ds6|;f&H$(;&(#xzko7O6daZaxMUx821A>=%J zKL7gMo)sZTX05sz80}Y&B%QBy1y08wP>&#zNz3(*(<80B|FK6OkHu{`)MCImsb9R0 zkH1s*F=pWIf@{4a5rdlRWlUf^aNZyKcHlvb1ndN(hp2U+PuNGjUx(yYx5tpO0%I8( z20U6u9o7hK>1xKehrr8rz)#XMeY;Hz%zw#Pz^uA!u6+MgW~CgiFQQHH-)$XwbwgkL zOm^mU`1lZi(bvl}bn5uwi~Q*C3N<%t66a9!l~TVa$tpLL-;ZCSJ>TQQ4DV z@DDy!x=#9UK|Ur&ku!fl1bA%sfJn1y%~3%Z~m`rcpa!S{ahy@w;;{c-b_ z37fUOVW>@c*T0u5Z=G^@8Z%MS@=o$#9Yg`L-cfb-c{i)p)Pnk;@zZB zdKgxcN|~WTsE1pLpqpgH-!1Cj7dH6d@)k7=z*@``=D96>I^-ifd8bhoopQTV4}>E6QFWoIMUFY13zzkn3t2d#Awjzu6w;5qLg;y+`^wrr2MhuLeOb%E)W# z?QPc}e-TdIGk+ZNv($)y$vgzVy^g$J>AI*V`@T1d4Ul^ep(B@eb`sZ(P771*uLAu; zQakr%=>g%pJzshv6TALNQ#@gp-xG2{HyFQyZm`F|i^_KCsiUpgyP+4nEN(Rywowb^ zmb4MyKxHh9l|wjaR(c@$2JVSk9W^WAtV+8`cZkm;;e8Id*!yP!FEVh) zamjlHd&`&%iJytH`i*#VHF1PphrI+>-(xELKJN^F9p(QDc)bv9LwN_Tw5^vxx~|4| z7jn-hKHJw&H)5qNJ?;IFx?R1xc0!~(N}kNQt*@IhccjhvjW%~~4RZXTtQ;d!Tg$X= zInUH7!)~5Yg0^ebs{PJ#BPDN{S4ZV`*na-zGsK3QWTJ;X`iiq|5pKlY_jxL@ngQ{IeSLU7-Qef=HM zo7c;nEp+s1VUOCg(ZgxX)A%dZt0CZBvP)}d`!8&tx#ZU_jn@)z(AY(O6i5BwUl!mS zyI>WA_G`&qV~dQeBIMy*tUXrbHF1wk@ni5L#aOP-=U4-b;0YK=Ru|ZVA@tZ<{L&wE zY{GK~+XDN0h&$t2Pje7=e@5_qwXA^7fIY`m#VUCHUZl3_H46TP)xeqa$IxgH#OwKE z{2|UC)DQGbRsjz6%rin6^j~NE1piL+J}9B*gu2ny2YS>*Pg@gU`S|etCgk8oQefhS zgn|~lffj!eD8Ty7=}n&p-?hZ1wu^e4mg3L`xwq0&QdhmsHFF zI;AW0fyPQAro;p8?8BpWqJMjb_w3)^_Z^^r&As{;-{ZZsNB^?ikLzDV?KoE1Bb0sb zBfyh=3g2Hx^iKBgF|Skh(5pCIo#@%@2-3lKq)`K4M^o?QXD_ceB9PY>SU!{j?W@v$ zA>pfeSp7^%Ii!AWDfYX(Mnj3SNI>v@AdlalaSKeR2nWxwG3vos( zX~vyoI0Jw|Uo?gN&=2uhw68;y&FjHo-ZvQuBc%@aigBMYwUxdODM1x)f-e4p!FeiKvF3$XI;&ndcQMzounOpXABHEb4L9JqmS4qV6M(o)kYPEhs=y1FHe$8ghahVcpyv>yu;4u$CuJ(%AF4e`9;Oh#?4} zE#c2##Lj3QJ>&2wCO1JoApQ*51Iu^@khymv`!yL)<*j1R43s_Vj1@>Y5!@QE_UkBN6mTyttaEUb^i3gD(ray>j4t;nQ?Nw4a(zy zw-YrMNSVJ#3*((Su3YR=fU*&t>bP=GNYuHU+#gj5>6q-u39T*2NbXquT~7GWqH}CH zftHThgfiU0*Cfr?0e3RrvkQ5%fQ>6RL%z3yul@Btk@umz`}69_-wqkeO#+|CQVJx zIHLSv=(nLV>Tki5THqY`CBjRR;iIiJjz?M&Y`1YZf#ULBh+19CJyps(t>H|}MU!xA z3r^qhbWbktB|5gDhi&Hu;V*Y{hmUJq-s9sEFO;{~8TspsGsJ&i%wLCr?pY!8J9-|n zQJm;~QkEfkqE$NAfd1U8bn_I2Sa9J6clZZk1%Y^QtHLFt+#lrV1|NR8|F%%0H*P!X zg)!C@(cUZZ{c5X>`bV9I_ranmAZJ;8{D}tGI6>4L2mU3$wJh0Bi169n~r&Tk;CUi?U7)k?&FZEgiV@U#<+|rtc`ud8oyN zne#SQG1&RC-;(C!qw6BkY{8$w*0vDbdtdzjh#d*U)X?hSjx%rUJd2+YN zV*1J$yV8EX)Lf)@5!%m^Z#RIZZ4OQFR@f&>>Xk^vP2(JSxPzzFK2}mMMCwi_755U^ zC6Zc!)HWxz4XFbp^<<>(a#DHIMsGS`KrF69|6^>^L)ZC~^o=RVigS4&o6F*6 zb8GvR9B+7@3fb7&JChQh{gO9dV7)}IbX>+0c4*ul@i!`zZD;1!X2Ej4H00IeTQ^hhMN(LHsA*vv2mRN=2=meN7@g zjBgiG&a%(9DiFmV#Hb;@)A>zyOmNq>Uq({)c|vg|z38x+UD-1+pFGFAxPgNQ-_I2; z_+c}eASWcbEIC6y_Xvc7gW{=$_%_zDi}C zV%uKcsik&tzImDaqZ_IF%I$o;wsWcVz&PrP;lc!gPCm*?CI4b64Aobu5((rU;U^Y6}c`8 zB{v+bq;L$_4@8#C_&U zr6*%1O{GlcuR)s3y6K2p#Z9u+>P1K!J$sURL>21OKbo@SoG{mWvysa)y*l>-C-)7fZcD9Qv(>pdJ5`3i1%YiX#lrXYAm54 z7fW>R7)ax*EK9k`A1*zWmT3P(=l>WhtK+rI?^&zY*NIv~oDz?)miZUS z{n$z4-6+azk+gRbHF`R^x5r`Tcb5{xOmo8Jl(->Y!u&=`tcsV&XmLuAdqR!5T1qTU zl-TH$I16z>9HF)9(zrY#!t@k5gYrjMzRcZ?+|Tjch3AEMw&8gro;&fp49^{S&cky% zo)6-=4bNM>S(w$i+m|dhju+|g1704U8<4*X&-c8ANEwU~NNM_Q3 zF0{HbH(6d^au6#7k$KVJnG;A+#+}sJnOYCQ6J`GzBkKc{PGV_%e-Qb~d>y|$13k+& za8kwV!|%`l7ISc89dl6fUerXiqAxR%_e~;iG4h^7UPdDCokU(e^1{gLnaKNRBCig4 zIBn+hCi0pSd3PYM7J0oAd4Emh-HE*GV1t!G>(T}TrupYY3-NHDxCJANJn79c^41q` zSIb*}yv>ofBD`HHZ#;81OWuyb+j(fQOTaWSaaD5eJxy{dFm8g7Mi=a7ay6S=&A3~1 zFL`qxY7UjOSFABUchFaa&~`T4g-;7{ z-_o8$-L7ju z_lxnIh^~1Q<;T2EYF;I+;hqhrwYyOB#g6qUJ;CS!#*x?4^NZ&%sJYtkdm)J8FT`qh zsEiE1W5v+#K>tJHHgcIqWNvTAyvErIryCSc0N}0{wXm&<35@@eT;AmLaR>gWzn(N;1hSuBB9?(`oAB#9T*HgS1M3};G_Y7;nZecq zj$w=utn*O*VpxF+>%FSnh4^~~dY3qh{z=pKW!0+719ey}4o2*2zFLJSdIMZ>;sZdb z3Gd){nCaWHdSV5J(~P*qQ!2|;+(~< z;2kzRhbVT!zL1bZNT{c^o_G(tTq*m1M@GX!pIfbwwQQNqy#PJ;7eV*MsCh6`p`TFy z*Ma`v6-I9yRzK0xUCIR(@2dA=eU!}Ki2?`R(WOx3nuGKhb4NY{HMzS}!rn=%l6pAX zL@Oj1f)#SR>|d@y8_$DQMj{AzQ-3YAR@-+bS`HIJ7WF?%^Bjaw*Y62|YzySknLLe@ zpU9KF<22bPOWZx8`u#>~e4Z$Ezd+``2_av{9Zd8l=JU?9F&FfuK})vU7bWUe39LqG zy%$=qwcq-|`W~rYmZ*P*)DN@1y+-Ok^Mm!hQopeC{;`=02{)sjmRj8IgA>Il0sIk# zw+?CdNg5)qqMrP6^pHRHI^Gc@h*B7bz=QK8?X88Fh1gs9#3*$F=AM6KlatHfjkpB& z-TCo8DC)yalCW-3qOZOaAn>@{0IB+wGc^k*x>ox27)S4Kikkc;<+;N?i!kI{5B?4o zcI^j13URvEm<-4$iF~oMQoco0;W~*Rn=IHeXAC}&4tPRVL;GZ6oZSd|Uq>x1Yk3&K z{1%7tW}+s~o^;e+;?zDDYwRT4W8kYwmV4se{M(@e0F7E9ScMpN+%J!KAL`A%ZPCgq zm)wIcn09;X0Ike&S{YQ~S;=3tqVMevfuN(J!L5{=4p6sD>Moa)y+KffQ#$d}_cJ`P zcd)+U+@y+m|JpXaJI48^pI6|oBZqsYV8z5=a?5x2Bo?9fgWN|)T1lXPNJT4K9#C$c z`vG@~gs-!q3(%f7vvZ5OCm{7xq3J{lFj9xHjpR*^Mmmk!2vB%We=a-(Yn#f2sj%JMug*-ku=9okJs`?%VE*|m;Dtm=bGU$JfG)GapaT4J@YNb8X=7{zB&?n#7JA`q@5sXVozp1 z@1z~8_ZvVlZ+gp>{Xgp7A<#J8!0Qay6VS*2rc-fVKw^Ei(qo%S-?L$jwm*;i2{0$@ zS-QJu{+@e5!MzXkFQUa1xtqV${sQyy2+&iYA$4kT4Cbn8Sevcf2}En~r*z77?nHv$ zDu;Cw`^%N22=G>;4QPo3{+g;@d*OrI8#Pss6c5*$@FY4>=MIG%0T1gYyQLGXS~W_~ zYiK8vURvO&Z_Mk){VusZ#s`7sZ{L8Qz!6aw_)Nk_=7Z!O4%F9x{o_mxwDw$Gy!sM%-k}*&Z`|peptx?kh;vzoh_~$p!tNb-KBrNJa{8)ZffG z5hFrY=c(5~S3Bn@z1!mWrO18xfN%>X-rJl=zZD~5@NH(|E`u&|8$lDOScWp(*_ncm z#B;cR8_0`28F*gPMK3YN8ONsNru_mMS>I)_vUE_BS~4`k-p1Lyh>>{--coQofdP4b zQ2f+@4G5f1HSDW8!^15F&r;sgIGTxvE;GrC*lV2YTm{HQsxMY7h4zimf?;q%q~2~q zy4ky!BjPql3Zjyg)9U%a^;|%b-b#8-_m=psJ5v9!UtUbvFE4tpR%n{A{VO1D)AFX?2-~$)D(JMORrlWeU6`}UU~lwVm^iPOB~8CiJ$%xJg?Fb zJDPsP0d_|`&66FxLHza~!re&Y$9Ka<5WbKXq=ftdZ%oPEV0mw)ERPf3=vW20g)jLO zhf}8rr)GBIlz11C>9yEgC? z8^rzl&OF@oQlKhAsg}4kJoV`Q4e%TXJd0F6oEa!uq#AmwO6={Awu)RvDe~}s3h72$ z>?sWyzncbp!b~T`L^{^DIPb%132c#?9p5M$aRYx8avkGi^Aa47@Esk|q(Nb3MZ6v;#l!5`+ zYls|8TLU@xEd({8VW8cZm8E~tDhDS~WJhMO9V>-i1N{Ebq+_s$w@#gh*`hJAZsTk` z8~w|j(=u`fen4_ZIFR%?MhD8q8gbLX5V`3f6XkulT{|s;ojpY36d=#Jkswab$DH40 zpyEaH0*INV+$C{NgG^%Nl>jqXOcITr)O#6D)33^W9J>24 zaKzPRC;3dzEKbPA<*(bGQV9IZ1{^DKIV~ z;8zj8VFiL!W+U|_@H`*%M&k6Ml<3K?*McVMS=>=UZZN8e7)Xst^{z@&>Go8?h9JOD z0r|Klc7T9v*+2j%G?ru=T)u?CfyA4FEIrvOlAh3eGIn>{7{X4|nVqhOmYH^&nUD;O zN$7{uG`k_)HtbHelg@5;({yLr{g^geHJ!GeN$r$2-6lc%JLlf_B%6=jP5NivSibMx zd+xdCo_p@O=YBqcJ==7r zpS%~7Z?8nE^@OYXvy&I5B3u_$xY6>dDbi+($j+oW_0S8q7kN+V*!T|6S|NIUnBm3# zx$5E+r^9Isrs!nx4{UdU!trgzcgo`kU-f6pWA%Pdj1#G3ix&E5w6_cEW<}h1j6K!M zmOujOT=zYN{lu+89mDndNSACun>h$O17ir>Yv)v?sv!hL(op#cXNw2QYC|5RB;ui}}iOT{0Qf;e+8))$L)bQ9zD@jWO5 z-QEMv;S9wCT%xUoIb5P8Tq1n;4G=3~hZpOX<83a^i-LdHtwHkg%!&_zV(IX588}k> z?N#Y*eCCy*X=QU}3JM_%`0gCF?H{83@Hu@&H>`bXMbDy43t6j=!S|#ujPp1)?*F?C zn}qPz0|VRgp1(!>DK!Eh&ExsTvNeEgpwTQ@(Q1CJ5ST!X5l&yd5Bp%CNyr+e)18DZ zSXaNILAOhqz1Lr~4a+kk+zw0n1~60u?)PbF9CjAiX)Q>7&6Dz6&+U4XzHwvy_}91w znuAZHm0W=Ql5H{%b2P9r>Uh-7<)GgGL|M7EFI$arZ3&KzdHB8|!n~47h*=cKzQ$gK zv&H;PgfdLDKk&&iOn0b~qL)!$v3*UD6?2|ORjirHLc`uMlCytPayFx!r1`0>(ny-t z);>r2@(O)Pn?@si^UJ$eFwT03Z^|J(xEwPIv@Z4p=3(islncoJ1pH(PZov<>GB7+w zV>8SUpkye^n|g1tqcPoYv=c?hy#uf`pSvg&!1zM9bESpc_?t*yh4%(TXs^;%&;@@W z7|_!ST5b=bCF31)SXc+F68p#dSgUjdHwHwomvx!K;QdrfpIVez>Xg4?W=Q8 z?NL*Sc|C4p5o%)>rP%9x#&-@idK=ASgFxo9}jf3uHJdY#gGT>=I&wp3(HPBG{ z-Xz9pWP#EdJ~8FAZyL8Oc^BO4WcBvIfZL8G!H!Zk{jka64J0AhdQk zh&Hkpw`IsB4@}lZuz-yE!aWPcUow|%?5+D4_R-s7;`Fd2J$C{+n@;8jpgHJ!StKtH z;=XV?1@=kYwM*-TiC_e>22PD%oPxCDt~1h>UgFiHM_|VQPD*)k^Pm@}*w12(_a>TA zB&ta-PU5&VBoKSo3v*s9vW^ix!hQ#|TW#@`5N;DZJ&#TdVwI3W9_Nr{2!XV@IX!h% zP94SXseApP?Wqixi%)a<7fb1J64{~jyNJJ_;8o8Gi|RbWBItQ56bHk&--EanqBD#E z4> zVZ_rada3rk3`dx7f=^4pBU%E^1S5bimjKoGkpw*Pze)hzzE2WxSK*wNfTuAFLlW@B z_|uSpGi4G$A&+y2l7JPumt9_b>Z+U|0pqF-R8jkNq=B)%Si*rDI2~$93ZBxn^Z9E? z!^WVDxOEyKY3OmeR+5HentSEaaCBx$Ee$=$?=bW2a`DTUuRw#WqmxKNZsZlCP7-Zlmo zd#iY#&X{lCxdX*1U!Lv71B-fnKY&a&;O-5=TdDD4T9Nl_65hiaZ)9?=#v3UJjdu>_ z(;}d^5BlcYa2Mgs`~=(({7=xXf6z;sY5+3b3rRa)2!Qot*zdlekd2@O$TK!sP4rJD zC{Ki{QXEF8D#cucsZvxghpxklfd`luJPI1?s?TjIPAv`ij`}>0W`!4FH6i2>0`8DE zQW+AF3h4I*I6Xx@63*%uL_6`Vh08~`iOffc%5m{zKkV(`3IL zU33h4Fnr;n1`a3 zRkG3Me&-Tosbc*&c6ci3MO}Q3WweT*E||Qjv`P=GcchDMr-YXidmGArbT}S z=_On5L*vV)M4_em9Wi!plUNYKo3h|^ydN%EnQJEZOi9!c?FCTtxo6;m^`-Pc&^vt? zZ&>dOV&*2;K6M5@tdUYp&DjMC0%-4K-Rm16u^WU|h+(yqaj!NEUdlDA~OCZ zl2*tJg zh;rl89hg%fxuh8u@C38@%=?Gc?gX+Wucoi~cVul|4eg$Eqmkj0_&tIjpW39p4)4zu z#?GKTh3xb;jLTn{-l=w+{^2_)0dCAhnSHD;N#8$5YpHPikd`=i1f1)FrE!^8x9(Z~ z{bhdWqxuzo9=qJC`wnm#BbF_Ie+03MLRrkkc`45z<|Kd(^LOwy5X|_UyylA$3-J=P zW4#t@Pxbf;LPzm+lx|iGXrpoPKfq2_Um_Tlzzg|sN^1fC=XuZnW%`;9<%*Dc(K~ts2V{hFJ__df-{E172$DxnL4Nkv%WdeMAwID$$ z?K5}{ygun6X+blU;ZcbAU=}KZ$yMh3vXf(&w9@d0Vgx?j-LC ztp?5L830)is&B+XVRju%& z9GA3YnbV`h=U`;|78*rC(pxaUn*{EyaPx4tz#WE5-w-?qm*TT<{cvM&*TA*lHo|R$ z`|oh~z`d2{KkgGI-akxq`d)yx_3$aiG3r}<7qBzvX#q`#vEgkZju{5*zr;DG3dsC7 z@p~G5#%qwzF_gRtJQxeEn7)P6SA{-0eGAV*-G@>)h_9k|!#+9G9qm8z;WpEDN{P8u zjQXc(nnsZ|kQTh;tH_)R-OK7ujM$%?PTZG!vNQ*!Fp!NBybGz$%y{|2Rd?I%hXf=$n62SO^DaH`-}!lk~);S#|G)tUw+` z!>L9`l7ge7_{zkU7jzAHCFly$xsi6f(LNxWS@RG#Q2Jk>_oOeF%`XI|=}rQA$9b8l zGnhPHPxXTLm&DRb5@(A31ao%Sy8xTZTX+@$qrrt}7o?48m5cYFptNn6MSq3cYaj31 z!CnpY#XN(JJutLi=~iG+RMSfDj>2K+i&5Ab)T-_Zwu}kVxbM8K_^9{_>FVPesp5Jf zZSbeMoLwkQjSn;U#DA{a%f+Cgn#Tngm4mjI!2?iBv=H{+)0$8}!ciXb|90h)e&!>8 zUFPLeA;@|O?QTT-7Ur0jU^V8KOI=J1Q^xzZ%+7NoQ&q$0C z7B&}IPM$|Co)mAQ)k2a^`6uXx0hS=D85$$qd{5yF+7|a9if@G{5j+Y$K@N$3yuvdd zbZz0co0ylhHdBS%z;#;B1~jA-C8U1vK_z2U5|$e3y=ThTM_u`%8HGnnc&^8L!VC_1 zi0>r{F4g5b8&vK4R=)~qntD-59?!gz43b3+srdi2todJaTUO0`ZCP*s@~V=TT2>8c z+Bg1}_#Py;64X*awHno4-hB#jgKpeX#Njp|9rvZMoWAW;fORW&E5C~yaH&4Q%R9p| zP(iu`D-<-cwseXUI=p69_)z)1TJz}?<9__Y`u176aSOL8qvdZ#zx&b+D^N z@>=*ATf177Qhk(T%^aLi8t2Vv)!YMS)OZCCdffB& z1gD{%;8$us3+GrQa8YfX!Y_<3rMF|>^clQk-4WKWi8rF1R{BB(Ifh9O3V-YX&UHjs z*RP#?oKARD^H&9{tHluZ*U~dQ%dHR|4nHR5G`-J9mZiUU_1ZtX)AiRk+_mPOCV#UV zu&(jYNA7cdhuiLGU$u2*Q?x%8HxdJbNgea?BdK)8%pT1-kd~bvIyOA=3CBOn4Ti!U zon70uckA$v?%26&_nye!9tUpU{@(i!9DLwGgGjJd2>Y6$Z89*NnDx|(5(TR0 zLS*e+Ykqxeo5YK>O;e_#xdB6nSkjbnV<;Ijq>;;+xmqEmWr0X3@D}4&dPC-iGA4)F zxs*SjN!rpL$pS-n#zx9~)|Nenl{GV#AwwxMc0_hW?Pwd}ld>zHiP=drBg056+l1`f zXGe4PL%`R!J(|Lc>HB55#Z`iOo0Uhv-EnPK|+LU{`r zmP+P?>vFMI_HmN%pb(0c?T+WEu z{+&i+&>=Llt%AyC4<;?;>x>ln5zHljqROKT0Xg--!@hN#&oS)sZ}XH$l4_&dxrIKvVYF`#2Igrk$1Hiu~)%?C#(QCnjYcld+MM)Y`Z# z&7cvDbFjQq4kj5$V^i9^ISuU{9WWT36O*?6af1~~#_kLFH$CL!1F0*E+3auG_>fMM zMZ1$xr7&Y=obc%wNLnH}kVoy1GEHU@rW2E9z-G|pC*sSfCNJo9Y3~a-`CJv#a^09# zis@2al5I-Josxavx@Q&Sk4(#mg*w!g6rG1g-plPAM?9EvDY}U*{!sJjg2R`WT3pC8e)6vs? ze`n8Z6eXwu!Ujh0;97?(Rjtk)qQ*Mo2XD7`}1hQzgErx_)sC9}guDw)X-H^mYI650kV zSk-8)0>&Li4(5aoOIk9Wgu#><0R6iS`Jd z#&DJusMu{fB2`vZ2~xM^(ts|{PQr%#gdqXO8K_!C*?KAG@`^+u0&k_>y9@?dIH|d|EF*_*u#IXz1WqT=E6GeW zZL~QxfXIi5)q;n9XeNt8`M_ILM3)78Ie{NRt=hcHp-nXDnPoh`0|x2b@(=Y z-j-&1mrcZ(azQ_4e#U3!526y#v?$j2LLJRW`)aGE>l1aW;(@O0MoeO)2T2N+*2? zQ-y2^Bff@kTuauGq)gNmvDn2RZV{eE8&rQLuING_M88r0$Dz7h9_kF++UVCJ8m&gI zH{92RH*C0R3vdkhqMoqWNH5jj*Z#TU!&uwIjf$eeGbZLD_gc)osmwj1g7V9+q zRte8PsposR8jJg2B8D*i8tzZ%-Se+Qj9I}~IPf*3W%0ljfbevBu{41PNhp>3xC&PE zr;b=qOu~dgXrnzUZBP0lP6I(HMQslZA+$dPapTRAO`;jfLIsVBT159R(Ke14wnbV2 zbs_T^G7PD)&FYKR0aCRy)uJJIcEZlKL2POzy*VnGniuKxS~uV!C#Wopnl7miC#n_} zi3xI*eJ8sk_q)o-0Vzw}M6Fqw&ew?5(&y4a0;q`Q4wZ0&deZ*+3^)@Tq#_HJ>+%2r z>(Dl1W@-kQAd_fjNFo;SKU2nBUHT7jWbjxnFfuPPvaB%C6TCafu=IR_Fz=%4`;y(IT!x?D_;ff26} zM<*Q}PNwr|g}_D4vfCZr6_KoKk<~1p}S1X-9_^$T$U8=H&Q}%LYSU~EtCT{qFEYUk(HFjXgAIszoXLK zu>$&T9s^_kOB-{f?i0yjr^ipBnb$io`(Y82;l^TP**Vf!TFeQK+iTpw;E^K8e0Gqs zg{Xv|v

JNxMmu$2W`pxe-cO9>_+61tlmP8fL_5TGuidD=41AW10gk+{It_A9|KR z>%sCL^5E`N1}!unZYQg9F?p|qeM`+?l~xD!wW|}(#9gDcjx(3dgJ#-jwg>a}U^8q_ zBh`G=NavfgF@Jy3w3;p0?S9O>U`m$$U=vu)`*!Z>YEC8l=?DGRTq@c+u4dVoB*AeX zk~IhB5SbT;SS}8MJVE1(L#(rMhtR7hV@ajp+T;u?3FsIyV3_J@q8i!G7 zW7>lB=hc`sq1=z-9sT5;6y&&~`#ZbSo42T$S7#Gm(ApB%*s?*c?!jPZd(>9p{?-8YPBdAA zFo*4Ezi6_JVOumMY4JBJnlOK2G!10(P5t>~D(+9l1^Wi0)}UyLk7TTov~um7Xv!I> zC>+dtWZKU55{>U#dqPd|v(X>aY`{-I_B0 zLcBZab)8gj`$H9JS1c%lr&kA_-m$MqXuagrX~lMmKzi+p2IY7ESGjLOtb-o;nhsa>&M`Q86c{^Ta`o0s4J1%Bbfb(C+EALT))G+}Ef?X#)KEgL6yaZ3_=;ze`OfXM{p#wfK JGs4YJ{14a)pauW{ From f1fdadda36f73c9a4a96f92deb3062528cd12acc Mon Sep 17 00:00:00 2001 From: Thomas Huth Date: Fri, 21 Jun 2024 09:40:11 +0200 Subject: [PATCH 05/23] pc-bios/s390-ccw: Merge netboot.mak into the main Makefile Now that the netboot code has been merged into the main s390-ccw.img, it also does not make sense to keep the build rules in a separate file. Thus let's merge netboot.mak into the main Makefile. Message-Id: <20240621082422.136217-7-thuth@redhat.com> Signed-off-by: Thomas Huth --- pc-bios/s390-ccw/Makefile | 47 +++++++++++++++++++++++++++++++++++- pc-bios/s390-ccw/netboot.mak | 45 ---------------------------------- 2 files changed, 46 insertions(+), 46 deletions(-) delete mode 100644 pc-bios/s390-ccw/netboot.mak diff --git a/pc-bios/s390-ccw/Makefile b/pc-bios/s390-ccw/Makefile index cf6859823a..27cbb354af 100644 --- a/pc-bios/s390-ccw/Makefile +++ b/pc-bios/s390-ccw/Makefile @@ -61,7 +61,52 @@ config-cc.mak: Makefile $(call cc-option,-march=z900,-march=z10)) 3> config-cc.mak -include config-cc.mak -include $(SRC_PATH)/netboot.mak +# libc files: + +LIBC_CFLAGS = $(EXTRA_CFLAGS) $(CFLAGS) $(LIBC_INC) $(LIBNET_INC) \ + -MMD -MP -MT $@ -MF $(@:%.o=%.d) + +CTYPE_OBJS = isdigit.o isxdigit.o toupper.o +%.o : $(SLOF_DIR)/lib/libc/ctype/%.c + $(call quiet-command,$(CC) $(LIBC_CFLAGS) -c -o $@ $<,Compiling) + +STRING_OBJS = strcat.o strchr.o strrchr.o strcpy.o strlen.o strncpy.o \ + strcmp.o strncmp.o strcasecmp.o strncasecmp.o strstr.o \ + memset.o memcpy.o memmove.o memcmp.o +%.o : $(SLOF_DIR)/lib/libc/string/%.c + $(call quiet-command,$(CC) $(LIBC_CFLAGS) -c -o $@ $<,Compiling) + +STDLIB_OBJS = atoi.o atol.o strtoul.o strtol.o rand.o malloc.o free.o +%.o : $(SLOF_DIR)/lib/libc/stdlib/%.c + $(call quiet-command,$(CC) $(LIBC_CFLAGS) -c -o $@ $<,Compiling) + +STDIO_OBJS = sprintf.o snprintf.o vfprintf.o vsnprintf.o vsprintf.o fprintf.o \ + printf.o putc.o puts.o putchar.o stdchnls.o fileno.o +%.o : $(SLOF_DIR)/lib/libc/stdio/%.c + $(call quiet-command,$(CC) $(LIBC_CFLAGS) -c -o $@ $<,Compiling) + +sbrk.o: $(SLOF_DIR)/slof/sbrk.c + $(call quiet-command,$(CC) $(LIBC_CFLAGS) -c -o $@ $<,Compiling) + +LIBCOBJS := $(STRING_OBJS) $(CTYPE_OBJS) $(STDLIB_OBJS) $(STDIO_OBJS) sbrk.o + +libc.a: $(LIBCOBJS) + $(call quiet-command,$(AR) -rc $@ $^,Creating static library) + +# libnet files: + +LIBNETOBJS := args.o dhcp.o dns.o icmpv6.o ipv6.o tcp.o udp.o bootp.o \ + dhcpv6.o ethernet.o ipv4.o ndp.o tftp.o pxelinux.o +LIBNETCFLAGS = $(EXTRA_CFLAGS) $(CFLAGS) $(LIBC_INC) $(LIBNET_INC) \ + -DDHCPARCH=0x1F -MMD -MP -MT $@ -MF $(@:%.o=%.d) + +%.o : $(SLOF_DIR)/lib/libnet/%.c + $(call quiet-command,$(CC) $(LIBNETCFLAGS) -c -o $@ $<,Compiling) + +libnet.a: $(LIBNETOBJS) + $(call quiet-command,$(AR) -rc $@ $^,Creating static library) + +# Main targets: build-all: s390-ccw.img diff --git a/pc-bios/s390-ccw/netboot.mak b/pc-bios/s390-ccw/netboot.mak deleted file mode 100644 index 0a24257ff4..0000000000 --- a/pc-bios/s390-ccw/netboot.mak +++ /dev/null @@ -1,45 +0,0 @@ - -# libc files: - -LIBC_CFLAGS = $(EXTRA_CFLAGS) $(CFLAGS) $(LIBC_INC) $(LIBNET_INC) \ - -MMD -MP -MT $@ -MF $(@:%.o=%.d) - -CTYPE_OBJS = isdigit.o isxdigit.o toupper.o -%.o : $(SLOF_DIR)/lib/libc/ctype/%.c - $(call quiet-command,$(CC) $(LIBC_CFLAGS) -c -o $@ $<,Compiling) - -STRING_OBJS = strcat.o strchr.o strrchr.o strcpy.o strlen.o strncpy.o \ - strcmp.o strncmp.o strcasecmp.o strncasecmp.o strstr.o \ - memset.o memcpy.o memmove.o memcmp.o -%.o : $(SLOF_DIR)/lib/libc/string/%.c - $(call quiet-command,$(CC) $(LIBC_CFLAGS) -c -o $@ $<,Compiling) - -STDLIB_OBJS = atoi.o atol.o strtoul.o strtol.o rand.o malloc.o free.o -%.o : $(SLOF_DIR)/lib/libc/stdlib/%.c - $(call quiet-command,$(CC) $(LIBC_CFLAGS) -c -o $@ $<,Compiling) - -STDIO_OBJS = sprintf.o snprintf.o vfprintf.o vsnprintf.o vsprintf.o fprintf.o \ - printf.o putc.o puts.o putchar.o stdchnls.o fileno.o -%.o : $(SLOF_DIR)/lib/libc/stdio/%.c - $(call quiet-command,$(CC) $(LIBC_CFLAGS) -c -o $@ $<,Compiling) - -sbrk.o: $(SLOF_DIR)/slof/sbrk.c - $(call quiet-command,$(CC) $(LIBC_CFLAGS) -c -o $@ $<,Compiling) - -LIBCOBJS := $(STRING_OBJS) $(CTYPE_OBJS) $(STDLIB_OBJS) $(STDIO_OBJS) sbrk.o - -libc.a: $(LIBCOBJS) - $(call quiet-command,$(AR) -rc $@ $^,Creating static library) - -# libnet files: - -LIBNETOBJS := args.o dhcp.o dns.o icmpv6.o ipv6.o tcp.o udp.o bootp.o \ - dhcpv6.o ethernet.o ipv4.o ndp.o tftp.o pxelinux.o -LIBNETCFLAGS = $(EXTRA_CFLAGS) $(CFLAGS) $(LIBC_INC) $(LIBNET_INC) \ - -DDHCPARCH=0x1F -MMD -MP -MT $@ -MF $(@:%.o=%.d) - -%.o : $(SLOF_DIR)/lib/libnet/%.c - $(call quiet-command,$(CC) $(LIBNETCFLAGS) -c -o $@ $<,Compiling) - -libnet.a: $(LIBNETOBJS) - $(call quiet-command,$(AR) -rc $@ $^,Creating static library) From ab2691b6c7ff360875e0af86ff463278f17786f5 Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:40 -0400 Subject: [PATCH 06/23] docs/system/s390x/bootdevices: Update the documentation about network booting Remove the information about the separate s390-netboot.img from the documentation. Co-authored by: Thomas Huth Signed-off-by: Jared Rossi Message-ID: <20241020012953.1380075-7-jrossi@linux.ibm.com> Signed-off-by: Thomas Huth --- docs/system/s390x/bootdevices.rst | 20 +++++++------------- 1 file changed, 7 insertions(+), 13 deletions(-) diff --git a/docs/system/s390x/bootdevices.rst b/docs/system/s390x/bootdevices.rst index 1a7a18b43b..c97efb8fc0 100644 --- a/docs/system/s390x/bootdevices.rst +++ b/docs/system/s390x/bootdevices.rst @@ -82,23 +82,17 @@ Note that ``0`` can be used to boot the default entry. Booting from a network device ----------------------------- -Beside the normal guest firmware (which is loaded from the file ``s390-ccw.img`` -in the data directory of QEMU, or via the ``-bios`` option), QEMU ships with -a small TFTP network bootloader firmware for virtio-net-ccw devices, too. This -firmware is loaded from a file called ``s390-netboot.img`` in the QEMU data -directory. In case you want to load it from a different filename instead, -you can specify it via the ``-global s390-ipl.netboot_fw=filename`` -command line option. - -The ``bootindex`` property is especially important for booting via the network. -If you don't specify the ``bootindex`` property here, the network bootloader -firmware code won't get loaded into the guest memory so that the network boot -will fail. For a successful network boot, try something like this:: +The firmware that ships with QEMU includes a small TFTP network bootloader +for virtio-net-ccw devices. The ``bootindex`` property is especially +important for booting via the network. If you don't specify the ``bootindex`` +property here, the network bootloader won't be taken into consideration and +the network boot will fail. For a successful network boot, try something +like this:: qemu-system-s390x -netdev user,id=n1,tftp=...,bootfile=... \ -device virtio-net-ccw,netdev=n1,bootindex=1 -The network bootloader firmware also has basic support for pxelinux.cfg-style +The network bootloader also has basic support for pxelinux.cfg-style configuration files. See the `PXELINUX Configuration page `__ for details how to set up the configuration file on your TFTP server. From bef2b8dd1a36fc79cabcda48e667f2cba476924c Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:41 -0400 Subject: [PATCH 07/23] pc-bios/s390-ccw: Remove panics from ISO IPL path Remove panic-on-error from IPL ISO El Torito specific functions so that error recovery may be possible in the future. Functions that would previously panic now provide a return code. Signed-off-by: Jared Rossi Reviewed-by: Thomas Huth Message-ID: <20241020012953.1380075-8-jrossi@linux.ibm.com> Signed-off-by: Thomas Huth --- pc-bios/s390-ccw/bootmap.c | 87 ++++++++++++++++++++++++------------- pc-bios/s390-ccw/bootmap.h | 15 +++---- pc-bios/s390-ccw/s390-ccw.h | 1 + 3 files changed, 65 insertions(+), 38 deletions(-) diff --git a/pc-bios/s390-ccw/bootmap.c b/pc-bios/s390-ccw/bootmap.c index 414c3f1b47..af73254acb 100644 --- a/pc-bios/s390-ccw/bootmap.c +++ b/pc-bios/s390-ccw/bootmap.c @@ -678,8 +678,10 @@ static bool is_iso_bc_entry_compatible(IsoBcSection *s) if (s->unused || !s->sector_count) { return false; } - read_iso_sector(bswap32(s->load_rba), magic_sec, - "Failed to read image sector 0"); + if (virtio_read(bswap32(s->load_rba), magic_sec)) { + puts("Failed to read image sector 0"); + return false; + } /* Checking bytes 8 - 32 for S390 Linux magic */ return !memcmp(magic_sec + 8, linux_s390_magic, 24); @@ -692,28 +694,35 @@ static uint32_t sec_offset[ISO9660_MAX_DIR_DEPTH]; /* Remained directory space in bytes */ static uint32_t dir_rem[ISO9660_MAX_DIR_DEPTH]; -static inline uint32_t iso_get_file_size(uint32_t load_rba) +static inline long iso_get_file_size(uint32_t load_rba) { IsoVolDesc *vd = (IsoVolDesc *)sec; IsoDirHdr *cur_record = &vd->vd.primary.rootdir; uint8_t *temp = sec + ISO_SECTOR_SIZE; int level = 0; - read_iso_sector(ISO_PRIMARY_VD_SECTOR, sec, - "Failed to read ISO primary descriptor"); + if (virtio_read(ISO_PRIMARY_VD_SECTOR, sec)) { + puts("Failed to read ISO primary descriptor"); + return -EIO; + } + sec_loc[0] = iso_733_to_u32(cur_record->ext_loc); dir_rem[0] = 0; sec_offset[0] = 0; while (level >= 0) { - IPL_assert(sec_offset[level] <= ISO_SECTOR_SIZE, - "Directory tree structure violation"); + if (sec_offset[level] > ISO_SECTOR_SIZE) { + puts("Directory tree structure violation"); + return -EIO; + } cur_record = (IsoDirHdr *)(temp + sec_offset[level]); if (sec_offset[level] == 0) { - read_iso_sector(sec_loc[level], temp, - "Failed to read ISO directory"); + if (virtio_read(sec_loc[level], temp)) { + puts("Failed to read ISO directory"); + return -EIO; + } if (dir_rem[level] == 0) { /* Skip self and parent records */ dir_rem[level] = iso_733_to_u32(cur_record->data_len) - @@ -758,8 +767,10 @@ static inline uint32_t iso_get_file_size(uint32_t load_rba) if (dir_rem[level] == 0) { /* Nothing remaining */ level--; - read_iso_sector(sec_loc[level], temp, - "Failed to read ISO directory"); + if (virtio_read(sec_loc[level], temp)) { + puts("Failed to read ISO directory"); + return -EIO; + } } } @@ -774,19 +785,24 @@ static void load_iso_bc_entry(IsoBcSection *load) * is padded and ISO_SECTOR_SIZE bytes aligned */ uint32_t blks_to_load = bswap16(s.sector_count) >> ET_SECTOR_SHIFT; - uint32_t real_size = iso_get_file_size(bswap32(s.load_rba)); + long real_size = iso_get_file_size(bswap32(s.load_rba)); - if (real_size) { + if (real_size > 0) { /* Round up blocks to load */ blks_to_load = (real_size + ISO_SECTOR_SIZE - 1) / ISO_SECTOR_SIZE; puts("ISO boot image size verified"); } else { puts("ISO boot image size could not be verified"); + if (real_size < 0) { + return; + } } - read_iso_boot_image(bswap32(s.load_rba), + if (read_iso_boot_image(bswap32(s.load_rba), (void *)((uint64_t)bswap16(s.load_segment)), - blks_to_load); + blks_to_load)) { + return; + } jump_to_low_kernel(); } @@ -809,17 +825,18 @@ static uint32_t find_iso_bc(void) return bswap32(et->bc_offset); } } - read_iso_sector(block_num++, sec, - "Failed to read ISO volume descriptor"); + if (virtio_read(block_num++, sec)) { + puts("Failed to read ISO volume descriptor"); + return 0; + } } return 0; } -static IsoBcSection *find_iso_bc_entry(void) +static IsoBcSection *find_iso_bc_entry(uint32_t offset) { IsoBcEntry *e = (IsoBcEntry *)sec; - uint32_t offset = find_iso_bc(); int i; unsigned int loadparm = get_loadparm_index(); @@ -827,11 +844,13 @@ static IsoBcSection *find_iso_bc_entry(void) return NULL; } - read_iso_sector(offset, sec, "Failed to read El Torito boot catalog"); + if (virtio_read(offset, sec)) { + puts("Failed to read El Torito boot catalog"); + return NULL; + } if (!is_iso_bc_valid(e)) { /* The validation entry is mandatory */ - panic("No valid boot catalog found!\n"); return NULL; } @@ -851,19 +870,25 @@ static IsoBcSection *find_iso_bc_entry(void) } } - panic("No suitable boot entry found on ISO-9660 media!\n"); - return NULL; } -static void ipl_iso_el_torito(void) +static int ipl_iso_el_torito(void) { - IsoBcSection *s = find_iso_bc_entry(); + uint32_t offset = find_iso_bc(); + if (!offset) { + return 0; + } + + IsoBcSection *s = find_iso_bc_entry(offset); if (s) { - load_iso_bc_entry(s); - /* no return */ + load_iso_bc_entry(s); /* only return in error */ + return -1; } + + puts("No suitable boot entry found on ISO-9660 media!"); + return -EIO; } /** @@ -893,7 +918,9 @@ static void zipl_load_vblk(void) if (blksize != VIRTIO_ISO_BLOCK_SIZE) { virtio_assume_iso9660(); } - ipl_iso_el_torito(); + if (ipl_iso_el_torito()) { + return; + } } if (blksize != VIRTIO_DASD_DEFAULT_BLOCK_SIZE) { @@ -907,7 +934,9 @@ static void zipl_load_vscsi(void) { if (virtio_get_block_size() == VIRTIO_ISO_BLOCK_SIZE) { /* Is it an ISO image in non-CD drive? */ - ipl_iso_el_torito(); + if (ipl_iso_el_torito()) { + return; + } } puts("Using guessed DASD geometry."); diff --git a/pc-bios/s390-ccw/bootmap.h b/pc-bios/s390-ccw/bootmap.h index 4a7d8a91f1..3cb573b86b 100644 --- a/pc-bios/s390-ccw/bootmap.h +++ b/pc-bios/s390-ccw/bootmap.h @@ -385,17 +385,14 @@ static inline uint32_t iso_733_to_u32(uint64_t x) #define ISO_PRIMARY_VD_SECTOR 16 -static inline void read_iso_sector(uint32_t block_offset, void *buf, - const char *errmsg) -{ - IPL_assert(virtio_read_many(block_offset, buf, 1) == 0, errmsg); -} - -static inline void read_iso_boot_image(uint32_t block_offset, void *load_addr, +static inline int read_iso_boot_image(uint32_t block_offset, void *load_addr, uint32_t blks_to_load) { - IPL_assert(virtio_read_many(block_offset, load_addr, blks_to_load) == 0, - "Failed to read boot image!"); + if (virtio_read_many(block_offset, load_addr, blks_to_load)) { + puts("Failed to read boot image!"); + return -1; + } + return 0; } #define ISO9660_MAX_DIR_DEPTH 8 diff --git a/pc-bios/s390-ccw/s390-ccw.h b/pc-bios/s390-ccw/s390-ccw.h index 6abb34e563..3e844abd71 100644 --- a/pc-bios/s390-ccw/s390-ccw.h +++ b/pc-bios/s390-ccw/s390-ccw.h @@ -30,6 +30,7 @@ typedef unsigned long long u64; #define EIO 1 #define EBUSY 2 #define ENODEV 3 +#define EINVAL 4 #ifndef MIN #define MIN(a, b) (((a) < (b)) ? (a) : (b)) From 806315279d5c629e1cc3a945bcfba3fe5482d84b Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:42 -0400 Subject: [PATCH 08/23] pc-bios/s390-ccw: Remove panics from ECKD IPL path Remove panic-on-error from ECKD block device IPL specific functions so that error recovery may be possible in the future. Functions that would previously panic now provide a return code. Signed-off-by: Jared Rossi Reviewed-by: Thomas Huth Message-ID: <20241020012953.1380075-9-jrossi@linux.ibm.com> Signed-off-by: Thomas Huth --- pc-bios/s390-ccw/bootmap.c | 187 +++++++++++++++++++++++++------------ pc-bios/s390-ccw/bootmap.h | 1 + 2 files changed, 130 insertions(+), 58 deletions(-) diff --git a/pc-bios/s390-ccw/bootmap.c b/pc-bios/s390-ccw/bootmap.c index af73254acb..b9596e28c7 100644 --- a/pc-bios/s390-ccw/bootmap.c +++ b/pc-bios/s390-ccw/bootmap.c @@ -145,14 +145,17 @@ 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 (virtio_read(blk, bprs)) { + puts("BPRS read failed"); + return ERROR_BLOCK_NR; + } do { more_data = false; for (j = 0;; j++) { block_nr = gen_eckd_block_num(&bprs[j].xeckd, ldipl); if (is_null_block_number(block_nr)) { /* end of chunk */ - break; + return NULL_BLOCK_NR; } /* we need the updated blockno for the next indirect entry @@ -163,15 +166,20 @@ static block_number_t load_eckd_segments(block_number_t blk, bool ldipl, } /* List directed pointer does not store block size */ - IPL_assert(ldipl || block_size_ok(bprs[j].xeckd.bptr.size), - "bad chunk block size"); + if (!ldipl && !block_size_ok(bprs[j].xeckd.bptr.size)) { + puts("Bad chunk block size"); + return ERROR_BLOCK_NR; + } if (!eckd_valid_address(&bprs[j].xeckd, ldipl)) { /* * If an invalid address is found during LD-IPL then break and - * retry as CCW + * retry as CCW-IPL, otherwise abort on error */ - IPL_assert(ldipl, "bad chunk ECKD addr"); + if (!ldipl) { + puts("Bad chunk ECKD address"); + return ERROR_BLOCK_NR; + } break; } @@ -189,7 +197,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 (virtio_read(block_nr, bprs)) { + puts("BPRS continuation read failed"); + return ERROR_BLOCK_NR; + } more_data = true; break; } @@ -198,7 +209,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) { + puts("Code chunk read failed"); + return ERROR_BLOCK_NR; + } *address += (count + 1) * virtio_get_block_size(); } @@ -232,7 +246,10 @@ static int eckd_get_boot_menu_index(block_number_t s1b_block_nr) /* Get Stage1b data */ memset(sec, FREE_SPACE_FILLER, sizeof(sec)); - read_block(s1b_block_nr, s1b, "Cannot read stage1b boot loader"); + if (virtio_read(s1b_block_nr, s1b)) { + puts("Cannot read stage1b boot loader"); + return -EIO; + } memset(_s2, FREE_SPACE_FILLER, sizeof(_s2)); @@ -244,7 +261,10 @@ static int eckd_get_boot_menu_index(block_number_t s1b_block_nr) break; } - read_block(cur_block_nr, s2_cur_blk, "Cannot read stage2 boot loader"); + if (virtio_read(cur_block_nr, s2_cur_blk)) { + puts("Cannot read stage2 boot loader"); + return -EIO; + } if (find_zipl_boot_menu_banner(&banner_offset)) { /* @@ -252,8 +272,10 @@ static int eckd_get_boot_menu_index(block_number_t s1b_block_nr) * possibility of menu data spanning multiple blocks. */ if (prev_block_nr) { - read_block(prev_block_nr, s2_prev_blk, - "Cannot read stage2 boot loader"); + if (virtio_read(prev_block_nr, s2_prev_blk)) { + puts("Cannot read stage2 boot loader"); + return -EIO; + } } if (i + 1 < STAGE2_BLK_CNT_MAX) { @@ -261,8 +283,10 @@ static int eckd_get_boot_menu_index(block_number_t s1b_block_nr) } if (next_block_nr && !is_null_block_number(next_block_nr)) { - read_block(next_block_nr, s2_next_blk, - "Cannot read stage2 boot loader"); + if (virtio_read(next_block_nr, s2_next_blk)) { + puts("Cannot read stage2 boot loader"); + return -EIO; + } } return menu_get_zipl_boot_index(s2_cur_blk + banner_offset); @@ -275,7 +299,7 @@ static int eckd_get_boot_menu_index(block_number_t s1b_block_nr) return 0; } -static void run_eckd_boot_script(block_number_t bmt_block_nr, +static int run_eckd_boot_script(block_number_t bmt_block_nr, block_number_t s1b_block_nr) { int i; @@ -292,17 +316,28 @@ static void run_eckd_boot_script(block_number_t bmt_block_nr, } debug_print_int("loadparm", loadparm); - IPL_assert(loadparm < MAX_BOOT_ENTRIES, "loadparm value greater than" - " maximum number of boot entries allowed"); + if (loadparm >= MAX_BOOT_ENTRIES) { + puts("loadparm value greater than max number of boot entries allowed"); + return -EINVAL; + } memset(sec, FREE_SPACE_FILLER, sizeof(sec)); - read_block(bmt_block_nr, sec, "Cannot read Boot Map Table"); + if (virtio_read(bmt_block_nr, sec)) { + puts("Cannot read Boot Map Table"); + return -EIO; + } 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 == NULL_BLOCK_NR) { + puts("Cannot find Boot Map Table Entry"); + return -EIO; + } memset(sec, FREE_SPACE_FILLER, sizeof(sec)); - read_block(block_nr, sec, "Cannot read Boot Map Script"); + if (virtio_read(block_nr, sec)) { + puts("Cannot read Boot Map Script"); + return -EIO; + } for (i = 0; bms->entry[i].type == BOOT_SCRIPT_LOAD || bms->entry[i].type == BOOT_SCRIPT_SIGNATURE; i++) { @@ -317,21 +352,27 @@ static void run_eckd_boot_script(block_number_t bmt_block_nr, do { block_nr = load_eckd_segments(block_nr, ldipl, &address); - } while (block_nr != -1); + if (block_nr == ERROR_BLOCK_NR) { + return ldipl ? 0 : -EIO; + } + } while (block_nr != NULL_BLOCK_NR); } if (ldipl && bms->entry[i].type != BOOT_SCRIPT_EXEC) { /* Abort LD-IPL and retry as CCW-IPL */ - return; + return 0; } - IPL_assert(bms->entry[i].type == BOOT_SCRIPT_EXEC, - "Unknown script entry type"); + if (bms->entry[i].type != BOOT_SCRIPT_EXEC) { + puts("Unknown script entry type"); + return -EINVAL; + } write_reset_psw(bms->entry[i].address.load_address); /* no return */ jump_to_IPL_code(0); /* no return */ + return -1; } -static void ipl_eckd_cdl(void) +static int ipl_eckd_cdl(void) { XEckdMbr *mbr; EckdCdlIpl2 *ipl2 = (void *)sec; @@ -342,20 +383,23 @@ static void ipl_eckd_cdl(void) puts("CDL"); memset(sec, FREE_SPACE_FILLER, sizeof(sec)); - read_block(1, ipl2, "Cannot read IPL2 record at block 1"); + if (virtio_read(1, ipl2)) { + puts("Cannot read IPL2 record at block 1"); + return -EIO; + } mbr = &ipl2->mbr; if (!magic_match(mbr, ZIPL_MAGIC)) { puts("No zIPL section in IPL2 record."); - return; + return 0; } if (!block_size_ok(mbr->blockptr.xeckd.bptr.size)) { puts("Bad block size in zIPL section of IPL2 record."); - return; + return 0; } if (mbr->dev_type != DEV_TYPE_ECKD) { puts("Non-ECKD device type in zIPL section of IPL2 record."); - return; + return 0; } /* save pointer to Boot Map Table */ @@ -365,19 +409,21 @@ static void ipl_eckd_cdl(void) s1b_block_nr = eckd_block_num(&ipl2->stage1.seek[0].chs); memset(sec, FREE_SPACE_FILLER, sizeof(sec)); - read_block(2, vlbl, "Cannot read Volume Label at block 2"); + if (virtio_read(2, vlbl)) { + puts("Cannot read Volume Label at block 2"); + return -EIO; + } if (!magic_match(vlbl->key, VOL1_MAGIC)) { puts("Invalid magic of volume label block."); - return; + return 0; } if (!magic_match(vlbl->f.key, VOL1_MAGIC)) { puts("Invalid magic of volser block."); - return; + return 0; } print_volser(vlbl->f.volser); - run_eckd_boot_script(bmt_block_nr, s1b_block_nr); - /* no return */ + return run_eckd_boot_script(bmt_block_nr, s1b_block_nr); } static void print_eckd_ldl_msg(ECKD_IPL_mode_t mode) @@ -403,7 +449,7 @@ static void print_eckd_ldl_msg(ECKD_IPL_mode_t mode) print_volser(vlbl->volser); } -static void ipl_eckd_ldl(ECKD_IPL_mode_t mode) +static int ipl_eckd_ldl(ECKD_IPL_mode_t mode) { block_number_t bmt_block_nr, s1b_block_nr; EckdLdlIpl1 *ipl1 = (void *)sec; @@ -415,10 +461,13 @@ static void ipl_eckd_ldl(ECKD_IPL_mode_t mode) /* DO NOT read BootMap pointer (only one, xECKD) at block #2 */ memset(sec, FREE_SPACE_FILLER, sizeof(sec)); - read_block(0, sec, "Cannot read block 0 to grab boot info."); + if (virtio_read(0, sec)) { + puts("Cannot read block 0 to grab boot info."); + return -EIO; + } if (mode == ECKD_LDL_UNLABELED) { if (!magic_match(ipl1->bip.magic, ZIPL_MAGIC)) { - return; /* not applicable layout */ + return 0; /* not applicable layout */ } puts("unlabeled LDL."); } @@ -430,8 +479,7 @@ static void ipl_eckd_ldl(ECKD_IPL_mode_t mode) /* save pointer to Stage1b Data */ s1b_block_nr = eckd_block_num(&ipl1->stage1.seek[0].chs); - run_eckd_boot_script(bmt_block_nr, s1b_block_nr); - /* no return */ + return run_eckd_boot_script(bmt_block_nr, s1b_block_nr); } static block_number_t eckd_find_bmt(ExtEckdBlockPtr *ptr) @@ -441,7 +489,10 @@ static block_number_t eckd_find_bmt(ExtEckdBlockPtr *ptr) BootRecord *br; blockno = gen_eckd_block_num(ptr, 0); - read_block(blockno, tmp_sec, "Cannot read boot record"); + if (virtio_read(blockno, tmp_sec)) { + puts("Cannot read boot record"); + return ERROR_BLOCK_NR; + } br = (BootRecord *)tmp_sec; if (!magic_match(br->magic, ZIPL_MAGIC)) { /* If the boot record is invalid, return and try CCW-IPL instead */ @@ -470,7 +521,7 @@ static void print_eckd_msg(void) printf("%s", msg); } -static void ipl_eckd(void) +static int ipl_eckd(void) { IplVolumeLabel *vlbl = (void *)sec; LDL_VTOC *vtoc = (void *)sec; @@ -480,7 +531,10 @@ static void ipl_eckd(void) /* Block 2 can contain either the CDL VOL1 label or the LDL VTOC */ memset(sec, FREE_SPACE_FILLER, sizeof(sec)); - read_block(2, vlbl, "Cannot read block 2"); + if (virtio_read(2, vlbl)) { + puts("Cannot read block 2"); + return -EIO; + } /* * First check for a list-directed-format pointer which would @@ -488,36 +542,53 @@ static void ipl_eckd(void) */ if (eckd_valid_address((ExtEckdBlockPtr *)&vlbl->f.br, 0)) { ldipl_bmt = eckd_find_bmt((ExtEckdBlockPtr *)&vlbl->f.br); - if (ldipl_bmt) { + switch (ldipl_bmt) { + case ERROR_BLOCK_NR: + return -EIO; + case NULL_BLOCK_NR: + break; /* Invalid BMT but the device may still boot with CCW-IPL */ + default: puts("List-Directed"); - /* 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 */ + /* + * LD-IPL does not use the S1B bock, just make it NULL_BLOCK_NR. + * In some failure cases retry IPL before aborting. + */ + if (run_eckd_boot_script(ldipl_bmt, NULL_BLOCK_NR)) { + return -EIO; + } + /* Non-fatal error, retry as CCW-IPL */ printf("Retrying IPL "); print_eckd_msg(); } memset(sec, FREE_SPACE_FILLER, sizeof(sec)); - read_block(2, vtoc, "Cannot read block 2"); + if (virtio_read(2, vtoc)) { + puts("Cannot read block 2"); + return -EIO; + } } /* Not list-directed */ if (magic_match(vtoc->magic, VOL1_MAGIC)) { - ipl_eckd_cdl(); /* may return in error */ + if (ipl_eckd_cdl()) { + return -1; + } } if (magic_match(vtoc->magic, CMS1_MAGIC)) { - ipl_eckd_ldl(ECKD_CMS); /* no return */ + return ipl_eckd_ldl(ECKD_CMS); } if (magic_match(vtoc->magic, LNX1_MAGIC)) { - ipl_eckd_ldl(ECKD_LDL); /* no return */ + return ipl_eckd_ldl(ECKD_LDL); } - ipl_eckd_ldl(ECKD_LDL_UNLABELED); /* it still may return */ + if (ipl_eckd_ldl(ECKD_LDL_UNLABELED)) { + return -1; + } /* * Ok, it is not a LDL by any means. * It still might be a CDL with zero record keys for IPL1 and IPL2 */ - ipl_eckd_cdl(); + return ipl_eckd_cdl(); } /*********************************************************************** @@ -910,7 +981,7 @@ static bool has_iso_signature(void) * Bus specific IPL sequences */ -static void zipl_load_vblk(void) +static int zipl_load_vblk(void) { int blksize = virtio_get_block_size(); @@ -919,7 +990,7 @@ static void zipl_load_vblk(void) virtio_assume_iso9660(); } if (ipl_iso_el_torito()) { - return; + return 0; } } @@ -927,21 +998,21 @@ static void zipl_load_vblk(void) puts("Using guessed DASD geometry."); virtio_assume_eckd(); } - ipl_eckd(); + return ipl_eckd(); } -static void zipl_load_vscsi(void) +static int zipl_load_vscsi(void) { if (virtio_get_block_size() == VIRTIO_ISO_BLOCK_SIZE) { /* Is it an ISO image in non-CD drive? */ if (ipl_iso_el_torito()) { - return; + return 0; } } puts("Using guessed DASD geometry."); virtio_assume_eckd(); - ipl_eckd(); + return ipl_eckd(); } /*********************************************************************** diff --git a/pc-bios/s390-ccw/bootmap.h b/pc-bios/s390-ccw/bootmap.h index 3cb573b86b..95943441d3 100644 --- a/pc-bios/s390-ccw/bootmap.h +++ b/pc-bios/s390-ccw/bootmap.h @@ -16,6 +16,7 @@ typedef uint64_t block_number_t; #define NULL_BLOCK_NR 0xffffffffffffffffULL +#define ERROR_BLOCK_NR 0xfffffffffffffffeULL #define FREE_SPACE_FILLER '\xAA' From facd91ac1af75b657fc80189fe9cb026bb1abdbc Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:43 -0400 Subject: [PATCH 09/23] pc-bios/s390-ccw: Remove panics from SCSI IPL path Remove panic-on-error from virtio-scsi IPL specific functions so that error recovery may be possible in the future. Functions that would previously panic now provide a return code. Signed-off-by: Jared Rossi Reviewed-by: Thomas Huth Message-ID: <20241020012953.1380075-10-jrossi@linux.ibm.com> Signed-off-by: Thomas Huth --- pc-bios/s390-ccw/bootmap.c | 88 ++++++++++++++----- pc-bios/s390-ccw/virtio-blkdev.c | 4 +- pc-bios/s390-ccw/virtio-scsi.c | 143 +++++++++++++++++++++---------- 3 files changed, 164 insertions(+), 71 deletions(-) diff --git a/pc-bios/s390-ccw/bootmap.c b/pc-bios/s390-ccw/bootmap.c index b9596e28c7..652807a16a 100644 --- a/pc-bios/s390-ccw/bootmap.c +++ b/pc-bios/s390-ccw/bootmap.c @@ -595,7 +595,7 @@ static int ipl_eckd(void) * IPL a SCSI disk */ -static void zipl_load_segment(ComponentEntry *entry) +static int zipl_load_segment(ComponentEntry *entry) { const int max_entries = (MAX_SECTOR_SIZE / sizeof(ScsiBlockPtr)); ScsiBlockPtr *bprs = (void *)sec; @@ -615,7 +615,10 @@ static void zipl_load_segment(ComponentEntry *entry) do { memset(bprs, FREE_SPACE_FILLER, bprs_size); fill_hex_val(blk_no, &blockno, sizeof(blockno)); - read_block(blockno, bprs, err_msg); + if (virtio_read(blockno, bprs)) { + puts(err_msg); + return -EIO; + } for (i = 0;; i++) { uint64_t *cur_desc = (void *)&bprs[i]; @@ -643,23 +646,37 @@ static void zipl_load_segment(ComponentEntry *entry) } address = virtio_load_direct(cur_desc[0], cur_desc[1], 0, (void *)address); - IPL_assert(address != -1, "zIPL load segment failed"); + if (!address) { + puts("zIPL load segment failed"); + return -EIO; + } } } while (blockno); + + return 0; } /* Run a zipl program */ -static void zipl_run(ScsiBlockPtr *pte) +static int zipl_run(ScsiBlockPtr *pte) { ComponentHeader *header; ComponentEntry *entry; uint8_t tmp_sec[MAX_SECTOR_SIZE]; - read_block(pte->blockno, tmp_sec, "Cannot read header"); + if (virtio_read(pte->blockno, tmp_sec)) { + puts("Cannot read header"); + return -EIO; + } header = (ComponentHeader *)tmp_sec; - IPL_assert(magic_match(tmp_sec, ZIPL_MAGIC), "No zIPL magic in header"); - IPL_assert(header->type == ZIPL_COMP_HEADER_IPL, "Bad header type"); + if (!magic_match(tmp_sec, ZIPL_MAGIC)) { + puts("No zIPL magic in header"); + return -EINVAL; + } + if (header->type != ZIPL_COMP_HEADER_IPL) { + puts("Bad header type"); + return -EINVAL; + } dputs("start loading images\n"); @@ -674,22 +691,30 @@ static void zipl_run(ScsiBlockPtr *pte) continue; } - zipl_load_segment(entry); + if (zipl_load_segment(entry)) { + return -1; + } entry++; - IPL_assert((uint8_t *)(&entry[1]) <= (tmp_sec + MAX_SECTOR_SIZE), - "Wrong entry value"); + if ((uint8_t *)(&entry[1]) > (tmp_sec + MAX_SECTOR_SIZE)) { + puts("Wrong entry value"); + return -EINVAL; + } } - IPL_assert(entry->component_type == ZIPL_COMP_ENTRY_EXEC, "No EXEC entry"); + if (entry->component_type != ZIPL_COMP_ENTRY_EXEC) { + puts("No EXEC entry"); + return -EINVAL; + } /* should not return */ write_reset_psw(entry->compdat.load_psw); jump_to_IPL_code(0); + return -1; } -static void ipl_scsi(void) +static int ipl_scsi(void) { ScsiMbr *mbr = (void *)sec; int program_table_entries = 0; @@ -700,10 +725,13 @@ static void ipl_scsi(void) /* Grab the MBR */ memset(sec, FREE_SPACE_FILLER, sizeof(sec)); - read_block(0, mbr, "Cannot read block 0"); + if (virtio_read(0, mbr)) { + puts("Cannot read block 0"); + return -EIO; + } if (!magic_match(mbr->magic, ZIPL_MAGIC)) { - return; + return 0; } puts("Using SCSI scheme."); @@ -711,11 +739,20 @@ static void ipl_scsi(void) IPL_check(mbr->version_id == 1, "Unknown MBR layout version, assuming version 1"); debug_print_int("program table", mbr->pt.blockno); - IPL_assert(mbr->pt.blockno, "No Program Table"); + if (!mbr->pt.blockno) { + puts("No Program Table"); + return -EINVAL; + } /* Parse the program table */ - read_block(mbr->pt.blockno, sec, "Error reading Program Table"); - IPL_assert(magic_match(sec, ZIPL_MAGIC), "No zIPL magic in PT"); + if (virtio_read(mbr->pt.blockno, sec)) { + puts("Error reading Program Table"); + return -EIO; + } + if (!magic_match(sec, ZIPL_MAGIC)) { + puts("No zIPL magic in Program Table"); + return -EINVAL; + } for (i = 0; i < MAX_BOOT_ENTRIES; i++) { if (prog_table->entry[i].scsi.blockno) { @@ -725,17 +762,22 @@ static void ipl_scsi(void) } debug_print_int("program table entries", program_table_entries); - IPL_assert(program_table_entries != 0, "Empty Program Table"); + if (program_table_entries == 0) { + puts("Empty Program Table"); + return -EINVAL; + } if (menu_is_enabled_enum()) { loadparm = menu_get_enum_boot_index(valid_entries); } debug_print_int("loadparm", loadparm); - IPL_assert(loadparm < MAX_BOOT_ENTRIES, "loadparm value greater than" - " maximum number of boot entries allowed"); + if (loadparm >= MAX_BOOT_ENTRIES) { + puts("loadparm value greater than max number of boot entries allowed"); + return -EINVAL; + } - zipl_run(&prog_table->entry[loadparm].scsi); /* no return */ + return zipl_run(&prog_table->entry[loadparm].scsi); } /*********************************************************************** @@ -1032,7 +1074,9 @@ void zipl_load(void) netmain(); } - ipl_scsi(); + if (ipl_scsi()) { + panic("\n! Cannot IPL this SCSI device !\n"); + } switch (virtio_get_device_type()) { case VIRTIO_ID_BLOCK: diff --git a/pc-bios/s390-ccw/virtio-blkdev.c b/pc-bios/s390-ccw/virtio-blkdev.c index 2666326801..1c585f034b 100644 --- a/pc-bios/s390-ccw/virtio-blkdev.c +++ b/pc-bios/s390-ccw/virtio-blkdev.c @@ -73,13 +73,13 @@ unsigned long virtio_load_direct(unsigned long rec_list1, unsigned long rec_list unsigned long addr = (unsigned long)load_addr; if (sec_len != virtio_get_block_size()) { - return -1; + return 0; } printf("."); status = virtio_read_many(sec, (void *)addr, sec_num); if (status) { - panic("I/O Error"); + return 0; } addr += sec_num * virtio_get_block_size(); diff --git a/pc-bios/s390-ccw/virtio-scsi.c b/pc-bios/s390-ccw/virtio-scsi.c index 6b4a1caf8a..71db75ce7b 100644 --- a/pc-bios/s390-ccw/virtio-scsi.c +++ b/pc-bios/s390-ccw/virtio-scsi.c @@ -26,7 +26,7 @@ static uint8_t scsi_inquiry_std_response[256]; static ScsiInquiryEvpdPages scsi_inquiry_evpd_pages_response; static ScsiInquiryEvpdBl scsi_inquiry_evpd_bl_response; -static inline void vs_assert(bool term, const char **msgs) +static inline bool vs_assert(bool term, const char **msgs) { if (!term) { int i = 0; @@ -35,11 +35,13 @@ static inline void vs_assert(bool term, const char **msgs) while (msgs[i]) { printf("%s", msgs[i++]); } - panic(" !\n"); + puts(" !"); } + + return term; } -static void virtio_scsi_verify_response(VirtioScsiCmdResp *resp, +static bool virtio_scsi_verify_response(VirtioScsiCmdResp *resp, const char *title) { const char *mr[] = { @@ -56,8 +58,8 @@ static void virtio_scsi_verify_response(VirtioScsiCmdResp *resp, 0 }; - vs_assert(resp->response == VIRTIO_SCSI_S_OK, mr); - vs_assert(resp->status == CDB_STATUS_GOOD, ms); + return vs_assert(resp->response == VIRTIO_SCSI_S_OK, mr) && + vs_assert(resp->status == CDB_STATUS_GOOD, ms); } static void prepare_request(VDev *vdev, const void *cdb, int cdb_size, @@ -78,24 +80,31 @@ static void prepare_request(VDev *vdev, const void *cdb, int cdb_size, } } -static inline void vs_io_assert(bool term, const char *msg) +static inline bool vs_io_assert(bool term, const char *msg) { - if (!term) { - virtio_scsi_verify_response(&resp, msg); + if (!term && !virtio_scsi_verify_response(&resp, msg)) { + return false; } + + return true; } -static void vs_run(const char *title, VirtioCmd *cmd, VDev *vdev, +static int vs_run(const char *title, VirtioCmd *cmd, VDev *vdev, const void *cdb, int cdb_size, void *data, uint32_t data_size) { prepare_request(vdev, cdb, cdb_size, data, data_size); - vs_io_assert(virtio_run(vdev, VR_REQUEST, cmd) == 0, title); + if (!vs_io_assert(virtio_run(vdev, VR_REQUEST, cmd) == 0, title)) { + puts(title); + return -EIO; + } + + return 0; } /* SCSI protocol implementation routines */ -static bool scsi_inquiry(VDev *vdev, uint8_t evpd, uint8_t page, +static int scsi_inquiry(VDev *vdev, uint8_t evpd, uint8_t page, void *data, uint32_t data_size) { ScsiCdbInquiry cdb = { @@ -110,12 +119,13 @@ static bool scsi_inquiry(VDev *vdev, uint8_t evpd, uint8_t page, { data, data_size, VRING_DESC_F_WRITE }, }; - vs_run("inquiry", inquiry, vdev, &cdb, sizeof(cdb), data, data_size); + int ret = vs_run("inquiry", inquiry, + vdev, &cdb, sizeof(cdb), data, data_size); - return virtio_scsi_response_ok(&resp); + return ret ? ret : virtio_scsi_response_ok(&resp); } -static bool scsi_test_unit_ready(VDev *vdev) +static int scsi_test_unit_ready(VDev *vdev) { ScsiCdbTestUnitReady cdb = { .command = 0x00, @@ -131,7 +141,7 @@ static bool scsi_test_unit_ready(VDev *vdev) return virtio_scsi_response_ok(&resp); } -static bool scsi_report_luns(VDev *vdev, void *data, uint32_t data_size) +static int scsi_report_luns(VDev *vdev, void *data, uint32_t data_size) { ScsiCdbReportLuns cdb = { .command = 0xa0, @@ -144,13 +154,13 @@ static bool scsi_report_luns(VDev *vdev, void *data, uint32_t data_size) { data, data_size, VRING_DESC_F_WRITE }, }; - vs_run("report luns", report_luns, + int ret = vs_run("report luns", report_luns, vdev, &cdb, sizeof(cdb), data, data_size); - return virtio_scsi_response_ok(&resp); + return ret ? ret : virtio_scsi_response_ok(&resp); } -static bool scsi_read_10(VDev *vdev, +static int scsi_read_10(VDev *vdev, unsigned long sector, int sectors, void *data, unsigned int data_size) { @@ -168,12 +178,13 @@ static bool scsi_read_10(VDev *vdev, debug_print_int("read_10 sector", sector); debug_print_int("read_10 sectors", sectors); - vs_run("read(10)", read_10, vdev, &cdb, sizeof(cdb), data, data_size); + int ret = vs_run("read(10)", read_10, + vdev, &cdb, sizeof(cdb), data, data_size); - return virtio_scsi_response_ok(&resp); + return ret ? ret : virtio_scsi_response_ok(&resp); } -static bool scsi_read_capacity(VDev *vdev, +static int scsi_read_capacity(VDev *vdev, void *data, uint32_t data_size) { ScsiCdbReadCapacity16 cdb = { @@ -187,10 +198,10 @@ static bool scsi_read_capacity(VDev *vdev, { data, data_size, VRING_DESC_F_WRITE }, }; - vs_run("read capacity", read_capacity_16, + int ret = vs_run("read capacity", read_capacity_16, vdev, &cdb, sizeof(cdb), data, data_size); - return virtio_scsi_response_ok(&resp); + return ret ? ret : virtio_scsi_response_ok(&resp); } /* virtio-scsi routines */ @@ -207,7 +218,7 @@ static int virtio_scsi_locate_device(VDev *vdev) static uint8_t data[16 + 8 * 63]; ScsiLunReport *r = (void *) data; ScsiDevice *sdev = vdev->scsi_device; - int i, luns; + int i, ret, luns; /* QEMU has hardcoded channel #0 in many places. * If this hardcoded value is ever changed, we'll need to add code for @@ -233,13 +244,21 @@ static int virtio_scsi_locate_device(VDev *vdev) sdev->channel = channel; sdev->target = target; sdev->lun = 0; /* LUN has to be 0 for REPORT LUNS */ - if (!scsi_report_luns(vdev, data, sizeof(data))) { + ret = scsi_report_luns(vdev, data, sizeof(data)); + if (ret < 0) { + return ret; + } + + else if (ret == 0) { if (resp.response == VIRTIO_SCSI_S_BAD_TARGET) { continue; } printf("target 0x%X\n", target); - virtio_scsi_verify_response(&resp, "SCSI cannot report LUNs"); + if (!virtio_scsi_verify_response(&resp, "SCSI cannot report LUNs")) { + return -EIO; + } } + if (r->lun_list_len == 0) { printf("no LUNs for target 0x%X\n", target); continue; @@ -283,7 +302,9 @@ int virtio_scsi_read_many(VDev *vdev, data_size = sector_count * virtio_get_block_size() * f; if (!scsi_read_10(vdev, sector * f, sector_count * f, load_addr, data_size)) { - virtio_scsi_verify_response(&resp, "virtio-scsi:read_many"); + if (!virtio_scsi_verify_response(&resp, "virtio-scsi:read_many")) { + return -1; + } } load_addr += data_size; sector += sector_count; @@ -352,11 +373,16 @@ static int virtio_scsi_setup(VDev *vdev) uint8_t code = resp.sense[0] & SCSI_SENSE_CODE_MASK; uint8_t sense_key = resp.sense[2] & SCSI_SENSE_KEY_MASK; - IPL_assert(resp.sense_len != 0, "virtio-scsi:setup: no SENSE data"); + if (resp.sense_len == 0) { + puts("virtio-scsi: setup: no SENSE data"); + return -EINVAL; + } - IPL_assert(retry_test_unit_ready && code == 0x70 && - sense_key == SCSI_SENSE_KEY_UNIT_ATTENTION, - "virtio-scsi:setup: cannot retry"); + if (!retry_test_unit_ready || code != 0x70 || + sense_key != SCSI_SENSE_KEY_UNIT_ATTENTION) { + puts("virtio-scsi:setup: cannot retry"); + return -EIO; + } /* retry on CHECK_CONDITION/UNIT_ATTENTION as it * may not designate a real error, but it may be @@ -367,16 +393,22 @@ static int virtio_scsi_setup(VDev *vdev) continue; } - virtio_scsi_verify_response(&resp, "virtio-scsi:setup"); + if (!virtio_scsi_verify_response(&resp, "virtio-scsi:setup")) { + return -1; + } } /* read and cache SCSI INQUIRY response */ - if (!scsi_inquiry(vdev, + ret = scsi_inquiry(vdev, SCSI_INQUIRY_STANDARD, SCSI_INQUIRY_STANDARD_NONE, scsi_inquiry_std_response, - sizeof(scsi_inquiry_std_response))) { - virtio_scsi_verify_response(&resp, "virtio-scsi:setup:inquiry"); + sizeof(scsi_inquiry_std_response)); + if (ret < 1) { + if (ret != 0 || !virtio_scsi_verify_response(&resp, + "virtio-scsi:setup:inquiry")) { + return -1; + } } if (virtio_scsi_inquiry_response_is_cdrom(scsi_inquiry_std_response)) { @@ -385,12 +417,16 @@ static int virtio_scsi_setup(VDev *vdev) vdev->scsi_block_size = VIRTIO_ISO_BLOCK_SIZE; } - if (!scsi_inquiry(vdev, + ret = scsi_inquiry(vdev, SCSI_INQUIRY_EVPD, SCSI_INQUIRY_EVPD_SUPPORTED_PAGES, evpd, - sizeof(*evpd))) { - virtio_scsi_verify_response(&resp, "virtio-scsi:setup:supported_pages"); + sizeof(*evpd)); + if (ret < 1) { + if (ret != 0 || !virtio_scsi_verify_response(&resp, + "virtio-scsi:setup:supported_pages")) { + return -1; + } } debug_print_int("EVPD length", evpd->page_length); @@ -402,12 +438,16 @@ static int virtio_scsi_setup(VDev *vdev) continue; } - if (!scsi_inquiry(vdev, + ret = scsi_inquiry(vdev, SCSI_INQUIRY_EVPD, SCSI_INQUIRY_EVPD_BLOCK_LIMITS, evpd_bl, - sizeof(*evpd_bl))) { - virtio_scsi_verify_response(&resp, "virtio-scsi:setup:blocklimits"); + sizeof(*evpd_bl)); + if (ret < 1) { + if (ret != 0 || !virtio_scsi_verify_response(&resp, + "virtio-scsi:setup:blocklimits")) { + return -1; + } } debug_print_int("max transfer", evpd_bl->max_transfer); @@ -423,8 +463,12 @@ static int virtio_scsi_setup(VDev *vdev) vdev->max_transfer = MIN_NON_ZERO(VIRTIO_SCSI_MAX_SECTORS, vdev->max_transfer); - if (!scsi_read_capacity(vdev, data, data_size)) { - virtio_scsi_verify_response(&resp, "virtio-scsi:setup:read_capacity"); + ret = scsi_read_capacity(vdev, data, data_size); + if (ret < 1) { + if (ret != 0 || !virtio_scsi_verify_response(&resp, + "virtio-scsi:setup:read_capacity")) { + return -1; + } } scsi_parse_capacity_report(data, &vdev->scsi_last_block, (uint32_t *) &vdev->scsi_block_size); @@ -439,10 +483,15 @@ int virtio_scsi_setup_device(SubChannelId schid) vdev->schid = schid; virtio_setup_ccw(vdev); - IPL_assert(vdev->config.scsi.sense_size == VIRTIO_SCSI_SENSE_SIZE, - "Config: sense size mismatch"); - IPL_assert(vdev->config.scsi.cdb_size == VIRTIO_SCSI_CDB_SIZE, - "Config: CDB size mismatch"); + if (vdev->config.scsi.sense_size != VIRTIO_SCSI_SENSE_SIZE) { + puts("Config: sense size mismatch"); + return -EINVAL; + } + + if (vdev->config.scsi.cdb_size != VIRTIO_SCSI_CDB_SIZE) { + puts("Config: CDB size mismatch"); + return -EINVAL; + } puts("Using virtio-scsi."); From 1d5c7f078e938e6844f404429dd70bc52b39dac6 Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:44 -0400 Subject: [PATCH 10/23] pc-bios/s390-ccw: Remove panics from DASD IPL path Remove panic-on-error from DASD IPL specific functions so that error recovery may be possible in the future. Functions that would previously panic now provide a return code. Signed-off-by: Jared Rossi Reviewed-by: Thomas Huth Message-ID: <20241020012953.1380075-11-jrossi@linux.ibm.com> Signed-off-by: Thomas Huth --- pc-bios/s390-ccw/dasd-ipl.c | 66 ++++++++++++++++++++----------------- pc-bios/s390-ccw/dasd-ipl.h | 2 +- 2 files changed, 37 insertions(+), 31 deletions(-) diff --git a/pc-bios/s390-ccw/dasd-ipl.c b/pc-bios/s390-ccw/dasd-ipl.c index ae751adec1..babece95ea 100644 --- a/pc-bios/s390-ccw/dasd-ipl.c +++ b/pc-bios/s390-ccw/dasd-ipl.c @@ -111,38 +111,29 @@ static void make_readipl(void) ccwIplRead->count = 0x18; /* Read 0x18 bytes of data */ } -static void run_readipl(SubChannelId schid, uint16_t cutype) +static int run_readipl(SubChannelId schid, uint16_t cutype) { - if (do_cio(schid, cutype, 0x00, CCW_FMT0)) { - panic("dasd-ipl: Failed to run Read IPL channel program\n"); - } + return do_cio(schid, cutype, 0x00, CCW_FMT0); } /* * The architecture states that IPL1 data should consist of a psw followed by * format-0 READ and TIC CCWs. Let's sanity check. */ -static void check_ipl1(void) +static bool check_ipl1(void) { Ccw0 *ccwread = (Ccw0 *)0x08; Ccw0 *ccwtic = (Ccw0 *)0x10; - if (ccwread->cmd_code != CCW_CMD_DASD_READ || - ccwtic->cmd_code != CCW_CMD_TIC) { - panic("dasd-ipl: IPL1 data invalid. Is this disk really bootable?\n"); - } + return (ccwread->cmd_code == CCW_CMD_DASD_READ && + ccwtic->cmd_code == CCW_CMD_TIC); } -static void check_ipl2(uint32_t ipl2_addr) +static bool check_ipl2(uint32_t ipl2_addr) { Ccw0 *ccw = u32toptr(ipl2_addr); - if (ipl2_addr == 0x00) { - panic("IPL2 address invalid. Is this disk really bootable?\n"); - } - if (ccw->cmd_code == 0x00) { - panic("IPL2 ccw data invalid. Is this disk really bootable?\n"); - } + return (ipl2_addr != 0x00 && ccw->cmd_code != 0x00); } static uint32_t read_ipl2_addr(void) @@ -188,52 +179,67 @@ static void ipl1_fixup(void) ccwSearchTic->cda = ptr2u32(ccwSearchID); } -static void run_ipl1(SubChannelId schid, uint16_t cutype) +static int run_ipl1(SubChannelId schid, uint16_t cutype) { uint32_t startAddr = 0x08; - if (do_cio(schid, cutype, startAddr, CCW_FMT0)) { - panic("dasd-ipl: Failed to run IPL1 channel program\n"); - } + return do_cio(schid, cutype, startAddr, CCW_FMT0); } -static void run_ipl2(SubChannelId schid, uint16_t cutype, uint32_t addr) +static int run_ipl2(SubChannelId schid, uint16_t cutype, uint32_t addr) { - if (run_dynamic_ccw_program(schid, cutype, addr)) { - panic("dasd-ipl: Failed to run IPL2 channel program\n"); - } + return run_dynamic_ccw_program(schid, cutype, addr); } /* * Limitations in vfio-ccw support complicate the IPL process. Details can * be found in docs/devel/s390-dasd-ipl.rst */ -void dasd_ipl(SubChannelId schid, uint16_t cutype) +int dasd_ipl(SubChannelId schid, uint16_t cutype) { PSWLegacy *pswl = (PSWLegacy *) 0x00; uint32_t ipl2_addr; /* Construct Read IPL CCW and run it to read IPL1 from boot disk */ make_readipl(); - run_readipl(schid, cutype); + if (run_readipl(schid, cutype)) { + puts("Failed to run Read IPL channel program"); + return -EIO; + } + ipl2_addr = read_ipl2_addr(); - check_ipl1(); + + if (!check_ipl1()) { + puts("IPL1 invalid for DASD-IPL"); + return -EINVAL; + } /* * Fixup IPL1 channel program to account for vfio-ccw limitations, then run * it to read IPL2 channel program from boot disk. */ ipl1_fixup(); - run_ipl1(schid, cutype); - check_ipl2(ipl2_addr); + if (run_ipl1(schid, cutype)) { + puts("Failed to run IPL1 channel program"); + return -EIO; + } + + if (!check_ipl2(ipl2_addr)) { + puts("IPL2 invalid for DASD-IPL"); + return -EINVAL; + } /* * Run IPL2 channel program to read operating system code from boot disk */ - run_ipl2(schid, cutype, ipl2_addr); + if (run_ipl2(schid, cutype, ipl2_addr)) { + puts("Failed to run IPL2 channel program"); + return -EIO; + } /* Transfer control to the guest operating system */ pswl->mask |= PSW_MASK_EAMODE; /* Force z-mode */ pswl->addr |= PSW_MASK_BAMODE; /* ... */ jump_to_low_kernel(); + return -1; } diff --git a/pc-bios/s390-ccw/dasd-ipl.h b/pc-bios/s390-ccw/dasd-ipl.h index c394828906..eb1898c84a 100644 --- a/pc-bios/s390-ccw/dasd-ipl.h +++ b/pc-bios/s390-ccw/dasd-ipl.h @@ -11,6 +11,6 @@ #ifndef DASD_IPL_H #define DASD_IPL_H -void dasd_ipl(SubChannelId schid, uint16_t cutype); +int dasd_ipl(SubChannelId schid, uint16_t cutype); #endif /* DASD_IPL_H */ From f1a2a6e41ef76e02ddc5ede3dd042ef96b4fb8d2 Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:45 -0400 Subject: [PATCH 11/23] pc-bios/s390-ccw: Remove panics from Netboot IPL path Remove panic-on-error from Netboot specific functions so that error recovery may be possible in the future. Functions that would previously panic now provide a return code. Signed-off-by: Jared Rossi Reviewed-by: Thomas Huth Message-ID: <20241020012953.1380075-12-jrossi@linux.ibm.com> Signed-off-by: Thomas Huth --- pc-bios/s390-ccw/bootmap.c | 1 + pc-bios/s390-ccw/netmain.c | 17 +++++++++++------ pc-bios/s390-ccw/s390-ccw.h | 2 +- pc-bios/s390-ccw/virtio-net.c | 7 +++++-- 4 files changed, 18 insertions(+), 9 deletions(-) diff --git a/pc-bios/s390-ccw/bootmap.c b/pc-bios/s390-ccw/bootmap.c index 652807a16a..95ef9104d0 100644 --- a/pc-bios/s390-ccw/bootmap.c +++ b/pc-bios/s390-ccw/bootmap.c @@ -1072,6 +1072,7 @@ void zipl_load(void) if (virtio_get_device_type() == VIRTIO_ID_NET) { netmain(); + panic("\n! Cannot IPL from this network !\n"); } if (ipl_scsi()) { diff --git a/pc-bios/s390-ccw/netmain.c b/pc-bios/s390-ccw/netmain.c index bc6ad8695f..d1a6c9a91c 100644 --- a/pc-bios/s390-ccw/netmain.c +++ b/pc-bios/s390-ccw/netmain.c @@ -464,7 +464,7 @@ static bool find_net_dev(Schib *schib, int dev_no) return false; } -static void virtio_setup(void) +static bool virtio_setup(void) { Schib schib; int ssid; @@ -495,10 +495,10 @@ static void virtio_setup(void) } } - IPL_assert(found, "No virtio net device found"); + return found; } -void netmain(void) +int netmain(void) { filename_ip_t fn_ip; int rc, fnlen; @@ -506,11 +506,15 @@ void netmain(void) sclp_setup(); puts("Network boot starting..."); - virtio_setup(); + if (!virtio_setup()) { + puts("No virtio net device found."); + return -1; + } rc = net_init(&fn_ip); if (rc) { - panic("Network initialization failed. Halting."); + puts("Network initialization failed."); + return -1; } fnlen = strlen(fn_ip.filename); @@ -528,5 +532,6 @@ void netmain(void) jump_to_low_kernel(); } - panic("Failed to load OS from network."); + puts("Failed to load OS from network."); + return -1; } diff --git a/pc-bios/s390-ccw/s390-ccw.h b/pc-bios/s390-ccw/s390-ccw.h index 3e844abd71..344ad15655 100644 --- a/pc-bios/s390-ccw/s390-ccw.h +++ b/pc-bios/s390-ccw/s390-ccw.h @@ -57,7 +57,7 @@ unsigned int get_loadparm_index(void); void main(void); /* netmain.c */ -void netmain(void); +int netmain(void); /* sclp.c */ void sclp_print(const char *string); diff --git a/pc-bios/s390-ccw/virtio-net.c b/pc-bios/s390-ccw/virtio-net.c index 2fcb0a58c5..f9854a22c3 100644 --- a/pc-bios/s390-ccw/virtio-net.c +++ b/pc-bios/s390-ccw/virtio-net.c @@ -54,8 +54,11 @@ int virtio_net_init(void *mac_addr) vdev->guest_features[0] = VIRTIO_NET_F_MAC_BIT; virtio_setup_ccw(vdev); - IPL_assert(vdev->guest_features[0] & VIRTIO_NET_F_MAC_BIT, - "virtio-net device does not support the MAC address feature"); + if (!(vdev->guest_features[0] & VIRTIO_NET_F_MAC_BIT)) { + puts("virtio-net device does not support the MAC address feature"); + return -1; + } + memcpy(mac_addr, vdev->config.net.mac, ETH_ALEN); for (i = 0; i < 64; i++) { From 0181e23713114fd4c33326c3372aaf48dcfb412a Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:46 -0400 Subject: [PATCH 12/23] pc-bios/s390-ccw: Enable failed IPL to return after error Remove panic-on-error from IPL functions such that a return code is propagated back to the main IPL calling function (rather than terminating immediately), which facilitates possible error recovery in the future. A select few panics remain, which indicate fatal non-devices errors that must result in termination. Signed-off-by: Jared Rossi Reviewed-by: Thomas Huth Message-ID: <20241020012953.1380075-13-jrossi@linux.ibm.com> Signed-off-by: Thomas Huth --- pc-bios/s390-ccw/bootmap.c | 53 ++++++++++++++++++-------- pc-bios/s390-ccw/cio.c | 3 +- pc-bios/s390-ccw/jump2ipl.c | 5 ++- pc-bios/s390-ccw/main.c | 32 +++++++++------- pc-bios/s390-ccw/s390-ccw.h | 2 +- pc-bios/s390-ccw/virtio-blkdev.c | 2 +- pc-bios/s390-ccw/virtio.c | 65 +++++++++++++++++++++----------- pc-bios/s390-ccw/virtio.h | 2 +- 8 files changed, 108 insertions(+), 56 deletions(-) diff --git a/pc-bios/s390-ccw/bootmap.c b/pc-bios/s390-ccw/bootmap.c index 95ef9104d0..56f2f75640 100644 --- a/pc-bios/s390-ccw/bootmap.c +++ b/pc-bios/s390-ccw/bootmap.c @@ -62,15 +62,34 @@ static void *s2_prev_blk = _s2; static void *s2_cur_blk = _s2 + MAX_SECTOR_SIZE; static void *s2_next_blk = _s2 + MAX_SECTOR_SIZE * 2; -static inline void verify_boot_info(BootInfo *bip) +static inline int verify_boot_info(BootInfo *bip) { - IPL_assert(magic_match(bip->magic, ZIPL_MAGIC), "No zIPL sig in BootInfo"); - IPL_assert(bip->version == BOOT_INFO_VERSION, "Wrong zIPL version"); - IPL_assert(bip->bp_type == BOOT_INFO_BP_TYPE_IPL, "DASD is not for IPL"); - IPL_assert(bip->dev_type == BOOT_INFO_DEV_TYPE_ECKD, "DASD is not ECKD"); - IPL_assert(bip->flags == BOOT_INFO_FLAGS_ARCH, "Not for this arch"); - IPL_assert(block_size_ok(bip->bp.ipl.bm_ptr.eckd.bptr.size), - "Bad block size in zIPL section of the 1st record."); + if (!magic_match(bip->magic, ZIPL_MAGIC)) { + puts("No zIPL sig in BootInfo"); + return -EINVAL; + } + if (bip->version != BOOT_INFO_VERSION) { + puts("Wrong zIPL version"); + return -EINVAL; + } + if (bip->bp_type != BOOT_INFO_BP_TYPE_IPL) { + puts("DASD is not for IPL"); + return -ENODEV; + } + if (bip->dev_type != BOOT_INFO_DEV_TYPE_ECKD) { + puts("DASD is not ECKD"); + return -ENODEV; + } + if (bip->flags != BOOT_INFO_FLAGS_ARCH) { + puts("Not for this arch"); + return -EINVAL; + } + if (!block_size_ok(bip->bp.ipl.bm_ptr.eckd.bptr.size)) { + puts("Bad block size in zIPL section of 1st record"); + return -EINVAL; + } + + return 0; } static void eckd_format_chs(ExtEckdBlockPtr *ptr, bool ldipl, @@ -367,8 +386,8 @@ static int run_eckd_boot_script(block_number_t bmt_block_nr, puts("Unknown script entry type"); return -EINVAL; } - write_reset_psw(bms->entry[i].address.load_address); /* no return */ - jump_to_IPL_code(0); /* no return */ + write_reset_psw(bms->entry[i].address.load_address); + jump_to_IPL_code(0); return -1; } @@ -1067,16 +1086,19 @@ void zipl_load(void) if (vdev->is_cdrom) { ipl_iso_el_torito(); - panic("\n! Cannot IPL this ISO image !\n"); + puts("Failed to IPL this ISO image!"); + return; } if (virtio_get_device_type() == VIRTIO_ID_NET) { netmain(); - panic("\n! Cannot IPL from this network !\n"); + puts("Failed to IPL from this network!"); + return; } if (ipl_scsi()) { - panic("\n! Cannot IPL this SCSI device !\n"); + puts("Failed to IPL from this SCSI device!"); + return; } switch (virtio_get_device_type()) { @@ -1087,8 +1109,9 @@ void zipl_load(void) zipl_load_vscsi(); break; default: - panic("\n! Unknown IPL device type !\n"); + puts("Unknown IPL device type!"); + return; } - puts("zIPL load failed."); + puts("zIPL load failed!"); } diff --git a/pc-bios/s390-ccw/cio.c b/pc-bios/s390-ccw/cio.c index 7b09a38c96..5d543da73f 100644 --- a/pc-bios/s390-ccw/cio.c +++ b/pc-bios/s390-ccw/cio.c @@ -59,7 +59,8 @@ uint16_t cu_type(SubChannelId schid) }; if (do_cio(schid, CU_TYPE_UNKNOWN, ptr2u32(&sense_id_ccw), CCW_FMT1)) { - panic("Failed to run SenseID CCw\n"); + puts("Failed to run SenseID CCW"); + return CU_TYPE_UNKNOWN; } return sense_data.cu_type; diff --git a/pc-bios/s390-ccw/jump2ipl.c b/pc-bios/s390-ccw/jump2ipl.c index 80b7f6a1f3..8db1764ff3 100644 --- a/pc-bios/s390-ccw/jump2ipl.c +++ b/pc-bios/s390-ccw/jump2ipl.c @@ -33,7 +33,7 @@ static void jump_to_IPL_addr(void) /* should not return */ } -void jump_to_IPL_code(uint64_t address) +int jump_to_IPL_code(uint64_t address) { /* store the subsystem information _after_ the bootmap was loaded */ write_subsystem_identification(); @@ -68,7 +68,8 @@ void jump_to_IPL_code(uint64_t address) asm volatile("lghi %%r1,1\n\t" "diag %%r1,%%r1,0x308\n\t" : : : "1", "memory"); - panic("\n! IPL returns !\n"); + puts("IPL code jump failed"); + return -1; } void jump_to_low_kernel(void) diff --git a/pc-bios/s390-ccw/main.c b/pc-bios/s390-ccw/main.c index fc44da3161..34ef27d7a6 100644 --- a/pc-bios/s390-ccw/main.c +++ b/pc-bios/s390-ccw/main.c @@ -77,6 +77,9 @@ static int is_dev_possibly_bootable(int dev_no, int sch_no) enable_subchannel(blk_schid); cutype = cu_type(blk_schid); + if (cutype == CU_TYPE_UNKNOWN) { + return -EIO; + } /* * Note: we always have to run virtio_is_supported() here to make @@ -194,10 +197,10 @@ static void boot_setup(void) have_iplb = store_iplb(&iplb); } -static void find_boot_device(void) +static bool find_boot_device(void) { VDev *vdev = virtio_get_device(); - bool found; + bool found = false; switch (iplb.pbt) { case S390_IPL_TYPE_CCW: @@ -215,10 +218,10 @@ static void find_boot_device(void) found = find_subch(iplb.scsi.devno); break; default: - panic("List-directed IPL not supported yet!\n"); + puts("Unsupported IPLB"); } - IPL_assert(found, "Boot device not found\n"); + return found; } static int virtio_setup(void) @@ -244,11 +247,13 @@ static int virtio_setup(void) ret = virtio_scsi_setup_device(blk_schid); break; default: - panic("\n! No IPL device available !\n"); + puts("\n! No IPL device available !\n"); + return -1; } - if (!ret) { - IPL_assert(virtio_ipl_disk_is_valid(), "No valid IPL device detected"); + if (!ret && !virtio_ipl_disk_is_valid()) { + puts("No valid IPL device detected"); + return -ENODEV; } return ret; @@ -259,16 +264,16 @@ static void ipl_boot_device(void) switch (cutype) { case CU_TYPE_DASD_3990: case CU_TYPE_DASD_2107: - dasd_ipl(blk_schid, cutype); /* no return */ + dasd_ipl(blk_schid, cutype); break; case CU_TYPE_VIRTIO: - if (virtio_setup() == 0) { - zipl_load(); /* Only returns in case of errors */ + if (virtio_setup()) { + return; /* Only returns in case of errors */ } + zipl_load(); break; default: printf("Attempting to boot from unexpected device type 0x%X\n", cutype); - panic("\nBoot failed.\n"); } } @@ -301,12 +306,11 @@ void main(void) sclp_setup(); css_setup(); boot_setup(); - if (have_iplb) { - find_boot_device(); + if (have_iplb && find_boot_device()) { ipl_boot_device(); } else { probe_boot_device(); } - panic("Failed to load OS from hard disk\n"); + panic("Failed to IPL. Halting..."); } diff --git a/pc-bios/s390-ccw/s390-ccw.h b/pc-bios/s390-ccw/s390-ccw.h index 344ad15655..6cdce3e5e5 100644 --- a/pc-bios/s390-ccw/s390-ccw.h +++ b/pc-bios/s390-ccw/s390-ccw.h @@ -78,7 +78,7 @@ void zipl_load(void); /* jump2ipl.c */ void write_reset_psw(uint64_t psw); -void jump_to_IPL_code(uint64_t address); +int jump_to_IPL_code(uint64_t address); void jump_to_low_kernel(void); /* menu.c */ diff --git a/pc-bios/s390-ccw/virtio-blkdev.c b/pc-bios/s390-ccw/virtio-blkdev.c index 1c585f034b..7b2d1e20f4 100644 --- a/pc-bios/s390-ccw/virtio-blkdev.c +++ b/pc-bios/s390-ccw/virtio-blkdev.c @@ -59,7 +59,7 @@ int virtio_read_many(unsigned long sector, void *load_addr, int sec_num) case VIRTIO_ID_SCSI: return virtio_scsi_read_many(vdev, sector, load_addr, sec_num); } - panic("\n! No readable IPL device !\n"); + return -1; } diff --git a/pc-bios/s390-ccw/virtio.c b/pc-bios/s390-ccw/virtio.c index 8c6b0a8a92..8b5a370bb3 100644 --- a/pc-bios/s390-ccw/virtio.c +++ b/pc-bios/s390-ccw/virtio.c @@ -217,16 +217,19 @@ int virtio_run(VDev *vdev, int vqid, VirtioCmd *cmd) return 0; } -void virtio_setup_ccw(VDev *vdev) +int virtio_setup_ccw(VDev *vdev) { - int i, rc, cfg_size = 0; + int i, cfg_size = 0; uint8_t status; struct VirtioFeatureDesc { uint32_t features; uint8_t index; } __attribute__((packed)) feats; - IPL_assert(virtio_is_supported(vdev->schid), "PE"); + if (!virtio_is_supported(vdev->schid)) { + puts("Virtio unsupported for this device ID"); + return -ENODEV; + } /* device ID has been established now */ vdev->config.blk.blk_size = 0; /* mark "illegal" - setup started... */ @@ -235,8 +238,10 @@ void virtio_setup_ccw(VDev *vdev) run_ccw(vdev, CCW_CMD_VDEV_RESET, NULL, 0, false); status = VIRTIO_CONFIG_S_ACKNOWLEDGE; - rc = run_ccw(vdev, CCW_CMD_WRITE_STATUS, &status, sizeof(status), false); - IPL_assert(rc == 0, "Could not write ACKNOWLEDGE status to host"); + if (run_ccw(vdev, CCW_CMD_WRITE_STATUS, &status, sizeof(status), false)) { + puts("Could not write ACKNOWLEDGE status to host"); + return -EIO; + } switch (vdev->senseid.cu_model) { case VIRTIO_ID_NET: @@ -255,27 +260,37 @@ void virtio_setup_ccw(VDev *vdev) cfg_size = sizeof(vdev->config.scsi); break; default: - panic("Unsupported virtio device\n"); + puts("Unsupported virtio device"); + return -ENODEV; } status |= VIRTIO_CONFIG_S_DRIVER; - rc = run_ccw(vdev, CCW_CMD_WRITE_STATUS, &status, sizeof(status), false); - IPL_assert(rc == 0, "Could not write DRIVER status to host"); + if (run_ccw(vdev, CCW_CMD_WRITE_STATUS, &status, sizeof(status), false)) { + puts("Could not write DRIVER status to host"); + return -EIO; + } /* Feature negotiation */ for (i = 0; i < ARRAY_SIZE(vdev->guest_features); i++) { feats.features = 0; feats.index = i; - rc = run_ccw(vdev, CCW_CMD_READ_FEAT, &feats, sizeof(feats), false); - IPL_assert(rc == 0, "Could not get features bits"); + if (run_ccw(vdev, CCW_CMD_READ_FEAT, &feats, sizeof(feats), false)) { + puts("Could not get features bits"); + return -EIO; + } + vdev->guest_features[i] &= bswap32(feats.features); feats.features = bswap32(vdev->guest_features[i]); - rc = run_ccw(vdev, CCW_CMD_WRITE_FEAT, &feats, sizeof(feats), false); - IPL_assert(rc == 0, "Could not set features bits"); + if (run_ccw(vdev, CCW_CMD_WRITE_FEAT, &feats, sizeof(feats), false)) { + puts("Could not set features bits"); + return -EIO; + } } - rc = run_ccw(vdev, CCW_CMD_READ_CONF, &vdev->config, cfg_size, false); - IPL_assert(rc == 0, "Could not get virtio device configuration"); + if (run_ccw(vdev, CCW_CMD_READ_CONF, &vdev->config, cfg_size, false)) { + puts("Could not get virtio device configuration"); + return -EIO; + } for (i = 0; i < vdev->nr_vqs; i++) { VqInfo info = { @@ -289,19 +304,27 @@ void virtio_setup_ccw(VDev *vdev) .num = 0, }; - rc = run_ccw(vdev, CCW_CMD_READ_VQ_CONF, &config, sizeof(config), false); - IPL_assert(rc == 0, "Could not get virtio device VQ configuration"); + if (run_ccw(vdev, CCW_CMD_READ_VQ_CONF, &config, sizeof(config), + false)) { + puts("Could not get virtio device VQ config"); + return -EIO; + } info.num = config.num; vring_init(&vdev->vrings[i], &info); vdev->vrings[i].schid = vdev->schid; - IPL_assert( - run_ccw(vdev, CCW_CMD_SET_VQ, &info, sizeof(info), false) == 0, - "Cannot set VQ info"); + if (run_ccw(vdev, CCW_CMD_SET_VQ, &info, sizeof(info), false)) { + puts("Cannot set VQ info"); + return -EIO; + } } status |= VIRTIO_CONFIG_S_DRIVER_OK; - rc = run_ccw(vdev, CCW_CMD_WRITE_STATUS, &status, sizeof(status), false); - IPL_assert(rc == 0, "Could not write DRIVER_OK status to host"); + if (run_ccw(vdev, CCW_CMD_WRITE_STATUS, &status, sizeof(status), false)) { + puts("Could not write DRIVER_OK status to host"); + return -EIO; + } + + return 0; } bool virtio_is_supported(SubChannelId schid) diff --git a/pc-bios/s390-ccw/virtio.h b/pc-bios/s390-ccw/virtio.h index 6f9a558ff5..9faf3986b1 100644 --- a/pc-bios/s390-ccw/virtio.h +++ b/pc-bios/s390-ccw/virtio.h @@ -274,7 +274,7 @@ void vring_send_buf(VRing *vr, void *p, int len, int flags); int vr_poll(VRing *vr); int vring_wait_reply(void); int virtio_run(VDev *vdev, int vqid, VirtioCmd *cmd); -void virtio_setup_ccw(VDev *vdev); +int virtio_setup_ccw(VDev *vdev); int virtio_net_init(void *mac_addr); From ba3658adc80a9370257a9c4e114829ec691311e3 Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:47 -0400 Subject: [PATCH 13/23] include/hw/s390x: Add include files for common IPL structs Currently, structures defined in both hw/s390x/ipl.h and pc-bios/s390-ccw/iplb.h must be kept in sync, which is prone to error. Instead, create a new directory at include/hw/s390x/ipl/ to contain the definitions that must be shared. Signed-off-by: Jared Rossi Reviewed-by: Thomas Huth Message-ID: <20241020012953.1380075-14-jrossi@linux.ibm.com> Signed-off-by: Thomas Huth --- hw/s390x/ipl.h | 104 +----------------------------- include/hw/s390x/ipl/qipl.h | 123 ++++++++++++++++++++++++++++++++++++ pc-bios/s390-ccw/Makefile | 2 +- pc-bios/s390-ccw/iplb.h | 84 ++---------------------- 4 files changed, 130 insertions(+), 183 deletions(-) create mode 100644 include/hw/s390x/ipl/qipl.h diff --git a/hw/s390x/ipl.h b/hw/s390x/ipl.h index b2105b616a..fa394c339d 100644 --- a/hw/s390x/ipl.h +++ b/hw/s390x/ipl.h @@ -16,95 +16,11 @@ #include "cpu.h" #include "exec/address-spaces.h" #include "hw/qdev-core.h" +#include "hw/s390x/ipl/qipl.h" #include "qom/object.h" -struct IPLBlockPVComp { - uint64_t tweak_pref; - uint64_t addr; - uint64_t size; -} QEMU_PACKED; -typedef struct IPLBlockPVComp IPLBlockPVComp; - -struct IPLBlockPV { - uint8_t reserved18[87]; /* 0x18 */ - uint8_t version; /* 0x6f */ - uint32_t reserved70; /* 0x70 */ - uint32_t num_comp; /* 0x74 */ - uint64_t pv_header_addr; /* 0x78 */ - uint64_t pv_header_len; /* 0x80 */ - struct IPLBlockPVComp components[0]; -} QEMU_PACKED; -typedef struct IPLBlockPV IPLBlockPV; - -struct IplBlockCcw { - uint8_t reserved0[85]; - uint8_t ssid; - uint16_t devno; - uint8_t vm_flags; - uint8_t reserved3[3]; - uint32_t vm_parm_len; - uint8_t nss_name[8]; - uint8_t vm_parm[64]; - uint8_t reserved4[8]; -} QEMU_PACKED; -typedef struct IplBlockCcw IplBlockCcw; - -struct IplBlockFcp { - uint8_t reserved1[305 - 1]; - uint8_t opt; - uint8_t reserved2[3]; - uint16_t reserved3; - uint16_t devno; - uint8_t reserved4[4]; - uint64_t wwpn; - uint64_t lun; - uint32_t bootprog; - uint8_t reserved5[12]; - uint64_t br_lba; - uint32_t scp_data_len; - uint8_t reserved6[260]; - uint8_t scp_data[0]; -} QEMU_PACKED; -typedef struct IplBlockFcp IplBlockFcp; - -struct IplBlockQemuScsi { - uint32_t lun; - uint16_t target; - uint16_t channel; - uint8_t reserved0[77]; - uint8_t ssid; - uint16_t devno; -} QEMU_PACKED; -typedef struct IplBlockQemuScsi IplBlockQemuScsi; - #define DIAG308_FLAGS_LP_VALID 0x80 -union IplParameterBlock { - struct { - uint32_t len; - uint8_t reserved0[3]; - uint8_t version; - uint32_t blk0_len; - uint8_t pbt; - uint8_t flags; - uint16_t reserved01; - uint8_t loadparm[8]; - union { - IplBlockCcw ccw; - IplBlockFcp fcp; - IPLBlockPV pv; - IplBlockQemuScsi scsi; - }; - } QEMU_PACKED; - struct { - uint8_t reserved1[110]; - uint16_t devno; - uint8_t reserved2[88]; - uint8_t reserved_ext[4096 - 200]; - } QEMU_PACKED; -} QEMU_PACKED; -typedef union IplParameterBlock IplParameterBlock; - int s390_ipl_set_loadparm(uint8_t *loadparm); void s390_ipl_update_diag308(IplParameterBlock *iplb); int s390_ipl_prepare_pv_header(Error **errp); @@ -131,24 +47,6 @@ void s390_ipl_clear_reset_request(void); #define QIPL_FLAG_BM_OPTS_CMD 0x80 #define QIPL_FLAG_BM_OPTS_ZIPL 0x40 -/* - * The QEMU IPL Parameters will be stored at absolute address - * 204 (0xcc) which means it is 32-bit word aligned but not - * double-word aligned. Placement of 64-bit data fields in this - * area must account for their alignment needs. - * The total size of the struct must never exceed 28 bytes. - * This definition must be kept in sync with the definition - * in pc-bios/s390-ccw/iplb.h. - */ -struct QemuIplParameters { - uint8_t qipl_flags; - uint8_t reserved1[3]; - uint64_t reserved2; - uint32_t boot_menu_timeout; - uint8_t reserved3[12]; -} QEMU_PACKED; -typedef struct QemuIplParameters QemuIplParameters; - #define TYPE_S390_IPL "s390-ipl" OBJECT_DECLARE_SIMPLE_TYPE(S390IPLState, S390_IPL) diff --git a/include/hw/s390x/ipl/qipl.h b/include/hw/s390x/ipl/qipl.h new file mode 100644 index 0000000000..0ef04af027 --- /dev/null +++ b/include/hw/s390x/ipl/qipl.h @@ -0,0 +1,123 @@ +/* + * S/390 boot structures + * + * Copyright 2024 IBM Corp. + * Author(s): Jared Rossi + * + * This work is licensed under the terms of the GNU GPL, version 2 or (at + * your option) any later version. See the COPYING file in the top-level + * directory. + */ + +#ifndef S390X_QIPL_H +#define S390X_QIPL_H + +/* Boot Menu flags */ +#define QIPL_FLAG_BM_OPTS_CMD 0x80 +#define QIPL_FLAG_BM_OPTS_ZIPL 0x40 + +#define QIPL_ADDRESS 0xcc +#define LOADPARM_LEN 8 + +/* + * The QEMU IPL Parameters will be stored at absolute address + * 204 (0xcc) which means it is 32-bit word aligned but not + * double-word aligned. Placement of 64-bit data fields in this + * area must account for their alignment needs. + * The total size of the struct must never exceed 28 bytes. + */ +struct QemuIplParameters { + uint8_t qipl_flags; + uint8_t reserved1[3]; + uint64_t reserved2; + uint32_t boot_menu_timeout; + uint8_t reserved3[12]; +} QEMU_PACKED; +typedef struct QemuIplParameters QemuIplParameters; + +struct IPLBlockPVComp { + uint64_t tweak_pref; + uint64_t addr; + uint64_t size; +} QEMU_PACKED; +typedef struct IPLBlockPVComp IPLBlockPVComp; + +struct IPLBlockPV { + uint8_t reserved18[87]; /* 0x18 */ + uint8_t version; /* 0x6f */ + uint32_t reserved70; /* 0x70 */ + uint32_t num_comp; /* 0x74 */ + uint64_t pv_header_addr; /* 0x78 */ + uint64_t pv_header_len; /* 0x80 */ + struct IPLBlockPVComp components[0]; +} QEMU_PACKED; +typedef struct IPLBlockPV IPLBlockPV; + +struct IplBlockCcw { + uint8_t reserved0[85]; + uint8_t ssid; + uint16_t devno; + uint8_t vm_flags; + uint8_t reserved3[3]; + uint32_t vm_parm_len; + uint8_t nss_name[8]; + uint8_t vm_parm[64]; + uint8_t reserved4[8]; +} QEMU_PACKED; +typedef struct IplBlockCcw IplBlockCcw; + +struct IplBlockFcp { + uint8_t reserved1[305 - 1]; + uint8_t opt; + uint8_t reserved2[3]; + uint16_t reserved3; + uint16_t devno; + uint8_t reserved4[4]; + uint64_t wwpn; + uint64_t lun; + uint32_t bootprog; + uint8_t reserved5[12]; + uint64_t br_lba; + uint32_t scp_data_len; + uint8_t reserved6[260]; + uint8_t scp_data[0]; +} QEMU_PACKED; +typedef struct IplBlockFcp IplBlockFcp; + +struct IplBlockQemuScsi { + uint32_t lun; + uint16_t target; + uint16_t channel; + uint8_t reserved0[77]; + uint8_t ssid; + uint16_t devno; +} QEMU_PACKED; +typedef struct IplBlockQemuScsi IplBlockQemuScsi; + +union IplParameterBlock { + struct { + uint32_t len; + uint8_t reserved0[3]; + uint8_t version; + uint32_t blk0_len; + uint8_t pbt; + uint8_t flags; + uint16_t reserved01; + uint8_t loadparm[LOADPARM_LEN]; + union { + IplBlockCcw ccw; + IplBlockFcp fcp; + IPLBlockPV pv; + IplBlockQemuScsi scsi; + }; + } QEMU_PACKED; + struct { + uint8_t reserved1[110]; + uint16_t devno; + uint8_t reserved2[88]; + uint8_t reserved_ext[4096 - 200]; + } QEMU_PACKED; +} QEMU_PACKED; +typedef union IplParameterBlock IplParameterBlock; + +#endif diff --git a/pc-bios/s390-ccw/Makefile b/pc-bios/s390-ccw/Makefile index 27cbb354af..db9e8f0892 100644 --- a/pc-bios/s390-ccw/Makefile +++ b/pc-bios/s390-ccw/Makefile @@ -3,7 +3,7 @@ all: build-all @true include config-host.mak -CFLAGS = -O2 -g +CFLAGS = -O2 -g -I $(SRC_PATH)/../../include/hw/s390x/ipl MAKEFLAGS += -rR GIT_SUBMODULES = roms/SLOF diff --git a/pc-bios/s390-ccw/iplb.h b/pc-bios/s390-ccw/iplb.h index 3758698468..16643f5879 100644 --- a/pc-bios/s390-ccw/iplb.h +++ b/pc-bios/s390-ccw/iplb.h @@ -12,88 +12,14 @@ #ifndef IPLB_H #define IPLB_H -#define LOADPARM_LEN 8 +#ifndef QEMU_PACKED +#define QEMU_PACKED __attribute__((packed)) +#endif -struct IplBlockCcw { - uint8_t reserved0[85]; - uint8_t ssid; - uint16_t devno; - uint8_t vm_flags; - uint8_t reserved3[3]; - uint32_t vm_parm_len; - uint8_t nss_name[8]; - uint8_t vm_parm[64]; - uint8_t reserved4[8]; -} __attribute__ ((packed)); -typedef struct IplBlockCcw IplBlockCcw; - -struct IplBlockFcp { - uint8_t reserved1[305 - 1]; - uint8_t opt; - uint8_t reserved2[3]; - uint16_t reserved3; - uint16_t devno; - uint8_t reserved4[4]; - uint64_t wwpn; - uint64_t lun; - uint32_t bootprog; - uint8_t reserved5[12]; - uint64_t br_lba; - uint32_t scp_data_len; - uint8_t reserved6[260]; - uint8_t scp_data[]; -} __attribute__ ((packed)); -typedef struct IplBlockFcp IplBlockFcp; - -struct IplBlockQemuScsi { - uint32_t lun; - uint16_t target; - uint16_t channel; - uint8_t reserved0[77]; - uint8_t ssid; - uint16_t devno; -} __attribute__ ((packed)); -typedef struct IplBlockQemuScsi IplBlockQemuScsi; - -struct IplParameterBlock { - uint32_t len; - uint8_t reserved0[3]; - uint8_t version; - uint32_t blk0_len; - uint8_t pbt; - uint8_t flags; - uint16_t reserved01; - uint8_t loadparm[LOADPARM_LEN]; - union { - IplBlockCcw ccw; - IplBlockFcp fcp; - IplBlockQemuScsi scsi; - }; -} __attribute__ ((packed)); -typedef struct IplParameterBlock IplParameterBlock; - -extern IplParameterBlock iplb __attribute__((__aligned__(PAGE_SIZE))); - -#define QIPL_ADDRESS 0xcc - -/* Boot Menu flags */ -#define QIPL_FLAG_BM_OPTS_CMD 0x80 -#define QIPL_FLAG_BM_OPTS_ZIPL 0x40 - -/* - * This definition must be kept in sync with the definition - * in hw/s390x/ipl.h - */ -struct QemuIplParameters { - uint8_t qipl_flags; - uint8_t reserved1[3]; - uint64_t reserved2; - uint32_t boot_menu_timeout; - uint8_t reserved3[12]; -} __attribute__ ((packed)); -typedef struct QemuIplParameters QemuIplParameters; +#include extern QemuIplParameters qipl; +extern IplParameterBlock iplb __attribute__((__aligned__(PAGE_SIZE))); #define S390_IPL_TYPE_FCP 0x00 #define S390_IPL_TYPE_CCW 0x02 From bb185de42339025db9bbd5aa11f3f644c2a077f8 Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:48 -0400 Subject: [PATCH 14/23] s390x: Add individual loadparm assignment to CCW device Add a loadparm property to the VirtioCcwDevice object so that different loadparms can be defined on a per-device basis for CCW boot devices. The machine/global loadparm is still supported. If both a global and per-device loadparm are defined, the per-device value will override the global value for that device, but any other devices that do not specify a per-device loadparm will still use the global loadparm. It is invalid to assign a loadparm to a non-boot device. Signed-off-by: Jared Rossi Reviewed-by: Thomas Huth Message-ID: <20241020012953.1380075-15-jrossi@linux.ibm.com> Signed-off-by: Thomas Huth --- hw/s390x/ccw-device.c | 46 +++++++++++++++++++++++++ hw/s390x/ccw-device.h | 2 ++ hw/s390x/ipl.c | 68 ++++++++++++++++++++++--------------- hw/s390x/ipl.h | 3 +- hw/s390x/s390-virtio-ccw.c | 18 +--------- hw/s390x/sclp.c | 9 ++--- include/hw/s390x/ipl/qipl.h | 1 + pc-bios/s390-ccw/main.c | 10 ++++-- 8 files changed, 102 insertions(+), 55 deletions(-) diff --git a/hw/s390x/ccw-device.c b/hw/s390x/ccw-device.c index 14c24e3890..230cc09e03 100644 --- a/hw/s390x/ccw-device.c +++ b/hw/s390x/ccw-device.c @@ -13,6 +13,10 @@ #include "ccw-device.h" #include "hw/qdev-properties.h" #include "qemu/module.h" +#include "ipl.h" +#include "qapi/visitor.h" +#include "qemu/ctype.h" +#include "qapi/error.h" static void ccw_device_refill_ids(CcwDevice *dev) { @@ -37,10 +41,52 @@ static bool ccw_device_realize(CcwDevice *dev, Error **errp) return true; } +static void ccw_device_get_loadparm(Object *obj, Visitor *v, + const char *name, void *opaque, + Error **errp) +{ + CcwDevice *dev = CCW_DEVICE(obj); + char *str = g_strndup((char *) dev->loadparm, sizeof(dev->loadparm)); + + visit_type_str(v, name, &str, errp); + g_free(str); +} + +static void ccw_device_set_loadparm(Object *obj, Visitor *v, + const char *name, void *opaque, + Error **errp) +{ + CcwDevice *dev = CCW_DEVICE(obj); + char *val; + int index; + + index = object_property_get_int(obj, "bootindex", NULL); + + if (index < 0) { + error_setg(errp, "LOADPARM is only valid for boot devices!"); + } + + if (!visit_type_str(v, name, &val, errp)) { + return; + } + + s390_ipl_fmt_loadparm(dev->loadparm, val, errp); +} + +static const PropertyInfo ccw_loadparm = { + .name = "ccw_loadparm", + .description = "Up to 8 chars in set of [A-Za-z0-9. ] to pass" + " to the guest loader/kernel", + .get = ccw_device_get_loadparm, + .set = ccw_device_set_loadparm, +}; + static Property ccw_device_properties[] = { DEFINE_PROP_CSS_DEV_ID("devno", CcwDevice, devno), DEFINE_PROP_CSS_DEV_ID_RO("dev_id", CcwDevice, dev_id), DEFINE_PROP_CSS_DEV_ID_RO("subch_id", CcwDevice, subch_id), + DEFINE_PROP("loadparm", CcwDevice, loadparm, ccw_loadparm, + typeof(uint8_t[8])), DEFINE_PROP_END_OF_LIST(), }; diff --git a/hw/s390x/ccw-device.h b/hw/s390x/ccw-device.h index 5feeb0ee7a..1e1737c0f3 100644 --- a/hw/s390x/ccw-device.h +++ b/hw/s390x/ccw-device.h @@ -26,6 +26,8 @@ struct CcwDevice { CssDevId dev_id; /* The actual busid of the virtual subchannel. */ CssDevId subch_id; + /* If set, use this loadparm value when device is boot target */ + uint8_t loadparm[8]; }; typedef struct CcwDevice CcwDevice; diff --git a/hw/s390x/ipl.c b/hw/s390x/ipl.c index 8c490eeb52..656996b500 100644 --- a/hw/s390x/ipl.c +++ b/hw/s390x/ipl.c @@ -34,6 +34,7 @@ #include "qemu/config-file.h" #include "qemu/cutils.h" #include "qemu/option.h" +#include "qemu/ctype.h" #include "standard-headers/linux/virtio_ids.h" #define KERN_IMAGE_START 0x010000UL @@ -397,12 +398,43 @@ static CcwDevice *s390_get_ccw_device(DeviceState *dev_st, int *devtype) return ccw_dev; } +void s390_ipl_fmt_loadparm(uint8_t *loadparm, char *str, Error **errp) +{ + int i; + + /* Initialize the loadparm with spaces */ + memset(loadparm, ' ', LOADPARM_LEN); + for (i = 0; i < LOADPARM_LEN && str[i]; i++) { + uint8_t c = qemu_toupper(str[i]); /* mimic HMC */ + + if (qemu_isalnum(c) || c == '.' || c == ' ') { + loadparm[i] = c; + } else { + error_setg(errp, "LOADPARM: invalid character '%c' (ASCII 0x%02x)", + c, c); + return; + } + } +} + +void s390_ipl_convert_loadparm(char *ascii_lp, uint8_t *ebcdic_lp) +{ + int i; + + /* Initialize the loadparm with EBCDIC spaces (0x40) */ + memset(ebcdic_lp, '@', LOADPARM_LEN); + for (i = 0; i < LOADPARM_LEN && ascii_lp[i]; i++) { + ebcdic_lp[i] = ascii2ebcdic[(uint8_t) ascii_lp[i]]; + } +} + static bool s390_gen_initial_iplb(S390IPLState *ipl) { DeviceState *dev_st; CcwDevice *ccw_dev = NULL; SCSIDevice *sd; int devtype; + uint8_t *lp; dev_st = get_boot_device(0); if (dev_st) { @@ -413,6 +445,8 @@ static bool s390_gen_initial_iplb(S390IPLState *ipl) * Currently allow IPL only from CCW devices. */ if (ccw_dev) { + lp = ccw_dev->loadparm; + switch (devtype) { case CCW_DEVTYPE_SCSI: sd = SCSI_DEVICE(dev_st); @@ -445,40 +479,20 @@ static bool s390_gen_initial_iplb(S390IPLState *ipl) break; } - if (!s390_ipl_set_loadparm(ipl->iplb.loadparm)) { - ipl->iplb.flags |= DIAG308_FLAGS_LP_VALID; + /* If the device loadparm is empty use the global machine loadparm */ + if (memcmp(lp, NO_LOADPARM, 8) == 0) { + lp = S390_CCW_MACHINE(qdev_get_machine())->loadparm; } + s390_ipl_convert_loadparm((char *)lp, ipl->iplb.loadparm); + ipl->iplb.flags |= DIAG308_FLAGS_LP_VALID; + return true; } return false; } -int s390_ipl_set_loadparm(uint8_t *loadparm) -{ - MachineState *machine = MACHINE(qdev_get_machine()); - char *lp = object_property_get_str(OBJECT(machine), "loadparm", NULL); - - if (lp) { - int i; - - /* lp is an uppercase string without leading/embedded spaces */ - for (i = 0; i < 8 && lp[i]; i++) { - loadparm[i] = ascii2ebcdic[(uint8_t) lp[i]]; - } - - if (i < 8) { - memset(loadparm + i, 0x40, 8 - i); /* fill with EBCDIC spaces */ - } - - g_free(lp); - return 0; - } - - return -1; -} - static bool is_virtio_ccw_device_of_type(IplParameterBlock *iplb, int virtio_id) { @@ -534,7 +548,7 @@ static void update_machine_ipl_properties(IplParameterBlock *iplb) ascii_loadparm[i] = 0; object_property_set_str(machine, "loadparm", ascii_loadparm, &err); } else { - object_property_set_str(machine, "loadparm", "", &err); + object_property_set_str(machine, "loadparm", " ", &err); } if (err) { warn_report_err(err); diff --git a/hw/s390x/ipl.h b/hw/s390x/ipl.h index fa394c339d..b670bad551 100644 --- a/hw/s390x/ipl.h +++ b/hw/s390x/ipl.h @@ -21,7 +21,8 @@ #define DIAG308_FLAGS_LP_VALID 0x80 -int s390_ipl_set_loadparm(uint8_t *loadparm); +void s390_ipl_convert_loadparm(char *ascii_lp, uint8_t *ebcdic_lp); +void s390_ipl_fmt_loadparm(uint8_t *loadparm, char *str, Error **errp); void s390_ipl_update_diag308(IplParameterBlock *iplb); int s390_ipl_prepare_pv_header(Error **errp); int s390_ipl_pv_unpack(void); diff --git a/hw/s390x/s390-virtio-ccw.c b/hw/s390x/s390-virtio-ccw.c index 529e53f308..fe03f716f3 100644 --- a/hw/s390x/s390-virtio-ccw.c +++ b/hw/s390x/s390-virtio-ccw.c @@ -722,28 +722,12 @@ static void machine_set_loadparm(Object *obj, Visitor *v, { S390CcwMachineState *ms = S390_CCW_MACHINE(obj); char *val; - int i; if (!visit_type_str(v, name, &val, errp)) { return; } - for (i = 0; i < sizeof(ms->loadparm) && val[i]; i++) { - uint8_t c = qemu_toupper(val[i]); /* mimic HMC */ - - if (('A' <= c && c <= 'Z') || ('0' <= c && c <= '9') || (c == '.') || - (c == ' ')) { - ms->loadparm[i] = c; - } else { - error_setg(errp, "LOADPARM: invalid character '%c' (ASCII 0x%02x)", - c, c); - return; - } - } - - for (; i < sizeof(ms->loadparm); i++) { - ms->loadparm[i] = ' '; /* pad right with spaces */ - } + s390_ipl_fmt_loadparm(ms->loadparm, val, errp); } static void ccw_machine_class_init(ObjectClass *oc, void *data) diff --git a/hw/s390x/sclp.c b/hw/s390x/sclp.c index e725dcd5fd..8757626b5c 100644 --- a/hw/s390x/sclp.c +++ b/hw/s390x/sclp.c @@ -110,7 +110,6 @@ static void read_SCP_info(SCLPDevice *sclp, SCCB *sccb) MachineState *machine = MACHINE(qdev_get_machine()); int cpu_count; int rnsize, rnmax; - IplParameterBlock *ipib = s390_ipl_get_iplb(); int required_len = SCCB_REQ_LEN(ReadInfo, machine->possible_cpus->len); int offset_cpu = s390_has_feat(S390_FEAT_EXTENDED_LENGTH_SCCB) ? offsetof(ReadInfo, entries) : @@ -171,12 +170,8 @@ static void read_SCP_info(SCLPDevice *sclp, SCCB *sccb) read_info->rnmax2 = cpu_to_be64(rnmax); } - if (ipib && ipib->flags & DIAG308_FLAGS_LP_VALID) { - memcpy(&read_info->loadparm, &ipib->loadparm, - sizeof(read_info->loadparm)); - } else { - s390_ipl_set_loadparm(read_info->loadparm); - } + s390_ipl_convert_loadparm((char *)S390_CCW_MACHINE(machine)->loadparm, + read_info->loadparm); sccb->h.response_code = cpu_to_be16(SCLP_RC_NORMAL_READ_COMPLETION); } diff --git a/include/hw/s390x/ipl/qipl.h b/include/hw/s390x/ipl/qipl.h index 0ef04af027..b67d2ae061 100644 --- a/include/hw/s390x/ipl/qipl.h +++ b/include/hw/s390x/ipl/qipl.h @@ -18,6 +18,7 @@ #define QIPL_ADDRESS 0xcc #define LOADPARM_LEN 8 +#define NO_LOADPARM "\0\0\0\0\0\0\0\0" /* * The QEMU IPL Parameters will be stored at absolute address diff --git a/pc-bios/s390-ccw/main.c b/pc-bios/s390-ccw/main.c index 34ef27d7a6..ab4709e16e 100644 --- a/pc-bios/s390-ccw/main.c +++ b/pc-bios/s390-ccw/main.c @@ -183,8 +183,14 @@ static void css_setup(void) static void boot_setup(void) { char lpmsg[] = "LOADPARM=[________]\n"; + have_iplb = store_iplb(&iplb); + + if (memcmp(iplb.loadparm, NO_LOADPARM, LOADPARM_LEN) != 0) { + ebcdic_to_ascii((char *) iplb.loadparm, loadparm_str, LOADPARM_LEN); + } else { + sclp_get_loadparm_ascii(loadparm_str); + } - sclp_get_loadparm_ascii(loadparm_str); memcpy(lpmsg + 10, loadparm_str, 8); puts(lpmsg); @@ -193,8 +199,6 @@ static void boot_setup(void) * so we don't taint our decision-making process during a reboot. */ memset((char *)S390EP, 0, 6); - - have_iplb = store_iplb(&iplb); } static bool find_boot_device(void) From 0927875e704e93ace03bb7533c0877bf97e4bda9 Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:49 -0400 Subject: [PATCH 15/23] hw/s390x: Build an IPLB for each boot device Build an IPLB for any device with a bootindex (up to a maximum of 8 devices). The IPLB chain is placed immediately before the BIOS in memory. Because this is not a fixed address, the location of the next IPLB and number of remaining boot devices is stored in the QIPL global variable for possible later access by the guest during IPL. Signed-off-by: Jared Rossi Reviewed-by: Thomas Huth Message-ID: <20241020012953.1380075-16-jrossi@linux.ibm.com> [thuth: Fix endianness problem when accessing the qipl structure] Signed-off-by: Thomas Huth --- hw/s390x/ipl.c | 129 ++++++++++++++++++++++++++++-------- hw/s390x/ipl.h | 1 + include/hw/s390x/ipl/qipl.h | 4 +- 3 files changed, 105 insertions(+), 29 deletions(-) diff --git a/hw/s390x/ipl.c b/hw/s390x/ipl.c index 656996b500..b9d741d0b0 100644 --- a/hw/s390x/ipl.c +++ b/hw/s390x/ipl.c @@ -56,6 +56,13 @@ static bool iplb_extended_needed(void *opaque) return ipl->iplbext_migration; } +/* Place the IPLB chain immediately before the BIOS in memory */ +static uint64_t find_iplb_chain_addr(uint64_t bios_addr, uint16_t count) +{ + return (bios_addr & TARGET_PAGE_MASK) + - (count * sizeof(IplParameterBlock)); +} + static const VMStateDescription vmstate_iplb_extended = { .name = "ipl/iplb_extended", .version_id = 0, @@ -398,6 +405,17 @@ static CcwDevice *s390_get_ccw_device(DeviceState *dev_st, int *devtype) return ccw_dev; } +static uint64_t s390_ipl_map_iplb_chain(IplParameterBlock *iplb_chain) +{ + S390IPLState *ipl = get_ipl_device(); + uint16_t count = be16_to_cpu(ipl->qipl.chain_len); + uint64_t len = sizeof(IplParameterBlock) * count; + uint64_t chain_addr = find_iplb_chain_addr(ipl->bios_start_addr, count); + + cpu_physical_memory_write(chain_addr, iplb_chain, len); + return chain_addr; +} + void s390_ipl_fmt_loadparm(uint8_t *loadparm, char *str, Error **errp) { int i; @@ -428,54 +446,51 @@ void s390_ipl_convert_loadparm(char *ascii_lp, uint8_t *ebcdic_lp) } } -static bool s390_gen_initial_iplb(S390IPLState *ipl) +static bool s390_build_iplb(DeviceState *dev_st, IplParameterBlock *iplb) { - DeviceState *dev_st; + S390IPLState *ipl = get_ipl_device(); CcwDevice *ccw_dev = NULL; SCSIDevice *sd; int devtype; uint8_t *lp; - dev_st = get_boot_device(0); - if (dev_st) { - ccw_dev = s390_get_ccw_device(dev_st, &devtype); - } - /* * Currently allow IPL only from CCW devices. */ + ccw_dev = s390_get_ccw_device(dev_st, &devtype); if (ccw_dev) { lp = ccw_dev->loadparm; switch (devtype) { case CCW_DEVTYPE_SCSI: sd = SCSI_DEVICE(dev_st); - ipl->iplb.len = cpu_to_be32(S390_IPLB_MIN_QEMU_SCSI_LEN); - ipl->iplb.blk0_len = + iplb->len = cpu_to_be32(S390_IPLB_MIN_QEMU_SCSI_LEN); + iplb->blk0_len = cpu_to_be32(S390_IPLB_MIN_QEMU_SCSI_LEN - S390_IPLB_HEADER_LEN); - ipl->iplb.pbt = S390_IPL_TYPE_QEMU_SCSI; - ipl->iplb.scsi.lun = cpu_to_be32(sd->lun); - ipl->iplb.scsi.target = cpu_to_be16(sd->id); - ipl->iplb.scsi.channel = cpu_to_be16(sd->channel); - ipl->iplb.scsi.devno = cpu_to_be16(ccw_dev->sch->devno); - ipl->iplb.scsi.ssid = ccw_dev->sch->ssid & 3; + iplb->pbt = S390_IPL_TYPE_QEMU_SCSI; + iplb->scsi.lun = cpu_to_be32(sd->lun); + iplb->scsi.target = cpu_to_be16(sd->id); + iplb->scsi.channel = cpu_to_be16(sd->channel); + iplb->scsi.devno = cpu_to_be16(ccw_dev->sch->devno); + iplb->scsi.ssid = ccw_dev->sch->ssid & 3; break; case CCW_DEVTYPE_VFIO: - ipl->iplb.len = cpu_to_be32(S390_IPLB_MIN_CCW_LEN); - ipl->iplb.pbt = S390_IPL_TYPE_CCW; - ipl->iplb.ccw.devno = cpu_to_be16(ccw_dev->sch->devno); - ipl->iplb.ccw.ssid = ccw_dev->sch->ssid & 3; + iplb->len = cpu_to_be32(S390_IPLB_MIN_CCW_LEN); + iplb->pbt = S390_IPL_TYPE_CCW; + iplb->ccw.devno = cpu_to_be16(ccw_dev->sch->devno); + iplb->ccw.ssid = ccw_dev->sch->ssid & 3; break; case CCW_DEVTYPE_VIRTIO_NET: + /* The S390IPLState netboot is true if ANY IPLB may use netboot */ ipl->netboot = true; /* Fall through to CCW_DEVTYPE_VIRTIO case */ case CCW_DEVTYPE_VIRTIO: - ipl->iplb.len = cpu_to_be32(S390_IPLB_MIN_CCW_LEN); - ipl->iplb.blk0_len = + iplb->len = cpu_to_be32(S390_IPLB_MIN_CCW_LEN); + iplb->blk0_len = cpu_to_be32(S390_IPLB_MIN_CCW_LEN - S390_IPLB_HEADER_LEN); - ipl->iplb.pbt = S390_IPL_TYPE_CCW; - ipl->iplb.ccw.devno = cpu_to_be16(ccw_dev->sch->devno); - ipl->iplb.ccw.ssid = ccw_dev->sch->ssid & 3; + iplb->pbt = S390_IPL_TYPE_CCW; + iplb->ccw.devno = cpu_to_be16(ccw_dev->sch->devno); + iplb->ccw.ssid = ccw_dev->sch->ssid & 3; break; } @@ -484,8 +499,8 @@ static bool s390_gen_initial_iplb(S390IPLState *ipl) lp = S390_CCW_MACHINE(qdev_get_machine())->loadparm; } - s390_ipl_convert_loadparm((char *)lp, ipl->iplb.loadparm); - ipl->iplb.flags |= DIAG308_FLAGS_LP_VALID; + s390_ipl_convert_loadparm((char *)lp, iplb->loadparm); + iplb->flags |= DIAG308_FLAGS_LP_VALID; return true; } @@ -493,6 +508,62 @@ static bool s390_gen_initial_iplb(S390IPLState *ipl) return false; } +static bool s390_init_all_iplbs(S390IPLState *ipl) +{ + int iplb_num = 0; + IplParameterBlock iplb_chain[7]; + DeviceState *dev_st = get_boot_device(0); + Object *machine = qdev_get_machine(); + + /* + * Parse the boot devices. Generate an IPLB for only the first boot device + * which will later be set with DIAG308. + */ + if (!dev_st) { + ipl->qipl.chain_len = 0; + return false; + } + + /* If no machine loadparm was defined fill it with spaces */ + if (memcmp(S390_CCW_MACHINE(machine)->loadparm, NO_LOADPARM, 8) == 0) { + object_property_set_str(machine, "loadparm", " ", NULL); + } + + iplb_num = 1; + s390_build_iplb(dev_st, &ipl->iplb); + + /* Index any fallback boot devices */ + while (get_boot_device(iplb_num)) { + iplb_num++; + } + + if (iplb_num > MAX_BOOT_DEVS) { + warn_report("Excess boot devices defined! %d boot devices found, " + "but only the first %d will be considered.", + iplb_num, MAX_BOOT_DEVS); + + iplb_num = MAX_BOOT_DEVS; + } + + ipl->qipl.chain_len = cpu_to_be16(iplb_num - 1); + + /* + * Build fallback IPLBs for any boot devices above index 0, up to a + * maximum amount as defined in ipl.h + */ + if (iplb_num > 1) { + /* Start at 1 because the IPLB for boot index 0 is not chained */ + for (int i = 1; i < iplb_num; i++) { + dev_st = get_boot_device(i); + s390_build_iplb(dev_st, &iplb_chain[i - 1]); + } + + ipl->qipl.next_iplb = cpu_to_be64(s390_ipl_map_iplb_chain(iplb_chain)); + } + + return iplb_num; +} + static bool is_virtio_ccw_device_of_type(IplParameterBlock *iplb, int virtio_id) { @@ -620,7 +691,7 @@ void s390_ipl_reset_request(CPUState *cs, enum s390_reset reset_type) * this is the original boot device's SCSI * so restore IPL parameter info from it */ - ipl->iplb_valid = s390_gen_initial_iplb(ipl); + ipl->iplb_valid = s390_build_iplb(get_boot_device(0), &ipl->iplb); } } if (reset_type == S390_RESET_MODIFIED_CLEAR || @@ -714,7 +785,9 @@ void s390_ipl_prepare_cpu(S390CPU *cpu) if (!ipl->kernel || ipl->iplb_valid) { cpu->env.psw.addr = ipl->bios_start_addr; if (!ipl->iplb_valid) { - ipl->iplb_valid = s390_gen_initial_iplb(ipl); + ipl->iplb_valid = s390_init_all_iplbs(ipl); + } else { + ipl->qipl.chain_len = 0; } } s390_ipl_set_boot_menu(ipl); diff --git a/hw/s390x/ipl.h b/hw/s390x/ipl.h index b670bad551..54eb48fd6e 100644 --- a/hw/s390x/ipl.h +++ b/hw/s390x/ipl.h @@ -20,6 +20,7 @@ #include "qom/object.h" #define DIAG308_FLAGS_LP_VALID 0x80 +#define MAX_BOOT_DEVS 8 /* Max number of devices that may have a bootindex */ void s390_ipl_convert_loadparm(char *ascii_lp, uint8_t *ebcdic_lp); void s390_ipl_fmt_loadparm(uint8_t *loadparm, char *str, Error **errp); diff --git a/include/hw/s390x/ipl/qipl.h b/include/hw/s390x/ipl/qipl.h index b67d2ae061..1da4f75aa8 100644 --- a/include/hw/s390x/ipl/qipl.h +++ b/include/hw/s390x/ipl/qipl.h @@ -32,7 +32,9 @@ struct QemuIplParameters { uint8_t reserved1[3]; uint64_t reserved2; uint32_t boot_menu_timeout; - uint8_t reserved3[12]; + uint8_t reserved3[2]; + uint16_t chain_len; + uint64_t next_iplb; } QEMU_PACKED; typedef struct QemuIplParameters QemuIplParameters; From 455e3bc3f74ee76964efec2e0c646db15095d0d2 Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:50 -0400 Subject: [PATCH 16/23] s390x: Rebuild IPLB for SCSI device directly from DIAG308 Because virtio-scsi type devices use a non-architected IPLB pbt code they cannot be set and stored normally. Instead, the IPLB must be rebuilt during re-ipl. As s390x does not natively support multiple boot devices, the devno field is used to store the position in the boot order for the device. Handling the rebuild as part of DIAG308 removes the need to check the devices for invalid IPLBs later in the IPL. Signed-off-by: Jared Rossi Acked-by: Thomas Huth Message-ID: <20241020012953.1380075-17-jrossi@linux.ibm.com> Signed-off-by: Thomas Huth --- hw/s390x/ipl.c | 74 ++++++------------------------------- hw/s390x/ipl.h | 11 ++++-- include/hw/s390x/ipl/qipl.h | 3 +- pc-bios/s390-ccw/jump2ipl.c | 11 ++++-- target/s390x/diag.c | 9 ++++- 5 files changed, 38 insertions(+), 70 deletions(-) diff --git a/hw/s390x/ipl.c b/hw/s390x/ipl.c index b9d741d0b0..dc02b0fdda 100644 --- a/hw/s390x/ipl.c +++ b/hw/s390x/ipl.c @@ -448,7 +448,6 @@ void s390_ipl_convert_loadparm(char *ascii_lp, uint8_t *ebcdic_lp) static bool s390_build_iplb(DeviceState *dev_st, IplParameterBlock *iplb) { - S390IPLState *ipl = get_ipl_device(); CcwDevice *ccw_dev = NULL; SCSIDevice *sd; int devtype; @@ -481,9 +480,6 @@ static bool s390_build_iplb(DeviceState *dev_st, IplParameterBlock *iplb) iplb->ccw.ssid = ccw_dev->sch->ssid & 3; break; case CCW_DEVTYPE_VIRTIO_NET: - /* The S390IPLState netboot is true if ANY IPLB may use netboot */ - ipl->netboot = true; - /* Fall through to CCW_DEVTYPE_VIRTIO case */ case CCW_DEVTYPE_VIRTIO: iplb->len = cpu_to_be32(S390_IPLB_MIN_CCW_LEN); iplb->blk0_len = @@ -508,6 +504,16 @@ static bool s390_build_iplb(DeviceState *dev_st, IplParameterBlock *iplb) return false; } +void s390_rebuild_iplb(uint16_t dev_index, IplParameterBlock *iplb) +{ + S390IPLState *ipl = get_ipl_device(); + uint16_t index; + index = ipl->rebuilt_iplb ? ipl->iplb_index : dev_index; + + ipl->rebuilt_iplb = s390_build_iplb(get_boot_device(index), iplb); + ipl->iplb_index = index; +} + static bool s390_init_all_iplbs(S390IPLState *ipl) { int iplb_num = 0; @@ -564,44 +570,6 @@ static bool s390_init_all_iplbs(S390IPLState *ipl) return iplb_num; } -static bool is_virtio_ccw_device_of_type(IplParameterBlock *iplb, - int virtio_id) -{ - uint8_t cssid; - uint8_t ssid; - uint16_t devno; - uint16_t schid; - SubchDev *sch = NULL; - - if (iplb->pbt != S390_IPL_TYPE_CCW) { - return false; - } - - devno = be16_to_cpu(iplb->ccw.devno); - ssid = iplb->ccw.ssid & 3; - - for (schid = 0; schid < MAX_SCHID; schid++) { - for (cssid = 0; cssid < MAX_CSSID; cssid++) { - sch = css_find_subch(1, cssid, ssid, schid); - - if (sch && sch->devno == devno) { - return sch->id.cu_model == virtio_id; - } - } - } - return false; -} - -static bool is_virtio_net_device(IplParameterBlock *iplb) -{ - return is_virtio_ccw_device_of_type(iplb, VIRTIO_ID_NET); -} - -static bool is_virtio_scsi_device(IplParameterBlock *iplb) -{ - return is_virtio_ccw_device_of_type(iplb, VIRTIO_ID_SCSI); -} - static void update_machine_ipl_properties(IplParameterBlock *iplb) { Object *machine = qdev_get_machine(); @@ -641,7 +609,7 @@ void s390_ipl_update_diag308(IplParameterBlock *iplb) ipl->iplb = *iplb; ipl->iplb_valid = true; } - ipl->netboot = is_virtio_net_device(iplb); + update_machine_ipl_properties(iplb); } @@ -668,32 +636,14 @@ IplParameterBlock *s390_ipl_get_iplb(void) void s390_ipl_reset_request(CPUState *cs, enum s390_reset reset_type) { S390IPLState *ipl = get_ipl_device(); - if (reset_type == S390_RESET_EXTERNAL || reset_type == S390_RESET_REIPL) { /* use CPU 0 for full resets */ ipl->reset_cpu_index = 0; } else { ipl->reset_cpu_index = cs->cpu_index; } + ipl->reset_type = reset_type; - - if (reset_type == S390_RESET_REIPL && - ipl->iplb_valid && - !ipl->netboot && - ipl->iplb.pbt == S390_IPL_TYPE_CCW && - is_virtio_scsi_device(&ipl->iplb)) { - CcwDevice *ccw_dev = s390_get_ccw_device(get_boot_device(0), NULL); - - if (ccw_dev && - cpu_to_be16(ccw_dev->sch->devno) == ipl->iplb.ccw.devno && - (ccw_dev->sch->ssid & 3) == ipl->iplb.ccw.ssid) { - /* - * this is the original boot device's SCSI - * so restore IPL parameter info from it - */ - ipl->iplb_valid = s390_build_iplb(get_boot_device(0), &ipl->iplb); - } - } if (reset_type == S390_RESET_MODIFIED_CLEAR || reset_type == S390_RESET_LOAD_NORMAL || reset_type == S390_RESET_PV) { diff --git a/hw/s390x/ipl.h b/hw/s390x/ipl.h index 54eb48fd6e..d7d0b7bfd2 100644 --- a/hw/s390x/ipl.h +++ b/hw/s390x/ipl.h @@ -24,6 +24,7 @@ void s390_ipl_convert_loadparm(char *ascii_lp, uint8_t *ebcdic_lp); void s390_ipl_fmt_loadparm(uint8_t *loadparm, char *str, Error **errp); +void s390_rebuild_iplb(uint16_t index, IplParameterBlock *iplb); void s390_ipl_update_diag308(IplParameterBlock *iplb); int s390_ipl_prepare_pv_header(Error **errp); int s390_ipl_pv_unpack(void); @@ -65,7 +66,8 @@ struct S390IPLState { bool enforce_bios; bool iplb_valid; bool iplb_valid_pv; - bool netboot; + bool rebuilt_iplb; + uint16_t iplb_index; /* reset related properties don't have to be migrated or reset */ enum s390_reset reset_type; int reset_cpu_index; @@ -172,11 +174,14 @@ static inline bool iplb_valid_pv(IplParameterBlock *iplb) static inline bool iplb_valid(IplParameterBlock *iplb) { + uint32_t len = be32_to_cpu(iplb->len); + switch (iplb->pbt) { case S390_IPL_TYPE_FCP: - return be32_to_cpu(iplb->len) >= S390_IPLB_MIN_FCP_LEN; + return len >= S390_IPLB_MIN_FCP_LEN; case S390_IPL_TYPE_CCW: - return be32_to_cpu(iplb->len) >= S390_IPLB_MIN_CCW_LEN; + return len >= S390_IPLB_MIN_CCW_LEN; + case S390_IPL_TYPE_QEMU_SCSI: default: return false; } diff --git a/include/hw/s390x/ipl/qipl.h b/include/hw/s390x/ipl/qipl.h index 1da4f75aa8..6824391111 100644 --- a/include/hw/s390x/ipl/qipl.h +++ b/include/hw/s390x/ipl/qipl.h @@ -29,7 +29,8 @@ */ struct QemuIplParameters { uint8_t qipl_flags; - uint8_t reserved1[3]; + uint8_t index; + uint8_t reserved1[2]; uint64_t reserved2; uint32_t boot_menu_timeout; uint8_t reserved3[2]; diff --git a/pc-bios/s390-ccw/jump2ipl.c b/pc-bios/s390-ccw/jump2ipl.c index 8db1764ff3..99d18947d1 100644 --- a/pc-bios/s390-ccw/jump2ipl.c +++ b/pc-bios/s390-ccw/jump2ipl.c @@ -39,10 +39,15 @@ int jump_to_IPL_code(uint64_t address) write_subsystem_identification(); write_iplb_location(); - /* prevent unknown IPL types in the guest */ + /* + * The IPLB for QEMU SCSI type devices must be rebuilt during re-ipl. The + * iplb.devno is set to the boot position of the target SCSI device. + */ if (iplb.pbt == S390_IPL_TYPE_QEMU_SCSI) { - iplb.pbt = S390_IPL_TYPE_CCW; - set_iplb(&iplb); + iplb.devno = qipl.index; + if (!set_iplb(&iplb)) { + panic("Failed to set IPLB"); + } } /* diff --git a/target/s390x/diag.c b/target/s390x/diag.c index 27ffd48576..a1fd54ddac 100644 --- a/target/s390x/diag.c +++ b/target/s390x/diag.c @@ -133,7 +133,14 @@ void handle_diag_308(CPUS390XState *env, uint64_t r1, uint64_t r3, uintptr_t ra) valid = subcode == DIAG308_PV_SET ? iplb_valid_pv(iplb) : iplb_valid(iplb); if (!valid) { - env->regs[r1 + 1] = DIAG_308_RC_INVALID; + if (subcode == DIAG308_SET && iplb->pbt == S390_IPL_TYPE_QEMU_SCSI) { + s390_rebuild_iplb(iplb->devno, iplb); + s390_ipl_update_diag308(iplb); + env->regs[r1 + 1] = DIAG_308_RC_OK; + } else { + env->regs[r1 + 1] = DIAG_308_RC_INVALID; + } + goto out; } From f697bed22f58eff9b2893ac2fe3d511847398400 Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:51 -0400 Subject: [PATCH 17/23] pc-bios/s390x: Enable multi-device boot loop Allow attempts to boot from multiple IPL devices. If the first device fails to IPL, select the pre-built IPLB for the next device in the boot order and attempt to IPL from it. Continue this process until IPL is successful or there are no devices left to try. Signed-off-by: Jared Rossi Reviewed-by: Thomas Huth Message-ID: <20241020012953.1380075-18-jrossi@linux.ibm.com> Signed-off-by: Thomas Huth --- pc-bios/s390-ccw/iplb.h | 24 ++++++++++++++++++++ pc-bios/s390-ccw/jump2ipl.c | 7 +++--- pc-bios/s390-ccw/main.c | 45 +++++++++++++++++++++++-------------- pc-bios/s390-ccw/netmain.c | 2 +- 4 files changed, 57 insertions(+), 21 deletions(-) diff --git a/pc-bios/s390-ccw/iplb.h b/pc-bios/s390-ccw/iplb.h index 16643f5879..08f259ff31 100644 --- a/pc-bios/s390-ccw/iplb.h +++ b/pc-bios/s390-ccw/iplb.h @@ -17,9 +17,11 @@ #endif #include +#include extern QemuIplParameters qipl; extern IplParameterBlock iplb __attribute__((__aligned__(PAGE_SIZE))); +extern bool have_iplb; #define S390_IPL_TYPE_FCP 0x00 #define S390_IPL_TYPE_CCW 0x02 @@ -49,4 +51,26 @@ 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. + */ +static inline bool load_next_iplb(void) +{ + IplParameterBlock *next_iplb; + + if (qipl.chain_len < 1) { + return false; + } + + qipl.index++; + next_iplb = (IplParameterBlock *) qipl.next_iplb; + memcpy(&iplb, next_iplb, sizeof(IplParameterBlock)); + + qipl.chain_len--; + qipl.next_iplb = qipl.next_iplb + sizeof(IplParameterBlock); + + return true; +} + #endif /* IPLB_H */ diff --git a/pc-bios/s390-ccw/jump2ipl.c b/pc-bios/s390-ccw/jump2ipl.c index 99d18947d1..86321d0f46 100644 --- a/pc-bios/s390-ccw/jump2ipl.c +++ b/pc-bios/s390-ccw/jump2ipl.c @@ -45,9 +45,10 @@ int jump_to_IPL_code(uint64_t address) */ if (iplb.pbt == S390_IPL_TYPE_QEMU_SCSI) { iplb.devno = qipl.index; - if (!set_iplb(&iplb)) { - panic("Failed to set IPLB"); - } + } + + if (have_iplb && !set_iplb(&iplb)) { + panic("Failed to set IPLB"); } /* diff --git a/pc-bios/s390-ccw/main.c b/pc-bios/s390-ccw/main.c index ab4709e16e..a4d1c05aac 100644 --- a/pc-bios/s390-ccw/main.c +++ b/pc-bios/s390-ccw/main.c @@ -23,7 +23,7 @@ static SubChannelId blk_schid = { .one = 1 }; static char loadparm_str[LOADPARM_LEN + 1]; QemuIplParameters qipl; IplParameterBlock iplb __attribute__((__aligned__(PAGE_SIZE))); -static bool have_iplb; +bool have_iplb; static uint16_t cutype; LowCore *lowcore; /* Yes, this *is* a pointer to address 0 */ @@ -55,6 +55,12 @@ void write_iplb_location(void) } } +static void copy_qipl(void) +{ + QemuIplParameters *early_qipl = (QemuIplParameters *)QIPL_ADDRESS; + memcpy(&qipl, early_qipl, sizeof(QemuIplParameters)); +} + unsigned int get_loadparm_index(void) { return atoi(loadparm_str); @@ -152,6 +158,7 @@ static void menu_setup(void) /* If loadparm was set to any other value, then do not enable menu */ if (memcmp(loadparm_str, LOADPARM_EMPTY, LOADPARM_LEN) != 0) { + menu_set_parms(qipl.qipl_flags & ~BOOT_MENU_FLAG_MASK, 0); return; } @@ -183,7 +190,6 @@ static void css_setup(void) static void boot_setup(void) { char lpmsg[] = "LOADPARM=[________]\n"; - have_iplb = store_iplb(&iplb); if (memcmp(iplb.loadparm, NO_LOADPARM, LOADPARM_LEN) != 0) { ebcdic_to_ascii((char *) iplb.loadparm, loadparm_str, LOADPARM_LEN); @@ -191,6 +197,10 @@ static void boot_setup(void) sclp_get_loadparm_ascii(loadparm_str); } + if (have_iplb) { + menu_setup(); + } + memcpy(lpmsg + 10, loadparm_str, 8); puts(lpmsg); @@ -208,6 +218,7 @@ static bool find_boot_device(void) switch (iplb.pbt) { case S390_IPL_TYPE_CCW: + vdev->scsi_device_selected = false; debug_print_int("device no. ", iplb.ccw.devno); blk_schid.ssid = iplb.ccw.ssid & 0x3; debug_print_int("ssid ", blk_schid.ssid); @@ -231,15 +242,8 @@ static bool 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(); - } - switch (vdev->senseid.cu_model) { case VIRTIO_ID_NET: puts("Network boot device detected"); @@ -271,10 +275,9 @@ static void ipl_boot_device(void) dasd_ipl(blk_schid, cutype); break; case CU_TYPE_VIRTIO: - if (virtio_setup()) { - return; /* Only returns in case of errors */ + if (virtio_setup() == 0) { + zipl_load(); } - zipl_load(); break; default: printf("Attempting to boot from unexpected device type 0x%X\n", cutype); @@ -307,14 +310,22 @@ static void probe_boot_device(void) void main(void) { + copy_qipl(); sclp_setup(); css_setup(); - boot_setup(); - if (have_iplb && find_boot_device()) { - ipl_boot_device(); - } else { + have_iplb = store_iplb(&iplb); + if (!have_iplb) { probe_boot_device(); } - panic("Failed to IPL. Halting..."); + while (have_iplb) { + boot_setup(); + if (have_iplb && find_boot_device()) { + ipl_boot_device(); + } + have_iplb = load_next_iplb(); + } + + panic("No suitable device for IPL. Halting..."); + } diff --git a/pc-bios/s390-ccw/netmain.c b/pc-bios/s390-ccw/netmain.c index d1a6c9a91c..e46e470db4 100644 --- a/pc-bios/s390-ccw/netmain.c +++ b/pc-bios/s390-ccw/netmain.c @@ -478,7 +478,7 @@ static bool virtio_setup(void) */ enable_mss_facility(); - if (store_iplb(&iplb)) { + if (have_iplb || store_iplb(&iplb)) { IPL_assert(iplb.pbt == S390_IPL_TYPE_CCW, "IPL_TYPE_CCW expected"); dev_no = iplb.ccw.devno; debug_print_int("device no. ", dev_no); From 0bd107138ff0b171e3cd314dbc200950bcab2b05 Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:52 -0400 Subject: [PATCH 18/23] docs/system: Update documentation for s390x IPL Update docs to show that s390x PC BIOS can support more than one boot device. Signed-off-by: Jared Rossi Reviewed-by: Thomas Huth Message-ID: <20241020012953.1380075-19-jrossi@linux.ibm.com> Signed-off-by: Thomas Huth --- docs/system/bootindex.rst | 7 ++++--- docs/system/s390x/bootdevices.rst | 9 ++++++--- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/docs/system/bootindex.rst b/docs/system/bootindex.rst index 8b057f812f..988f7b3beb 100644 --- a/docs/system/bootindex.rst +++ b/docs/system/bootindex.rst @@ -49,10 +49,11 @@ Limitations ----------- Some firmware has limitations on which devices can be considered for -booting. For instance, the PC BIOS boot specification allows only one -disk to be bootable. If boot from disk fails for some reason, the BIOS +booting. For instance, the x86 PC BIOS boot specification allows only one +disk to be bootable. If boot from disk fails for some reason, the x86 BIOS won't retry booting from other disk. It can still try to boot from -floppy or net, though. +floppy or net, though. In the case of s390x BIOS, the BIOS will try up to +8 total devices, any number of which may be disks. Sometimes, firmware cannot map the device path QEMU wants firmware to boot from to a boot method. It doesn't happen for devices the firmware diff --git a/docs/system/s390x/bootdevices.rst b/docs/system/s390x/bootdevices.rst index c97efb8fc0..1a1a764c1c 100644 --- a/docs/system/s390x/bootdevices.rst +++ b/docs/system/s390x/bootdevices.rst @@ -6,9 +6,7 @@ Booting with bootindex parameter For classical mainframe guests (i.e. LPAR or z/VM installations), you always have to explicitly specify the disk where you want to boot from (or "IPL" from, -in s390x-speak -- IPL means "Initial Program Load"). In particular, there can -also be only one boot device according to the architecture specification, thus -specifying multiple boot devices is not possible (yet). +in s390x-speak -- IPL means "Initial Program Load"). So for booting an s390x guest in QEMU, you should always mark the device where you want to boot from with the ``bootindex`` property, for @@ -17,6 +15,11 @@ example:: qemu-system-s390x -drive if=none,id=dr1,file=guest.qcow2 \ -device virtio-blk,drive=dr1,bootindex=1 +Multiple devices may have a bootindex. The lowest bootindex is assigned to the +device to IPL first. If the IPL fails for the first, the device with the second +lowest bootindex will be tried and so on until IPL is successful or there are no +remaining boot devices to try. + For booting from a CD-ROM ISO image (which needs to include El-Torito boot information in order to be bootable), it is recommended to specify a ``scsi-cd`` device, for example like this:: From f5aa2d9d4c6480fa73b89c935050afe57e5d8bd9 Mon Sep 17 00:00:00 2001 From: Jared Rossi Date: Sat, 19 Oct 2024 21:29:53 -0400 Subject: [PATCH 19/23] tests/qtest: Add s390x boot order tests to cdrom-test.c Add two new qtests to verify that a valid IPL device can successfully boot after failed IPL attempts from one or more invalid devices. cdrom-test/as-fallback-device: Defines the primary boot target as a device that is invalid for IPL and a second boot target that is valid for IPL. Ensures that the valid device will be selected after the initial failed IPL. cdrom-test/as-last-option: Defines the maximum number of boot devices (8) where only the final entry in the boot order is valid. Ensures that a valid device will be selected even after multiple failed IPL attempts from both virtio-blk and virtio-scsi device types. Signed-off-by: Jared Rossi Reviewed-by: Thomas Huth Message-ID: <20241020012953.1380075-20-jrossi@linux.ibm.com> Signed-off-by: Thomas Huth --- tests/qtest/cdrom-test.c | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) diff --git a/tests/qtest/cdrom-test.c b/tests/qtest/cdrom-test.c index 9d72b24e4b..c86725a511 100644 --- a/tests/qtest/cdrom-test.c +++ b/tests/qtest/cdrom-test.c @@ -213,6 +213,30 @@ static void add_s390x_tests(void) "-drive driver=null-co,read-zeroes=on,if=none,id=d1 " "-device virtio-blk,drive=d2,bootindex=1 " "-drive if=none,id=d2,media=cdrom,file=", test_cdboot); + qtest_add_data_func("cdrom/boot/as-fallback-device", + "-device virtio-serial -device virtio-scsi " + "-device virtio-blk,drive=d1,bootindex=1 " + "-drive driver=null-co,read-zeroes=on,if=none,id=d1 " + "-device virtio-blk,drive=d2,bootindex=2 " + "-drive if=none,id=d2,media=cdrom,file=", test_cdboot); + qtest_add_data_func("cdrom/boot/as-last-option", + "-device virtio-serial -device virtio-scsi " + "-device virtio-blk,drive=d1,bootindex=1 " + "-drive driver=null-co,read-zeroes=on,if=none,id=d1 " + "-device virtio-blk,drive=d2,bootindex=2 " + "-drive driver=null-co,read-zeroes=on,if=none,id=d2 " + "-device virtio-blk,drive=d3,bootindex=3 " + "-drive driver=null-co,read-zeroes=on,if=none,id=d3 " + "-device scsi-hd,drive=d4,bootindex=4 " + "-drive driver=null-co,read-zeroes=on,if=none,id=d4 " + "-device scsi-hd,drive=d5,bootindex=5 " + "-drive driver=null-co,read-zeroes=on,if=none,id=d5 " + "-device virtio-blk,drive=d6,bootindex=6 " + "-drive driver=null-co,read-zeroes=on,if=none,id=d6 " + "-device scsi-hd,drive=d7,bootindex=7 " + "-drive driver=null-co,read-zeroes=on,if=none,id=d7 " + "-device scsi-cd,drive=d8,bootindex=8 " + "-drive if=none,id=d8,media=cdrom,file=", test_cdboot); if (qtest_has_device("x-terminal3270")) { qtest_add_data_func("cdrom/boot/without-bootindex", "-device virtio-scsi -device virtio-serial " From c58df213af7ec8924d219025a593b8f3ac475f16 Mon Sep 17 00:00:00 2001 From: Jens Remus Date: Tue, 1 Oct 2024 17:36:16 +0200 Subject: [PATCH 20/23] pc-bios/s390-ccw: Clarify alignment is in bytes The assembler directive .align [1] has architecture-dependent behavior, which may be ambiguous for the reader. Some architectures perform the alignment in bytes, others in power of two. s390 does in bytes. Use the directive .balign [2] instead, to clarify that the alignment request is in bytes. No functional change. [1] https://sourceware.org/binutils/docs/as/Align.html [2] https://sourceware.org/binutils/docs/as/Balign.html Signed-off-by: Jens Remus Reviewed-by: Marc Hartmayer Message-ID: <20241001153618.17791-2-mhartmay@linux.ibm.com> Reviewed-by: Thomas Huth Signed-off-by: Thomas Huth --- pc-bios/s390-ccw/start.S | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pc-bios/s390-ccw/start.S b/pc-bios/s390-ccw/start.S index 061b06591c..576fc12c06 100644 --- a/pc-bios/s390-ccw/start.S +++ b/pc-bios/s390-ccw/start.S @@ -112,7 +112,7 @@ io_new_code: lctlg %c6,%c6,0(%r15) br %r14 - .align 8 + .balign 8 bss_start_literal: .quad __bss_start disabled_wait_psw: @@ -125,7 +125,7 @@ io_new_mask: .quad 0x0000000180000000 .bss - .align 8 + .balign 8 stack: .space STACK_SIZE .size stack,STACK_SIZE From 3259b4424a85d9cdfd1a33ed6030a6c51c1b9b8b Mon Sep 17 00:00:00 2001 From: Jens Remus Date: Tue, 1 Oct 2024 17:36:17 +0200 Subject: [PATCH 21/23] pc-bios/s390-ccw: Don't generate TEXTRELs Commit 7cd50cbe4ca3 ("pc-bios/s390-ccw: Don't use __bss_start with the "larl" instruction") introduced the address constant bss_start_literal for __bss_start in the .text section, which introduced a relocation in code (i.e. TEXTREL). The dedicated constant is required, as __bss_start may not necessarily be aligned on a 2-byte boundary (see subject commit for details). Move the constant to the .data section to get rid of the relocation in the .text section. Add the linker option -z text to prevent TEXTRELs to get introduced in the future. Note that the R_390_RELATIVE relocations are taken care of by function glue() in include/hw/elf_ops.h.inc introduced by commit 5dce07e1cb67 ("elf-loader: Provide the possibility to relocate s390 ELF files"). Reported-by: Marc Hartmayer Signed-off-by: Jens Remus Reviewed-by: Marc Hartmayer Message-ID: <20241001153618.17791-3-mhartmay@linux.ibm.com> Reviewed-by: Thomas Huth Signed-off-by: Thomas Huth --- pc-bios/s390-ccw/Makefile | 2 +- pc-bios/s390-ccw/start.S | 7 +++++-- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/pc-bios/s390-ccw/Makefile b/pc-bios/s390-ccw/Makefile index db9e8f0892..38254e22df 100644 --- a/pc-bios/s390-ccw/Makefile +++ b/pc-bios/s390-ccw/Makefile @@ -46,7 +46,7 @@ EXTRA_CFLAGS += -fwrapv -fno-strict-aliasing -fno-asynchronous-unwind-tables EXTRA_CFLAGS += -msoft-float EXTRA_CFLAGS += -std=gnu99 EXTRA_CFLAGS += $(LIBC_INC) $(LIBNET_INC) -LDFLAGS += -Wl,-pie -nostdlib -z noexecstack +LDFLAGS += -Wl,-pie -nostdlib -z noexecstack -z text cc-test = $(CC) -Werror $1 -c -o /dev/null -xc /dev/null >/dev/null 2>/dev/null cc-option = if $(call cc-test, $1); then \ diff --git a/pc-bios/s390-ccw/start.S b/pc-bios/s390-ccw/start.S index 576fc12c06..b70213e412 100644 --- a/pc-bios/s390-ccw/start.S +++ b/pc-bios/s390-ccw/start.S @@ -113,8 +113,6 @@ io_new_code: br %r14 .balign 8 -bss_start_literal: - .quad __bss_start disabled_wait_psw: .quad 0x0002000180000000,0x0000000000000000 enabled_wait_psw: @@ -124,6 +122,11 @@ external_new_mask: io_new_mask: .quad 0x0000000180000000 +.data + .balign 8 +bss_start_literal: + .quad __bss_start + .bss .balign 8 stack: From 694d79ffce996c0993cebccc07c2ab6fc281e7d0 Mon Sep 17 00:00:00 2001 From: Marc Hartmayer Date: Tue, 1 Oct 2024 17:36:18 +0200 Subject: [PATCH 22/23] pc-bios/s390-ccw: Introduce `EXTRA_LDFLAGS` Some packaging tools want to override `LDFLAGS` when building QEMU, this will result in a build error as most likely no `-nostdlib` flag is passed. Introduce `EXTRA_LDFLAGS` so that the packager can override `LDFLAGS` without breaking the build. Signed-off-by: Marc Hartmayer Message-ID: <20241001153618.17791-4-mhartmay@linux.ibm.com> Reviewed-by: Thomas Huth [thuth: Drop the hunk to netbook.mak which is not necessary anymore] Signed-off-by: Thomas Huth --- pc-bios/s390-ccw/Makefile | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/pc-bios/s390-ccw/Makefile b/pc-bios/s390-ccw/Makefile index 38254e22df..dc69dd484f 100644 --- a/pc-bios/s390-ccw/Makefile +++ b/pc-bios/s390-ccw/Makefile @@ -4,6 +4,7 @@ all: build-all include config-host.mak CFLAGS = -O2 -g -I $(SRC_PATH)/../../include/hw/s390x/ipl +LDFLAGS ?= MAKEFLAGS += -rR GIT_SUBMODULES = roms/SLOF @@ -46,7 +47,7 @@ EXTRA_CFLAGS += -fwrapv -fno-strict-aliasing -fno-asynchronous-unwind-tables EXTRA_CFLAGS += -msoft-float EXTRA_CFLAGS += -std=gnu99 EXTRA_CFLAGS += $(LIBC_INC) $(LIBNET_INC) -LDFLAGS += -Wl,-pie -nostdlib -z noexecstack -z text +EXTRA_LDFLAGS += -Wl,-pie -nostdlib -z noexecstack -z text cc-test = $(CC) -Werror $1 -c -o /dev/null -xc /dev/null >/dev/null 2>/dev/null cc-option = if $(call cc-test, $1); then \ @@ -111,7 +112,7 @@ libnet.a: $(LIBNETOBJS) build-all: s390-ccw.img s390-ccw.elf: $(OBJECTS) libnet.a libc.a - $(call quiet-command,$(CC) $(LDFLAGS) -o $@ $^,Linking) + $(call quiet-command,$(CC) $(EXTRA_LDFLAGS) $(LDFLAGS) -o $@ $^,Linking) s390-ccw.img: s390-ccw.elf $(call quiet-command,$(STRIP) --strip-unneeded $< -o $@,Stripping $< into) From 239e351ec415ff3673d9da70d70ca3a5dd95a2f0 Mon Sep 17 00:00:00 2001 From: Thomas Huth Date: Tue, 22 Oct 2024 11:51:44 +0200 Subject: [PATCH 23/23] pc-bios/s390-ccw: Update s390-ccw.img with the full boot order support feature This update includes the full boot order support feature from Jared Rossi and the TEXTREL fix from Jens Remus. Signed-off-by: Thomas Huth --- pc-bios/s390-ccw.img | Bin 42608 -> 79608 bytes 1 file changed, 0 insertions(+), 0 deletions(-) diff --git a/pc-bios/s390-ccw.img b/pc-bios/s390-ccw.img index f0d9ef6d4d86eb8d8ace19cac3929b9c06ae826f..f9bac253066d71b64659a76d216e04040a365355 100644 GIT binary patch literal 79608 zcmbrn3w)Ht)%ZWVSwcVvPeKUGMc9N00Th>u+*H_2K!Vo=MT3F{L=^E7HC}49L`^Mf zYeO`Ow$%j*4_;cAXcfFP=_^{>x3zey_F{{!T5YUuFjW+i=l4D5d3H$v?fd`y^Z9I^ zea_6BIdkUBnKNh3%&wVx@(F&w&t(3xOd;PrK;Ik>9?_?7@^pPh%yiSoM9ct_%X>DT zfWi$h_wRtGZ;uO3KaJqc;^UR`yLiokPik=g(odmFKD|8np&!1{Cu>6bX)Jk_azZQL zCe*vnSv{X=ax%{Y%4s1fU*&#FKhyA%hu6AawVa>t|D`^U&1rTU<%{qn&6f%npZ|cT zDRJSMXJAFm2MaRwd5Qmrhef%C@g051s^v#tvSR9#30GY{VWOrA zjsiYe^G;o47R~vfZ&}tc*Y2A0%z)0fLcjR+Q>DFK9NO=~8|{yEf%>fZOV-7`G=cXy z_2?(w{`X&(Pg?trE2{2j{Ve;P_mAE+efyL*ZdiY3{~Lb#`d^;j_Ey8b_jmkh+L~vN z_R1adfq;2+W{bR~|MK%(K0`sT8(g6FLkYd+<bUcH{a}?J>cnn^UZ#{2Rz+x zzS+Baz|;NaoBdHw_%4@!zS*fB@POB!zS(`=DJqPnD6#VTB$A6%J-k%&-aA){kdpW>V;@^ z>JP28;NMEhHdCT`1JISz8ivZU*9N3su#C{xvE{Wu>UGOfDzg>;j${aI0imol2Br5V zBV-IfotEzSadcwXB*P%8FP|JSWfNn@9tM45oZT%Wp|!?bmagfO?`#j4F@pQD^?VyG z-@bD`soC(yBttvFtEo47C68?xm^cy)`8K^9vl7#l-tP*f*OzPQ0{QQ|vD``wvxida zd<$9<6Tl;_nNbE@F;*o*08ik#5)ZBPHdNzFO02<=VtdTA`%1?bEcSq}3R^2li~mUgKO| z9!d;_%dOjMO%ZJvZ3?AK;p5b_OmX~0-Ur^x`y$~NJy5GT9sm-9L%x_*R9j)yj)+)A zb;&S2O?zvH^LA^cRU0IAtzBWVlA+p5O?`zGHU%Y3gPpH#3mIQweuQ^ge3@BiZ=o-& zRNRy_J%9ujn3+gG-0d0Pk+firGu55|uj|b5_9Hy+aXy2BBi$O^o+_&S|67y!Qfu;g zHRbHDsq0H=weJUZN7rtTXS0Q8!V~33At^80Yk8|S<|oHOQC2}PSX5zE8)>VwS=w7| zq^0RL+G8C@N}Fe;UenjBx6rFMW#3Lq?=)FhfT0-l%yE9!!?=Ba|-6oBr zcUSM;#&3MJke2?-I^Z36I$fV_52h-pai=lYejxf%^x^$g(MW1jB%JV9S_xxMcbw)a z5z}03!fV55(^>RGow?qg<;b|aW}PqfFypE}W7#Al?G+|~)E2ir*d8*0-W_mvW3Wj2 zXF@M}OJ!v8&enQ*X)N3?j)dwBSk6kP9e$$y3&mT2+&^O04IXC|+v6N(ZODu~7<+|P zZ-Nt>rW*77z@38UaC_Da(Hdjy(xTpj^V^C{*z`wthfTlzTKr%M>ZKAeyvb41_6f*mBOuj^@y6@`B5b{I~M;<5bReo9~;O6Vyp?I?-{hG@CWpi`2 zEdAq_Ej^pIzbCoI-6#FWh-}l69v*GS^xnPOT2hrRU#|JJ@+ARZ!f*N#M*C@S(n?6H zh4QgNZ7gJM6A9w^9Q`A7wWRil1SwBWw~wavHO_}pV*Mv>X?J{QN_RN#_Ne!^biE&S zXuZP4K8L`4gyODqI;5qkzbCDohB+W4^w}lmu$UDpIG|J*9z7+LT+<@dU0vV$f#Y<3 zB?8g*S*n_LllGC@ZqirRxaGGOGA=%ow)O7VFE`h}1D(^Q?rT1IZFFjb%ja>kg84E} zF0yv!K*iLkm3kow?-*TRVN@;LeyfSJ&0!VN&mM+8o5INNzdgrHX`9T7r2qClW|Te7 zgv&yfFMm$31m1lR4W(MP7oqLunA~VM^((LxNxla9R&Zc7>;t|*sQ_$C?4W zH}e$u&A_(;-$wZp?UNjb_a~LExk^8@Z(ommcQ|qF*Zp>7e_CIGh2d)r8{e3hz^4}5 zn7mjhwS|#YV}8~eCuO_6&E!R^7r7j@3yGv>8kspeW8lNaYw zdXtXJe(}br2V;{t^_v{kq-}!l93qgnZ&imjSP2D-t zhE@MmOrwyM@k-@Y0v(gGpD{j3aat;^)F$cYt6z#?yGm-!(nHmoOvLAz5&6$Db|#6G zcQq)!lc?=x#V&YvNUMFXL!*I$zK#C4kN(eYTofNcIUNnxM756bcF=L8#zWQRS}%uA zYkVX=lJ@_tWnkRT^KIrS-Nd9*8Exf)cio&q-CxVLFlo}{ljR$A)(Ugn5FH`zN( zu6?`C1}`WtPmnxUZKt+p(NKOfQtBD~OOcRdbt2o0j995(R8}RlkH(B`y2hCN;T8CvI$4hz!cNcR1Gwk82*Hw<_AkD%I1CIXj>H zlM<22NzgoWkFjTB+4DUH9M07^??{jDZ>dl{c1N-(L-j1BdXar6a#7>Fq;)Kje!TMM z?#i$GJPn?CjPp%yi%U{kcA@0%xBOdsT`0d$vEIyT?Ko;$r7Pfdc zQjkqM*9bLN?b329v73)k>Zb7RH#+MDlz+91i_P}1-cDN{{-3^@XKwHcEp-xD9#F_h z`d*%<63cjVPd$0ThW*r_61)1UJM+`H?Becm^qMTXTshHsfSaqGw z3VmmlDQ7M4nn~@dvf3)aRok}69LL<-M`x9=J>K}Di&8tIlT$liGnR>w*YbsBHST9U zu?xL2R(h!97s`k6+Bc6up|7MVSr4HBmnvqx`)ENKt0!N{7D{ckZ!-=$t1r+J-p>|H zXnk2}ivBDg9X}HKLmY#f?u{N3B(O!j`RU$uEtrg0z7-jFxvyh>EjD#ZUtH#!lnO1BB$#tIQ zk{piYJUEw22{cBdAu9ysPa+ZTN~!Aqc(`S>9t!v2n(Mv)LV?cC)qnhET<99)NO1KP zzl`SZoAu54rCnFHY2BNo<OV(#s|JmOAnXE5-qkfpIwN5qb zD(bCRGGQ$=*q@B84RB$jemetg*Ub__GX_0tXcBpfuzE&eQHeFQ&a=TbkY_CLarU#0 zgAEvu7ALeNqyD6lda{hzRGi+!`my4&UiW%S>_K`fS&N^lu)IF?WHOQZrAJX^hN8pL z6ltvk|36VA^+6S7#`mmKx%NY8@#RQ|Qq|Qn2mH&}ZC4+U-4=$Thg?b3QC=c8&DW*D zX2H^bhi7wU+mDO(_HAXx8Zl_AU6S=ocRf-3d&#}xV^>ees4jj%AfqC}tE>cb(zDbv zOhy$tG{D@3b}8QKju%Ryt?b!wa6>479arO@k=%+<6eib&dbyk{k@9NQmR#00w0mD_ zKZ@llmTf<*S+^fIc>Q=2TzW>VTKgx;vF&yXEvd`8wFmvW&RlUDb*Ob%yh5lieisY$ z_u7JUJl)597{imr=$_V7H)Hu6Zg=?cY^An|=MRf+8>1|b*7h>}wS|H5ywHKAO8l3q z9>@|&a+1ow0;tGmg-$u)7d&c32e^2y472timuQ)z;n&u%%dg3l`APDou<&eaIL)&n zpep~P-bhQ^K`VhEyh*PF8gwO)W7fgTjll00DU5#e48sg^Zh|A(!3UC8(-eb_=LWP1qglQU9UQ-Bw3sAC>{0t45e!hO{td1 zIfz!FQ|J|1@6i5TZ$Bvg>m1LhOJM)jIS*4-_%%}CzT#w@TGy#`4jQr%I&Vrw5^#~( z!*AAMEf`64aLT!|@2dya+o*TjH$>-;amE+iNbjB~?dCI0u!ZioR~t)Pt`=+Yhs_Jk zxa~o6<^K93q0@l@U~%Uz1X*RO4R>Hlr&oyTd1z zypNS~j>#7t%6wbrE0T4XI;pLz4ZLDmOyx5S>*83~ zy6AdWt&3^S*WJgGrTx2n9(i>vS=#@h2f_7mF^^&Rj&BelP3hc9XUus&l2}CI6;9NyRik-#-wmf_DD?P~}|CByWQ8 z>(I+CS6-3Qm+#fmFQrR^^+j?s=0vxNo}%aT#e$Wm)~DX;OMWghyVOUC$27gh*#hO; zpjP#rcoszmdvzCu(0)=^ueZ~7MX$FgdndeKS&5v(yA7<6&Iu0I-Iwo~!PI!N=wUcs z1^qb9(d05;>VDKn^?SJMipyG+yMu*qmwlk$ z^SbfPQutR2@71jb0s_BW^}_0}_QSjOX#QIz|7z*~Kk55F^*z)7tbg9$Zzo)F6m~+X z;?p*)ezp6E8}W*it!k4tj(AygfV__^*YP$^=715;2RAa(1BoTH{9G*ZRj&RGEgI4Q zirU1AimJp)))Y@CE)p!ER(f7`4CMQj?3Tsw7i?B(D5{!9Tvz+I086i?i`>YnbJfZJh_3h@HD8H63}_$tZXg z`HiuI#%`Ic6!))h53iO|=lw|J;_!>1T`l~>KR_<>u?*&l^d5e$%5F8Yl%Ku|X}=eN z{Uho3N_^vJuub0n+*itf-F>?_SHDkJx^fiLjK)afG-m$O#0D@Qv463fXIpFBm>=~P zEtL%MHPA3S)fCOswe=?U-@>k6@&;X;bfvxO zf4XyE_-D$2e!_v_A7?nQLbcS3UdwCDmPTKq2JSu9XcAZR{2!jz@O%mQwLI&ws%~^g z^@xkbsxl8UKCcIQ9kWG!;s#g4j(8hcxmju)aYx(WgRFSh=GcIoY@~g%8oPq0NTFEq zHt;QC#bZS+$L7m14_DMDRwNUNl^*to!G5J;U(z;Tv5!!DH|k*#d$@pd2iv^0=1Sn= z6(3BVV`V>-r+DNhx;-t@_tgc`qnD~?T6G$dccs3U^Q}+AM0$yi`Qa$uN*gA5Z^L;j z(p+kVtirS8T&?e?2%W2BkN;AAU!dNk9F_+VeL}Kxw+E!!`kS3)r!McYTsWX5<6@c z)()#_teu$J#;maw&sw#1(3i3wx>$B(>dX?JqB&Ra#HKSBfsx%aJmkkK#*3gR#rzE? z_q`$TJ%?i(birrw)GYSwgkjo}JfZBOpGhCsGh`>6+?y54Tusl>barGMXZMFa+NAd1 z(oNc?o6>C>wvV!P&ZAQHl0T>Epa#}`Q1c_j9Q4`}!2iQ~9*ZzTZ|C0xQ@8gw&;%B` zOLNFB5d6;U8(-RF@9o+p6!yEJWn@tmqhXQ0eaGEbBlbqhIdEoIIR;>5HUSNX5E9MhcZn=XQf@gux|yyFqqpo@*56@8DZN_hM_z zTC89A;@ZOIMQOv(UrDZE>=OhRLfcCY*m)L-J^seAIcKLjG9E!!(AG(H_1-qV+ zTqLdgkL*{}IV+X^>TWH%Q1JCG5culPy1~y8_;4e<^dwbn=V1~LQiIp%7Z$WSSP0Ik z+N;+p{tDg~(k`?5Q>}?{0DpS{y#g#_hHJw%~mny&J?@_pWG^!;T`{~Pa@=)2m*E8pOKg-Cnv-oo7(JKf#gWXPgHNz1|(5?zzz z)s*yqPx2+9+LRERk=g&gMD-DE2B+hskRtv+F16gYiCuod6t*PRX%_YbaTLPG+b-9b zE>gliQy&Rimr=jDt&Td$-!f8q!3;%Rp>AQ#dz;W?mL>@#=o-FSbHf1JdH}*~0b% zg#N^9O_}j%a^|Vt9roA(U%LJb=hr>3{*qDfW^`PAZbSc&5!!fvM!X3`aAnh`T%}yr z0smufR~z;9?(^}*|CauzCfWH8VKp0(%7|+1v*#&?;iqM!cPc|ltMo{GZQP^v4EqtM zOL@0}6{bWP2nKWUZ@`r!)?mcyZViT5Atc-t!Zc_1fiu_sdFx{4E$oE2@y&kU4pP4r z7tJK`3{NzeII&Mk%g`Qt%e99L*aMfgLdkG@{(wEva9mafs^b=aBCVPIyjv%dg0GH# z{|XI9Jd|relUMf8KHR_FT)hA~!m{5pFV0$Gi;T-^#w#+yPOUG(>VX&!$}M!IpSX`G zZzXM$(DePlt#L#bYkcC0lcKe$7ny0EidLmwg5QS;zsX%H<85(0<0S$lA~Mi*MKUDy zz**X!dW!mFG>&cVmD<*pFaB73IQgtm+_)0?Hb7S~+f0snElQfR@&3{q?i-PB+lYb7 zN&QN{9j&b>AqIjO-Els-;!U5qRV}AGpuh)B@Qjf=vpkY|3L2b(0!Gy^c4q6Gj~OGC zvQO>2&rI7No$%0s_1yhsx*lmyS`T#fR!m!I$7S|2YSk8QAFAG{AT@5~vqe`Ox?{4q zTJ_H`9Zyd?|H<&_r|d6}7&MAiQ3% zTP0T2xlQVZVzK4b!n^oLcF$gHFm7zm`PWIy+dlF*QsaE*zqgL{jM_1s_b4UWYf4R> z^DHtTEz_0ZDqSs}KMxs${0fiA{|WODr?Xo(Lc6 zOjEM>@oN|hM`nE_V}X(3%{Z$bQ`{j+t3EjMq-aCj*J#jUb>@6o&3=Ek{hgFZu#T`Z zkL6oFx~~s$q5VQMsdBDdNfYlm^#P4&T*RVWPYd@Z5}tldCgN227Mk`8$o-Ys&T9n>{C@n$F1`b zA5>?GD?@QKmNCJfr@vtfySh<5UfKP{`yn0^d^eYA*<98E*=F64(Ui}z?}u-OU z>dpjM=S9%DQ+hf>Z-lvD_P#cvsS{G)yc<=Hn~9W}WKRefbWc$A(?oLN^omE6mrIn7 zXMs7K9^dZ#9W1*&V){xxdSQ;{RjFMTJvgtXmMA9iXH6CT!*d+8Y>LKG5_fPCTAjH_ z^34A!-mNVe&GgfxW@CZxxfuY1OC6 za2&f3PD>pZM62r~_I#gEHAZMS<4lR5yXA8o+qHa^@l!#nJBysfdTTkHi-5(-U}0^9 zN2EY3k8YSIHa(p(!|q6z2gk8G6CLB>7?BL`1P8M%^bB2{OwgbbS7(7;tR|PnzV`gA zT362~g^X)iC4+Z#y0@i$7pjh{`h|TFveMyvCS1wbN1$Fc5x!J1>&Dr;j++26odXQ# zA4n4W>`CVP4Lnbjkx_mxsWR*5n6hNVf-ctNdyuOxp5p%yeC*IWm72SjsNKMUm<6YY z-NWqS9OmJI{^H(U_SmeCWQ6VSzl%Pw_wKC~PJOLwrVG`lQ&lEyFMNyo%q>%-y|>`? zrAz0Umc4zW}fP&U+I~E_m$7;F+A_nyd=eSiI@kjEE^X;x=ql_pCzGRD6%n2VZ308A>8bN#~2MR&ZX3CfYe? z=&!?@vvZw4hSx+NJM0aC}Op^cfdWnv(61<&ZAd&dd z;)RM&;D1$oBK|(eT=|EXwHwO;4{oL6-XhwIb} zto&asQ;>hHJ;!%mCAqMG@P_%9@ysUIzqQtnHJ5LHx^JJG?jIbjZI_)?)glXHZlC&2 z10OMA8TcIZ-ww1aYbTM)Xny-ejYnHpV7_^xUG1?UC~Vhup7{khpwIt#)LP>-4OW|> zNKPbqy|O`QIb%Sj*(p(y{^lFwG85FUtu@2**RsR>3boG1nvhuF1Qub8_FMD;wnN#J zxGB6vt;8{Eb*M(Fynu3beysJ~Kc=6|?mPJ(+x;W{M|S^^|KZ(t@ISQscK%!KqC>3R zxAEODV(DqLb_u1{0*USZ0skYc5JV1k@jtTrRv_Ws-{*fQ^)?WT`2#JqyAFu8`xgGk zWLK9`>=;ohA*s50FuE7YUL=sJ-8W0l-8b<+f^^i2hFJNK$WQcY;Yek^tURKZN8zJu z$1`3nzJV`_Jh`)gJtRl0d@#bLc@pCgy+r0Ou=%1ZfT_%%*iZV)KQkF_FJVt}vaTUW zi%zcB5wmY!S`t)}R@2)hzT;I=8ibZ}haWt4=_~Ji+V1O2L0TS<`UiEYgi5)|e?xPN zY@R4m%1(3wX_+c`FIZ+@?4B%I`YZd^uDjDRf5BoYxAaNPbFqH^yM9+c+tRlWri1#X zYmVDB_r1_w*Y$Js`G=zUYHfQ)2o8zfBWKh;X_tY9Il>wG-jaC~&uhT5RIjw>bZx+j z!1D6_+Ma;6EisRfw@k25i!buL)Ut2~mgy8$aq20HJfZbpm$p$CMAbU@i1fbF4-x5A zbHUG~2Wjf8R@gGv%j&=;H>l$c2!50?AFha zC`_qiVt;v)I#+z8Jdr3TvqE=RmiA8fG`*3NjJ21E{Iy5Mi-K zyFQ3jxSF-|Yxq0YtFuDt2)~}Lvl{=SF-uBDRA-J- zUg_MmA9@db>>e0%)CPJ;xIZb)xdm@4r*uWL*$*8$tOMpDS29ztJBQ0 z4W`;iAJ1;ql6Oezl0}WC+82#iGnaN=FZ2Cui4Ix@twF|Vk-6C3(RrEJ!0hMdC*!hn z8;#5ADlR@;PT-I)K)#_wo>)>dH0mnsv=ZvYD@TbE=IMY)Tqf;$SBAmxHf2H?xXjCp zL9@WKwPp&LlT30p;vpp-Rk0~Q{QhJoQc7=}P9i0R1i}4Ty&1U*h#)azJ zML&1B)cKh5;ArJR7Tnv^t*8Fltp|!odtLILuPd5!*#GYupznL6>^UD0iST!@3mrPP z&)=r-hk?JQ`F800tGxdX?wjTB3UrCCkI%VBC{8*8`QGn)cZnAG9x=%l^Sang$yDk( zxVP8Ah=1$66f0BqFXPR}gfr`pd^~{8SB*wb&lMo0*nH^kdQKhZZ_i@IASaId%Dk6M zwO=PTo_F$WkJyjUybw*zdD0LPn+(UMGyg|oVH3Eeq!<1~W=!xTLqJOKAaQotTQ5B- zcA~w&Cw`0|zF%Y@8K)72L^7knBsOdN52&}0Q;o=!>0e<&*%4nNfE5+cNEL}2N`$a< zgT0!1cR9(43Byd&JvA(;v1k}SQMWP*jrhX-D#IbMk_WPi7F^=^3q&SHa(m>qfaYM8 z{V z^k+ZmW0GW!kn>wn_P5N9Kj*Eat-<7zT8}e6hxeO^>NnUvSI8+@J4dvG86LA@9_=w` z7iy($IU~EDe!H*nEoQe&+p)0#SgJ48D%|L zkPO$tZyBpy-pA{wgPi9kd!~2}HIZ|}RssCuTc>h~8lG=hV8(ycj5HImqGQwK2s3M%0$V_@J zmJu;1zznAd^t>kXvyT(7io<$Q=kDHb`Vtd&79g|T&(Xnc@qM(lxN$h;p~U2}5Pm(s z`1MQ>E@z@k&>_XDL;BIbKD6!uWf=uIgGI|^O6)%&d*~9P1J9l*Ek3(kTDzE;&T-zo zQRO}pXT6MdqIw6LD?=e#gpXI|F?`GZN7NpPq;|%vt#ja6Y18n@Vpr}&e{|!JKmK1h zG=elaLog(^TFi+-JU%Rw=*)OHlmA{pf!0@x)l~&?)VrZNWWVnR(W#JL@L&;;b&k)1; zB&WiK*0-VTZ|o_ckrRyF6gFlzD#v_#iw8U_GT|Sm{Hy0qiQ3dIaJ&G%;dq9B!}ndW z`qcZ$+Wk0vozd#lM^S6*dZ0)e8vVj(d@HL5vE#dQMfkzUsz^)VfI6woCuam-5Fgm~ zk!E7SB>oo{u;aBe7z@V@wS7V>KN2dE)!l0SpF?0iA%ht|4VZt*T8dc*Izl=oBvMv& zvezOXEuuBjDlCAM&2ELH^bDspu~FIs&OecU6Q^zmA03M>LIQp5^ot90<1$H|x;dQtJq_ zu5F>rhxT|QXW3$mOlIFo_UVYhkJEcoBu*z<95VywkUj~>9CX2yN;GaVY=uk-n5HLV z7W5|#OA&2Fggs8I5@t!{(zx;w35Wc^M04Z4=1p?AZ${F@Vg`cN=6_h`cIXdCAI7TN z1F;EKDRPGlx4T>{F)x2xpXa*wZrmyJ)Z)0u`Aw!$_WWXSTX-EDDx8VHAzJg;ZI&4T zxAzIx;iR0a-J|_v(eC_6ynT2io@#N|Rfni~ep=dcLr7bl8!=aXz8;q zl$5hH-tSD(9p~?I!p)pFOY>gjm48rSx_&wHTo2Z$F!lPJd4>nOgZWtZvt=emqFJru z1^hl768pcIyG@9QV}90oc3ITHgL{w$wKTr^LNp+jYdW@a9F|5(<`3mN zo@iRK-izzRSM0`hdURg}*1HAkSHHmm7aHTnpYwg<)fl~a4T)8MlQY<1KU|GBjbsf_ zD_%kI3NfS0Oe>myF8>4USYY#G>6hs{V_Z(5Vp9<_UTIRBDzV<}6P+)H%*U=+;jIQp zqX+JWiuuXBaDa8kfw+l!r8MI?NqBjOe7yX`Hpyw1>*76^BSjPSB1al-YYep z@sXaOU#E4Y`QQ)Ecln6C+|GGfkvO;ty<^iD_S^SBb)Su=>}H5x$sie%sl(s91&CS- z^WUxv*J5keW|{inD7b*tM+8O=C$48V1%2EAWV13u8fG*N%0wVfVxPm``)BBr5Zu1W z3cN#o3?2@ zqj0`igLH^pUaIwQ&cbP>p7DI}o2Wg$3kf4qZhp=F@za$ey;-7T&U^`5*WbH>yaVt& zZi6o2aDTqHni9^;z8y2=#+v<_5i5bZ!fh4SY%Jb6a&A`gUc0X~&MiKDI5Yb;*1*en z9OtCoe$9l&hBYdtJZ#P4tu(^96}1r);t91UnqSkVRpP;4`ai6XoPvk&g6=XU!4v7X zEcW)qMxM|2T%LD9i7lsbQ%}b%@Z0d$T>BAe0oi~$PAKXHnA{jN#M~Y{*=3gc=@WB+Nc|dfJIV0AC3w6#K z&RR*t@|L!{8QcAM>&@GGm)FrpQnt%)xSAa|(fd+1*vfe8Rd3*_lzg~*zm(ToCksX? zsd!ANKlc-Cu}(%_9uaxzo?Gy_b%YAy^lWHQy=hx-okHIGBrkQH0{^9!4L!;YN!bnI zP(MlxXV-tIP#HShGQ#m|o`UxhFK3nzr-!$2^MTx5@rJ_h|3>b<+>^UYG{$6Mvv3#O z3q*S`j=cB@okyQ!EQ$U&fzL5~8t^b8y~)tlO8!^1pKS0&vd8{1Y3@A3jST|XbCu2_ z={uL)nUQD$MhPRhZX9l>nx@0AbbaHc#Io>gvzXBSFL zQYMZ?Z^6kEPZup?zg@hWy*q+lneMRt{UGgKLVRME$bi4sq@-0;$w(hrR14J&tqJ1~ zaQBCwwLrVxSH_BJC#^`x`1a#Vkv3|{A$+IRVySSK9eP+iOo>f!B}`9hyPHP%u^m%y zOa1_NL5P+hy;RagPbmCZzFP_pDLm-GKL#FB-iZf^mOowFG*$gJGDn(orb@0@hknO9%ihRqo~-^-<}miEs%fM4<8C;}>UxgzrP9oqxdU*i z6%l*okTgwTwhkpWUYXI8pgg=UiWIH9vt48BmZ9Fa4}vHvmZh8L1G7 zS#e_`BlO#!W!F+HVmXYwX#@t~CaUKX?hxo+eM?(o+u6}A7{($W5w&Lp;p{Xys`o)jEp%#{>k3?IG zKJs4$eAj+`B$kqg4U0%d1M(v}VwJI?>_-F9*vQ3yrraKI$jH7;HTcm7jEOpShG_fZ z|CKynzwVBHGXl=|6h2Q|JrHd`RDb7Jc1`Dh6#hfa|E!z8i@TOOKW3lnpXfg5K#r?T zNhSIe4y+I@O!{B#(j4R7_yeD=RPLQ1xK4ju>Ns^Pb=J|po@SuL=iTSS#p=(jw2CgG zb+=T8i++d}PvDbzl6gYbh0T06@o8iv_RgP7A3Q;hC*eRsS6^rt;ic~hAn+Bx(uaJb z5BQei8-2j({hf@z4)9YlKQFi)T-k%xF;23ATZPK3shqDLPilf^QBq=U1DxN=c`GON z&(uG$B(D@-3a#?{){tWuRyaN6#@h2;`a;s~&`~0A;Z{iP(^Bz!v=2{Ki>#9JVc^-Oozm3X4jDOL2^5qz)Udx-Cr z$Va8_2cGgOCC0mFpCsaO?+2Qu`|PK@;M!6|8|`y*xa;`JTIsV>gtm5}V*mQdk=+pS zKd96QKic2b`yRs~^*qZBmdvp=tXnjY(Mvt%`G6(9F$8q4qcHY_Z%E!0@5_etpZZU0!y z-r1w!-=}@aDI+F$olDkoNBFiIL|@P9CB@=V-;sphUlr#%w1NamJU@ z=O^FZ_N)n+eoarId)RM+H)Hw8eR-TFr~kTG^Ro_gh}Y*FP!f1PpK(N|O-_bo_n5i{ zx-#JW?uta-3P#9yTCf93=4frt^Y&X(=6ESji+l;ERX$#kH{?z4p%l5-dLDP>G^xAA z={qP7k?$uxdO6SI0`|JhDMc$>Ea~#JKZ||TQZIE5?|}xkxyX4@&zuL*b0K+sQdaUx znI83?;YsG%(q?;lj%gTBR5oZJoRR&rLG}p0#D`C{M-U}j!zqcNDJrvy%6rynkH8YC zVYeusn(IwW-Bp`iG$p-*U|j(+qCJ0{30^rqp^jJ-~@zDf7nS1`%h*-kNj{zN3OJ7R_+$MKw^x&8&fsf8>`BGri)m& zT*D1Ui=r*4rH>Z||ipst@_26;v+2H>Z zJ+r?Vr_5U4oC-bV-<+!S=)QAWUOxRJIs(50=hJ@IgR-=qn&4^5d7>$0CzF2Re7(Dy ziD%nADVv`RZ>`2!8;dmjK<-3S$qATIX~}URlAeYLF7;)(xVV869N}-n;c4FIJBlysL*xG_n2Lx~eRMeojkMXfOa%vmvX%p59wlU+vhb8yepeTA}HI~Pmpw0`7 zxC!<)B3_4Zo7|>mZe}1>G{Hrq!-M1XBp>@`gGOPk%;RR%8vMRe_mJR_=3_Lf)M8aV zJbx=GgJ?%cXKFcTr!)1U@J=E-9E~tK<25Pitf#lsgLlSz+7{8C2b9X>U5&fimlD$P27TSWgW}@!-O^&SK+k`=#YL6Mz2d?A;3({a zP0dp@E=qCVQ=59Yd6K>>ABld7prSm1$TwqZqcM72=1Tb9^$C<-$C~jU?TiZ7a-07Ug5oOP0Pgg zKIPc&e80Jj9qPt@sTNYN!nzO-cD8*P&mCE6nVhZ>YZb?{3eUnm-@-2!Fm6s)NvfCx zWSc2a$gidUE5=raQ%`pH)|~#F!ViZYjra84W$)a~@2zPASaSvR?#Df}H;<3{c}{wSLo7{ z(Wi^uJifuStE|p^+%3t;{~G^rJ5THZ|7bf8`=G`jw(}&)%|DaXM=j4eJR>|$@swKT@}w4@*B0Mm-l@fRex{a1#3$edmR>$1U;1gD+{-qt z+j{};)AfCjruVZS(A)R>+7IY0_p<-QTF#7SrMrtYrzLAn*AwiH%B=rkoN8oDdYoo$ zcgJZ^)@kRYM{4I_q+WK4)i?P0PSvRRct5X~ajP<4)3ufz7G$5N$bLyzokWqcwm*Gc zZR%@UyizDV{qI8Q3I9|Mwx!!T0ILDSh;J zp3*lTQU2X-d{!|}%4dlmkn&kbxt8C}Q_8=`Q~LNdo`R!~FLgo@kdNFo{TWwk9$Dq5JjnG5835!fuhh*7$p-Q@_os;T+$NB@oj~?^d30}N zZU>M~528D>bK8J)c@T|%nEM_O$Ahq51J9r7(@yEXg{lh#HvQ3ZtGy3A!B+0tplOLT zXQuy*{P!v>qf4gWrTII$ZV~tbne&y4(|_QOdh|$L=ifE$N0~JCmqknYCG8DOTboH+ z?WXx8O=E=@+?+{U>S>Z%(pt6LjhVF5ytD{uPifk9nY5^v79#C2O}i?SHW@F~Mui=b zfsF;WT48dlkK3M+ild|R9EFSj+Jz7F;3p}3Ne15At202IKh`w4t4+&H`^rmWjCFor z(@xE#v9&9_5&n06SJULIfLrbz=(<8-qcX79z4{j^d|L+o8@FFNpHTS54E$LS{*b~m zeKPHF4}O=zug&Ct$b-B6D>JD}3%}pfd9LQ2mVy0lLw!ra4Q49 z+JjF}xXkEo{#71a_NoZq%D|U;@LYwznSn2G;rqH2Pu~oDF7Q6kQ>6Ky%D`uM`QMW< zwctXL`#HCe@25SqD}F@v=}UB)*d%XYVYH%m#m_IWKEZL(SUYwfUKH1>hb8p&g|4pL z`@Gb-Fh5=ARHxiZiH@@9*OxU-{8HN9sqJ2x$jYxYEz^dnN$7e~U<>4=j+_6_njd-< zF26qE!v8?tTNNhWR2TLFd3RB-$o?En%kI`d|oSt>l z?(@=w-qD&SbBvpIhnFVuJ6zL>Gif(MU%tZR?rk^!RpfscxQj>5sJQS8J$Rw!KRN?H z$Af1pd{_p4nhW3eg~D?(@Ny6Sp}=G98Td30{wIasmw}H5PORj<%?g**qD#+6FaI-& ze}CT%1kMQ+_ngBV_U!P>F4A>p#=c%S7W=vq+1gUcd02@-Ov{itju^~1vb8B=Z%^hM z*0n}R&0vp6WNMkN67q<9e3-SaMm+DvL!{sPwf$o^)_`ksFZiv*wG-iVbKb(#Qs5Mu7Fi;Za`xMgp@m-=`d+}cArA-H(1C=HBL`*+E1r2_49QlGCts);# zt~_W~?tZAh%yAm__OKSQm+OdoSxcL$%^PxRv&M`mw?a8(^lM{|{_ewCEybR121evOJ{i+gDEA)1d^Cz_36>KnmKqWT zU-mli^BgRgSn=taenGi#r0l3ebI@(O-i@Ve-~}@zcl5(#6^-Ejed04%o3i&GuJYCo z)26qwLhaQ@_nw4;?;(qiHS-ZZ(OU7gruihl=LFwVj{)Onw20je2_AN`x6x;E6QI9W zM0>2iuH{cD{tdlkXuuCq*aL3s*-=-BYjUUKj49(g?btoR<|{HdS*K$th2AtkSeXNlQi~Z!}!( zkET=4E+>YqoYP=K^UL_=VmsT4(?@ZU>Uk~(9=XG{C4oumimV9 zkBrRd35l@TC2iSXvcXrMU0E7u&#fV+I~L^VogTTeyj=Yb$o0D(xqMzO>wsKO^X>!Z z6a0$QE3|FAw9VPjvu&sSv0K~5gLfQJ3`C{T$}F#yfn>3?@;2fY-S!sdN36T~l|ScJ zj}Dj9MQ}VnIz8^^c@&?Ulpd5DwmVXB%()u7NH5$~*kFiwr|*S#;8}iXJggMs>IXRx z6ZZ>9*=SzFftZfp&l!&^vImptC+a#_7q?O{p|pd`3R8K0JcD4coCGz>zXJV{_o?mdWxKu;RF{)M)E4IL?aXc7@9QCz-* zC5F^ji5z&@!{>1suE?IAE72hfKNfS%b*j_k)TXSG2TLyy)wl(#FCv_hJX0QUx#nuW zC=%`Vg5*;A&~k2nblv}dsBt!Ua`1s^jn3cq*QmJm*GhbeP@uU3J!?(wuW^}-V0c#r zCq&nNm-#(&f7)qBiJuaQ+9+B-Ki4ij#uo|Y4S&t#jo4VwXf_T?hBgk;eX~pL=~Fn* zkTX;af_XdyQ(8rfj%N~oD3 zaS{>X&7j}{?qu}Y)10sDJoIm!8Cqr~d=1kQa(|lvBPS<(COUD0X*6M(i?c}=xZKtz zkvARGSVoVBc$V{=#d9h7^o}-amb`%mC*kd)r1u%6C3*Kp6I%zsoBN{m8w(rC5~7jE zO3zN*8Z5I<1V8spl|>Rh?iunE`4}Z#XVS?Vh;2X%OP$fJ&{*fZ6s>=#u%Wygjvs@A z@`C4(IM%p0w0wudFa3D4i`z5bZ#ge4^vG->Yx28kQ;E#GSR98jTKvh9gm5r_&;oqs zgWb_55cVa6k9FcXlzWs&fiKQS!GYxD_s#6sZF0X2R=jXrApSJJA2SF~X~b%uCOjYcfL@Oe_FoP~1J zMNbYbit$bhC&~B~FF0eE*$duhZu_yXXP@9YW`_p{UuTVxodcO24xLx#Kl)dE3bN*& zDKyAzzVC4Nes@}u2R^h}z3}o1^1hMo2eE@s`57~L1?LhaB3pW6BeR#^`kvB$m&lM+ zZ3lfmM!}Jl)>9(s;fCzQ1W7MA9a~7e1Cz8&t(N&dr=Q~X{DAy+Oh(!!T_!ll9cT@6 zB5t1M-`U{X{bYl$eFLA(d>)Ee?eFo_ota6?8gq6($+_$&WyZzk9pbycEic4%v97;> z$l-LnY7X{WIk@LA>ZT}WmGJyClCh`cv_TcklwV}ZBfUb?2MDD>`8|zs(sF3>TfGD} zXdJc#F#^~U_^#6DI7O34>J+hy*@xoWQ@3IBi)I<{?%-y(2V;rC%>Ebg6%k~alf0C8 zNaT#?&C>RTa@VOp|94^oR@QG|4Q0&HuWO1}z5ap6E97^=`2kO`8*(50u6#_^ZbNr6 zqTK%m{A&#|#!k?%2H!SIzWuFC{{QteYEvEzytOfFo0YV-S*qz|XCD8boTAcrUhE^? zZ_zWfy*pY)>bOADJ;gmd@gO-DF#hpKn$wl)&y+U#-Kb(<=d_I6R>0_})wYD53W#JQ zk3sGuiwIBi&(i!WpqU;>S{vYr(l6gDpkMSht%HA1qPg7klI~P#i+;hnrNp_%=3Xu| z(MDP>R?6C#wGCYkg>}wW@2)F<{&1~ztWwM_7W_Tdn{giI%#OrdiT4>TFKOd105dvQ z>~}CeK&tqC#v)T9tN#3}C0DQIc#9?e;!|yNjU#8Nh%j@`DzYsSBxyVfnQD!Z|2tDl!?}($-@cRg&7+QZz-tE zd;V`ik<@b3X3rYTZyC9TU)a-lvKeqSA~I#^_&@5g24h!Xb6f%j^%os=ho=#~kQSvQ z6oiU~tSy$lXDC6kYNL_FCG6ll84Y!CI)d1^FIgu9W&gr15(~-sN%tP(H%nX&oUEq< zM3d_*a<2GXb#;049nyDBE%Tg2w2047dW|&BJalTB#6nfGLVYq?-SGx#(z9dIv?vX~ z)Dd3iEbW#Wfl@t-zIStm!Vc$g%4v$|3;2(1L=@)%E$`WC;eWK2ld$vw_&Eui;8vn7 z1;Xxd`)Skh}%)94P+ksBJ!=CyD{<|>JLchk<)7T)Ehp~3iNLC@9@UP$?V72L$KEiHi) z7Q4DJj-UAAvp)cNO$ok@a z&7FZ;`M|M1{-ZY91b$z3zjd-?k5Y9Lso8v9eRzjE9d%vi$^hIogCKcS}cOU;CgpGo3>I8Q|rTetHGbv z9$nm-l;BQkk*CdpG$&)BEzFCue`%JNqchMbU3lZ-^h1vRhR_bvOSRcja_uD-o?~*A zn$CiJ$>V92{@o>U{CaPcXNwfF?)r82p3c?NW#b=^p7zqWdg-b=a$lA9jK5QK2W7=p zMuM_6R`#gXK$@fB&tDPF=N_jy=X+T0jD~l+@PxvTN5*XU6^Vu!o05N%!k4+2o%_`P zqrYq7tpH^6PU1~ER4kehb&cU#U@ zSYJF-i=%@qANQ6x^z{^3^y+Y$t)_*{nq4RZHlP~%RCQDDXzJ6q1w=F3`- zI_`+(Rm&(5FUE7+8ExR}TIw3%tpphPoE?2z^ftNVcdpDSuS+fCT7>$8bIDp!@E)Av zuD4{Kt?65Nb0g8bDw*TXXqwGs?q;W~l^$Z$91}B^@Np);4xk>5 ze&?X!#Xl=&S^Rk;q*kR(&qw#(BYF8Ol+mU&4V2WJInZnte@tI;dnsQf+5rEC;K=p6 zkpAz&+v&0{aHFxXS_|M#L54fSl{@@$f!q`*bVB1yp-@kqZRx*qh0tu{ZO! zXgy`#T;uKyQTBwJ6h2k&p^#OQz`moUgsyQ1UDpwU@s{@<$)bz(3_%zW9`b6FGS{)tDyk(HJy|HGWobsQx;o z^Zclta%=AHwhe|oB+iY>Z$7yvCuL{BZ{4gMm?*N??`y$-a=+-%dv)#_(4icog{AG9 z_Y%#Ug?u>M<+sgB%n7=Nt^(tC`8{1&%6!82QWx(R^vN+Gw>My55Al&x(15? z9W1}NCuJHZBt*_95}7I9k2=-eHO_8echI(*%4$=Om(|8ik8Dg))AK~dhy=dl+OF&6 z?nZOc54Ei~HJJ5kHI`mQ9Q_D|U8{B7BE116Cs0yi3;fnt!7&(PyH2);F5<@|1U}o0*0DKWDz$VNOfq!4VK_39b){&gJ9_ceisN)VH=u z+don0oAUa%=Y(>Vs?w1}UUhW6pLrjQj_l~#AuY=NGEE6BlHWPHmm9BZ(Tc(cGk2=i z^C0k3$(NvAo>m(0S4kPW8wz~i+yjDR&ThqVjgt77lVt!T8jq3P&7rl6>4cC8sQiat2-%&_;n1o&dO z7t55k46F}C6ZQS{JOx;3^rzM<{#Qyqn@G-JL0 z%Zv8>qv*QBP7q78!50id?Mq-s4xCo^v<4>#UCeTKw%kJaWCp9~0~f1bvDP_naUYg{ zC#x|>Vz>Oc!<7?iF^tjsip&slptIHcu#T3>s%<#W(Vh*&jfZ$#*5SjH-;mP2AK;FC z)p%oMznT;Fr2Shc@B1;fSl?I(tAZ8)y%0NvJD-`8=!4w9NuQQ}?xigjUgW+bIntEx zZIZDAy)SwEn5Xtk#;-j`{Ms^)H}H{`KLqYlo|A|(jVtyYoT9hkn65U(=Hm_w_hyHM z$prBnIs9kWy$!E4-Zb$|GpFe88+TR4@naJAoKrXm3#N#(n({m3pR;qnQSc$(axaJI zN%=1~N*CGFOh{%tPE1-r+}|h5Z!6L_NoUtlZw%8NdYwg!r7XW6r1Mh+esZYr!>c!h z5}v;kP7XN3y~QM%u*842*NI3g+HPZLh<2D5txhHM?*0zbhu=42cJ^9X(ngQEBM!dE zYH*x;uSnZ%jKmV<(UrO?{E&WdeXz0iFy+MuyGCdD|7Z`1clMwZ?GM+_v)2hp5Aczm zxH%dQ2ZbuWi-!S^oH1iMd6VCC&gBN1Pni?)qdViJtj{dFe++GEpiQ@njOC8r9>UhGGq(ukITC%9p-9K8+K+wYZWg6UVQwpBFE>|gMy)*z zF759=8?eA)a9-lrFLxzedXhMVknlI2BQ=fQ-K`I6REm!0CLVMp*fdh3tB>moF&9Ka zaXF99-GOc&^#471l&&!YREmEloTklRa6(sWctZrl-H%6dh_o2%yYy^vl74Z!%8&p8*3D{*STO}t%3sa9q zpGxSyrnE&`Cgla=m=>|r^|zO>1i+G07K;1I*l{Vx60>hNeq!kD#+lrrSYxt*`D7(# zi>J8G)1CJ?4@qm`E4}Z^guAmZeI#|1^pe`p(T{5zK8!YlnRQ{Xl>Z-cIyC0SD@A7r zm%IoB#yF*zHK7wJ?$?qGsg87i6K-)bR2XCxlL$@6-=5&RcdraOQhe^|T_>SPG~VOw zXbR$?$I37KFgslWA2-s1na~(X_w*4zY8vja8j3@*M$q7|XLOak=8yMJ^k<}jqr3LN zDheqlY8=srD$~wSl-i5BQCs6Ys`|Zz);^Zexh}W5(U#da6uY=tDCMbRwsep;o}ceQ z?bOyde3?wz+GKq^M7!&Bog=r3iM&pimL74mriqrkkMzGIZ)m@IT0)L7X+4OI@~qpE z{d-Q%R9a#d{;}yu;fe4bZ(J$0jAh0MZ6<=IHB7nBl3~)gJBu`YudZa>y=HR=-dV!O zIDONto*#JiLjEJYdN-mFv>$B*QEF|Z7 zDO<7(|)UQMoYgTKhtT8^mK>ww8+_EQ=lC> zG(6T`>Hd_g3)G&_b8bx| z@R}gs+@=^Pi-fYFw~EuQrojoxZs#!~yU|cc_3Wru*|84-6;4_1xjU(8)QgHQeSTf_ zD!C>pm*aX$TUVQ-*e^?@dH-|a{irSElQA!R=Pnwj3*JAfDL--bm%HLg>x=z%sqj^L zTYn!!JPI56Jb_Ik7`0}e>f0D~4ZCzbYrWL#aoJ_inlrUlsdoiEqdT6e6I{L_XY_C1 zIqt|q3dEKfnhb>)hm3%pHcqZeu-Z6`K%eLs(RzAIv%LA-H)#!W;+{7g%kGo6=X=Bl z;BN+hALuJhYr|35aKutM8t?Mn^|R2<{EVz|XQ7F-%@ysC9^>eo=RJJ$z?adk#edh< zhc$vuM{M!C!uh~PxF{oN5}%Fak+GwkEPk~cCw1%;zkC2EGh?Ti`+>x|qpZi}gxo^3 z&9y3vxo23dUvvdFIo4>meQ)`V4Qc(5wz&z&(Xlc&6_=94>K^UsD~;fGZx@!+4j)LHthPsEf}7U2`Gi|C?mdhB(X_>0e4kZ(KqLfu$D6OO-^8ypPJgYohC5&6x7&!@&=TlHyq83V5XVwyV#^{%N>9m&8 z+Uv9i6@x!(8|+Pc8JO?bnRaH{qSaPAy=XK2_ChaUX|+{3zxQYD=Q%k^z_!!x_rIPO z;d!2YU3=}d*IIk+wfDYwpNH*F9B_qc_tk~;d-@@`V04bOsuIlyl}_z15=Xc4EXQ1v zD|ZuC9fX%ys+-}(?Q9+^lNj&gN75yqKqPN9yIlc-%`?B z3+LMXAL-xlJzT~@OEWi9=8N=a3a?MqA^ePUt&n^44 zWo6=wI%MaXp@dH59LSsa#0<$IoyLHV7IV(G;IFgCyLR9$Ihrl5z!&@_+Pa*PX7Vk< z+*BOaER*i$`}}ZU@PVa$5&W`J-s_)^#5`GdSa%tbpPM<}cjo-+0atETnoQ|HQLElM zJCzkX3IeN_-bjBxsJE86f8Oxzv%lHr_#J0id6&E$dYw3_)^(RQ;S5^65Rl?6PeZ|Iu?Ddy44ZQq^E^<7=S+~Cy|AIT3MR)GwHum1b2p=TA zUiO4ZvUlTw0oS_N>D(_rJ+L`v9(kS_SPiCwP^?SH5_&Rc((j0Se&1P~*C$T+0J=R` zM>_nslMaz4Qcj@M3ewqm!*f4iJ35r+1+!OhR}Fwlx=4GdC;X32KD^jDRP`b;$2xz1 z#Bu0Az6P@O{OLyqf#3tx{-Dh~&OeK{xZpTHkgt4KXUkV7TZNa(=S64I116=0`pXku zf$8G0=qmJTKZ+`8J3<8&dlRE*i^5j=YHIY>P6F=}(4%wYJ*n`oKVbiFP-@lh{laci z*n`)d{431ccEkyYf&J5RH8NU?xpVXrq}1)gALekV6M)gPI))qJ&_q<%9}`Ay{kT%pl#f2`$}L@T{H0E^egP!$jLi_ z56wZw|9I|Lc-*UE-7$y#7D$>w#$Vy0IYqPYt%))_75CxX6Xvbw*a5tzbSN zT|3OUWd(Ugy&rFEWR?_^V_GX~KQUqZyz41hArquA2&XUH1_nRwEE1#35eDJ0(krz( zU~{Fsj~Z{fLgV9z4>tDM_cD8bcjlfu=;q?DLpQ=W+LRklmgXG>#~i|g9X{iKt)9rc zLC}1Ai{zWP1Pp0L^$7SaR_)@17n{Fi-nEwh3hS{VD{(!eeVXjb{xq{N-E?5-Z9kYL zEn~~Td3NXg8v~1r@FWWPbg;JQMy9vMR&VkghGq+b^wUADIeF(>9cB+XPxoi-(an)& z`N=_#dcb0*qe(;8p7(m)>$E3rXF!41uc52FK+ni>wb)u|axwSs?hL$e;CrKC8kJ)r zoB)rgYyN^9wt_wW)R}XrU$qu04dKa^`a&NM^~LGJJAcbH>fxA^g$c%sIMV@Z<7(a{ z(JoL7`HoB1pzW7gInI8*ms!It;<+j%5#8(Yhd0*VJn^BuZ{?gq-D3xbWkiU&peDy5 zD926&N<=^R5`V7@d})G*260Sd65F0hD%Luf)5D>DCTchEv-X>$-N)z9}X{*NaLj(3n zOEs^sx?uGz>?M)6ZQk3+N=VL@!bR8kjfDlw{&UW0sA|mBo~@i6qOtd~KmRzh0o#YK zxz`-?ikN9~L1!t}9NXw|5B0G+&)o-I$2rcN%Z+AJJgW%r@jW>;P-5}1M=UhYdxUea zCUI7eO3mH;F=;$$JNxv#57DAS0sVU`X2hd|;zvbD8=H-I-nn;Z^hGXFizu^*^$69( z+5fCnP^Q8A9-S`v-uF?CVKQFi%THm3D}`DQI;nT=OwsqNLl(~2v@j0UR>3_9NR~J{ zN<*Si9+wjm3Fn=5F0)R-+`zXBk2>A+E2N$#3Z285kV=u*8#QY-J6#j(!g!c+@utX| zV72F}-cz>^v9pA^EKm|_-iN1p;dz`I6ZuR7mR8m!1iP6yWlZ>mTSo=dK^4D+qgLPN!j0CwqEt&|E<6b$r^+-#ImfF!>}@s+Eox573u=luqLmH9&n^>Elip6KY%k>(fH zKG|&4y4f#aJr)cYayPeu{ex3V2C(GWbvtc;9 zzL3?vul7&U=!f6`6L+m>Wbg4lra24e%0%SlfJTD1idi7FSE7>r0JZ&&e-sQXNWX~O z%^!*lx{&EMKUxS!xg3t-*75o{QC=g-eevcvitT7gL8;EVKbyVH-*sHWt8$#8VQ-^s zuLQ99qzTZaMPC*U- ztv2#}ZlZLroQW;yUWI1g_%HkZJM>Kaprx-59X-Ai&T$mqiUSAE^S#;AHlY(U&pEHK zLX@)VsXJoKb{p6=d!g2RC%&;d7Uj;Lh*uShdi&lI&8gz%l!RY(u9bw%(rUPX92|G$ zJRccXX|U+6`jkr}={DmJ+z&M2)ieR8gS+r3lZU-!@XNWxPG z%J2#0+is$>x2%|Sc1q-bVOsPtaQg3V5q5PfUIr&=;oy{0MT4bA% zPCn}fNr2|tX>%5QNJ)s{-(m%=8cHhbD!`5kS7P5z1AF^hyhr-!0 zemjFlrE>r^*OyycQfXG*()%?tm^Ab0NPljZIDhnMuYXe4B;L+?dR*7!er`7QCT#Y) z#4p;!EyG#y*s|{)*IxiGa^OBTALuVI2!9S_+VkG4bHdZlQB&d3eBK`BZT3;lyh$JA z4)w{K(Y1KLS39KB_qg6Agc^bJBdmPNM)0QeFX0q&GmGLmKj&?(EKW+n`e*;8^3{;;$DTlLYz%e3Eq|`=cVM0QB+8;#!s_fyo~(dk!#xz#_XjxLQ&8W0sBgaY z?M$P-)T!Um>bKJ?72uB@li;5@34QYchh{ho#Lp}qSJ5&GZrtj7uLbGlW`-XaWOgsGX_#U z;@X0Z?8}6G*3BYj{Fb@6W&@hBm0<~WqqdIoF@|Ss1)h@_)nKO}OJb~G#->@Xw7)LO z5kL97wUj#mvtd-rgy(UR|DZ>*krpxI_bwEr46y%?nseQKo8GLUsu;5cMj$KIykRY? zDuHI;EkiMGh1I>U;oXk;b|b1{U26Kt6#6;=C18J1=v?MJgvif}Db?SJ4Ooxd2hRym(B z&6qO&VoS72EL$n#UH)Pvl;FJL=CZb>`BUgCCQqnhe8uQ%;roSy1Lo0@{wejwf_j~o z*hy)QV?)6|t3w*Q57fI=N%hANnjSQDm*Rkd6}YH_Vd})Yh|4oStQU!8ZBpsO{(B%s z{~_zM`VZ?&&?EQ{(0_iW|9BhO6WE^=>-tYV2R`fHqtcwQ|M2|@w5t1r`E#}cm-=j8 zwhvH2AM#oBMXy2GnVz$7QJT(>Q6C2VSCHBl8H5VOnP_crM!K_@s2>kJI-(zy>b3e& zl<;TuZj2+eRkK%=337A;rZ^)ilv8y;qz{zFVKAZIfLQEZtLZo#9%)m+*S16 z6RX6N8l+229jASAKQubwRB+AcU5@OO@2c|hZO5y-Q@%t}XsKB`3oF?7b3ZUi+s)sX z$N45+6fK2S&Q$u3gs*^lz1S{;=~6VGhXelU?AA`xHk&nRgL}*(o+$o){JQZR+$H&a z|4>8p7VRZcTbJ^by|z|+Sb`n;CFI^buzKPXjQ`0RYroZv!_YL?WE=(_ct{}-xuQGUjiJYxhcVuH#5C+?~wmKL4SeszKZ^YGKE>Qzej(_n>dMA z_P}hTkm%EdJZW_uQ7zGL$PaP$S7tw=**Z9=W3`u^RTG~e-2&rZM~4Qj26zCPUmhz5 zRm2&0jeZKNe15P8L%u80Y{>=m`$xg`5n`ktmBbG4 zeXlU@s1Dp$hIFVL_ia}Xy!0Vyg!f$s4V^Wz{wco>>K6=#wJGXRXvu$QD<@-TM z&VBzDgnWB8D}d?ruind@MsroS^>3wFl#G^vqg?cCFqjnk)f0HlUu1B^(DeT;dpwJ8 zE!F*94bZz+wa2tS*RAz)Bs+TEP*ot1WMx?pEkoVG0*D9o{OT@~GLffANlO2GjGtdf0RY_-jV~< zWMgdVbj}3shEpH4v>y>wp8a+D+wLKapYO)n)Re5mSOxw43%)WPdq;7keu!Q%A7lBx zz@_NDSx{x`sxEq~kiMs_+5GI@2}benZHVp6H8zEYY8u!$L^|pyH|NKp|U%Cg*jf}?~^5$b;8uC ze>^;Q{}P_aA1t&d)4e>IrKfM;`A44ZJYVM7%JUVTNuICrY&yJ^e0xq^C;R-23pvv` zN$9R@+6L}r2G{Hce}7D4$6+m@ual?PgUx6H>!Nsl6MH%dTO|I{k8cb97W1`+*8dWI z+ePGfQDMg}A8J%SFp@1{Z6&7vSxa%7<@zbPE+p6YjSf$q(s{Qz{f}c+{{5V3iD>yM z2Tyrz#_pHd53}TiG*m0)lhnfw(?eCFWS*<4qK8U?ci-I|e<y`OYBjF>|U5{W~cO>k(1 zoApiKqfxoo&ik143Am?s*?(!Y$x~Eq{^Ku)_V%Mi>ix0n?0@zcQF88(ueEiBy!=f# zNa5(vLoTM%kLuo{ zgI4x`r(Za{4BTrChO_PqDhA$&9Zq|&gqeDclUc0SjB4}7tkO@WpBR{hWQz(@hnI50 zlJ2989WvPy;Bl2ooAqOrR``pSI)oOo;mOH=OKtDbut|pnjfWPvJ9wde@+vn32as|%@dFH&Q|-CO$QiMEs2vP`V@X(;xq3dL4u zde>Q32l7WUT-KYVg8Qs1m6ni8NWUKrrg^JQXPi#^reecJ*>hUew~n%Hf`ZU)jD3B6b?ji1wR z`#4ndFF5yu@Qa|j|IO3R2wl{nyyrZ{w}SvnbUHkZ^Gl+pMd5G@@(SyokHxJk;}72KzO_Buq=bh7QcCDDi2Pl zjKRfX<5(T`B&io|!rL0Y$2j@O*fL0oKSGf5U?ydF?tsQyXk#plos&se;sj+P1A~2Y`J7MSFM#a-5;)A!U5PXTtcvMe8^Nr-<6g-@%k!+|*_O$37kTa? z4-%i+sz~Vam^W>S@!BbeEzhbZ%&R+wbw2U3%&L@ri{DOPN$LX_}Nu$No zdR#mXPFqF$ypnHO3XO_UDJ=F0i+u-JeJ%@L=Bn`?-`37pNAiZ?(paRbjt?Tqio7qt zC+?jlU*aSZ{p0LHNekwIXVE{<)#J+sk@tcdO3PRId8>i?d|>X2@Abu{x$iZdmaj3T z9RdgP3cg_A0xPE+UR+V*M?G8rW$zpLCb6^b<$_{XVzjP^ZjW9<37mKNtGj(_(^%L` zx(Uo1lwyMBI<)DxT4`XGdLGuqJzyGpjcO816Vt#XJof4&0@f2Ecl-U6)IYi;VpJ0O zjK7yODfgu1CNm`~zDFBA1V-k}x{dz}33*KI&eZcC)^=`IMFt%-J(cmm8X%a;^hrtB zYnfUqtQO9lq&4#2C}eeRy!k8*QbvyVgQ5L&E_~R$a|Fj_hUqnyVPlV{9}j!fR#OkON-(3zdD zmOgBGzkJ5LSX9ZoAVcr+n0sW%FIr{2^FhAuzY4)*(;zgOdJx0h>tNA>_=*IZW;&+AcwAW+L`X+s*6TPpswtYO)HqGZgwD#v zx)9)Y!I#5aliv~V@5{s93uo+?{1}7bSHA2pobDKS2)?-k5Au`g^`t~9rcEndV5^~= z3yHQ$*o~sg1>3B(p9sR*EzGo#X&(r}nr$6$8LLajkMCw&Vc!Ecd7RlHUzY+|qH6H9 zF`L{HcsVzcnsw@;^zTCt9b5Sb{CFfcT}i+;%}QG#{zZvS^Pi^mgN$?tOVpY|rSZ9w z$l7^f$to=@Ph|-b=89R+;4gL3n?|_h51}*&B~9#xbn|1*Dl@b0*g!8Y1J2L#R|j|0 z&KTX`rIxRKt(K3#2o`$MYa~|4T2C2g*F<9xoj;O+hq(=DhT$PC=}nG}KSz9s*cr53 zqveA5Y`4=KYA?hl9e8|Os#N-M7b={GF&REsMQ+<4@6KhS%!LvC#OH@7UpF_wdYzrXUXW^gAgkQ~QxZqBoJ@fog(j?pcej)JROB$^Z zyoo;>54i{9vyXp1{>9ARd9yx-v3Z>P;kmu@GpiRhdOE|X@IiWlb7BS~(|*9)jKf8P z!tVzMK1K^}Odmjt9hSSAOE_&wwo&S4hAb)R>b{QgEL%;!LfAcT@@e8v`LZ>NP&b1? zTn6_$h^2nI?W}ip!}HLUi_`yZxRk`MMV{$wLx0XZjh#E8#YD7<{!Z%-`oE)8>(6nY z39u&X>2T=5)8Q=rvD4!0>=0-4Sj2RtlW9q*5v?2da(1i6ecvEInNEPw+;jFv7vpb} zrhn!F-*s*r$!aA}zEi(&-x<0|P|`kmnu}ZH-3ERiUfBwwXuSR6$j^Uzpzxhoyaq1{&aZu=LVubdtyX<2SmCWwJ>%tX=q(e?RysQ` zDOT{c$bG%;dEO19lYR)z`?fmsoR{mk`!b#0<`r}DA%$q&h8X!ePB}W!{2V@Xhs6}g z7UT$pA*;O?U~&kf^T8yc_K}C7#DcbKHUF0yur@K*Wy!Z+jBqU z1VqD!a6qY?O3Mn5))s{iP7uFcJiXFz;?}sq2{q&d7+R}z|L1TPh7yX;eL)zikZplo z>uM({%o08ZLsyN(P{qx{(7aP)Fm!p??|)!ru_}+!#sBW3Z1v&KR2zT$_+v$bN;g}g`Ci`>BTHt2>OIm5m~FLu#8!MR~CGJnB#6VTa2 z*_EKP$Ttj!mxef`7SWV;Q5*iAyB%tKBO$gMi05L1p=AW_isD^^>R0m);%UA{x%D;C z!AhW+TYx9>9o~UCUSpLHU6$m)nFlL*U#nJAllsS%yF}3Z=ywWNc_YJrqPuvEiZgZi z>Z5Ym>Hb6?<>4{RXooe zV>)5-eE9APW~YyPZ(+^x$lZ~wxmhdyi+vV8C`yS93O~kY$9;m)aRmNw#Oph-#Lj?_ zO)mEIxWPQ^=EZn#)Db5QH>)kriO*~!-MQBPO9K61hJCFku7bF;sjDQ8f28_++;x-y zO)}!X3iY8&O`j?s%;`n5b&}>I>}e}b9|Rvcci$;oYo(99g&_royE8i-9nu2XQ`MWc zM|RvLXDsvY;i2Cl-9!AXK>vC{7~mFr<`9gHL2#x!?T?~8_tQ>n_P|;|n+I)|dgiPo zZYI{bUC=z<(lKE~o-l$zIdWd!moqr)@Z8VKk5Rr2uR$xou^4ZsBf`b6FIT@In|`LR zU&)^meJef0s1YAh`y`Q#x^uqXP(}G~vNd3hGVO}4Rlc7zAUBX_#Jc?dBD#v1o?G;S z;~|3bb?pC9`KP94=<^N2LFlsu1m{rhK9%{)CrO7-h}JZ0O(yim4$qxvB;_Og85j26 z#@ihFQL4N3a*sigYf7k@I)q7QnCAiKiS+Siq2XOjm{LL@v4}^x%5|d-qlnAV*_b6 z(#B)Z3Vzb|fAyRK*CJB5{iW5SxU5jEs7agpg@Y0Qr}e&vCapGKWA#dhUTx48b1p!- z;By04(0b}9+)^-Y&U(t9AGSq%BJ@4+)U30Bke68kF@8 z;!$N$gEV?tLaAfp3NpEX{@;{_=S%1vw*H95Av(WT=T@mTynhDl6@kt9v^eX`s>t6H zw-25S1&Q_}yJqbpr7znSJJ}+Ki~0roVp1JCJatfB#Lw6Ggo%3R6-=K~6pWRuH7&&> z1z$T2WxrM#nR_Z4>6tz110b+@2G9HWp2BGYf=oN6gZ2#E?wyC+QJ-eFP;35JYWl+# zj&~4qN0?5zc(1fL^t+#Up7#B`gcnk$R&={@U<*8oyzvWTUVM}91!ce;sv`-?VE%tanlh9|rBA%;4CNayVDE_d z7PVuWpbR)(0;)SJfaQ0?BWX^;jVNXoN9kA1`ruBF-H8>A``IU+DxAhnhaX{eI}A0A zpD~>@-eVu}rcR$~IaZKEa!q09Pd|UAozl&>N#IK<^$ew=pf_Iecr>S|L1U5&mQknz*juvCzuwn%b?in z$I~CJNb`4j)EpZeWC?Kq?{=^eq|?0LIL{%Q*<;(LKR72iEqjqx)(beHMJvpox_h@T zZq)}Y+AWN~1Txp*yJ280vTF|~{W?oSi}7qQDLziRd5*_|M^1b6SY=1YvD4{h6+jIa zJ~kO>VuBj&A#w~M&HNU>;P~{z>ENEmd4-XI{PfXkPWZfglJ;ArpRtg8EMyiT#q95d z`xQi~<-swv)TX}`oXB&^;OEpe%YS${Kj(vm`M=H>eAuOT(kjln2VwQ_Ty_EpQutnu zFlAVa*@}Sl9&9)1oA2I@JYW>rw_z%MQ{0bb>e0m`dUQYMIUKF-&+1Wy++!iGM=!wo1#ktiI9Nkl4b~A1zcJhllH6bcc1Q*FWaU8PV%CBl~Vtue-B`@k(;Nj)ssKAL$*Z zp@eHkmX<{cYg8*Re31D*BzCUdAiN|#6y+m#2s!IbKCtxmao{o7k7{99GH%wX>u6SH zC-9b(m~LCF?_oQ^xv~>90Q;>2{}9bRa69@HD>!^>R?IFAvx$5Ri$g#A#IG?aB?}SK zAcEBZf05ky#lCoUIVdK);m3nL!Rmn$( zQVEe2{}%6xW7~sLTPVksx)MmQENsCRm4d^3k*{goEA}u?$)EkE(XkjY1 zwm!wYpY~GUdL)SIEg0%*RJ}J^y;H4TFGdLUYF2Oq{(pic+UQ#A+Bu$8CECeau!Ha% zQn_|(Mt{SQ7c)D0ql0z4%9;(|!dkbUF*xOpgjZOQIB-S!_{_S(Na1?E^X~AxXmz47 zr#jj=t{NY$YOgUuD!jxuh@b!Fj2b1pvcCURCqy#p6b zNhdB5#bxJ1Qco#}9k>J>qtA?rbEEPb;?Eip(oK$gL*+|f@%A2ggEys`w@|LT5yQ$D zS{bccbZp&mpEk1IP7lf6*w2@A6I(-%M^7}yt8`N|^Xg*uO3LE!sGDt%|7W0xnf`bF zvES$oI}`h|ofeT*4|5;t*?PPrQxD#1W9td(NU#@ZL_OZmU#p(Xjug}Pp@sMJXM3i^ z<#_+xP#-;!JJfaJ3h3_Wi8Y?{<9h@Mb=%Hm(2eE?TS)IccDs3gajF<{rpRknekAz| zwjy3K`}KH(a#s4BBGXxC*}AtZELweELHdgsxo1~*(LYhu8E0;2Z^i87|23_EBLVL- zhN(g%!^!kB8Tb=NU@&>&X!pCb_9*vOch;UkvBy&j7juS@pq(}_$)G)p_v(R<8nik! zrfA@Ppw*eFtKlrq0@G#qAYMug-U@gqy-l8beWJP|@1g32XvVeXEv7Z-O4BTFw_6-^ z%foiU-d|J1iIaQq;LVy-;3+wDnv(8M|6u4SW#`%d#kAMA_WsP;`>eJ1vCs~B>L4|A zv)1@C>3L9k@lcm&49M>yMzr}Zt)rODrucAqm0GQN&`xL)s~=c|9#7yI$^3;8?G;qV zy1aN-m-K^$^fo2(hOR-WlMa{nX|A-!;w*&lBf^$fT^&3A=-u;=KN^qrX-@jXnna%$ zA3RZvjl{H>*q^LV7QnQK|7RcsRi!QdlL*p!c7aX1>qs(s=$_Fp@e?+#!6?d&@W@WE?zt z89?M-@!P%TSu!?doco(8xoF>f$^j$7r`k-|4e`D{o!)*cV={^bDu-uneCmnfeXUV1 zUceL93x??-@OT6WCVA7~z0}A3CZg>91I6R+I#wV!n491~6)U8F)oZyrpS~t`V!rKp z7Pis_HHJ&@Idn9tGWLwyj+R!&a~pj%f1iI`J}>csa;^4plQAO?UxAZ6IqT;{Uhw@C z+S2Pu_XQ~8YqX~C1e}!bchEZcF>l}FZx4O$e8-PgM^8+-d(w$1Lw+B!1&CKRR2_c` z3>N6jo1s4Q>L8@L{KN|OFj(!jYPN-zd<{$$c~8?n+|x}PrpGA-t?>|8d=$zGZ(9CO z%FFUOFFZBuiv{kU@@7`YfTH(=PD~j9$1BX9vxghSVkhzn=fP7Wce3aG*wm$Iq+K6( zh;TA0Wll%xf!!lMl(r|H7>o?{i%$$C)RX&42l3YujCg){ULQ5R#F(0DJ396MWNa_b zfoUWF^d|B;#)_yA`^gQU!L*kqh+vwpEMGxYX0M{lRt@iPo3qgy+c9kd1&_IS~? zVeJUSHcRUvU%-w_ONJgHpilTyn}YVxGPMbKm2yj_HH(E~LHPhm4%^3WBGd`=! z)0*{@-XN4A8<9~h?UQ$TxSo0@ECQj%QY$MhYBL@ohD94YYU|7Y>3WfvB1S2rf%;_` zoW_jj^|WEC;Ez9YRCB)PHKJ!;u6!rImTAQo*q_!P;NdcjKT4>~(5dL)3I~PNchXv% zJ?>7vdhZcf>&)r#S;%f{X}?;Ebrfdq%{6cTD{55%K>vCcb$@{1?W=qg90xi~0w~#CMK} z|InEDh7s|%kBMJ5BK}6~ijvTCIeCufsmG9C3y^jT_Qe7jcJh@^gpxA`zm6x^r=%@S z^uQ}O(2v|Ab!wl(DKh8eEB_jd?HrA5$0uL;GGWNjzU;6^3T3m8p@B+TPmM1-Q4BQ} z?`w&f2R$V%lAdoT4cWOyGv7mP8~Lko=W2#$5J9hNm|y>o^?Of#=4kbyZm(J?@ABi~ z7t9w#hx6ovTH#iz7*$9UlRAIa{K0EIUHK~Y{FBbgG!*3{m%60+KGM+dc>QmS_|ocH zHTYqLEuH@8a?ACsQU!T}({*Q#GuTYy|LCx#KC`NYJ%asAx4)a5(}w&QwK0liU!E49 z>U(&wO}qV8#%=++9OujvkIllZtTDQCZckYrjk#Zh>kg-U$`W_99^qc=s`y^>PcUou zAODwNYdihbi8WzV)2^o0wx(@uNxvxHBWhPu zTWd>pg5kXJR4Uotm1^zS;io!X`P;iY+x^~-d?n!0x+xtFWHeqDW~KffoR6`Ri9widqwfVa1HwD?VaPj73=fXZ$~Nk?Z# z((j?F*6ppy7PN&#{kp3X8-3sN{NU$#n>u=WySh5NX|9@4%^9I=jcDs%!H%c6PUh=xlCEHMMo_ z7+qFtd(#dY4vGOgHab={b#;@b`=;!w6l~ZFatqq#44$_o{awj!!=qQ*+HFPOd-X-Wo+WDQB(x{Fqn+yf?bgGdcTIOE6yX41xb!Af zW?e&FjSF)*UE&NmR43{;_)RGW#hXX{JTF#Wv26K;7rkM{#ZB9qTaw#Zsmg-eT1y9Y zcDIZO?@2)v<=b2z3r-rBozLPcMnqfNTf5p^AZ_aPTc9|H#WKGdjv-nHgr?p$x=ko% zT&VD_rtWs}hTf#V19Ya6jOCq89bj>{-_hH?jqlFwu3TknP4@UrZEc-5isxiQr8@kp zn!5ar8s3>W8}=jP{5n;iNnw4MNwL8OlxJAAn6Piui_JTGJK%qrL5e49Ce+4pQ%g&C zvZse|^-6PR2hHv^LU*JR6jsyO!jQ4TM%1yXvis#~$Ewye zZA-QdgIeLO?r;LZjTR~ncp4&uga#uNa=KJKkVF`N^}011>gq4sGQUS0wdSe~-Wo6^ z4%DOOkHDF0cT6K^M|V>|->n_nJE^C)!|H|2lArHzEcdkT5Ryb5t4SG*P{UbJhld$t zL#^N1pFTmQ;9aT6$3{>XVSQ zhMAa97SGeC)hZ@wJiBOAtO;97(&1!0d@;KZ1Iz^yYeUV3)q%tUQz6Y>Rb7t&zNxb} z6=Hvh-_+C7+b)R0{(wTSiPx`Pz4i)|&xYqjcPHJ^9**0(?ryN8VWEs8Bg0y$oJxzy{L526KB4e1ecc*= zdQM0(w zb-nFf89B6J*~PKCg!0&rmC`=FgipOoKitiZDE-3cuHZX|Sp9DF#-slHRX;x~_oXEl zynR9DyQp~aqD#t3mu3Q%%-{OP%QIh%mGi0=UUq(&6MQ>%wgxfRUEkK;(b;uFcbKv# z)w}D)-8a28{2uj;SJ%|mt-NB@>LC10SFX8g?YhMJ`Y_#wjhn8%reX7&-S@D>b>Bim zzL9h#+AQ*~wFCM>Fl=w#(c5j3AwSWUZ0eCb=gq%7tZ$9#}hkh+>ZobhmeJAsf)o{*COdT>e31C2(iH9z? z%x}3CT{wV+4E+4ZKXzbf!;9aF=GrGb)JdRaS8hyH`t`}?Wa}=9oZsV@ z0Q!~HH>Hw2izwzyDZ&KG?^}V6VXQ%8P@}qbC)*IMyUUulhb>$bBO@T!T*OrW}$1yIM)q>BAMnac_EIS=PLw zwWBrF%G3rWIAESZQrhOY%2n|iKTr&4M66K(=bLa@{i z4%XF)UCYBzfNd!Y|5;yU(p;34hAP6`)?0{Y*nOpXUlg>R$&267)Sj&LgB}X|A%i*B zLdQViwn`>>swrJhJIWq3)9P;%$)J$8-LwdLTpvrvB4Y_B-Q3mtACT6ldNi@+W&4Ukw{eD(%Vk zPNoQqaK9N%RUinTn>MYkE%Vg3*?*eSv;uL!~4+1ZmCIRg)drYmSnDYf;hudb^fUBIw4K>f9y*#?u*9)DYFswb-i zNyjtADc^{iNAmKlQpTpddVP>M)U8wzfg0vuJu`!LcyKM)y6(!+jqqIkrSx#flv*+) z!5Jt}_mX}V+XS$ zs2&X0pW*C5p5Y#EN?Mod?WzR3{)W1>8|qv; zvr_~KGH_`UIySzwpzCH{@ASgD$uFB66BM%tv#5GPA! zGdf1V5lz>TL`7?9@dNVo{bu`ghEL*}cW#Bw0y`+NsqVJYUK9~CFoof(J5UI^dod)` zha;@oOc%9`K(s{B&C1>mXDFzl2*1+vw``D%k*>Ez7R+mT)}WtuD}-O1)Vm-BKa-xa z(HKh;Fbf8d(pw3`0YOQ_0YQnw0jk3d^inH7sZwgqz?=zCxxH9u(VuU8XkGL5sIyHyE&c}M7=p_$ z+1{S=E0&j9d1z%@(~cga`kMBZ()#3eAVk=*w(W9V zPOuoVqdN6!DOzADN+qKp)5a}zr0J3^Hw>bbkyu=ZQrz9^C`dij-qpt1Noj3oJNPoX zN+ePCJ5)xUW>6Lu*uP3Qb~iO&U%Im0jZBEAv~zoD%}s5Bc3qbyY@OYuSM}KVTiXfD zG8&bxlo8v?S&1rK3K6)~8s)l1+E(f6j-9QjKSAqOx6?DttvyLmaWI-`eweD%@>qE_ zj>04uOGmbIWotJ^DQiLLnoa!|qPXi6d*>x!uKX^%NOK($~q%dZ2{YKDD zV&_dger>mul-0EsJu)7%u-|+WW=3a*9g|;Hc#HHGpg&mB5#>AHzO)@Hkk&=U?!%k6e~*0FT8e`$Sp+|<}SaK_S`Sr1M>>k>Q$W=r^*qdbP;RRe??@L}E8I8&-Kn(Uc-9^Ia)PN0mTG zc}Anm&Ruc(+{xX^=3bkKOYS#|uepU5TYVe}9c5RHEjw(TwJ(hl5(P0UCbBT27;wR_ z@vXsgqkC@sX7F7$@;eir=fa!57{q@t_}&*h8-nLWBjdLQ>Hcp$8-MA_Z@mBiZ9V_D z;Qe#UY3#l>$D14WoZ1%l)zYP&SA{jtmX{|@nxwU#P4#QAER77)T-7WdBVuZrIu^>B z-_zL!`)V<^Z>ju}T5J{0Y7#CZz=p*qS&CK}r?c^pCCkL)z-5Pscdi$iw%m;$?^Mu= z@d|VAG{-`Nc15gluXk~k$kNKna&Lame6wJ1k2!A;Yh}!0jA)g##=B6DiBIT%eiOWN z*cZSJ0A5aHFJBSPyC28@`bD@^XM$=2kC8lYLarAH?c-Av#_u;ge`N7b?b3IUE+T+z%Hfo793OlV$yJ!~Ai6G3LQ z(i|m3C}tJ(lr`!_j1fL_pX-yU9$CZa3#_;{8^k6tY7V`Gl+Mz$-Ig4r^KVaeRYErT zzTQGpB;3XfQ2CjFYr`N?2KGubUde10M&DNmlMM2rA2-W%jP& zvIFYNz##&3K-<(TK?88urGqS%%j*zxM91O;cE+JN24PgSe;5WZzNyZu; zEHU5M)C1asA;$pLn;VA*I)dkR_q;!N9(YR-e)XvEwX7E9jekD{1nkPiKXhC091Nb{ zbI(ua2G2k)eln1ApS(2)|MwvM-?`_*YlCNP@T?4;vEbS8x-%_4xS0hbfD~u^y-u;# ze}*~{7&(Tu0x^T6TX$upf^{8B5G}(r`_TB}V2SlB;F5$B+5A?P zwZhP?GRb3SgA%p^kcUif*=k&_dnCOF{bs>ym;dCyzIM7NgL%T}dcyWU5zJ>s#~%&&e;9ryIKCCs zAErC{7Du(2{{u}i&=>(Wr0I~fLkbTF-8CmjcQen|F)si1`x^%ShJn9f;BOfC8wUP{ zfxltke~N+5^r_#uyg6pe;@$aDdgILBhVKbM{1NxWrsjTIg6CPmvoLth2%g~sGqZlV z4ep6`&VC#T>3)-fr{(Wti}LN2;y<+`G4?>ym9YoON~4?+rrs(=$_->?w(bX zUHW_nV&pmZ%suRa*+uWtJ-5Q1xsNuw@8kAhm;GL|GlW)27Yce@w(!%-IU2s6XD@+m zA`JZ7^UuYAxsv@w*sI@=SbJGRgMVe+W<6@w)z;~`e$C2yo}PF02EV>;L&DxSY>aQ* zw835-K)H>%yaawAyyZ5E4&?8V(|qfOW-0R#?=7Qk#s;6_^dqf)3NzsC>-7IA&B(S* z$a{{kY+@P}KPeW*Ur|$2>6cuwcGDuiyu9qfvY1~Ht5_a;L;1yiNj=uRRcz>R5v3Kl z(vV;z*10CduuaUI|+4R+t|BO#@e(@2Y~xm|HPw0JOnt+apThq zpWc*FwS?&vJe|LQkA;1bv&y9ppI)*1&ipSr2!9LUW4{kR!uq@1cZTn(&$9D`EKteR zXCa>r^B++JByz+aUPSE??+$4u%wI^D;^d#CUl1Si_web3{M@A)#+SaU_zPhR@`wC9 zd>TIw(3(5;eF-;V{-FMsgZS`yL9NS{`9C{<1EE2^ z0UkoWA1T}Ga#-E(pw1m79_>0A6GgeR!KQQ?$YWe>0T!8_bb_`e^%=y?NwA^c&5EobQVK^mym=G>uU%Qz(6N}vWRqNfiSW(n}%T=2uVYt*-SbtI-^lD z4$h(>BkrRuf=|$|Ht3ARjf^lej^A<2;D(M1(k^HeIvNE8^8TND>%GoG7=rrqoc}rB zKBrUlYP(C_y7$(tdY$WX=FAKWvxv|qTqGfH6ht%{92`~Ca80BY3?y<=VGgau3`Vp@9+}Fs7 zc&tkrp3CLo3!Ji^`w>!S>1W}F0AZv|AJJygXOxF^Nkxi;6H2Xx-j5cv!!v5no+#+I z5X}sDXQI#IltY=Ru#7J$UOB#`@Pdiss>;Wub1jXLfN%J$c}v91J3bhr=RP%a(CFY#7$@9sH1n&S+J`xe#~o$^ ziBI^RCRwqgu~Yl-J%!D;2Av|M5%n{^)=ucTjUNdSpFn>{z166o^vy<92yOMgzQG3- zvCkTOLQ%NQPqbtqTx#&aMkneo)24{%EQovN0yRb(C@k8A`nTL}Sis+uDy#u_lZwC2 zCY!L<3%>|BniR^pML=zerkqm*6rh2eL(~fuUqukQTVE$g+Gr7ZV_0}JQcJ@P!rman zFm0@^H#$(4)I3bg5V3C6A+(`@?G;%BJIP8EZ2eQfp~Q+h?P3w8)rxgUb+lNoO%@in z!(Nl?P=+`i_FANaklvK%P;5lglDkm5A)qRy=$j|Pa~)2RFkVuts80lHFhx@hCm-OCaBOghL6E(0@NA`av92Ti`9@1{ z8)UJ!mMTQR*^(=)kc45)_qSlJM74s$oAXpZ%h$-6W^UT_#yUvN-A=Vmm}N<;wa0kG zgn$~{E;jZbqYTr===ug#3_X3^fPw)wYC|Sx0Ea%>kSTRYBefy+D9F~cz{LWId79)| z{}ahaLLnsB(%&98jK)LVqgtwd3hBd9Q6c(Q0NZ+!c|)G3;dyl9N4lpk6=`y8hQX!+cDB1qB@E{&AWqn%vTzBC&|)9FB2|(zs2)d&V5a#&J&zJLXg^C zgB&ZsAXfIqiWathm>b7d_#y_qR~hu?F}<~7aq|S>5WT72MPGA1HsA>QL<%(C)6jSk z!Iu;Tdd}xkg3r?&U-X4GTSTLF8)-41P`6J68~jRh9`ZHKOT9P?Dj zIQTL3CUDRxtj)Vypk0oNJDA9y9)CrmJ>i-}Z_Mfx9yM^+x*`0AfZ_-@7n2z4m zqVG_q!%8L7zUGo7hCe!>C|1}7Wk(%myH$UiN*BIkLL9aTWq*gJc9RVtZMJ1tqZ?!V z12jduK5&ZX(hm^+{UlYQ7wiz(iW-6uUyI(GveMnqHF`5fQF#>V|5)e#`VB_^VFZ8k zy}*hrhU5lT23ZWfg6bY@0)$5Be#|>&csSdZB!)H@P=0PedyOf*kE#A62{b+5%_A%< zmHHLd*p?te=;K`op zb6QxRc=dO&B6l~~g^P6y`cb}Kby~D7`nOn3574aiJ_s5nV|_f{0?#9=mGGc`n5#p~ zZ}xwPV&L*1zE9$N1NBs|N3Nc86PpLX^Xk3z;=Vet>IVs+ba+Fwur`#}0bNf`_Jcka`l(A$TocCe4RPyHh}5;ZAs2 zt@<9|dzwC;8bNJ)XP_7Bzj1kqera`VV=NG>sVbdU%rv`XKkcwG)buJfwgVa%$yO0zTsDPZ+@we3Hfq z`UO@Z#<5ZB&MgVIseZ2I_1IhYa2M)eff^k`?7vh?c8dD#uo=^YMeDDh z1ivrfzE-kB0Y6&8yGGMGvO2I!FjBBcO|VG2P+HUc3|S<|lbc3xJrit%MQS8#MC}v{ zw4<~}?=ZX}%>Vw(|2oFj%GwTp2}j5m`MF~OMC^~&wh4WAKYt8L76Y%Pzz8ul}&X({GtJ zE3n8VIhlMXjnwO}l%LYb`Q4Pi=&zh_ASwFxK5hy7jFx_An}2ie5pK7G^YFIO?l;`7 zoJ;Pd{1jg0y>920_i{OF;cu(C)=RzGF5x`zKt6}_Kj-`m&X;k13hOVHWANPq9pBCv+KC-8u!DAqqOBLaX@mh)=jE_UhMA(WEjLlDlg|Kb4McjeCEzKnBy%@|k zM!kKL@I}bceBhb>ML_jMiy>q?O?=<3AS?#H%=k8d2Vo`;-d+tJ*j(5@KS$n*SO1s6 zgI?r$CtjuP#hhFX55H9h_TUoy8H^t(HrnEERzx)X^5~>^@^UvQBFqiVlB@VAeUe}Y z6vBi#HlAby<&QEZ8(>K*q19H={{JBt_AHx;`iBOQoIEtzjr}`8U~2#dCqg2p+7|LEVV}DrK6Qi=m~c43Onv-;@R&4?wT-RUFr@#il-CJmr&~g z8F>jlF)-deu}-*=+Za}pjN0F5*NP~lFKJivuJ|cAHtmn%*ShU!YX>e1RtRW_I^I8Y z#09&T=Ks*>Cdc1;Dv-7UfdHm9j#tAguDL!$8ZfbSyXQNF&7L)ULgmqx1EhXTDFxL%C8Ia&k0|tZZgo#P9U%?A8BCa}U4C zUAS;lUq<+om0=ph)N57yw z+u$O}ivDM9K$H#)cyDmw7bK~SV_&p;j9^T9o1fWVz7U!goU}0aq9`AY-JY%= zJwPQFPNV#ZKXd*I&igqJ{-b<5JRazLNdr7(>XFSgf8_jmoWG;p512}R?_|h#75LEz z>x)soU2EG+aAU6oRkTOGj<{=?2gw_f_<)uY_BH9%*J@#fVb#%hthCmupq(FCYaYu= zYwxwIXruvG5P!m6gf@19Qx-{b?#lVsxMp7#(J%H^?DJSGL4esk=!4&KCE_Ip%F)W3~6 zxkR>v_d!^4U!K8vG;{j%uq82KV?2Cgaf&<<>?bUQ1?VOZnC(NdAUrHf2`Ag%b}kfS z8f@YQrrk-SVw^wm$QuF0n2+NJLs)tBr?e|rYb8kzV(!7aK%Ck=_xI{qjC-vmQTj2K z7l2LYzIGMdCVV1CLURj9>oGhdauzv^c|_8Y1epPk5Myg$?oa1gCuy{Il}6(Et7)i# ze-6H z!#Ys_1uIlUZz3AKZMv~a*_yxbz?r1s1$O&V(_A;uS^bO}1a7&I{ zM_$4$9X!KU`1-IuVw%Zy#6fJpb1bAZ4tin*q&yrNLP~kMY6Y$?H4^mMRbzD=Thvt! zAOpQf1{ywNz6416L=svtUeOoYHfyb?7Glg@kaM)#_6E0mg*c=?$5`8#XHQc;V-M9v z1iAbs&VNSv3xb^gkXp9>gIhkvCI8`;?2$&i&Mp7L<*#r{p3h15@c8VvPXaG7KegNo z76|!kIiJq?b)3J5^BjkthzK6qlwjW*I#;=HHtb3sx4ed7-9>ut-&cUs#Zs!0yvg+_`58PTEhBbUahCsYbHI(^ ztS&#I1x_KFUIea@0eJPIE^C5YWTwL^!j2)zd6ePItrtP|zO4Ttj?>uIH>f6qZL+lq zrDXXz4szl+@MC>A@g&XW(O*%^i9XI>*FLWojq}43MJyo1vE=GpJi> z)OkS}#doka;Zc=##w-uJ1L)x`#yQo`m`nFFrm39AIs%`E5m#RM3cJPm&}~D66Et3e z^h>1k$ezr4i}XnVy9b>8%?NIF#i9=@#o?A^J z9(;2h=db7ddd^pJzKZh&oG<14BF?Yod=}^PInSEon`QFcg!WyNT#zHFp%*i+E(gA6 z)C{l8GuLHe4$DxsT-{w)_SgHkc3>X%Zjc#@9nUi)%!QOJY#K%iC(PRJlrcrx-=D%d z0iC0u`$@Mvd>{<6+I zb%pUH?JJ*WhFfXo;6dor{#%YOPB=`n7j~3NTAxMl9TWvIagnX zZzSxnb> z=q4*xHJ!b$fCf>p-y@&qj|BJSR>uAd_{aj};2ybyn=Ej>Ko9wwOkZ*iMv)spgJMRB(g{yD#itu(NUv^JC^9 zmodP2Y(U)sE>l1F^{s8X5eb4f2ih)23)To3pHK_SUx~9B97(ru{4ay!f0hQcBWnt4 z0fn@WJQn>0o&~mAmTfdz@D}b34FowY(pVDBqp>%-JowC30qNetb}fVOxBGctg&u>>4| zVQo|(<4^DjX$s%$xSnc1KP>SH`0zT|e?EukX;g zSjMM>FC=#nMvVp>r>^g80w$5qrPI1#-xRiAL~X?l3K~KG9nCY>*6OfCAQ~r*z_A8C zBr5 zBNDN#K8*Evl;SieDvC}~Gu$-Gts}HtG05oz?{b9|=Y+Ay$G9DelBc=}BReqS+Y4kL zj*O<>M*oT2KLVoH@!gIPP5p5rU;v*D4984b68m9a5CtkH z5)9o*Cq42!bdvxjQ$R&6BB0Z7e$h`An*_}>VzAV942=f;ADXxHFW8Q4+p?Ml8SV#RqDU|5#ZN==7V1;?iZR5Y?ezlMugxth>^AwUwnMNdeGKcJqTBJ1+1`-ZT5&z*&jY(R z5Srv5((9mqR%knLU!YchTYH)!b$pg9>0XNSt>@|?y-XJ@0pMM4!1L-ab;a?vqb809 zPo6V%Roigjl|)a#%7^u~O9;NnQH!%{nyHZtq0pFz2yVr8FMcZ5Tn5QNWC{MjSQ%4_ zYUTKB4Winh4LqETTP#z=d5~4CP2HPm=b25FQ5nq21(2TN|BkVV?Wun<*LHv>4-rp* zRewa+2V&j^5QYKOL7H@o-UJPFUSbM#!BFF5jv|R18Hl?DV+={Oqb?3uQ*;z`%UQSW zbj7WZ^m}!t-%&+Wp860r{#D|K13Pa#zeDngvcE!K$a6FD6cr(kYk;%+&1?Ky{986T zNxRUx4+>ZMc<=5B4q9a|2ja%B!KxY*eu#XUue`(}pXWhmRQAEzF>i96U8 zllG?gSGvpYvk+aZ)4cjOWF1@&_(bCh+@!ozTOY)1`oIZDINg}46&2cBp%Grk2$#Fk zFv7C-5m1%}offlolzt5PTfxyUK-Whbk}947eOS)b>?JT0DN3 z>wkRI@|ZjQx>{)HyNN5~ao-2L$NK3&n^(V$>)>gjPI0OJEu4EM;3N+X;}2^t-{B^E zm(>s4#Eu*`#e(#Hms$s_E`;(cJUxd}ae5zcp4u)l<1o-{dBCflVX}vF@(r?$&_G*p zhCNiC<+$SN%vCfJBarOx;2sZQmE&Fm&LN+HR-^qsMGH8Npwx3Y?^-7E9`WQh?sGMl zKgeEyrvIDEaQ=re?m}OVG@QcTt!s>A^fGSqYi@r9=joiKGt4|L=hLPMyf->o4w-p| z`z!$8|HAbiaNt?8S;zR6&aw1N)rr%2h&%j0lKNxk!&=kIOBRiE--IkKm#d-j8ngWL z`yZnt7>aTK19Y)}n-TxTBgJ!|d;=W7=qRO}(>2wD-1NT*sEo(jQ?BITm z54VJIS0>k?ren1y%Uf?KgTH3peN)fJts$0z_;`bd?~|V-<0Yd<5OjSTSzzMH4BV|E zx@J5Hx^T;l=nMpd>!3GJ=;F=gK_BjK03TcY&PfgdUqHbL)gab~$2JMRp_u>;`Y>}U zmTw=2Lq6%waSTanAlR}Fu-kAel1^xk5nRmiLhv;l-gqh^^bVYwBm|sphp^t55&=&V zTJQ#FF%=~#&323wOISf(@8SET3oP(WRGhO2TcA!w94#O~ND^dK1pIY~t~UHy_~;A? z=SLRN+c}`lO6^G}VNKGBk{?rRwMA@=YSROVhv9Y!>P3Q4>!4b<%K;17wbW^G#O678 zEV89E7CCoTXS%abr`8HeqjATw51m&!kut^{od@O%umZiJ7w8A}xr!P_aeF6HrV!jB zYB3Lrs)TB@iNt4PL;IC#i769s-~1NgMk-KqkN-GmMNRMH5K)^9}f3 zh4WAW4KbZ=bCV?ol(A?RNwINwV$m#(w~*x=P`}iVw%K}+Fp9qm92$w!d2m4bS^7I& z@gO;ZXEm!GHnh?Wu*iQW>M7>Rw6*H*5q)wk5S5_s0IdfZuSDh1RBcc3d0B!Ou+if0E2RRnl;n!55%Js6 zY6t5TYo1fVo}FYDvqSL(jD{8Q7IR>Bo?6GgR9kl3u;0j=$(TvTw*6il+hv-UH1?M% zLNk3oS={MgxK;o8TCxSZC0Jy#TsU9Vijgk0@J*8G@4()D*ocKPeK$cowHFbGc<^}q z>lS}{6WQcm;E;rAhX>F^9742$ZocA8q{QLiYYSuvC!iRlw>H`m3H=w}5YDR#YxMNq zB%`O7w)+=+qKsSI>iNurKTuS}^1o8DAIQedid0Y_pv?sDFsFzK;3mggPkC@l>@hsK zNY{Zf+B4v8Jo!EK7K&|x!bKGQuxx}3g>LU!7Q+vvHB`#+7~>x9`D{y$vvoP-1bo~M zfg}QZqza$bOFS&N6X1h%81Qg6UqTuJULqoBsdD)rxEFTw3F>R$9s$g9(IcKPL`?XJ z%(~!Hj331Zy_V&9j^GoB5Q&DNVt9fbf8!GRVK#|wvoGBV<-XMKZ$vu3==(WTeYxL2^3L#ED3j803 zkF?7+5VvRgqGy~Ijhnb4*vJ$`!!wAhAneF@Bg!}m?(_%uIz{krNFPVK19O2hN5=P7 z!WZ{P6T~#wD7nst%hjK&1b1NH@;ADH0p9L{E_Vm_ijB~0wCnks*x395X<70Hv9h4e z^MD6*dz0(1Q)vIubr-y~egb=&!6+4wNQJd#3hU(*w_BYYH~=l1LNnr24q#N$x$yRg z0>$Z6!laf(i3LwoPZ|gHR0nyd66iMkg*D>aLe@OhcRpyJ?H;bAf`0N}B}WG^rCFrS z3|+QdN({9y^O*fOe;4Nm za{dpLAJfSB-*f%|=h+V%BX5^n&+XaAJ8@0(l|k?dcER%3Qc(UhxHy5{Yhr&7dMQt^ z-3rIO3-Xe2*JcAO2CT!3tu~8D7^}hNgDcawCStEB?+u4F3!y?oUr+Pv0~=^&vg{6# zY4^$d?XwW`z*{+c+W>JmYD+rDG!QsZ95L{wmSDZmJ38c5Mb|^FY0sdo)=x6lu)SNy z;vA+yTnAYqOO?t{PBnv^)=#LioM$5L5tj`BUekHh7;2O{)AP$I_sgCZ*_*^LUQ`U5mzUz~h5LI(M+DekiF zcZ+~fdht6JhujMAbvEz9vvI4H#+dd3c}1@5;QoLQ8a)L!T=(x2j`N&YZHPtT?F>h> zAAWD}MILuQ`05gW0q<84cB8%lC3?b>Hr$wp#Z19lI#$d_I3Q(U+&)OR01wSAsP(j8 z<4q0?r&CY4m3=~uatPPdpoX4@@VZn)qU3B9Zy?SFk$o7xO_U)siHla?qwu5_q zC7EX_(I=W8M!p6LL=gA9QuUqZ|JQI!=pfp(bBu12xZ&N>~DtrnlT=%E*t4;w2Opg_%rOz0oap2 z;r$52vjfonkW|rx)rMKL?4iBH)=X#cN!Se^YF1z;l7juy6DZH5m9yu3^nv6<`$oFl z!JXL4>>`;MeXoZ1*`$@i+JNNO#|L);+J}%vtOlY$zZU)vRte5$vC5!(?8X}lpd6Y3 zK2LKw?NOu7_+Hj9jPVM9&L*Nw2=}Tims`!7n2#32ZTUhp4vkxA)EcMX2cAQIQtExdL-k?7&jNKVsRSGL zk9pp<7cob0o9=doMQsvwbbo#+ZiE`|q1ktU^A6f&(46h-+k$BIzKE7oeh+QGOKBNI zyL$UJSoi3_0fLM*atQj)0R-r6v|~=Cxd{21=2fS?jkYRy2s-T0KB0&eSlOYs(Jqs3 zqoq=0ql`yoTwCevl%t8Q)0sYA38#kc9$Eo^+VU87%Hh(_3{RyUGxn=$1*BLT5AVYp zuAq-)_eq{bH(^S9MJ-7T2KO*~;5fKP7Q{Ao>qwgEINVG@ly9$|LeNHW?5I`9_YEyY zh;>B=GH*SGKJzg?VywXKX?&~k-Ntf3`w6y|hCNcr%MZk1FnC;kD-=SPf~1n7HI;cyh}Ph2R4$|k`J?+ zWQXTltrcT$;)c|2G5mX4^)mW%9DY%4SYP5$<0f#ZFZ?g~3km(e&oD?vBAzKaGg%Df zGCE}%v}u8=zygqOU_ng|B*D^nEm_e~yI{Bax^~b>7xb=I-sRLrS;jLb`E>8AWsqIc zG0MgjEXyk6Hq*e3Z$uJprye2PaMB6e1&`U%cp>gaSQ<01-;5y-2RC}LS5F>@TiB_t zffZttA6)Y4t>Dl_G~#X@Bl^Lc_7QL35m(a+-W{Ydut&tI+jwVatS$OGyN7PP6L8&m zDA!V>=~i`$W%irBgKr1l)}rrIpe6Tf(G~$6b`Tme6)_ANL6B{wogvD2rSe+Gn>+NT zO^eMXT5OnGA66g9)KbHE@fjOW-2x~3HgJxBGUO~E@@cI zJKh~?TZuUo)h}*o&haeYZEGdhBOnOzO+$(zEwxL2G))r5Q8xxn{$yj@GuPmIk(Ob_=y?Dd8SlInUnhFx>w{`3j8It9zN_-nij` zR&%*G?}u7uars;>cfp5xn4dX%(89MhM(`O{%LFdxJyA;<+TF^}v$)>~%BQ@?`Jr6S zaoLvSTm|pjwCbd@pN2(-RX}bVXcJO{gUds?j_f+u$ySIE;#^a~FZc=N?YwUben2Jf|Bbw`j(*69zhD>Al&9E>0PDs)hy70Y0Eb|68*z`=5quV2 z3E9FeSj(~T6EKs1#%#e_mKr5nnVh2 z&_3HQ4ri;D=du2S^p+;=(Qc&j_&D32D4)0hF~o4&4qNrWYxwrVuW$o>ELt2wYKM+{ z5xj^+)G^St0U!EaDI(5<$lvbO+zLt0P%rUvq);nXHUdWgIl$UqqSK1?^I zTh2!g{AI3v3{B@_ix30Ld;sm)uW>5DQ}wB!r;apWz}KRpC;SWI=(qVemt|{5zD!a& zkMnm>!si0V`(Q+zz~WB#Z{ycO%Uy=`a})M0KG@ySbd$Yh1?jvzfAHD7is0vvhhHO- zL(#$;6VqY;7ZQ*0G|!kfKHsN(DZP<_J2G@)_n`?Mm3{R-Fo(ww;Ap=2E_65T{uiq= z6p2GrNxnxPNjk%=*bC(-W`Fphh-9g$Mr}5pt@SwgK+B@eEg`p^@wo$S5kFB=xh=z_ zo`6TYPcs5I71EupO@?dT*PhAe)fYj=fE6?ty`y6jiJ6K$t1~QZNEp?|p*Fp{T3Gs8 zoCU&%KD`$33JD&t$~Itn^%v3BetKKF>tMD+i`dg!bi?0)o%lP*;BW6d)#NSP(<3xj zu&1feC}zAj^aeZHW}jXv*B>UE3? zkAyL}mEO}pY}v0WurtY`0B_;ad4Sx7_$lg6W9x_qBSO6eYhr*!|BZq($3fx&SaJ*e zC&h)8iqXgNN@7d%ImJekIOcQDNl!Qy*3E9nVxYW^My#gAwY zR*x@RBz-VWS+T20rgsC4I6U3+k#|F76l2KeH1gqSa7z`jTmKAwAfrq4o(|b~=Cpo3 zqGxm$EuLDpwSXHtjTuD@5*lZ0$1#U}NUgqLJM_+;_H#_``zpp{&$#6KpD7!}<*~Fe3lXY$f>$*<=|pN)5hs zTHh^NC+K4gnd?tD8u+Pzq{9coZ4C*D^RXe_0zA%Ko2A+_&s@v%*cqSYJ;G-v9whI8gH#3^y3-nc`98y>d!gcOuyf@-pWaW03$ zLb4K29N10b&0H$4)xV+rm>5qr3Gw_6Rr~Fm6h1q^Ue74c!>ybV@LUsZDL1PkY(NT) zi5$I|)r9wDRT>%d;G)wu{S)vVHw=i6xM#}xfZ{&(rDRQkFWug%!A=cc325`fFW(Fe zc^>jH@U!jMb6T3+h$Y7ceAEVTqp|OtgL*f<4frOaPYlv~w0nSqys5DO(R1{Hm+=Kg zxeYos*OlxLfcH$jfX&M0Q=#+ZnCMHphM!Zs7k(}y8L_oTcTQ00?t_1WUktL1#mwrEWDCwj z_lm#7KLbhP+beHp+LCup^0nWR*nyfv(CcQc2F*)$BdQg@|AI4deIL_$1=IR_c*(e| z2qDY4AB3Kprg{1~W{~cfn#kBt6R+=A1-i!|8w=NL7 zmcOvHJ=lPlRs+Sfd>vz2#xE?XGYI}??}EygIJf_Fd(0_^m+P2SQ0dCgMjwk2#gjC+13@3gH1 zU&!9mTTQ=ub9qa2OEm4o=_JeLYoQ1+ut42U@g>jhLK{aq+U9EGKxw^J8_n;wN0ebN z6(?`$AT5ZG%4fjy7t|IvyXm9jXo~Ia^r%(R~4u?16_8p=RxK%(k zNzcla0N9Nj=`B))s{+5!Qqxj`i0?X80UkDdM1E{6P_@mk>Ww-f;eYnxAhVxxPd^p3ubu#}iFZ%Chwk{GlUaYTBZ!uVmO{!kdP zb^A0rgiZL?p|~kkgBw)Lp&t#8Y~swJy(S)qc1y^CCYmSk2imEf2L}C0h166uBa@M* z+iG-L;a-8=HXHF>G58a@g9;ru5%+dfTA8rB)~p3J^d5r+H@e_+W7~||>sm@U-OP=r z`_@?#YWV$}%=Bw%_kIu<9KxSU?$CKOx1W$E7GM0>SPVHxSbTig#Ny*mfyLn; z9g9a9i$_9OJOnI`{ODM$VJt|S^Nf6404#!}8-7gb9O7gwMuf0X0Uz;@9~ld_x*r`h zvH0j+SZn;W^pA_h;Ma&3AKf3q0;kn2@UebmEbe10eip*wGGIZ!MDe4_#o!{wf_@i~ zrSl_1&s*@zB|kD28HB}$ZnOMG871(vgA=%T}bI!*a!UqT?>C^jO}};N}U|J3L0*N8W||$Zyb2!d&fGo2mFF z8=mA3EVO%AuNnvLF=dii3k60J!u>JZ6Ca1 zV)4OC+I#$a=rP)R_&s#&SM#2_$~F>hrsHfzbvbc<58RL5i{G1iIDQz)SE9v= zjWsQhj;QUlE3@5AEk1a#N4u|?jR(-wvNQdXINsgkR`B z_H-G+IGRhRC|c{$KR{lA;n62pj%$(9ZPk>cj~n$jvOJ$3gR;7WfThM6FW_cc|H?gI|uqG z8uESVyE#PP+2=3sO!P^)IdMJt7M!m=v9CuwmNb|2oMy|DXQJ7_;T9v!GSX@1fJaf! z@d(NCcatqicWTe!S?HaU?>^TIFJa#~z`N*7@Om!G2~YGKUTE!n4}K=N&jH?RXQGch zODV(OzS?uyITzUB<~sTwwDt>}1FfX@yOkZeM!vnwNafmX{q_?1d_34A`dLr*`yT@z zijcP3q3-phiO*>fQUh*dm(HY;C1W2^jr_by?PGtXy4E+Jh}dlz1j11824h&`3jh4;Hv@m4kI0Z4)Cw}0pTx_ z@Q;3i-H6Kh+G9EAfXlDW0T;TB)~$>gI5ZgPT-q5)T#i0+4!HC>2VBlFFGmXuT&^@y zlTS~{=WlfQCKGzLZ&K>d0WaF8b<3l3fVcS^;GKmJ-@Izj&v(p~_h~=<)(NfkSYA)& zg?7|&4;wq`OL5Do-CEm?9W~z}IyxI~=kEvL?|p!m2w57EHO?WU zGaY4VwgC^n5$H-d4W3K#v+wZ`KPPvP-E>2C(?byt$gbsMz)N7+odnq>`qDedZqMMY z4Z%C>S_#Vt!K1a(QFdwmdIs;F5WKU~cR>i=cc*V~2;N!gV~<(#^Sjd*6@qtm`f|@i zpInDWw(&ab5nuZpI|sOzo(1mubAam&!96Q~*)!>uzXrV{WqSC;Ilv$O!@)oNo&o=f zp2P3`(mBAVyR6;P4?Pmiuxk(Bc@D6fL$J>(Yl3#=-RcU1W;)|Ays^Xc&H;zJ&jAOD znEy8%!X++W95HZ;H_{}dyxBw0~#YUQm`^KT)-|hVt?rrAb=H$b9_#e)=SM1|= zis^)Q7*0lfxN*ECbcZt;Ih;`Q8!g})`Ebos`0bPUfb&Zm&YaZXHv9t4`(G-;DsOLw z&7@YJuAx(u-h3bMb?&$4Bfihs>Ai&4_+;w`3nAuRZY;Tw)` zlv{!2#eXzGJ_28>Q^7q=vi^`DTP1i>K#)KCl<>3MoaYnD)`#fcyokmfvY{f<_B3wa zc`b#TqH#KyOeckwpKD8l^xxCy9;7SNp$Puv-%;Ww{IV?lP8t1%8Ghpdzx->XUs@6l zL#N+`nKI7<#wlt#W$foOk9L^HUmf6w_af5n-ibi0gvrb#&bA+ ze=A80z+1NXZ72{}hnvJr@>VHUM;vbO-w6uwKV~x3;3H`H%%*6h_^o1`Z4C-I75cw6 zxEE)ei04r_&AAS54~zp}YVliB__a0E4iwSUm-^u*+@U-bzw|qj_=1_GS$|31NleCj z2>PLo7!j>L%&WnF`)U=*S?S9^1+)Zsl@-Q#@$f=<=dw5de#NW*VxCz^0$zQQZrk?XNatGkU42LjWYO|C{*Q(O zd2Na!vTz$BbAc-V;{g8CIlp5`yvWA9H0{JYpEPHno8DP6=IqnwOKv><>hF1&zhqlO7G?naOuoGam;v8?UfhAsqu*ANztll1 zNAMfzuNH9rk4)9&l(({sw=Ji9Y%-O%E#*A_UxKzpoWGpQ`F-Hni#R`v%6svtXPb-L zRC4*W7`rOm3+K;uFILe)H9kVj^LW>mS6->EEHC$}g`PFV1s)_`Pl4A{7$eYYUb#Bk zJ;$udUz1;4lE1RVquOHxs@CL}6c=`EVD`mbZLil;TH!4&TdjJ_<@l>A%S+YjGS9jS z9^V|)yS~DM|N56nD6GQxp2Bf4_&;o_W8JDQpBUjt&zLZA(ghbzo|3<^pwP2Qhzf6I zM)ib@sVXvnRIZlfSFXl*bBe3HX@$j=5){!;hViSaD=Nw>L7ckY;{^>2)S#Q{SCv@Mnxw2%B;#$$BmfWD$nXtPnkK3LR?l^4y;g8xt>I& z+CyXJf-XsVp9kU^1b;b<*VDJm)T&H%K3*}bQz-}Hs&V}YKOdKI~?hqq^rscR;I6%ut{nlY8|DL>oYo4vm_Q*l*mFzShZS+ zS(KACPR)ekAnAuX$geH|ktA>9grLDI@+(WF=&7qA4PFm)L{WYjWO`k3X?3YuR$aOh zW#y~n*wnSyQ>EsYl$5Xa6n0)O1V^2lU!g80MG&fE1<|=q%^?&*Eu>tVy%({d3YK%O zkqbbGl~`8=Mb%}{#-XL#v6NSLeqmvy>|0P?2C}PJEacKL1}Z2o^cVwm8h=UIm1X5? z%b*}=r5MYSS8!JL97sgRS-`r_z@VfXXfaBJ(%W?cEd_`pX@w3=NpF*OXvd!#@G3Vu zfYY5j%quTTW6BIIObDI5S4Uhgl`3FP{z^|tJF*#Kc9}F!Qhx!kp(|j((2#Ki!ris1 zf=HP4m(HKFC}-jHW#G@;MPg3&96`&Ziiq#TF-fz7^w{dkd_%sA%T|>`606G?Caezn z1E#52tBO|>sU$qJ(bCYD%r655e)hz*C|fPAlC}ui2i)saM!chWA=^d5ji&jP1w}oW z2XB!_O|K$jK+`;~8)`D76_sjuoQ&oj|<5^hkDK91ZCB`P2M0!Wr z1>NlyQ7%bzFg}Juvszegx{r#eWyf^eKi+(moibV7r2}h*GEV!GDCAqb{DmaQ5Q)>LPbe*6f+Hvs{a3&!0yfyL`ZT!oSi3GgDSY zUfrSzQye+)-;GbSu+&i2Oet@{(;ECo2l}k*l7^v{K5Iq9xbOKYj zZ9aENU71<;z^X9u3EHv9KTD;`a%kq}~R6e)+rt+EC5W}K46<#l_ zQ*jw232J*)@#^YI*4r`e5>I{=Y3uUxD$mpy(dk)DHBH*u;u6F9L0!Oqhc+!QE36ug z9?@#F^qoo6r5`d}h$_rtT0y~DseGk%g58XXX|KtF?ehQ);1sGKhX!JqFimNUQ1{-m zHL&RDE7*VX$DIQ`81e(w!maYCuB=Pu&A)6;PWG%ExGeeJ>MBx#MdejqTFdPo_nP8L z*bHN>kiF?LPWHmtm*y<&Iz)S`)gI_L*l;*RRqD!OZ&im8s{TtI_3H$?^Bi;-<@A=9 zF6h$O)M*3|m89U$M9K2`mvkkDc?dWE7-h)c&l>pN4R8K=;(tuPe=0_lR!fL7c$uCu zNC!DP;(WNAmGC-dU}ppdRFqQ<+LWbT?Wrt>1i`b1S*!G11(k(K6~ap!A@6XtsCab| z_CrhN8QDq?ZGqI1>ar@qdbq&c6mU5jRuODUrA^^+;LYb(mO;p-s_jz(KLrAW?NN0V zZ;m9J)2a%pireS8L*Z1gt-4|=jG4M9XWpV5Nt)=UMF=Nyq)x9dF1xC_7&UT-F?-&E zC9@YUZRZP2VQIcsEXbL=M9s=h!^W3)yh74zl$d)}($1$t2+8g83OKA)-Lznf#(s5` zU`MMUzaqb&*xMbxRKGk_Pfw}oj?tara+}ipvh|Qi(h*aQ>E|t6X>k=Of?YT3va&Pf z<}OqtEmj9gq}eHfsDe^!LiwX*+W2JOk zS`boJs)rm3XhXHC3h@pV8dxphEalL7c^R|-%Dj~&Y1L)eXvvty>@sXPDy!jaFEm$d zCcF08SkchkDn2u-%cLuvh0f|!p)Om5h3mZ><1Ne0FF{6KmIW(ONhSEW(0UDoObxZi z*wEx@ZciDxJJg;>XfH5EYA-NGY%d@fQh}uL_#PT1o5Mk&0vfj(u?|?WLIW4TA#ESR z#8u)kFlWkn_v_`c+;X$aR4roTg{`lA;xXD$AsQuQ)fk?5LeV5_cgo8;_L*B=NZVEB z%rZhEZ3%dvmQ%*~Ez7K~0*H3X%yNS+epHunm#iXB!Ijij4uD-UB3A^AurWB(jt<%x zK4lt14NbF&-|RAY)D(G2o8u{4?Jc5_Lp>xYSwev}bV>`sH)nwaOe0KSiQ*b5R-2AFSbrBmK!az-3Rq9nU zCZ?@i@Aa^^apqPNGTK`a*W@VBR)xhxqB^rAe{~hhcUEa(+CtA2Af5QaRIHJci(*pi zQod;Z(&krt)7<%RGuDTwS(bw~6%=POi!e%Oe$9u9sH~QM@oU%2tl^Y5V1Tv31!lG9AKx-5iR_B+HHAl#fKGS85 zyJ&rtnq67E#-q;8<_fb0K@qiJJvP}=n|A0!@jxzCN5bFWM#gAT8;>uA_N5qFhdz+4 zGz6zSP$*^IWsbB9FE`Et%cp=4_-qOnYw@*jUB65)b0mT zNk_l%LzV5cD8zzHL+ER&+8M$^!kMgZf#LTNW3U5`>Cgk!>Fi*cKIJ%dHe7Rx5Kt%@ z-V%)JdJcS%Y|ZG{w=*;z=`=_v%?OEt;kKR?gy3Fek_$<}^t792ou{ChqkPmAs9+z2 zxKsyfPs2Flbl!ycuEW_;FcFiZgur3Z|9$?C1OLZ?|G#jcTyOhY;u<#Dz*)wkMA!l2 zInt=dzL!6y7EUsrdl@NC`}vb-q-FxOK%X$)rz1mqBl^KV#4B@W@D_LgRg z|4Vzs0oqQB@6WyPJxv(L*uNtez6a4A-j|0hT;!fNJugqaBxfllS@W}VC|xjT=0c>1 zcPw@-Ub2X?mo8El<}7k^sSvZWvZku3v*s-stxg^{X`DmNaAc%ACZ$hQQx{@Go(tQ` zO<8X@X8MnHudfdwD;u5$hg@T`o@~eu(xWe^iRqIP- z>a7&xDm^9nR4B%IJ?p%9E+^y9_4%d61?XCiQdzbVyYz8z*~!5NmEZqEYu%g!o)8)4 zpn;7?f&WC@`D3=H(th|F`oQcErpV@IDpKTg=r7#7&}Ssp|2M{y34gMD4(Tsia2@+} z)Du)^>MOHJaG2o}YE=wtRjz)$V^vXlNoT}S$zcs6k}`yVs< z8!78Wvkg^sg#Qyfo8uXJIeeGwZ>HBe<#Xt-*`EsB_?rC<_}3e7%`{o1h8;c~`{$wD zfNS#Mu}0bUJ|nfzd>S@{Ys~&so{z5y-{9lpP25V{Z=|RBkY;~MSDoJ9FS`q$k#g+K z$a7-$rw7vE=Cc96k;?JeEX%{4{M7zOZO;mE6&_6d9UUt|{qav6JC}#rQ$PBe^3$c+ P=1E4u)m