#include "radeonfb.h"

#include <linux/slab.h>

#include "../edid.h"

static struct fb_var_screeninfo radeonfb_default_var = {
        .xres           = 640,
        .yres           = 480,
        .xres_virtual   = 640,
        .yres_virtual   = 480,
        .bits_per_pixel = 8,
        .red            = { .length = 8 },
        .green          = { .length = 8 },
        .blue           = { .length = 8 },
        .activate       = FB_ACTIVATE_NOW,
        .height         = -1,
        .width          = -1,
        .pixclock       = 39721,
        .left_margin    = 40,
        .right_margin   = 24,
        .upper_margin   = 32,
        .lower_margin   = 11,
        .hsync_len      = 96,
        .vsync_len      = 2,
        .vmode          = FB_VMODE_NONINTERLACED
};

static char *radeon_get_mon_name(int type)
{
        char *pret = NULL;

        switch (type) {
                case MT_NONE:
                        pret = "no";
                        break;
                case MT_CRT:
                        pret = "CRT";
                        break;
                case MT_DFP:
                        pret = "DFP";
                        break;
                case MT_LCD:
                        pret = "LCD";
                        break;
                case MT_CTV:
                        pret = "CTV";
                        break;
                case MT_STV:
                        pret = "STV";
                        break;
        }

        return pret;
}


#if defined(CONFIG_PPC) || defined(CONFIG_SPARC)
/*
 * Try to find monitor informations & EDID data out of the Open Firmware
 * device-tree. This also contains some "hacks" to work around a few machine
 * models with broken OF probing by hard-coding known EDIDs for some Mac
 * laptops internal LVDS panel. (XXX: not done yet)
 */
static int radeon_parse_montype_prop(struct device_node *dp, u8 **out_EDID,
                                     int hdno)
{
        static char *propnames[] = { "DFP,EDID", "LCD,EDID", "EDID",
                                     "EDID1", "EDID2",  NULL };
        const u8 *pedid = NULL;
        const u8 *pmt = NULL;
        u8 *tmp;
        int i, mt = MT_NONE;  
        
        pr_debug("analyzing OF properties...\n");
        pmt = of_get_property(dp, "display-type", NULL);
        if (!pmt)
                return MT_NONE;
        pr_debug("display-type: %s\n", pmt);
        /* OF says "LCD" for DFP as well, we discriminate from the caller of this
         * function
         */
        if (!strcmp(pmt, "LCD") || !strcmp(pmt, "DFP"))
                mt = MT_DFP;
        else if (!strcmp(pmt, "CRT"))
                mt = MT_CRT;
        else {
                if (strcmp(pmt, "NONE") != 0)
                        printk(KERN_WARNING "radeonfb: Unknown OF display-type: %s\n",
                               pmt);
                return MT_NONE;
        }

        for (i = 0; propnames[i] != NULL; ++i) {
                pedid = of_get_property(dp, propnames[i], NULL);
                if (pedid != NULL)
                        break;
        }
        /* We didn't find the EDID in the leaf node, some cards will actually
         * put EDID1/EDID2 in the parent, look for these (typically M6 tipb).
         * single-head cards have hdno == -1 and skip this step
         */
        if (pedid == NULL && dp->parent && (hdno != -1))
                pedid = of_get_property(dp->parent,
                                (hdno == 0) ? "EDID1" : "EDID2", NULL);
        if (pedid == NULL && dp->parent && (hdno == 0))
                pedid = of_get_property(dp->parent, "EDID", NULL);
        if (pedid == NULL)
                return mt;

        tmp = kmemdup(pedid, EDID_LENGTH, GFP_KERNEL);
        if (!tmp)
                return mt;
        *out_EDID = tmp;
        return mt;
}

static int radeon_probe_OF_head(struct radeonfb_info *rinfo, int head_no,
                                u8 **out_EDID)
{
        struct device_node *dp;

        pr_debug("radeon_probe_OF_head\n");

        dp = rinfo->of_node;
        while (dp == NULL)
                return MT_NONE;

        if (rinfo->has_CRTC2) {
                const char *pname;
                int len, second = 0;

                dp = dp->child;
                do {
                        if (!dp)
                                return MT_NONE;
                        pname = of_get_property(dp, "name", NULL);
                        if (!pname)
                                return MT_NONE;
                        len = strlen(pname);
                        pr_debug("head: %s (letter: %c, head_no: %d)\n",
                               pname, pname[len-1], head_no);
                        if (pname[len-1] == 'A' && head_no == 0) {
                                int mt = radeon_parse_montype_prop(dp, out_EDID, 0);
                                /* Maybe check for LVDS_GEN_CNTL here ? I need to check out
                                 * what OF does when booting with lid closed
                                 */
                                if (mt == MT_DFP && rinfo->is_mobility)
                                        mt = MT_LCD;
                                return mt;
                        } else if (pname[len-1] == 'B' && head_no == 1)
                                return radeon_parse_montype_prop(dp, out_EDID, 1);
                        second = 1;
                        dp = dp->sibling;
                } while(!second);
        } else {
                if (head_no > 0)
                        return MT_NONE;
                return radeon_parse_montype_prop(dp, out_EDID, -1);
        }
        return MT_NONE;
}
#endif /* CONFIG_PPC || CONFIG_SPARC */


