149698745SVasily Gorbik // SPDX-License-Identifier: GPL-2.0 26d85dac2SVasily Gorbik #include <linux/kernel.h> 349698745SVasily Gorbik #include <linux/init.h> 449698745SVasily Gorbik #include <linux/ctype.h> 549698745SVasily Gorbik #include <asm/ebcdic.h> 649698745SVasily Gorbik #include <asm/sclp.h> 749698745SVasily Gorbik #include <asm/sections.h> 849698745SVasily Gorbik #include <asm/boot_data.h> 9b5e80459SVasily Gorbik #include <asm/facility.h> 1049698745SVasily Gorbik #include "boot.h" 1149698745SVasily Gorbik 1249698745SVasily Gorbik char __bootdata(early_command_line)[COMMAND_LINE_SIZE]; 1349698745SVasily Gorbik struct ipl_parameter_block __bootdata(early_ipl_block); 1449698745SVasily Gorbik int __bootdata(early_ipl_block_valid); 1549698745SVasily Gorbik 1649698745SVasily Gorbik unsigned long __bootdata(memory_end); 1749698745SVasily Gorbik int __bootdata(memory_end_set); 18d58106c3SVasily Gorbik int __bootdata(noexec_disabled); 1949698745SVasily Gorbik 2049698745SVasily Gorbik static inline int __diag308(unsigned long subcode, void *addr) 2149698745SVasily Gorbik { 2249698745SVasily Gorbik register unsigned long _addr asm("0") = (unsigned long)addr; 2349698745SVasily Gorbik register unsigned long _rc asm("1") = 0; 2449698745SVasily Gorbik unsigned long reg1, reg2; 2549698745SVasily Gorbik psw_t old = S390_lowcore.program_new_psw; 2649698745SVasily Gorbik 2749698745SVasily Gorbik asm volatile( 2849698745SVasily Gorbik " epsw %0,%1\n" 2949698745SVasily Gorbik " st %0,%[psw_pgm]\n" 3049698745SVasily Gorbik " st %1,%[psw_pgm]+4\n" 3149698745SVasily Gorbik " larl %0,1f\n" 3249698745SVasily Gorbik " stg %0,%[psw_pgm]+8\n" 3349698745SVasily Gorbik " diag %[addr],%[subcode],0x308\n" 3449698745SVasily Gorbik "1: nopr %%r7\n" 3549698745SVasily Gorbik : "=&d" (reg1), "=&a" (reg2), 3649698745SVasily Gorbik [psw_pgm] "=Q" (S390_lowcore.program_new_psw), 3749698745SVasily Gorbik [addr] "+d" (_addr), "+d" (_rc) 3849698745SVasily Gorbik : [subcode] "d" (subcode) 3949698745SVasily Gorbik : "cc", "memory"); 4049698745SVasily Gorbik S390_lowcore.program_new_psw = old; 4149698745SVasily Gorbik return _rc; 4249698745SVasily Gorbik } 4349698745SVasily Gorbik 4449698745SVasily Gorbik void store_ipl_parmblock(void) 4549698745SVasily Gorbik { 4649698745SVasily Gorbik int rc; 4749698745SVasily Gorbik 4849698745SVasily Gorbik rc = __diag308(DIAG308_STORE, &early_ipl_block); 4949698745SVasily Gorbik if (rc == DIAG308_RC_OK && 5049698745SVasily Gorbik early_ipl_block.hdr.version <= IPL_MAX_SUPPORTED_VERSION) 5149698745SVasily Gorbik early_ipl_block_valid = 1; 5249698745SVasily Gorbik } 5349698745SVasily Gorbik 5449698745SVasily Gorbik static size_t scpdata_length(const char *buf, size_t count) 5549698745SVasily Gorbik { 5649698745SVasily Gorbik while (count) { 5749698745SVasily Gorbik if (buf[count - 1] != '\0' && buf[count - 1] != ' ') 5849698745SVasily Gorbik break; 5949698745SVasily Gorbik count--; 6049698745SVasily Gorbik } 6149698745SVasily Gorbik return count; 6249698745SVasily Gorbik } 6349698745SVasily Gorbik 6449698745SVasily Gorbik static size_t ipl_block_get_ascii_scpdata(char *dest, size_t size, 6549698745SVasily Gorbik const struct ipl_parameter_block *ipb) 6649698745SVasily Gorbik { 6749698745SVasily Gorbik size_t count; 6849698745SVasily Gorbik size_t i; 6949698745SVasily Gorbik int has_lowercase; 7049698745SVasily Gorbik 7149698745SVasily Gorbik count = min(size - 1, scpdata_length(ipb->ipl_info.fcp.scp_data, 7249698745SVasily Gorbik ipb->ipl_info.fcp.scp_data_len)); 7349698745SVasily Gorbik if (!count) 7449698745SVasily Gorbik goto out; 7549698745SVasily Gorbik 7649698745SVasily Gorbik has_lowercase = 0; 7749698745SVasily Gorbik for (i = 0; i < count; i++) { 7849698745SVasily Gorbik if (!isascii(ipb->ipl_info.fcp.scp_data[i])) { 7949698745SVasily Gorbik count = 0; 8049698745SVasily Gorbik goto out; 8149698745SVasily Gorbik } 8249698745SVasily Gorbik if (!has_lowercase && islower(ipb->ipl_info.fcp.scp_data[i])) 8349698745SVasily Gorbik has_lowercase = 1; 8449698745SVasily Gorbik } 8549698745SVasily Gorbik 8649698745SVasily Gorbik if (has_lowercase) 8749698745SVasily Gorbik memcpy(dest, ipb->ipl_info.fcp.scp_data, count); 8849698745SVasily Gorbik else 8949698745SVasily Gorbik for (i = 0; i < count; i++) 9049698745SVasily Gorbik dest[i] = tolower(ipb->ipl_info.fcp.scp_data[i]); 9149698745SVasily Gorbik out: 9249698745SVasily Gorbik dest[count] = '\0'; 9349698745SVasily Gorbik return count; 9449698745SVasily Gorbik } 9549698745SVasily Gorbik 9649698745SVasily Gorbik static void append_ipl_block_parm(void) 9749698745SVasily Gorbik { 9849698745SVasily Gorbik char *parm, *delim; 9949698745SVasily Gorbik size_t len, rc = 0; 10049698745SVasily Gorbik 10149698745SVasily Gorbik len = strlen(early_command_line); 10249698745SVasily Gorbik 10349698745SVasily Gorbik delim = early_command_line + len; /* '\0' character position */ 10449698745SVasily Gorbik parm = early_command_line + len + 1; /* append right after '\0' */ 10549698745SVasily Gorbik 10649698745SVasily Gorbik switch (early_ipl_block.hdr.pbt) { 10749698745SVasily Gorbik case DIAG308_IPL_TYPE_CCW: 10849698745SVasily Gorbik rc = ipl_block_get_ascii_vmparm( 10949698745SVasily Gorbik parm, COMMAND_LINE_SIZE - len - 1, &early_ipl_block); 11049698745SVasily Gorbik break; 11149698745SVasily Gorbik case DIAG308_IPL_TYPE_FCP: 11249698745SVasily Gorbik rc = ipl_block_get_ascii_scpdata( 11349698745SVasily Gorbik parm, COMMAND_LINE_SIZE - len - 1, &early_ipl_block); 11449698745SVasily Gorbik break; 11549698745SVasily Gorbik } 11649698745SVasily Gorbik if (rc) { 11749698745SVasily Gorbik if (*parm == '=') 11849698745SVasily Gorbik memmove(early_command_line, parm + 1, rc); 11949698745SVasily Gorbik else 12049698745SVasily Gorbik *delim = ' '; /* replace '\0' with space */ 12149698745SVasily Gorbik } 12249698745SVasily Gorbik } 12349698745SVasily Gorbik 12449698745SVasily Gorbik static inline int has_ebcdic_char(const char *str) 12549698745SVasily Gorbik { 12649698745SVasily Gorbik int i; 12749698745SVasily Gorbik 12849698745SVasily Gorbik for (i = 0; str[i]; i++) 12949698745SVasily Gorbik if (str[i] & 0x80) 13049698745SVasily Gorbik return 1; 13149698745SVasily Gorbik return 0; 13249698745SVasily Gorbik } 13349698745SVasily Gorbik 13449698745SVasily Gorbik void setup_boot_command_line(void) 13549698745SVasily Gorbik { 13649698745SVasily Gorbik COMMAND_LINE[ARCH_COMMAND_LINE_SIZE - 1] = 0; 13749698745SVasily Gorbik /* convert arch command line to ascii if necessary */ 13849698745SVasily Gorbik if (has_ebcdic_char(COMMAND_LINE)) 13949698745SVasily Gorbik EBCASC(COMMAND_LINE, ARCH_COMMAND_LINE_SIZE); 14049698745SVasily Gorbik /* copy arch command line */ 14149698745SVasily Gorbik strcpy(early_command_line, strim(COMMAND_LINE)); 14249698745SVasily Gorbik 14349698745SVasily Gorbik /* append IPL PARM data to the boot command line */ 14449698745SVasily Gorbik if (early_ipl_block_valid) 14549698745SVasily Gorbik append_ipl_block_parm(); 14649698745SVasily Gorbik } 14749698745SVasily Gorbik 148b5e80459SVasily Gorbik static void modify_facility(unsigned long nr, bool clear) 149b5e80459SVasily Gorbik { 150b5e80459SVasily Gorbik if (clear) 151b5e80459SVasily Gorbik __clear_facility(nr, S390_lowcore.stfle_fac_list); 152b5e80459SVasily Gorbik else 153b5e80459SVasily Gorbik __set_facility(nr, S390_lowcore.stfle_fac_list); 154b5e80459SVasily Gorbik } 155b5e80459SVasily Gorbik 1566d85dac2SVasily Gorbik static void check_cleared_facilities(void) 1576d85dac2SVasily Gorbik { 1586d85dac2SVasily Gorbik unsigned long als[] = { FACILITIES_ALS }; 1596d85dac2SVasily Gorbik int i; 1606d85dac2SVasily Gorbik 1616d85dac2SVasily Gorbik for (i = 0; i < ARRAY_SIZE(als); i++) { 1626d85dac2SVasily Gorbik if ((S390_lowcore.stfle_fac_list[i] & als[i]) != als[i]) { 1636d85dac2SVasily Gorbik sclp_early_printk("Warning: The Linux kernel requires facilities cleared via command line option\n"); 1646d85dac2SVasily Gorbik print_missing_facilities(); 1656d85dac2SVasily Gorbik break; 1666d85dac2SVasily Gorbik } 1676d85dac2SVasily Gorbik } 1686d85dac2SVasily Gorbik } 1696d85dac2SVasily Gorbik 170b5e80459SVasily Gorbik static void modify_fac_list(char *str) 171b5e80459SVasily Gorbik { 172b5e80459SVasily Gorbik unsigned long val, endval; 173b5e80459SVasily Gorbik char *endp; 174b5e80459SVasily Gorbik bool clear; 175b5e80459SVasily Gorbik 176b5e80459SVasily Gorbik while (*str) { 177b5e80459SVasily Gorbik clear = false; 178b5e80459SVasily Gorbik if (*str == '!') { 179b5e80459SVasily Gorbik clear = true; 180b5e80459SVasily Gorbik str++; 181b5e80459SVasily Gorbik } 182b5e80459SVasily Gorbik val = simple_strtoull(str, &endp, 0); 183b5e80459SVasily Gorbik if (str == endp) 184b5e80459SVasily Gorbik break; 185b5e80459SVasily Gorbik str = endp; 186b5e80459SVasily Gorbik if (*str == '-') { 187b5e80459SVasily Gorbik str++; 188b5e80459SVasily Gorbik endval = simple_strtoull(str, &endp, 0); 189b5e80459SVasily Gorbik if (str == endp) 190b5e80459SVasily Gorbik break; 191b5e80459SVasily Gorbik str = endp; 192b5e80459SVasily Gorbik while (val <= endval) { 193b5e80459SVasily Gorbik modify_facility(val, clear); 194b5e80459SVasily Gorbik val++; 195b5e80459SVasily Gorbik } 196b5e80459SVasily Gorbik } else { 197b5e80459SVasily Gorbik modify_facility(val, clear); 198b5e80459SVasily Gorbik } 199b5e80459SVasily Gorbik if (*str != ',') 200b5e80459SVasily Gorbik break; 201b5e80459SVasily Gorbik str++; 202b5e80459SVasily Gorbik } 2036d85dac2SVasily Gorbik check_cleared_facilities(); 204b5e80459SVasily Gorbik } 205b5e80459SVasily Gorbik 20649698745SVasily Gorbik static char command_line_buf[COMMAND_LINE_SIZE] __section(.data); 207b5e80459SVasily Gorbik void parse_boot_command_line(void) 20849698745SVasily Gorbik { 20949698745SVasily Gorbik char *param, *val; 210d58106c3SVasily Gorbik bool enabled; 211d58106c3SVasily Gorbik char *args; 212d58106c3SVasily Gorbik int rc; 21349698745SVasily Gorbik 21449698745SVasily Gorbik args = strcpy(command_line_buf, early_command_line); 21549698745SVasily Gorbik while (*args) { 21649698745SVasily Gorbik args = next_arg(args, ¶m, &val); 21749698745SVasily Gorbik 21849698745SVasily Gorbik if (!strcmp(param, "mem")) { 21949698745SVasily Gorbik memory_end = memparse(val, NULL); 22049698745SVasily Gorbik memory_end_set = 1; 22149698745SVasily Gorbik } 222d58106c3SVasily Gorbik 223d58106c3SVasily Gorbik if (!strcmp(param, "noexec")) { 224d58106c3SVasily Gorbik rc = kstrtobool(val, &enabled); 225d58106c3SVasily Gorbik if (!rc && !enabled) 226d58106c3SVasily Gorbik noexec_disabled = 1; 227d58106c3SVasily Gorbik } 228b5e80459SVasily Gorbik 229b5e80459SVasily Gorbik if (!strcmp(param, "facilities")) 230b5e80459SVasily Gorbik modify_fac_list(val); 23149698745SVasily Gorbik } 23249698745SVasily Gorbik } 23349698745SVasily Gorbik 23449698745SVasily Gorbik void setup_memory_end(void) 23549698745SVasily Gorbik { 23649698745SVasily Gorbik #ifdef CONFIG_CRASH_DUMP 23749698745SVasily Gorbik if (!OLDMEM_BASE && early_ipl_block_valid && 23849698745SVasily Gorbik early_ipl_block.hdr.pbt == DIAG308_IPL_TYPE_FCP && 23949698745SVasily Gorbik early_ipl_block.ipl_info.fcp.opt == DIAG308_IPL_OPT_DUMP) { 24049698745SVasily Gorbik if (!sclp_early_get_hsa_size(&memory_end) && memory_end) 24149698745SVasily Gorbik memory_end_set = 1; 24249698745SVasily Gorbik } 24349698745SVasily Gorbik #endif 24449698745SVasily Gorbik } 245