arch/ia64/hp/sim/boot/fw-emu.c

   1 /*
   2  * PAL & SAL emulation.
   3  *
   4  * Copyright (C) 1998-2001 Hewlett-Packard Co
   5  *      David Mosberger-Tang <davidm@hpl.hp.com>
   6  */
   7 #include <linux/config.h>
   8
   9 #ifdef CONFIG_PCI
  10 # include <linux/pci.h>
  11 #endif
  12
  13 #include <linux/efi.h>
  14 #include <asm/io.h>
  15 #include <asm/pal.h>
  16 #include <asm/sal.h>
  17
  18 #include "ssc.h"
  19
  20 #define MB      (1024*1024UL)
  21
  22 #define SIMPLE_MEMMAP   1
  23
  24 #if SIMPLE_MEMMAP
  25 # define NUM_MEM_DESCS  4
  26 #else
  27 # define NUM_MEM_DESCS  16
  28 #endif
  29
  30 static char fw_mem[(  sizeof(struct ia64_boot_param)
  31                     + sizeof(efi_system_table_t)
  32                     + sizeof(efi_runtime_services_t)
  33                     + 1*sizeof(efi_config_table_t)
  34                     + sizeof(struct ia64_sal_systab)
  35                     + sizeof(struct ia64_sal_desc_entry_point)
  36                     + NUM_MEM_DESCS*(sizeof(efi_memory_desc_t))
  37                     + 1024)] __attribute__ ((aligned (8)));
  38
  39 #define SECS_PER_HOUR   (60 * 60)
  40 #define SECS_PER_DAY    (SECS_PER_HOUR * 24)
  41
  42 /* Compute the `struct tm' representation of *T,
  43    offset OFFSET seconds east of UTC,
  44    and store year, yday, mon, mday, wday, hour, min, sec into *TP.
  45    Return nonzero if successful.  */
  46 int
  47 offtime (unsigned long t, efi_time_t *tp)
  48 {
  49         const unsigned short int __mon_yday[2][13] =
  50         {
  51                 /* Normal years.  */
  52                 { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365 },
  53                 /* Leap years.  */
  54                 { 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366 }
  55         };
  56         long int days, rem, y;
  57         const unsigned short int *ip;
  58
  59         days = t / SECS_PER_DAY;
  60         rem = t % SECS_PER_DAY;
  61         while (rem < 0) {
  62                 rem += SECS_PER_DAY;
  63                 --days;
  64         }
  65         while (rem >= SECS_PER_DAY) {
  66                 rem -= SECS_PER_DAY;
  67                 ++days;
  68         }
  69         tp->hour = rem / SECS_PER_HOUR;
  70         rem %= SECS_PER_HOUR;
  71         tp->minute = rem / 60;
  72         tp->second = rem % 60;
  73         /* January 1, 1970 was a Thursday.  */
  74         y = 1970;
  75
  76 #       define DIV(a, b) ((a) / (b) - ((a) % (b) < 0))
  77 #       define LEAPS_THRU_END_OF(y) (DIV (y, 4) - DIV (y, 100) + DIV (y, 400))
  78 #       define __isleap(year) \
  79           ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0))
  80
  81         while (days < 0 || days >= (__isleap (y) ? 366 : 365)) {
  82                 /* Guess a corrected year, assuming 365 days per year.  */
  83                 long int yg = y + days / 365 - (days % 365 < 0);
  84
  85                 /* Adjust DAYS and Y to match the guessed year.  */
  86                 days -= ((yg - y) * 365 + LEAPS_THRU_END_OF (yg - 1)
  87                          - LEAPS_THRU_END_OF (y - 1));
  88                 y = yg;
  89         }
  90         tp->year = y;
  91         ip = __mon_yday[__isleap(y)];
  92         for (y = 11; days < (long int) ip[y]; --y)
  93                 continue;
  94         days -= ip[y];
  95         tp->month = y + 1;
  96         tp->day = days + 1;
  97         return 1;
  98 }
  99
 100 extern void pal_emulator_static (void);
 101
 102 /* Macro to emulate SAL call using legacy IN and OUT calls to CF8, CFC etc.. */
 103
 104 #define BUILD_CMD(addr)         ((0x80000000 | (addr)) & ~3)
 105
 106 #define REG_OFFSET(addr)        (0x00000000000000FF & (addr))
 107 #define DEVICE_FUNCTION(addr)   (0x000000000000FF00 & (addr))
 108 #define BUS_NUMBER(addr)        (0x0000000000FF0000 & (addr))
 109
 110 static efi_status_t
 111 fw_efi_get_time (efi_time_t *tm, efi_time_cap_t *tc)
 112 {
 113 #if defined(CONFIG_IA64_HP_SIM) || defined(CONFIG_IA64_GENERIC)
 114         struct {
 115                 int tv_sec;     /* must be 32bits to work */
 116                 int tv_usec;
 117         } tv32bits;
 118
 119         ssc((unsigned long) &tv32bits, 0, 0, 0, SSC_GET_TOD);
 120
 121         memset(tm, 0, sizeof(*tm));
 122         offtime(tv32bits.tv_sec, tm);
 123
 124         if (tc)
 125                 memset(tc, 0, sizeof(*tc));
 126 #else
 127 #       error Not implemented yet...
 128 #endif
 129         return EFI_SUCCESS;
 130 }
 131
 132 static void
 133 efi_reset_system (int reset_type, efi_status_t status, unsigned long data_size, efi_char16_t *data)
 134 {
 135 #if defined(CONFIG_IA64_HP_SIM) || defined(CONFIG_IA64_GENERIC)
 136         ssc(status, 0, 0, 0, SSC_EXIT);
 137 #else
 138 #       error Not implemented yet...
 139 #endif
 140 }
 141
 142 static efi_status_t
 143 efi_unimplemented (void)
 144 {
 145         return EFI_UNSUPPORTED;
 146 }
 147
 148 static struct sal_ret_values
 149 sal_emulator (long index, unsigned long in1, unsigned long in2,
 150               unsigned long in3, unsigned long in4, unsigned long in5,
 151               unsigned long in6, unsigned long in7)
 152 {
 153         long r9  = 0;
 154         long r10 = 0;
 155         long r11 = 0;
 156         long status;
 157
 158         /*
 159          * Don't do a "switch" here since that gives us code that
 160          * isn't self-relocatable.
 161          */
 162         status = 0;
 163         if (index == SAL_FREQ_BASE) {
 164                 switch (in1) {
 165                       case SAL_FREQ_BASE_PLATFORM:
 166                         r9 = 200000000;
 167                         break;
 168
 169                       case SAL_FREQ_BASE_INTERVAL_TIMER:
 170                         /*
 171                          * Is this supposed to be the cr.itc frequency
 172                          * or something platform specific?  The SAL
 173                          * doc ain't exactly clear on this...
 174                          */
 175                         r9 = 700000000;
 176                         break;
 177
 178                       case SAL_FREQ_BASE_REALTIME_CLOCK:
 179                         r9 = 1;
 180                         break;
 181
 182                       default:
 183                         status = -1;
 184                         break;
 185                 }
 186         } else if (index == SAL_SET_VECTORS) {
 187                 ;
 188         } else if (index == SAL_GET_STATE_INFO) {
 189                 ;
 190         } else if (index == SAL_GET_STATE_INFO_SIZE) {
 191                 ;
 192         } else if (index == SAL_CLEAR_STATE_INFO) {
 193                 ;
 194         } else if (index == SAL_MC_RENDEZ) {
 195                 ;
 196         } else if (index == SAL_MC_SET_PARAMS) {
 197                 ;
 198         } else if (index == SAL_CACHE_FLUSH) {
 199                 ;
 200         } else if (index == SAL_CACHE_INIT) {
 201                 ;
 202 #ifdef CONFIG_PCI
 203         } else if (index == SAL_PCI_CONFIG_READ) {
 204                 /*
 205                  * in1 contains the PCI configuration address and in2
 206                  * the size of the read.  The value that is read is
 207                  * returned via the general register r9.
 208                  */
 209                 outl(BUILD_CMD(in1), 0xCF8);
 210                 if (in2 == 1)                           /* Reading byte  */
 211                         r9 = inb(0xCFC + ((REG_OFFSET(in1) & 3)));
 212                 else if (in2 == 2)                      /* Reading word  */
 213                         r9 = inw(0xCFC + ((REG_OFFSET(in1) & 2)));
 214                 else                                    /* Reading dword */
 215                         r9 = inl(0xCFC);
 216                 status = PCIBIOS_SUCCESSFUL;
 217         } else if (index == SAL_PCI_CONFIG_WRITE) {
 218                 /*
 219                  * in1 contains the PCI configuration address, in2 the
 220                  * size of the write, and in3 the actual value to be
 221                  * written out.
 222                  */
 223                 outl(BUILD_CMD(in1), 0xCF8);
 224                 if (in2 == 1)                           /* Writing byte  */
 225                         outb(in3, 0xCFC + ((REG_OFFSET(in1) & 3)));
 226                 else if (in2 == 2)                      /* Writing word  */
 227                         outw(in3, 0xCFC + ((REG_OFFSET(in1) & 2)));
 228                 else                                    /* Writing dword */
 229                         outl(in3, 0xCFC);
 230                 status = PCIBIOS_SUCCESSFUL;
 231 #endif /* CONFIG_PCI */
 232         } else if (index == SAL_UPDATE_PAL) {
 233                 ;
 234         } else {
 235                 status = -1;
 236         }
 237         return ((struct sal_ret_values) {status, r9, r10, r11});
 238 }
 239
 240
 241 /*
 242  * This is here to work around a bug in egcs-1.1.1b that causes the
 243  * compiler to crash (seems like a bug in the new alias analysis code.
 244  */
 245 void *
 246 id (long addr)
 247 {
 248         return (void *) addr;
 249 }
 250
 251 struct ia64_boot_param *
 252 sys_fw_init (const char *args, int arglen)
 253 {
 254         efi_system_table_t *efi_systab;
 255         efi_runtime_services_t *efi_runtime;
 256         efi_config_table_t *efi_tables;
 257         struct ia64_sal_systab *sal_systab;
 258         efi_memory_desc_t *efi_memmap, *md;
 259         unsigned long *pal_desc, *sal_desc;
 260         struct ia64_sal_desc_entry_point *sal_ed;
 261         struct ia64_boot_param *bp;
 262         unsigned char checksum = 0;
 263         char *cp, *cmd_line;
 264         int i = 0;
 265 #       define MAKE_MD(typ, attr, start, end)           \
 266         do {                                            \
 267                 md = efi_memmap + i++;                  \
 268                 md->type = typ;                         \
 269                 md->pad = 0;                            \
 270                 md->phys_addr = start;                  \
 271                 md->virt_addr = 0;                      \
 272                 md->num_pages = (end - start) >> 12;    \
 273                 md->attribute = attr;                   \
 274         } while (0)
 275
 276         memset(fw_mem, 0, sizeof(fw_mem));
 277
 278         pal_desc = (unsigned long *) &pal_emulator_static;
 279         sal_desc = (unsigned long *) &sal_emulator;
 280
 281         cp = fw_mem;
 282         efi_systab  = (void *) cp; cp += sizeof(*efi_systab);
 283         efi_runtime = (void *) cp; cp += sizeof(*efi_runtime);
 284         efi_tables  = (void *) cp; cp += sizeof(*efi_tables);
 285         sal_systab  = (void *) cp; cp += sizeof(*sal_systab);
 286         sal_ed      = (void *) cp; cp += sizeof(*sal_ed);
 287         efi_memmap  = (void *) cp; cp += NUM_MEM_DESCS*sizeof(*efi_memmap);
 288         bp          = (void *) cp; cp += sizeof(*bp);
 289         cmd_line    = (void *) cp;
 290
 291         if (args) {
 292                 if (arglen >= 1024)
 293                         arglen = 1023;
 294                 memcpy(cmd_line, args, arglen);
 295         } else {
 296                 arglen = 0;
 297         }
 298         cmd_line[arglen] = '\0';
 299
 300         memset(efi_systab, 0, sizeof(efi_systab));
 301         efi_systab->hdr.signature = EFI_SYSTEM_TABLE_SIGNATURE;
 302         efi_systab->hdr.revision  = EFI_SYSTEM_TABLE_REVISION;
 303         efi_systab->hdr.headersize = sizeof(efi_systab->hdr);
 304         efi_systab->fw_vendor = __pa("H\0e\0w\0l\0e\0t\0t\0-\0P\0a\0c\0k\0a\0r\0d\0\0");
 305         efi_systab->fw_revision = 1;
 306         efi_systab->runtime = (void *) __pa(efi_runtime);
 307         efi_systab->nr_tables = 1;
 308         efi_systab->tables = __pa(efi_tables);
 309
 310         efi_runtime->hdr.signature = EFI_RUNTIME_SERVICES_SIGNATURE;
 311         efi_runtime->hdr.revision = EFI_RUNTIME_SERVICES_REVISION;
 312         efi_runtime->hdr.headersize = sizeof(efi_runtime->hdr);
 313         efi_runtime->get_time = __pa(&fw_efi_get_time);
 314         efi_runtime->set_time = __pa(&efi_unimplemented);
 315         efi_runtime->get_wakeup_time = __pa(&efi_unimplemented);
 316         efi_runtime->set_wakeup_time = __pa(&efi_unimplemented);
 317         efi_runtime->set_virtual_address_map = __pa(&efi_unimplemented);
 318         efi_runtime->get_variable = __pa(&efi_unimplemented);
 319         efi_runtime->get_next_variable = __pa(&efi_unimplemented);
 320         efi_runtime->set_variable = __pa(&efi_unimplemented);
 321         efi_runtime->get_next_high_mono_count = __pa(&efi_unimplemented);
 322         efi_runtime->reset_system = __pa(&efi_reset_system);
 323
 324         efi_tables->guid = SAL_SYSTEM_TABLE_GUID;
 325         efi_tables->table = __pa(sal_systab);
 326
 327         /* fill in the SAL system table: */
 328         memcpy(sal_systab->signature, "SST_", 4);
 329         sal_systab->size = sizeof(*sal_systab);
 330         sal_systab->sal_rev_minor = 1;
 331         sal_systab->sal_rev_major = 0;
 332         sal_systab->entry_count = 1;
 333
 334 #ifdef CONFIG_IA64_GENERIC
 335         strcpy(sal_systab->oem_id, "Generic");
 336         strcpy(sal_systab->product_id, "IA-64 system");
 337 #endif
 338
 339 #ifdef CONFIG_IA64_HP_SIM
 340         strcpy(sal_systab->oem_id, "Hewlett-Packard");
 341         strcpy(sal_systab->product_id, "HP-simulator");
 342 #endif
 343
 344 #ifdef CONFIG_IA64_SDV
 345         strcpy(sal_systab->oem_id, "Intel");
 346         strcpy(sal_systab->product_id, "SDV");
 347 #endif
 348
 349         /* fill in an entry point: */
 350         sal_ed->type = SAL_DESC_ENTRY_POINT;
 351         sal_ed->pal_proc = __pa(pal_desc[0]);
 352         sal_ed->sal_proc = __pa(sal_desc[0]);
 353         sal_ed->gp = __pa(sal_desc[1]);
 354
 355         for (cp = (char *) sal_systab; cp < (char *) efi_memmap; ++cp)
 356                 checksum += *cp;
 357
 358         sal_systab->checksum = -checksum;
 359
 360 #if SIMPLE_MEMMAP
 361         /* simulate free memory at physical address zero */
 362         MAKE_MD(EFI_BOOT_SERVICES_DATA,         EFI_MEMORY_WB,    0*MB,    1*MB);
 363         MAKE_MD(EFI_PAL_CODE,                   EFI_MEMORY_WB,    1*MB,    2*MB);
 364         MAKE_MD(EFI_CONVENTIONAL_MEMORY,        EFI_MEMORY_WB,    2*MB,  130*MB);
 365         MAKE_MD(EFI_CONVENTIONAL_MEMORY,        EFI_MEMORY_WB, 4096*MB, 4128*MB);
 366 #else
 367         MAKE_MD( 4,                0x9, 0x0000000000000000, 0x0000000000001000);
 368         MAKE_MD( 7,                0x9, 0x0000000000001000, 0x000000000008a000);
 369         MAKE_MD( 4,                0x9, 0x000000000008a000, 0x00000000000a0000);
 370         MAKE_MD( 5, 0x8000000000000009, 0x00000000000c0000, 0x0000000000100000);
 371         MAKE_MD( 7,                0x9, 0x0000000000100000, 0x0000000004400000);
 372         MAKE_MD( 2,                0x9, 0x0000000004400000, 0x0000000004be5000);
 373         MAKE_MD( 7,                0x9, 0x0000000004be5000, 0x000000007f77e000);
 374         MAKE_MD( 6, 0x8000000000000009, 0x000000007f77e000, 0x000000007fb94000);
 375         MAKE_MD( 6, 0x8000000000000009, 0x000000007fb94000, 0x000000007fb95000);
 376         MAKE_MD( 6, 0x8000000000000009, 0x000000007fb95000, 0x000000007fc00000);
 377         MAKE_MD(13, 0x8000000000000009, 0x000000007fc00000, 0x000000007fc3a000);
 378         MAKE_MD( 7,                0x9, 0x000000007fc3a000, 0x000000007fea0000);
 379         MAKE_MD( 5, 0x8000000000000009, 0x000000007fea0000, 0x000000007fea8000);
 380         MAKE_MD( 7,                0x9, 0x000000007fea8000, 0x000000007feab000);
 381         MAKE_MD( 5, 0x8000000000000009, 0x000000007feab000, 0x000000007ffff000);
 382         MAKE_MD( 7,                0x9, 0x00000000ff400000, 0x0000000104000000);
 383 #endif
 384
 385         bp->efi_systab = __pa(&fw_mem);
 386         bp->efi_memmap = __pa(efi_memmap);
 387         bp->efi_memmap_size = NUM_MEM_DESCS*sizeof(efi_memory_desc_t);
 388         bp->efi_memdesc_size = sizeof(efi_memory_desc_t);
 389         bp->efi_memdesc_version = 1;
 390         bp->command_line = __pa(cmd_line);
 391         bp->console_info.num_cols = 80;
 392         bp->console_info.num_rows = 25;
 393         bp->console_info.orig_x = 0;
 394         bp->console_info.orig_y = 24;
 395         bp->fpswa = 0;
 396
 397         return bp;
 398 }