static int radeon_get_panel_info_BIOS(struct radeonfb_info *rinfo)
{
        unsigned long tmp, tmp0;
        char stmp[30];
        int i;

        if (!rinfo->bios_seg)
                return 0;

        if (!(tmp = BIOS_IN16(rinfo->fp_bios_start + 0x40))) {
                printk(KERN_ERR "radeonfb: Failed to detect DFP panel info using BIOS\n");
                rinfo->panel_info.pwr_delay = 200;
                return 0;
        }

        for(i=0; i<24; i++)
                stmp[i] = BIOS_IN8(tmp+i+1);
        stmp[24] = 0;
        printk("radeonfb: panel ID string: %s\n", stmp);
        rinfo->panel_info.xres = BIOS_IN16(tmp + 25);
        rinfo->panel_info.yres = BIOS_IN16(tmp + 27);
        printk("radeonfb: detected LVDS panel size from BIOS: %dx%d\n",
                rinfo->panel_info.xres, rinfo->panel_info.yres);

        rinfo->panel_info.pwr_delay = BIOS_IN16(tmp + 44);
        pr_debug("BIOS provided panel power delay: %d\n", rinfo->panel_info.pwr_delay);
        if (rinfo->panel_info.pwr_delay > 2000 || rinfo->panel_info.pwr_delay <= 0)
                rinfo->panel_info.pwr_delay = 2000;

        /*
         * Some panels only work properly with some divider combinations
         */
        rinfo->panel_info.ref_divider = BIOS_IN16(tmp + 46);
        rinfo->panel_info.post_divider = BIOS_IN8(tmp + 48);
        rinfo->panel_info.fbk_divider = BIOS_IN16(tmp + 49);
        if (rinfo->panel_info.ref_divider != 0 &&
            rinfo->panel_info.fbk_divider > 3) {
                rinfo->panel_info.use_bios_dividers = 1;
                printk(KERN_INFO "radeondb: BIOS provided dividers will be used\n");
                pr_debug("ref_divider = %x\n", rinfo->panel_info.ref_divider);
                pr_debug("post_divider = %x\n", rinfo->panel_info.post_divider);
                pr_debug("fbk_divider = %x\n", rinfo->panel_info.fbk_divider);
        }
        pr_debug("Scanning BIOS table ...\n");
        for(i=0; i<32; i++) {
                tmp0 = BIOS_IN16(tmp+64+i*2);
                if (tmp0 == 0)
                        break;
                pr_debug(" %d x %d\n", BIOS_IN16(tmp0), BIOS_IN16(tmp0+2));
                if ((BIOS_IN16(tmp0) == rinfo->panel_info.xres) &&
                    (BIOS_IN16(tmp0+2) == rinfo->panel_info.yres)) {
                        rinfo->panel_info.hblank = (BIOS_IN16(tmp0+17) - BIOS_IN16(tmp0+19)) * 8;
                        rinfo->panel_info.hOver_plus = ((BIOS_IN16(tmp0+21) -
                                                         BIOS_IN16(tmp0+19) -1) * 8) & 0x7fff;
                        rinfo->panel_info.hSync_width = BIOS_IN8(tmp0+23) * 8;
                        rinfo->panel_info.vblank = BIOS_IN16(tmp0+24) - BIOS_IN16(tmp0+26);
                        rinfo->panel_info.vOver_plus = (BIOS_IN16(tmp0+28) & 0x7ff) - BIOS_IN16(tmp0+26);
                        rinfo->panel_info.vSync_width = (BIOS_IN16(tmp0+28) & 0xf800) >> 11;
                        rinfo->panel_info.clock = BIOS_IN16(tmp0+9);
                        /* Assume high active syncs for now until ATI tells me more... maybe we
                         * can probe register values here ?
                         */
                        rinfo->panel_info.hAct_high = 1;
                        rinfo->panel_info.vAct_high = 1;
                        /* Mark panel infos valid */
                        rinfo->panel_info.valid = 1;

                        pr_debug("Found panel in BIOS table:\n");
                        pr_debug("  hblank: %d\n", rinfo->panel_info.hblank);
                        pr_debug("  hOver_plus: %d\n", rinfo->panel_info.hOver_plus);
                        pr_debug("  hSync_width: %d\n", rinfo->panel_info.hSync_width);
                        pr_debug("  vblank: %d\n", rinfo->panel_info.vblank);
                        pr_debug("  vOver_plus: %d\n", rinfo->panel_info.vOver_plus);
                        pr_debug("  vSync_width: %d\n", rinfo->panel_info.vSync_width);
                        pr_debug("  clock: %d\n", rinfo->panel_info.clock);
                                
                        return 1;
                }
        }
        pr_debug("Didn't find panel in BIOS table !\n");

        return 0;
}

/* Try to extract the connector informations from the BIOS. This
 * doesn't quite work yet, but it's output is still useful for
 * debugging
 */
