#include #include #include #include "i915_drv.h" #include #include #include #include #include "getopt.h" #include "bitmap.h" #include "i915_kos32.h" #define DRV_NAME "i915 v4.4.2-dbg2" #define I915_DEV_CLOSE 0 #define I915_DEV_INIT 1 #define I915_DEV_READY 2 static int my_atoi(char **cmd); static char* parse_mode(char *p, videomode_t *mode); void cpu_detect1(); int kmap_init(); unsigned long volatile jiffies; int oops_in_progress; int x86_clflush_size; unsigned int tsc_khz; struct workqueue_struct *system_wq; int driver_wq_state; struct drm_device *main_device; struct drm_file *drm_file_handlers[256]; videomode_t usermode; extern int __getopt_initialized; void i915_driver_thread() { struct drm_i915_private *dev_priv = NULL; struct workqueue_struct *cwq = NULL; static int dpms = 1; static int dpms_lock = 0; oskey_t key; unsigned long irqflags; int tmp; printf("%s\n",__FUNCTION__); while(driver_wq_state == I915_DEV_INIT) { jiffies = GetClockNs() / 10000000; delay(1); }; if( driver_wq_state == I915_DEV_CLOSE) { asm volatile ("int $0x40"::"a"(-1)); }; dev_priv = main_device->dev_private; cwq = dev_priv->wq; asm volatile("int $0x40":"=a"(tmp):"a"(66),"b"(1),"c"(1)); asm volatile("int $0x40":"=a"(tmp):"a"(66),"b"(4),"c"(0x46),"d"(0x330)); asm volatile("int $0x40":"=a"(tmp):"a"(66),"b"(4),"c"(0xC6),"d"(0x330)); while(driver_wq_state != I915_DEV_CLOSE) { jiffies = GetClockNs() / 10000000; key = get_key(); if( (key.val != 1) && (key.state == 0x02)) { if(key.code == 0x46 && dpms_lock == 0) { dpms_lock = 1; if(dpms == 1) { i915_dpms(main_device, DRM_MODE_DPMS_OFF); printf("dpms off\n"); } else { i915_dpms(main_device, DRM_MODE_DPMS_ON); printf("dpms on\n"); }; dpms ^= 1; } else if(key.code == 0xC6) dpms_lock = 0; }; spin_lock_irqsave(&cwq->lock, irqflags); while (!list_empty(&cwq->worklist)) { struct work_struct *work = list_entry(cwq->worklist.next, struct work_struct, entry); work_func_t f = work->func; list_del_init(cwq->worklist.next); spin_unlock_irqrestore(&cwq->lock, irqflags); f(work); spin_lock_irqsave(&cwq->lock, irqflags); } spin_unlock_irqrestore(&cwq->lock, irqflags); delay(1); }; asm volatile ("int $0x40"::"a"(-1)); } u32 __attribute__((externally_visible)) drvEntry(int action, char *cmdline) { static pci_dev_t device; const struct pci_device_id *ent; char *safecmdline; int err = 0; if(action != 1) { driver_wq_state = I915_DEV_CLOSE; return 0; }; if( GetService("DISPLAY") != 0 ) return 0; printf("\n%s build %s %s\nusage: i915 [options]\n", DRV_NAME, __DATE__, __TIME__); printf("--rc6 <-1,0-7> Enable power-saving render C-state 6.\n" " Different stages can be selected via bitmask values\n" " (0 = disable; 1 = enable rc6; 2 = enable deep rc6;\n" " 4 = enable deepest rc6).\n" " For example, 3 would enable rc6 and deep rc6,\n" " and 7 would enable everything.\n" " default: -1 (use per-chip default)\n"); printf("--fbc <-1,0,1> Enable frame buffer compression for power savings\n" " (default: -1 (use per-chip default))\n"); printf("-l\n" "--log path to log file\n"); printf("-m\n" "--mode set videomode\n"); printf("-v\n" "--video :x[M][R][-][@][i][m][eDd]\n" " set videomode for CONNECTOR\n"); if( cmdline && *cmdline ) { int argc, i, c; char **argv; safecmdline = __builtin_strdup(cmdline); printf("cmdline %s\n", safecmdline); argc = split_cmdline(safecmdline, NULL); argv = __builtin_malloc((argc+1)*sizeof(char*)); split_cmdline(safecmdline, argv); argv[argc] = NULL; while(1) { static struct option long_options[] = { {"log", required_argument, 0, 'l'}, {"mode", required_argument, 0, 'm'}, {"video", required_argument, 0, 'v'}, {"rc6", required_argument, 0, OPTION_RC6}, {"fbc", required_argument, 0, OPTION_FBC}, {0, 0, 0, 0} }; int option_index = 0; c = getopt_long (argc, argv, "l:m:v:", long_options, &option_index); if (c == -1) break; switch(c) { case OPTION_RC6: i915.enable_rc6 = my_atoi(&optarg); printf("i915.rc6 = %d\n",i915.enable_rc6); break; case OPTION_FBC: i915.enable_fbc = my_atoi(&optarg); printf("i915.fbc = %d\n",i915.enable_fbc); break; case 'l': i915.log_file = optarg; break; case 'm': parse_mode(optarg, &usermode); break; case 'v': i915.cmdline_mode = optarg; printf("i915.cmdline_mode =%s\n",i915.cmdline_mode); break; } } }; if( i915.log_file && !dbg_open(i915.log_file)) { printf("Can't open %s\nExit\n", i915.log_file); return 0; } else { dbgprintf("\nLOG: %s build %s %s\n",DRV_NAME,__DATE__, __TIME__); } cpu_detect1(); err = enum_pci_devices(); if( unlikely(err != 0) ) { dbgprintf("Device enumeration failed\n"); return 0; } err = kmap_init(); if( unlikely(err != 0) ) { dbgprintf("kmap initialization failed\n"); return 0; } dmi_scan_machine(); driver_wq_state = I915_DEV_INIT; CreateKernelThread(i915_driver_thread); err = i915_init(); if(unlikely(err!= 0)) { driver_wq_state = I915_DEV_CLOSE; dbgprintf("Epic Fail :(\n"); delay(100); return 0; }; driver_wq_state = I915_DEV_READY; init_display_kms(main_device, &usermode); err = RegService("DISPLAY", display_handler); if( err != 0) dbgprintf("Set DISPLAY handler\n"); return err; }; int do_command_line(const char* usercmd) { char *cmdline; int argc, i, c; char **argv; int retval = 0; if( (usercmd == NULL) || (*usercmd == 0) ) return 1; cmdline = __builtin_strdup(usercmd); printf("cmdline %s\n", cmdline); argc = split_cmdline(cmdline, NULL); argv = __builtin_malloc((argc+1)*sizeof(char*)); split_cmdline(cmdline, argv); argv[argc] = NULL; __getopt_initialized = 0; while(1) { static struct option long_options[] = { {"list-connectors", no_argument, 0, OPTION_CONNECTORS}, {"list-connector-modes", required_argument, 0, OPTION_CONN_MODES}, {"video", required_argument, 0, 'v'}, {0, 0, 0, 0} }; int option_index = 0; c = getopt_long (argc, argv, "v:", long_options, &option_index); if (c == -1) break; switch(c) { case 'v': printf("cmdline_mode %s\n",optarg); retval = set_cmdline_mode_ext(main_device, optarg); break; case OPTION_CONNECTORS: list_connectors(main_device); break; case OPTION_CONN_MODES: retval = list_connector_modes(main_device, optarg); break; } } __builtin_free(argv); __builtin_free(cmdline); return retval; }; #define CURRENT_API 0x0200 /* 2.00 */ #define COMPATIBLE_API 0x0100 /* 1.00 */ #define API_VERSION (COMPATIBLE_API << 16) | CURRENT_API #define DISPLAY_VERSION API_VERSION #define SRV_GETVERSION 0 #define SRV_ENUM_MODES 1 #define SRV_SET_MODE 2 #define SRV_GET_CAPS 3 #define SRV_CMDLINE 4 #define SRV_GET_PCI_INFO 20 #define SRV_I915_GET_PARAM 21 #define SRV_I915_GEM_CREATE 22 #define SRV_DRM_GEM_CLOSE 23 #define SRV_DRM_GEM_FLINK 24 #define SRV_DRM_GEM_OPEN 25 #define SRV_I915_GEM_PIN 26 #define SRV_I915_GEM_UNPIN 27 #define SRV_I915_GEM_GET_CACHING 28 #define SRV_I915_GEM_SET_CACHING 29 #define SRV_I915_GEM_PWRITE 30 #define SRV_I915_GEM_BUSY 31 #define SRV_I915_GEM_SET_DOMAIN 32 #define SRV_I915_GEM_MMAP 33 #define SRV_I915_GEM_SET_TILING 34 #define SRV_I915_GEM_GET_TILING 35 #define SRV_I915_GEM_GET_APERTURE 36 #define SRV_I915_GEM_MMAP_GTT 37 #define SRV_I915_GEM_THROTTLE 38 #define SRV_I915_GEM_EXECBUFFER2 39 #define SRV_I915_GEM_WAIT 40 #define SRV_I915_GEM_CONTEXT_CREATE 41 #define SRV_I915_GEM_CONTEXT_DESTROY 42 #define SRV_I915_REG_READ 43 #define SRV_FBINFO 44 #define SRV_MASK_UPDATE 45 #define SRV_MASK_UPDATE_EX 46 #define SRV_I915_GEM_PREAD 47 #define check_input(size) \ if( unlikely((inp==NULL)||(io->inp_size != (size))) ) \ break; #define check_output(size) \ if( unlikely((outp==NULL)||(io->out_size != (size))) ) \ break; int _stdcall display_handler(ioctl_t *io) { struct drm_file *file; int retval = -1; u32 *inp; u32 *outp; inp = io->input; outp = io->output; file = drm_file_handlers[0]; switch(io->io_code) { case SRV_GETVERSION: check_output(4); *outp = DISPLAY_VERSION; retval = 0; break; case SRV_ENUM_MODES: // dbgprintf("SRV_ENUM_MODES inp %x inp_size %x out_size %x\n", // inp, io->inp_size, io->out_size ); check_output(4); // check_input(*outp * sizeof(videomode_t)); retval = get_videomodes((videomode_t*)inp, outp); break; case SRV_SET_MODE: // dbgprintf("SRV_SET_MODE inp %x inp_size %x\n", // inp, io->inp_size); check_input(sizeof(videomode_t)); retval = set_user_mode((videomode_t*)inp); break; case SRV_GET_CAPS: retval = get_driver_caps((hwcaps_t*)inp); break; case SRV_CMDLINE: retval = do_command_line((char*)inp); break; case SRV_GET_PCI_INFO: get_pci_info((struct pci_device *)inp); retval = 0; break; case SRV_I915_GET_PARAM: retval = i915_getparam(main_device, inp, file); break; case SRV_I915_GEM_CREATE: retval = i915_gem_create_ioctl(main_device, inp, file); break; case SRV_DRM_GEM_CLOSE: retval = drm_gem_close_ioctl(main_device, inp, file); break; case SRV_DRM_GEM_FLINK: retval = drm_gem_flink_ioctl(main_device, inp, file); break; case SRV_DRM_GEM_OPEN: retval = drm_gem_open_ioctl(main_device, inp, file); break; case SRV_I915_GEM_GET_CACHING: retval = i915_gem_get_caching_ioctl(main_device, inp, file); break; case SRV_I915_GEM_SET_CACHING: retval = i915_gem_set_caching_ioctl(main_device, inp, file); break; case SRV_I915_GEM_PREAD: retval = i915_gem_pread_ioctl(main_device, inp, file); break; case SRV_I915_GEM_PWRITE: retval = i915_gem_pwrite_ioctl(main_device, inp, file); break; case SRV_I915_GEM_BUSY: retval = i915_gem_busy_ioctl(main_device, inp, file); break; case SRV_I915_GEM_SET_DOMAIN: retval = i915_gem_set_domain_ioctl(main_device, inp, file); break; case SRV_I915_GEM_MMAP: retval = i915_gem_mmap_ioctl(main_device, inp, file); break; case SRV_I915_GEM_SET_TILING: retval = i915_gem_set_tiling(main_device, inp, file); break; case SRV_I915_GEM_GET_TILING: retval = i915_gem_get_tiling(main_device, inp, file); break; case SRV_I915_GEM_GET_APERTURE: // printf("SRV_I915_GEM_GET_APERTURE "); retval = i915_gem_get_aperture_ioctl(main_device, inp, file); // printf(" retval=%d\n", retval); break; case SRV_I915_GEM_MMAP_GTT: retval = i915_gem_mmap_gtt_ioctl(main_device, inp, file); break; case SRV_I915_GEM_THROTTLE: retval = i915_gem_throttle_ioctl(main_device, inp, file); break; case SRV_I915_GEM_EXECBUFFER2: retval = i915_gem_execbuffer2(main_device, inp, file); break; case SRV_I915_GEM_WAIT: retval = i915_gem_wait_ioctl(main_device, inp, file); break; case SRV_I915_GEM_CONTEXT_CREATE: retval = i915_gem_context_create_ioctl(main_device, inp, file); break; case SRV_I915_GEM_CONTEXT_DESTROY: retval = i915_gem_context_destroy_ioctl(main_device, inp, file); break; case SRV_I915_REG_READ: retval = i915_reg_read_ioctl(main_device, inp, file); break; case SRV_FBINFO: retval = i915_fbinfo(inp); break; case SRV_MASK_UPDATE: retval = i915_mask_update(main_device, inp, file); break; case SRV_MASK_UPDATE_EX: retval = i915_mask_update_ex(main_device, inp, file); break; }; return retval; } #define PCI_CLASS_REVISION 0x08 #define PCI_CLASS_DISPLAY_VGA 0x0300 #define PCI_CLASS_BRIDGE_HOST 0x0600 #define PCI_CLASS_BRIDGE_ISA 0x0601 int pci_scan_filter(u32 id, u32 busnr, u32 devfn) { u16 vendor, device; u32 class; int ret = 0; vendor = id & 0xffff; device = (id >> 16) & 0xffff; if(vendor == 0x8086) { class = PciRead32(busnr, devfn, PCI_CLASS_REVISION); class >>= 16; if( (class == PCI_CLASS_DISPLAY_VGA) || (class == PCI_CLASS_BRIDGE_HOST) || (class == PCI_CLASS_BRIDGE_ISA)) ret = 1; } return ret; }; struct mtrr { u64 base; u64 mask; }; struct cpuinfo { u64 caps; u64 def_mtrr; u64 mtrr_cap; int var_mtrr_count; int fix_mtrr_count; struct mtrr var_mtrr[9]; char model_name[64]; }; #define MTRRphysBase_MSR(reg) (0x200 + 2 * (reg)) #define MTRRphysMask_MSR(reg) (0x200 + 2 * (reg) + 1) #define MSR_MTRRdefType 0x000002ff #define IA32_MTRRCAP 0xFE #define IA32_CR_PAT_MSR 0x277 #define PAT_TYPE_UC 0 #define PAT_TYPE_WC 1 #define PAT_TYPE_WB 6 #define PAT_TYPE_UCM 7 #define MTRR_UC 0 #define MTRR_WC 1 #define MTRR_WB 6 static inline u64 read_msr(u32 msr) { union { u64 val; struct { u32 low; u32 high; }; }tmp; asm volatile ( "rdmsr" : "=a" (tmp.low), "=d" (tmp.high) : "c" (msr)); return tmp.val; } static inline void write_msr(u32 msr, u64 val) { union { u64 val; struct { u32 low; u32 high; }; }tmp; tmp.val = val; asm volatile ( "wrmsr" :: "a" (tmp.low), "d" (tmp.high), "c" (msr)); } #define SIZE_OR_MASK_BITS(n) (~((1ULL << ((n) - PAGE_SHIFT)) - 1)) static void set_mtrr(unsigned int reg, unsigned long base, unsigned long size, int type) { unsigned int base_lo, base_hi, mask_lo, mask_hi; u64 size_or_mask, size_and_mask; size_or_mask = SIZE_OR_MASK_BITS(36); size_and_mask = 0x00f00000; if (size == 0) { /* * The invalid bit is kept in the mask, so we simply * clear the relevant mask register to disable a range. */ native_write_msr(MTRRphysMask_MSR(reg), 0, 0); } else { base_lo = base << PAGE_SHIFT | type; base_hi = (base & size_and_mask) >> (32 - PAGE_SHIFT); mask_lo = -size << PAGE_SHIFT | 0x800; mask_hi = (-size & size_and_mask) >> (32 - PAGE_SHIFT); native_write_msr(MTRRphysBase_MSR(reg), base_lo, base_hi); native_write_msr(MTRRphysMask_MSR(reg), mask_lo, mask_hi); }; } static u32 deftype_lo, deftype_hi; void cpu_detect1() { struct cpuinfo cpuinfo; u32 junk, tfms, cap0, misc; int i; cpuid(0x00000001, &tfms, &misc, &junk, &cap0); if (cap0 & (1<<19)) { x86_clflush_size = ((misc >> 8) & 0xff) * 8; } #if 0 cpuid(0x80000002, (unsigned int*)&cpuinfo.model_name[0], (unsigned int*)&cpuinfo.model_name[4], (unsigned int*)&cpuinfo.model_name[8], (unsigned int*)&cpuinfo.model_name[12]); cpuid(0x80000003, (unsigned int*)&cpuinfo.model_name[16], (unsigned int*)&cpuinfo.model_name[20], (unsigned int*)&cpuinfo.model_name[24], (unsigned int*)&cpuinfo.model_name[28]); cpuid(0x80000004, (unsigned int*)&cpuinfo.model_name[32], (unsigned int*)&cpuinfo.model_name[36], (unsigned int*)&cpuinfo.model_name[40], (unsigned int*)&cpuinfo.model_name[44]); printf("\n%s\n\n",cpuinfo.model_name); cpuinfo.def_mtrr = read_msr(MSR_MTRRdefType); cpuinfo.mtrr_cap = read_msr(IA32_MTRRCAP); printf("MSR_MTRRdefType %016llx\n\n", cpuinfo.def_mtrr); cpuinfo.var_mtrr_count = (u8_t)cpuinfo.mtrr_cap; for(i = 0; i < cpuinfo.var_mtrr_count; i++) { u64_t mtrr_base; u64_t mtrr_mask; cpuinfo.var_mtrr[i].base = read_msr(MTRRphysBase_MSR(i)); cpuinfo.var_mtrr[i].mask = read_msr(MTRRphysMask_MSR(i)); printf("MTRR_%d base: %016llx mask: %016llx\n", i, cpuinfo.var_mtrr[i].base, cpuinfo.var_mtrr[i].mask); }; unsigned int cr0, cr3, cr4, eflags; eflags = safe_cli(); /* Enter the no-fill (CD=1, NW=0) cache mode and flush caches. */ cr0 = read_cr0() | (1<<30); write_cr0(cr0); wbinvd(); cr4 = read_cr4(); write_cr4(cr4 & ~(1<<7)); cr3 = read_cr3(); write_cr3(cr3); /* Save MTRR state */ rdmsr(MSR_MTRRdefType, deftype_lo, deftype_hi); /* Disable MTRRs, and set the default type to uncached */ native_write_msr(MSR_MTRRdefType, deftype_lo & ~0xcff, deftype_hi); wbinvd(); i = 0; set_mtrr(i++,0,0x80000000>>12,MTRR_WB); set_mtrr(i++,0x80000000>>12,0x40000000>>12,MTRR_WB); set_mtrr(i++,0xC0000000>>12,0x20000000>>12,MTRR_WB); set_mtrr(i++,0xdb800000>>12,0x00800000>>12,MTRR_UC); set_mtrr(i++,0xdc000000>>12,0x04000000>>12,MTRR_UC); set_mtrr(i++,0xE0000000>>12,0x10000000>>12,MTRR_WC); for(; i < cpuinfo.var_mtrr_count; i++) set_mtrr(i,0,0,0); write_cr3(cr3); /* Intel (P6) standard MTRRs */ native_write_msr(MSR_MTRRdefType, deftype_lo, deftype_hi); /* Enable caches */ write_cr0(read_cr0() & ~(1<<30)); /* Restore value of CR4 */ write_cr4(cr4); safe_sti(eflags); printf("\nnew MTRR map\n\n"); for(i = 0; i < cpuinfo.var_mtrr_count; i++) { u64_t mtrr_base; u64_t mtrr_mask; cpuinfo.var_mtrr[i].base = read_msr(MTRRphysBase_MSR(i)); cpuinfo.var_mtrr[i].mask = read_msr(MTRRphysMask_MSR(i)); printf("MTRR_%d base: %016llx mask: %016llx\n", i, cpuinfo.var_mtrr[i].base, cpuinfo.var_mtrr[i].mask); }; #endif tsc_khz = (unsigned int)(GetCpuFreq()/1000); } int get_driver_caps(hwcaps_t *caps) { int ret = 0; switch(caps->idx) { case 0: caps->opt[0] = 0; caps->opt[1] = 0; break; case 1: caps->cap1.max_tex_width = 4096; caps->cap1.max_tex_height = 4096; break; default: ret = 1; }; caps->idx = 1; return ret; } void get_pci_info(struct pci_device *dev) { struct pci_dev *pdev = main_device->pdev; memset(dev, sizeof(*dev), 0); dev->domain = 0; dev->bus = pdev->busnr; dev->dev = pdev->devfn >> 3; dev->func = pdev->devfn & 7; dev->vendor_id = pdev->vendor; dev->device_id = pdev->device; dev->revision = pdev->revision; }; char *strstr(const char *cs, const char *ct); static int my_atoi(char **cmd) { char* p = *cmd; int val = 0; int sign = 1; if(*p == '-') { sign = -1; p++; }; for (;; *p++) { switch (*p) { case '0' ... '9': val = 10*val+(*p-'0'); break; default: *cmd = p; return val*sign; } } } static char* parse_mode(char *p, videomode_t *mode) { char c; while( (c = *p++) == ' '); if( c ) { p--; mode->width = my_atoi(&p); if(*p == 'x') p++; mode->height = my_atoi(&p); if(*p == 'x') p++; mode->bpp = 32; mode->freq = my_atoi(&p); if( mode->freq == 0 ) mode->freq = 60; } return p; };