static void radeon_parse_connector_info(struct radeonfb_info *rinfo)
{
        int offset, chips, connectors, tmp, i, conn, type;

        static char* __conn_type_table[16] = {
                "NONE", "Proprietary", "CRT", "DVI-I", "DVI-D", "Unknown", "Unknown",
                "Unknown", "Unknown", "Unknown", "Unknown", "Unknown", "Unknown",
                "Unknown", "Unknown", "Unknown"
        };

        if (!rinfo->bios_seg)
                return;

        offset = BIOS_IN16(rinfo->fp_bios_start + 0x50);
        if (offset == 0) {
                printk(KERN_WARNING "radeonfb: No connector info table detected\n");
                return;
        }

        /* Don't do much more at this point but displaying the data if
         * DEBUG is enabled
         */
        chips = BIOS_IN8(offset++) >> 4;
        pr_debug("%d chips in connector info\n", chips);
        for (i = 0; i < chips; i++) {
                tmp = BIOS_IN8(offset++);
                connectors = tmp & 0x0f;
                pr_debug(" - chip %d has %d connectors\n", tmp >> 4, connectors);
                for (conn = 0; ; conn++) {
                        tmp = BIOS_IN16(offset);
                        if (tmp == 0)
                                break;
                        offset += 2;
                        type = (tmp >> 12) & 0x0f;
                        pr_debug("  * connector %d of type %d (%s) : %04x\n",
                               conn, type, __conn_type_table[type], tmp);
                }
        }
}


/*
 * Probe physical connection of a CRT. This code comes from XFree
 * as well and currently is only implemented for the CRT DAC, the
 * code for the TVDAC is commented out in XFree as "non working"
 */
static int radeon_crt_is_connected(struct radeonfb_info *rinfo, int is_crt_dac)
{
    int           connected = 0;

    /* the monitor either wasn't connected or it is a non-DDC CRT.
     * try to probe it
     */
    if (is_crt_dac) {
        unsigned long ulOrigVCLK_ECP_CNTL;
        unsigned long ulOrigDAC_CNTL;
        unsigned long ulOrigDAC_EXT_CNTL;
        unsigned long ulOrigCRTC_EXT_CNTL;
        unsigned long ulData;
        unsigned long ulMask;

        ulOrigVCLK_ECP_CNTL = INPLL(VCLK_ECP_CNTL);

        ulData              = ulOrigVCLK_ECP_CNTL;
        ulData             &= ~(PIXCLK_ALWAYS_ONb
                                | PIXCLK_DAC_ALWAYS_ONb);
        ulMask              = ~(PIXCLK_ALWAYS_ONb
                                | PIXCLK_DAC_ALWAYS_ONb);
        OUTPLLP(VCLK_ECP_CNTL, ulData, ulMask);

        ulOrigCRTC_EXT_CNTL = INREG(CRTC_EXT_CNTL);
        ulData              = ulOrigCRTC_EXT_CNTL;
        ulData             |= CRTC_CRT_ON;
        OUTREG(CRTC_EXT_CNTL, ulData);
   
        ulOrigDAC_EXT_CNTL = INREG(DAC_EXT_CNTL);
        ulData             = ulOrigDAC_EXT_CNTL;
        ulData            &= ~DAC_FORCE_DATA_MASK;
        ulData            |=  (DAC_FORCE_BLANK_OFF_EN
                               |DAC_FORCE_DATA_EN
                               |DAC_FORCE_DATA_SEL_MASK);
        if ((rinfo->family == CHIP_FAMILY_RV250) ||
            (rinfo->family == CHIP_FAMILY_RV280))
            ulData |= (0x01b6 << DAC_FORCE_DATA_SHIFT);
        else
            ulData |= (0x01ac << DAC_FORCE_DATA_SHIFT);

        OUTREG(DAC_EXT_CNTL, ulData);

        ulOrigDAC_CNTL     = INREG(DAC_CNTL);
        ulData             = ulOrigDAC_CNTL;
        ulData            |= DAC_CMP_EN;
        ulData            &= ~(DAC_RANGE_CNTL_MASK
                               | DAC_PDWN);
        ulData            |= 0x2;
        OUTREG(DAC_CNTL, ulData);

        mdelay(1);

        ulData     = INREG(DAC_CNTL);
        connected =  (DAC_CMP_OUTPUT & ulData) ? 1 : 0;
  
        ulData    = ulOrigVCLK_ECP_CNTL;
        ulMask    = 0xFFFFFFFFL;
        OUTPLLP(VCLK_ECP_CNTL, ulData, ulMask);

        OUTREG(DAC_CNTL,      ulOrigDAC_CNTL     );
        OUTREG(DAC_EXT_CNTL,  ulOrigDAC_EXT_CNTL );
        OUTREG(CRTC_EXT_CNTL, ulOrigCRTC_EXT_CNTL);
    }

    return connected ? MT_CRT : MT_NONE;
}

/*
 * Parse the "monitor_layout" string if any. This code is mostly
 * copied from XFree's radeon driver
 */
static int radeon_parse_monitor_layout(struct radeonfb_info *rinfo,
                                       const char *monitor_layout)
{
        char s1[5], s2[5];
        int i = 0, second = 0;
        const char *s;

        if (!monitor_layout)
                return 0;

        s = monitor_layout;
        do {
                switch(*s) {
                case ',':
                        s1[i] = '\0';
                        i = 0;
                        second = 1;
                        break;
                case ' ':
                case '\0':
                        break;
                default:
                        if (i > 4)
                                break;
                        if (second)
                                s2[i] = *s;
                        else
                                s1[i] = *s;
                        i++;
                }

                if (i > 4)
                        i = 4;

        } while (*s++);
        if (second)
                s2[i] = 0;
        else {
                s1[i] = 0;
                s2[0] = 0;
        }
        if (strcmp(s1, "CRT") == 0)
                rinfo->mon1_type = MT_CRT;
        else if (strcmp(s1, "TMDS") == 0)
                rinfo->mon1_type = MT_DFP;
        else if (strcmp(s1, "LVDS") == 0)
                rinfo->mon1_type = MT_LCD;

        if (strcmp(s2, "CRT") == 0)
                rinfo->mon2_type = MT_CRT;
        else if (strcmp(s2, "TMDS") == 0)
                rinfo->mon2_type = MT_DFP;
        else if (strcmp(s2, "LVDS") == 0)
                rinfo->mon2_type = MT_LCD;

        return 1;
}

/*
 * Probe display on both primary and secondary card's connector (if any)
 * by various available techniques (i2c, OF device tree, BIOS, ...) and
 * try to retrieve EDID. The algorithm here comes from XFree's radeon
 * driver
 */
void radeon_probe_screens(struct radeonfb_info *rinfo,
                          const char *monitor_layout, int ignore_edid)
{
#ifdef CONFIG_FB_RADEON_I2C
        int ddc_crt2_used = 0;  
#endif
        int tmp, i;

        radeon_parse_connector_info(rinfo);

        if (radeon_parse_monitor_layout(rinfo, monitor_layout)) {

                /*
                 * If user specified a monitor_layout option, use it instead
                 * of auto-detecting. Maybe we should only use this argument
                 * on the first radeon card probed or provide a way to specify
                 * a layout for each card ?
                 */

                pr_debug("Using specified monitor layout: %s", monitor_layout);
#ifdef CONFIG_FB_RADEON_I2C
                if (!ignore_edid) {
                        if (rinfo->mon1_type != MT_NONE)
                                if (!radeon_probe_i2c_connector(rinfo, ddc_dvi, &rinfo->mon1_EDID)) {
                                        radeon_probe_i2c_connector(rinfo, ddc_crt2, &rinfo->mon1_EDID);
                                        ddc_crt2_used = 1;
                                }
                        if (rinfo->mon2_type != MT_NONE)
                                if (!radeon_probe_i2c_connector(rinfo, ddc_vga, &rinfo->mon2_EDID) &&
                                    !ddc_crt2_used)
                                        radeon_probe_i2c_connector(rinfo, ddc_crt2, &rinfo->mon2_EDID);
                }
#endif /* CONFIG_FB_RADEON_I2C */
                if (rinfo->mon1_type == MT_NONE) {
                        if (rinfo->mon2_type != MT_NONE) {
                                rinfo->mon1_type = rinfo->mon2_type;
                                rinfo->mon1_EDID = rinfo->mon2_EDID;
                        } else {
                                rinfo->mon1_type = MT_CRT;
                                printk(KERN_INFO "radeonfb: No valid monitor, assuming CRT on first port\n");
                        }
                        rinfo->mon2_type = MT_NONE;
                        rinfo->mon2_EDID = NULL;
                }
        } else {
                /*
                 * Auto-detecting display type (well... trying to ...)
                 */
                
                pr_debug("Starting monitor auto detection...\n");

#if defined(DEBUG) && defined(CONFIG_FB_RADEON_I2C)
                {
                        u8 *EDIDs[4] = { NULL, NULL, NULL, NULL };
                        int mon_types[4] = {MT_NONE, MT_NONE, MT_NONE, MT_NONE};
                        int i;

                        for (i = 0; i < 4; i++)
                                mon_types[i] = radeon_probe_i2c_connector(rinfo,
                                                                          i+1, &EDIDs[i]);
                }
#endif /* DEBUG */
                /*
                 * Old single head cards
                 */
                if (!rinfo->has_CRTC2) {
#if defined(CONFIG_PPC) || defined(CONFIG_SPARC)
                        if (rinfo->mon1_type == MT_NONE)
                                rinfo->mon1_type = radeon_probe_OF_head(rinfo, 0,
                                                                        &rinfo->mon1_EDID);
#endif /* CONFIG_PPC || CONFIG_SPARC */
#ifdef CONFIG_FB_RADEON_I2C
                        if (rinfo->mon1_type == MT_NONE)
                                rinfo->mon1_type =
                                        radeon_probe_i2c_connector(rinfo, ddc_dvi,
                                                                   &rinfo->mon1_EDID);
                        if (rinfo->mon1_type == MT_NONE)
                                rinfo->mon1_type =
                                        radeon_probe_i2c_connector(rinfo, ddc_vga,
                                                                   &rinfo->mon1_EDID);
                        if (rinfo->mon1_type == MT_NONE)
                                rinfo->mon1_type =
                                        radeon_probe_i2c_connector(rinfo, ddc_crt2,
                                                                   &rinfo->mon1_EDID);  
#endif /* CONFIG_FB_RADEON_I2C */
                        if (rinfo->mon1_type == MT_NONE)
                                rinfo->mon1_type = MT_CRT;
                        goto bail;
                }

                /*
                 * Check for cards with reversed DACs or TMDS controllers using BIOS
                 */
                if (rinfo->bios_seg &&
                    (tmp = BIOS_IN16(rinfo->fp_bios_start + 0x50))) {
                        for (i = 1; i < 4; i++) {
                                unsigned int tmp0;

                                if (!BIOS_IN8(tmp + i*2) && i > 1)
                                        break;
                                tmp0 = BIOS_IN16(tmp + i*2);
                                if ((!(tmp0 & 0x01)) && (((tmp0 >> 8) & 0x0f) == ddc_dvi)) {
                                        rinfo->reversed_DAC = 1;
                                        printk(KERN_INFO "radeonfb: Reversed DACs detected\n");
                                }
                                if ((((tmp0 >> 8) & 0x0f) == ddc_dvi) && ((tmp0 >> 4) & 0x01)) {
                                        rinfo->reversed_TMDS = 1;
                                        printk(KERN_INFO "radeonfb: Reversed TMDS detected\n");
                                }
                        }
                }

                /*
                 * Probe primary head (DVI or laptop internal panel)
                 */
#if defined(CONFIG_PPC) || defined(CONFIG_SPARC)
                if (rinfo->mon1_type == MT_NONE)
                        rinfo->mon1_type = radeon_probe_OF_head(rinfo, 0,
                                                                &rinfo->mon1_EDID);
#endif /* CONFIG_PPC || CONFIG_SPARC */
#ifdef CONFIG_FB_RADEON_I2C
                if (rinfo->mon1_type == MT_NONE)
                        rinfo->mon1_type = radeon_probe_i2c_connector(rinfo, ddc_dvi,
                                                                      &rinfo->mon1_EDID);
                if (rinfo->mon1_type == MT_NONE) {
                        rinfo->mon1_type = radeon_probe_i2c_connector(rinfo, ddc_crt2,
                                                                      &rinfo->mon1_EDID);
                        if (rinfo->mon1_type != MT_NONE)
                                ddc_crt2_used = 1;
                }
#endif /* CONFIG_FB_RADEON_I2C */
                if (rinfo->mon1_type == MT_NONE && rinfo->is_mobility &&
                    ((rinfo->bios_seg && (INREG(BIOS_4_SCRATCH) & 4))
                     || (INREG(LVDS_GEN_CNTL) & LVDS_ON))) {
                        rinfo->mon1_type = MT_LCD;
                        printk("Non-DDC laptop panel detected\n");
                }
                if (rinfo->mon1_type == MT_NONE)
                        rinfo->mon1_type = radeon_crt_is_connected(rinfo, rinfo->reversed_DAC);

                /*
                 * Probe secondary head (mostly VGA, can be DVI)
                 */
#if defined(CONFIG_PPC) || defined(CONFIG_SPARC)
                if (rinfo->mon2_type == MT_NONE)
                        rinfo->mon2_type = radeon_probe_OF_head(rinfo, 1,
                                                                &rinfo->mon2_EDID);
#endif /* CONFIG_PPC || defined(CONFIG_SPARC) */
#ifdef CONFIG_FB_RADEON_I2C
                if (rinfo->mon2_type == MT_NONE)
                        rinfo->mon2_type = radeon_probe_i2c_connector(rinfo, ddc_vga,
                                                                      &rinfo->mon2_EDID);
                if (rinfo->mon2_type == MT_NONE && !ddc_crt2_used)
                        rinfo->mon2_type = radeon_probe_i2c_connector(rinfo, ddc_crt2,
                                                                      &rinfo->mon2_EDID);
#endif /* CONFIG_FB_RADEON_I2C */
                if (rinfo->mon2_type == MT_NONE)
                        rinfo->mon2_type = radeon_crt_is_connected(rinfo, !rinfo->reversed_DAC);

                /*
                 * If we only detected port 2, we swap them, if none detected,
                 * assume CRT (maybe fallback to old BIOS_SCRATCH stuff ? or look
                 * at FP registers ?)
                 */
                if (rinfo->mon1_type == MT_NONE) {
                        if (rinfo->mon2_type != MT_NONE) {
                                rinfo->mon1_type = rinfo->mon2_type;
                                rinfo->mon1_EDID = rinfo->mon2_EDID;
                        } else
                                rinfo->mon1_type = MT_CRT;
                        rinfo->mon2_type = MT_NONE;
                        rinfo->mon2_EDID = NULL;
                }

                /*
                 * Deal with reversed TMDS
                 */
                if (rinfo->reversed_TMDS) {
                        /* Always keep internal TMDS as primary head */
                        if (rinfo->mon1_type == MT_DFP || rinfo->mon2_type == MT_DFP) {
                                int tmp_type = rinfo->mon1_type;
                                u8 *tmp_EDID = rinfo->mon1_EDID;
                                rinfo->mon1_type = rinfo->mon2_type;
                                rinfo->mon1_EDID = rinfo->mon2_EDID;
                                rinfo->mon2_type = tmp_type;
                                rinfo->mon2_EDID = tmp_EDID;
                                if (rinfo->mon1_type == MT_CRT || rinfo->mon2_type == MT_CRT)
                                        rinfo->reversed_DAC ^= 1;
                        }
                }
        }
        if (ignore_edid) {
                kfree(rinfo->mon1_EDID);
                rinfo->mon1_EDID = NULL;
                kfree(rinfo->mon2_EDID);
                rinfo->mon2_EDID = NULL;
        }

 bail:
        printk(KERN_INFO "radeonfb: Monitor 1 type %s found\n",
               radeon_get_mon_name(rinfo->mon1_type));
        if (rinfo->mon1_EDID)
                printk(KERN_INFO "radeonfb: EDID probed\n");
        if (!rinfo->has_CRTC2)
                return;
        printk(KERN_INFO "radeonfb: Monitor 2 type %s found\n",
               radeon_get_mon_name(rinfo->mon2_type));
        if (rinfo->mon2_EDID)
                printk(KERN_INFO "radeonfb: EDID probed\n");
}


/*
 * This functions applyes any arch/model/machine specific fixups
 * to the panel info. It may eventually alter EDID block as
 * well or whatever is specific to a given model and not probed
 * properly by the default code
 */
static void radeon_fixup_panel_info(struct radeonfb_info *rinfo)
{
#ifdef CONFIG_PPC
        /*
         * LCD Flat panels should use fixed dividers, we enfore that on
         * PPC only for now...
         */
        if (!rinfo->panel_info.use_bios_dividers && rinfo->mon1_type == MT_LCD
            && rinfo->is_mobility) {
                int ppll_div_sel;
                u32 ppll_divn;
                ppll_div_sel = INREG8(CLOCK_CNTL_INDEX + 1) & 0x3;
                radeon_pll_errata_after_index(rinfo);
                ppll_divn = INPLL(PPLL_DIV_0 + ppll_div_sel);
                rinfo->panel_info.ref_divider = rinfo->pll.ref_div;
                rinfo->panel_info.fbk_divider = ppll_divn & 0x7ff;
                rinfo->panel_info.post_divider = (ppll_divn >> 16) & 0x7;
                rinfo->panel_info.use_bios_dividers = 1;

                printk(KERN_DEBUG "radeonfb: Using Firmware dividers 0x%08x "
                       "from PPLL %d\n",
                       rinfo->panel_info.fbk_divider |
                       (rinfo->panel_info.post_divider << 16),
                       ppll_div_sel);
        }
#endif /* CONFIG_PPC */
}


/*
 * Fill up panel infos from a mode definition, either returned by the EDID
 * or from the default mode when we can't do any better
 */
static void radeon_var_to_panel_info(struct radeonfb_info *rinfo, struct fb_var_screeninfo *var)
{
        rinfo->panel_info.xres = var->xres;
        rinfo->panel_info.yres = var->yres;
        rinfo->panel_info.clock = 100000000 / var->pixclock;
        rinfo->panel_info.hOver_plus = var->right_margin;
        rinfo->panel_info.hSync_width = var->hsync_len;
        rinfo->panel_info.hblank = var->left_margin +
                (var->right_margin + var->hsync_len);
        rinfo->panel_info.vOver_plus = var->lower_margin;
        rinfo->panel_info.vSync_width = var->vsync_len;
        rinfo->panel_info.vblank = var->upper_margin +
                (var->lower_margin + var->vsync_len);
        rinfo->panel_info.hAct_high =
                (var->sync & FB_SYNC_HOR_HIGH_ACT) != 0;
        rinfo->panel_info.vAct_high =
                (var->sync & FB_SYNC_VERT_HIGH_ACT) != 0;
        rinfo->panel_info.valid = 1;
        /* We use a default of 200ms for the panel power delay, 
         * I need to have a real schedule() instead of mdelay's in the panel code.
         * we might be possible to figure out a better power delay either from
         * MacOS OF tree or from the EDID block (proprietary extensions ?)
         */
        rinfo->panel_info.pwr_delay = 200;
}

static void radeon_videomode_to_var(struct fb_var_screeninfo *var,
                                    const struct fb_videomode *mode)
{
        var->xres = mode->xres;
        var->yres = mode->yres;
        var->xres_virtual = mode->xres;
        var->yres_virtual = mode->yres;
        var->xoffset = 0;
        var->yoffset = 0;
        var->pixclock = mode->pixclock;
        var->left_margin = mode->left_margin;
        var->right_margin = mode->right_margin;
        var->upper_margin = mode->upper_margin;
        var->lower_margin = mode->lower_margin;
        var->hsync_len = mode->hsync_len;
        var->vsync_len = mode->vsync_len;
        var->sync = mode->sync;
        var->vmode = mode->vmode;
}

#ifdef CONFIG_PPC_PSERIES
static int is_powerblade(const char *model)
{
        struct device_node *root;
        const char* cp;
        int len, l, rc = 0;

        root = of_find_node_by_path("/");
        if (root && model) {
                l = strlen(model);
                cp = of_get_property(root, "model", &len);
                if (cp)
                        rc = memcmp(model, cp, min(len, l)) == 0;
                of_node_put(root);
        }
        return rc;
}
#endif

/*
 * Build the modedb for head 1 (head 2 will come later), check panel infos
 * from either BIOS or EDID, and pick up the default mode
 */
void radeon_check_modes(struct radeonfb_info *rinfo, const char *mode_option)
{
        struct fb_info * info = rinfo->info;
        int has_default_mode = 0;

        /*
         * Fill default var first
         */
        info->var = radeonfb_default_var;
        INIT_LIST_HEAD(&info->modelist);

        /*
         * First check out what BIOS has to say
         */
        if (rinfo->mon1_type == MT_LCD)
                radeon_get_panel_info_BIOS(rinfo);

        /*
         * Parse EDID detailed timings and deduce panel infos if any. Right now
         * we only deal with first entry returned by parse_EDID, we may do better
         * some day...
         */
        if (!rinfo->panel_info.use_bios_dividers && rinfo->mon1_type != MT_CRT
            && rinfo->mon1_EDID) {
                struct fb_var_screeninfo var;
                pr_debug("Parsing EDID data for panel info\n");
                if (fb_parse_edid(rinfo->mon1_EDID, &var) == 0) {
                        if (var.xres >= rinfo->panel_info.xres &&
                            var.yres >= rinfo->panel_info.yres)
                                radeon_var_to_panel_info(rinfo, &var);
                }
        }

        /*
         * Do any additional platform/arch fixups to the panel infos
         */
        radeon_fixup_panel_info(rinfo);

        /*
         * If we have some valid panel infos, we setup the default mode based on
         * those
         */
        if (rinfo->mon1_type != MT_CRT && rinfo->panel_info.valid) {
                struct fb_var_screeninfo *var = &info->var;

                pr_debug("Setting up default mode based on panel info\n");
                var->xres = rinfo->panel_info.xres;
                var->yres = rinfo->panel_info.yres;
                var->xres_virtual = rinfo->panel_info.xres;
                var->yres_virtual = rinfo->panel_info.yres;
                var->xoffset = var->yoffset = 0;
                var->bits_per_pixel = 8;
                var->pixclock = 100000000 / rinfo->panel_info.clock;
                var->left_margin = (rinfo->panel_info.hblank - rinfo->panel_info.hOver_plus
                                    - rinfo->panel_info.hSync_width);
                var->right_margin = rinfo->panel_info.hOver_plus;
                var->upper_margin = (rinfo->panel_info.vblank - rinfo->panel_info.vOver_plus
                                     - rinfo->panel_info.vSync_width);
                var->lower_margin = rinfo->panel_info.vOver_plus;
                var->hsync_len = rinfo->panel_info.hSync_width;
                var->vsync_len = rinfo->panel_info.vSync_width;
                var->sync = 0;
                if (rinfo->panel_info.hAct_high)
                        var->sync |= FB_SYNC_HOR_HIGH_ACT;
                if (rinfo->panel_info.vAct_high)
                        var->sync |= FB_SYNC_VERT_HIGH_ACT;
                var->vmode = 0;
                has_default_mode = 1;
        }

        /*
         * Now build modedb from EDID
         */
        if (rinfo->mon1_EDID) {
                fb_edid_to_monspecs(rinfo->mon1_EDID, &info->monspecs);
                fb_videomode_to_modelist(info->monspecs.modedb,
                                         info->monspecs.modedb_len,
                                         &info->modelist);
                rinfo->mon1_modedb = info->monspecs.modedb;
                rinfo->mon1_dbsize = info->monspecs.modedb_len;
        }

        
        /*
         * Finally, if we don't have panel infos we need to figure some (or
         * we try to read it from card), we try to pick a default mode
         * and create some panel infos. Whatever...
         */
        if (rinfo->mon1_type != MT_CRT && !rinfo->panel_info.valid) {
                struct fb_videomode     *modedb;
                int                     dbsize;
                char                    modename[32];

                pr_debug("Guessing panel info...\n");
                if (rinfo->panel_info.xres == 0 || rinfo->panel_info.yres == 0) {
                        u32 tmp = INREG(FP_HORZ_STRETCH) & HORZ_PANEL_SIZE;
                        rinfo->panel_info.xres = ((tmp >> HORZ_PANEL_SHIFT) + 1) * 8;
                        tmp = INREG(FP_VERT_STRETCH) & VERT_PANEL_SIZE;
                        rinfo->panel_info.yres = (tmp >> VERT_PANEL_SHIFT) + 1;
                }
                if (rinfo->panel_info.xres == 0 || rinfo->panel_info.yres == 0) {
                        printk(KERN_WARNING "radeonfb: Can't find panel size, going back to CRT\n");
                        rinfo->mon1_type = MT_CRT;
                        goto pickup_default;
                }
                printk(KERN_WARNING "radeonfb: Assuming panel size %dx%d\n",
                       rinfo->panel_info.xres, rinfo->panel_info.yres);
                modedb = rinfo->mon1_modedb;
                dbsize = rinfo->mon1_dbsize;
                snprintf(modename, 31, "%dx%d", rinfo->panel_info.xres, rinfo->panel_info.yres);
                if (fb_find_mode(&info->var, info, modename,
                                 modedb, dbsize, NULL, 8) == 0) {
                        printk(KERN_WARNING "radeonfb: Can't find mode for panel size, going back to CRT\n");
                        rinfo->mon1_type = MT_CRT;
                        goto pickup_default;
                }
                has_default_mode = 1;
                radeon_var_to_panel_info(rinfo, &info->var);
        }

 pickup_default:
        /*
         * Apply passed-in mode option if any
         */
        if (mode_option) {
                if (fb_find_mode(&info->var, info, mode_option,
                                 info->monspecs.modedb,
                                 info->monspecs.modedb_len, NULL, 8) != 0)
                        has_default_mode = 1;
        }

#ifdef CONFIG_PPC_PSERIES
        if (!has_default_mode && (
                is_powerblade("IBM,8842") || /* JS20 */
                is_powerblade("IBM,8844") || /* JS21 */
                is_powerblade("IBM,7998") || /* JS12/JS21/JS22 */
                is_powerblade("IBM,0792") || /* QS21 */
                is_powerblade("IBM,0793")    /* QS22 */
            )) {
                printk("Falling back to 800x600 on JSxx hardware\n");
                if (fb_find_mode(&info->var, info, "800x600@60",
                                 info->monspecs.modedb,
                                 info->monspecs.modedb_len, NULL, 8) != 0)
                        has_default_mode = 1;
        }
#endif

        /*
         * Still no mode, let's pick up a default from the db
         */
        if (!has_default_mode && info->monspecs.modedb != NULL) {
                struct fb_monspecs *specs = &info->monspecs;
                struct fb_videomode *modedb = NULL;

                /* get preferred timing */
                if (specs->misc & FB_MISC_1ST_DETAIL) {
                        int i;

                        for (i = 0; i < specs->modedb_len; i++) {
                                if (specs->modedb[i].flag & FB_MODE_IS_FIRST) {
                                        modedb = &specs->modedb[i];
                                        break;
                                }
                        }
                } else {
                        /* otherwise, get first mode in database */
                        modedb = &specs->modedb[0];
                }
                if (modedb != NULL) {
                        info->var.bits_per_pixel = 8;
                        radeon_videomode_to_var(&info->var, modedb);
                        has_default_mode = 1;
                }
        }
        if (1) {
                struct fb_videomode mode;
                /* Make sure that whatever mode got selected is actually in the
                 * modelist or the kernel may die
                 */
                fb_var_to_videomode(&mode, &info->var);
                fb_add_videomode(&mode, &info->modelist);
        }
}

/*
 * The code below is used to pick up a mode in check_var and
 * set_var. It should be made generic
 */

/*
 * This is used when looking for modes. We assign a "distance" value
 * to a mode in the modedb depending how "close" it is from what we
 * are looking for.
 * Currently, we don't compare that much, we could do better but
 * the current fbcon doesn't quite mind ;)
 */
static int radeon_compare_modes(const struct fb_var_screeninfo *var,
                                const struct fb_videomode *mode)
{
        int distance = 0;

        distance = mode->yres - var->yres;
        distance += (mode->xres - var->xres)/2;
        return distance;
}

/*
 * This function is called by check_var, it gets the passed in mode parameter, and
 * outputs a valid mode matching the passed-in one as closely as possible.
 * We need something better ultimately. Things like fbcon basically pass us out
 * current mode with xres/yres hacked, while things like XFree will actually
 * produce a full timing that we should respect as much as possible.
 *
 * This is why I added the FB_ACTIVATE_FIND that is used by fbcon. Without this,
 * we do a simple spec match, that's all. With it, we actually look for a mode in
 * either our monitor modedb or the vesa one if none
 *
 */
int  radeon_match_mode(struct radeonfb_info *rinfo,
                       struct fb_var_screeninfo *dest,
                       const struct fb_var_screeninfo *src)
{
        const struct fb_videomode       *db = vesa_modes;
        int                             i, dbsize = 34;
        int                             has_rmx, native_db = 0;
        int                             distance = INT_MAX;
        const struct fb_videomode       *candidate = NULL;

        /* Start with a copy of the requested mode */
        memcpy(dest, src, sizeof(struct fb_var_screeninfo));

        /* Check if we have a modedb built from EDID */
        if (rinfo->mon1_modedb) {
                db = rinfo->mon1_modedb;
                dbsize = rinfo->mon1_dbsize;
                native_db = 1;
        }

        /* Check if we have a scaler allowing any fancy mode */
        has_rmx = rinfo->mon1_type == MT_LCD || rinfo->mon1_type == MT_DFP;

        /* If we have a scaler and are passed FB_ACTIVATE_TEST or
         * FB_ACTIVATE_NOW, just do basic checking and return if the
         * mode match
         */

        if ((src->activate & FB_ACTIVATE_MASK) == FB_ACTIVATE_TEST ||
            (src->activate & FB_ACTIVATE_MASK) == FB_ACTIVATE_NOW) {
                /* We don't have an RMX, validate timings. If we don't have
                 * monspecs, we should be paranoid and not let use go above
                 * 640x480-60, but I assume userland knows what it's doing here
                 * (though I may be proven wrong...)
                 */
                if (has_rmx == 0 && rinfo->mon1_modedb)
                        if (fb_validate_mode((struct fb_var_screeninfo *)src, rinfo->info))
                                return -EINVAL;
                return 0;
        }

        /* Now look for a mode in the database */
        while (db) {
                for (i = 0; i < dbsize; i++) {
                        int d;

                        if (db[i].yres < src->yres)
                                continue;       
                        if (db[i].xres < src->xres)
                                continue;
                        d = radeon_compare_modes(src, &db[i]);
                        /* If the new mode is at least as good as the previous one,
                         * then it's our new candidate
                         */
                        if (d < distance) {
                                candidate = &db[i];
                                distance = d;
                        }
                }
                db = NULL;
                /* If we have a scaler, we allow any mode from the database */
                if (native_db && has_rmx) {
                        db = vesa_modes;
                        dbsize = 34;
                        native_db = 0;
                }
        }

        /* If we have found a match, return it */
        if (candidate != NULL) {
                radeon_videomode_to_var(dest, candidate);
                return 0;
        }

        /* If we haven't and don't have a scaler, fail */
        if (!has_rmx)
                return -EINVAL;

        return 0;
}