drivers/pci/hotplug/sgi_hotplug.c - kernel/msm-4.9 - Gitiles

 /*
  * This file is subject to the terms and conditions of the GNU General Public
  * License.  See the file "COPYING" in the main directory of this archive
  * for more details.
  *
  * Copyright (C) 2005-2006 Silicon Graphics, Inc. All rights reserved.
  *
  * This work was based on the 2.4/2.6 kernel development by Dick Reigner.
  * Work to add BIOS PROM support was completed by Mike Habeck.
  */

 #include <linux/init.h>
 #include <linux/kernel.h>
 #include <linux/module.h>
 #include <linux/pci.h>
 #include <linux/pci_hotplug.h>
 #include <linux/proc_fs.h>
 #include <linux/slab.h>
 #include <linux/types.h>
 #include <linux/mutex.h>

 #include <asm/sn/addrs.h>
 #include <asm/sn/geo.h>
 #include <asm/sn/l1.h>
 #include <asm/sn/module.h>
 #include <asm/sn/pcibr_provider.h>
 #include <asm/sn/pcibus_provider_defs.h>
 #include <asm/sn/pcidev.h>
 #include <asm/sn/sn_feature_sets.h>
 #include <asm/sn/sn_sal.h>
 #include <asm/sn/types.h>
 #include <linux/acpi.h>
 #include <asm/sn/acpi.h>

 #include "../pci.h"

 MODULE_LICENSE("GPL");
 MODULE_AUTHOR("SGI (prarit@sgi.com, dickie@sgi.com, habeck@sgi.com)");
 MODULE_DESCRIPTION("SGI Altix Hot Plug PCI Controller Driver");


 /* SAL call error codes. Keep in sync with prom header io/include/pcibr.h */
 #define PCI_SLOT_ALREADY_UP		2	/* slot already up */
 #define PCI_SLOT_ALREADY_DOWN		3	/* slot already down */
 #define PCI_L1_ERR			7	/* L1 console command error */
 #define PCI_EMPTY_33MHZ			15	/* empty 33 MHz bus */


 #define PCIIO_ASIC_TYPE_TIOCA		4
 #define PCI_L1_QSIZE			128	/* our L1 message buffer size */
 #define SN_MAX_HP_SLOTS			32	/* max hotplug slots */
 #define SN_SLOT_NAME_SIZE		33	/* size of name string */

 /* internal list head */
 static struct list_head sn_hp_list;

 /* hotplug_slot struct's private pointer */
 struct slot {
 	int device_num;
 	struct pci_bus *pci_bus;
 	/* this struct for glue internal only */
 	struct hotplug_slot *hotplug_slot;
 	struct list_head hp_list;
 	char physical_path[SN_SLOT_NAME_SIZE];
 };

 struct pcibr_slot_enable_resp {
 	int resp_sub_errno;
 	char resp_l1_msg[PCI_L1_QSIZE + 1];
 };

 struct pcibr_slot_disable_resp {
 	int resp_sub_errno;
 	char resp_l1_msg[PCI_L1_QSIZE + 1];
 };

 enum sn_pci_req_e {
 	PCI_REQ_SLOT_ELIGIBLE,
 	PCI_REQ_SLOT_DISABLE
 };

 static int enable_slot(struct hotplug_slot *slot);
 static int disable_slot(struct hotplug_slot *slot);
 static inline int get_power_status(struct hotplug_slot *slot, u8 *value);

 static struct hotplug_slot_ops sn_hotplug_slot_ops = {
 	.enable_slot            = enable_slot,
 	.disable_slot           = disable_slot,
 	.get_power_status       = get_power_status,
 };

 static DEFINE_MUTEX(sn_hotplug_mutex);

 static ssize_t path_show(struct pci_slot *pci_slot, char *buf)
 {
 	int retval = -ENOENT;
 	struct slot *slot = pci_slot->hotplug->private;

 	if (!slot)
 		return retval;

 	retval = sprintf (buf, "%s\n", slot->physical_path);
 	return retval;
 }

 static struct pci_slot_attribute sn_slot_path_attr = __ATTR_RO(path);

 static int sn_pci_slot_valid(struct pci_bus *pci_bus, int device)
 {
 	struct pcibus_info *pcibus_info;
 	u16 busnum, segment, ioboard_type;

 	pcibus_info = SN_PCIBUS_BUSSOFT_INFO(pci_bus);

 	/* Check to see if this is a valid slot on 'pci_bus' */
 	if (!(pcibus_info->pbi_valid_devices & (1 << device)))
 		return -EPERM;

 	ioboard_type = sn_ioboard_to_pci_bus(pci_bus);
 	busnum = pcibus_info->pbi_buscommon.bs_persist_busnum;
 	segment = pci_domain_nr(pci_bus) & 0xf;

 	/* Do not allow hotplug operations on base I/O cards */
 	if ((ioboard_type == L1_BRICKTYPE_IX ||
 	     ioboard_type == L1_BRICKTYPE_IA) &&
 	    (segment == 1 && busnum == 0 && device != 1))
 		return -EPERM;

 	return 1;
 }

 static int sn_pci_bus_valid(struct pci_bus *pci_bus)
 {
 	struct pcibus_info *pcibus_info;
 	u32 asic_type;
 	u16 ioboard_type;

 	/* Don't register slots hanging off the TIOCA bus */
 	pcibus_info = SN_PCIBUS_BUSSOFT_INFO(pci_bus);
 	asic_type = pcibus_info->pbi_buscommon.bs_asic_type;
 	if (asic_type == PCIIO_ASIC_TYPE_TIOCA)
 		return -EPERM;

 	/* Only register slots in I/O Bricks that support hotplug */
 	ioboard_type = sn_ioboard_to_pci_bus(pci_bus);
 	switch (ioboard_type) {
 		case L1_BRICKTYPE_IX:
 		case L1_BRICKTYPE_PX:
 		case L1_BRICKTYPE_IA:
 		case L1_BRICKTYPE_PA:
 		case L1_BOARDTYPE_PCIX3SLOT:
 			return 1;
 			break;
 		default:
 			return -EPERM;
 			break;
 	}

 	return -EIO;
 }

 static int sn_hp_slot_private_alloc(struct hotplug_slot *bss_hotplug_slot,
 				    struct pci_bus *pci_bus, int device,
 				    char *name)
 {
 	struct pcibus_info *pcibus_info;
 	struct slot *slot;

 	pcibus_info = SN_PCIBUS_BUSSOFT_INFO(pci_bus);

 	slot = kzalloc(sizeof(*slot), GFP_KERNEL);
 	if (!slot)
 		return -ENOMEM;
 	bss_hotplug_slot->private = slot;

 	slot->device_num = device;
 	slot->pci_bus = pci_bus;
 	sprintf(name, "%04x:%02x:%02x",
 		pci_domain_nr(pci_bus),
 		((u16)pcibus_info->pbi_buscommon.bs_persist_busnum),
 		device + 1);

 	sn_generate_path(pci_bus, slot->physical_path);

 	slot->hotplug_slot = bss_hotplug_slot;
 	list_add(&slot->hp_list, &sn_hp_list);

 	return 0;
 }

 static struct hotplug_slot * sn_hp_destroy(void)
 {
 	struct slot *slot;
 	struct pci_slot *pci_slot;
 	struct hotplug_slot *bss_hotplug_slot = NULL;

 	list_for_each_entry(slot, &sn_hp_list, hp_list) {
 		bss_hotplug_slot = slot->hotplug_slot;
 		pci_slot = bss_hotplug_slot->pci_slot;
 		list_del(&((struct slot *)bss_hotplug_slot->private)->
 			 hp_list);
 		sysfs_remove_file(&pci_slot->kobj,
 				  &sn_slot_path_attr.attr);
 		break;
 	}
 	return bss_hotplug_slot;
 }

 static void sn_bus_free_data(struct pci_dev *dev)
 {
 	struct pci_bus *subordinate_bus;
 	struct pci_dev *child;

 	/* Recursively clean up sn_irq_info structs */
 	if (dev->subordinate) {
 		subordinate_bus = dev->subordinate;
 		list_for_each_entry(child, &subordinate_bus->devices, bus_list)
 			sn_bus_free_data(child);
 	}
 	/*
 	 * Some drivers may use dma accesses during the
 	 * driver remove function. We release the sysdata
 	 * areas after the driver remove functions have
 	 * been called.
 	 */
 	sn_bus_store_sysdata(dev);
 	sn_pci_unfixup_slot(dev);
 }

 static int sn_slot_enable(struct hotplug_slot *bss_hotplug_slot,
 			  int device_num, char **ssdt)
 {
 	struct slot *slot = bss_hotplug_slot->private;
 	struct pcibus_info *pcibus_info;
 	struct pcibr_slot_enable_resp resp;
 	int rc;

 	pcibus_info = SN_PCIBUS_BUSSOFT_INFO(slot->pci_bus);

 	/*
 	 * Power-on and initialize the slot in the SN
 	 * PCI infrastructure.
 	 */
 	rc = sal_pcibr_slot_enable(pcibus_info, device_num, &resp, ssdt);


 	if (rc == PCI_SLOT_ALREADY_UP) {
 		dev_dbg(&slot->pci_bus->self->dev, "is already active\n");
 		return 1; /* return 1 to user */
 	}

 	if (rc == PCI_L1_ERR) {
 		dev_dbg(&slot->pci_bus->self->dev,
 			"L1 failure %d with message: %s",
 			resp.resp_sub_errno, resp.resp_l1_msg);
 		return -EPERM;
 	}

 	if (rc) {
 		dev_dbg(&slot->pci_bus->self->dev,
 			"insert failed with error %d sub-error %d\n",
 			rc, resp.resp_sub_errno);
 		return -EIO;
 	}

 	pcibus_info = SN_PCIBUS_BUSSOFT_INFO(slot->pci_bus);
 	pcibus_info->pbi_enabled_devices |= (1 << device_num);

 	return 0;
 }

 static int sn_slot_disable(struct hotplug_slot *bss_hotplug_slot,
 			   int device_num, int action)
 {
 	struct slot *slot = bss_hotplug_slot->private;
 	struct pcibus_info *pcibus_info;
 	struct pcibr_slot_disable_resp resp;
 	int rc;

 	pcibus_info = SN_PCIBUS_BUSSOFT_INFO(slot->pci_bus);

 	rc = sal_pcibr_slot_disable(pcibus_info, device_num, action, &resp);

 	if ((action == PCI_REQ_SLOT_ELIGIBLE) &&
 	    (rc == PCI_SLOT_ALREADY_DOWN)) {
 		dev_dbg(&slot->pci_bus->self->dev, "Slot %s already inactive\n", slot->physical_path);
 		return 1; /* return 1 to user */
 	}

 	if ((action == PCI_REQ_SLOT_ELIGIBLE) && (rc == PCI_EMPTY_33MHZ)) {
 		dev_dbg(&slot->pci_bus->self->dev,
 			"Cannot remove last 33MHz card\n");
 		return -EPERM;
 	}

 	if ((action == PCI_REQ_SLOT_ELIGIBLE) && (rc == PCI_L1_ERR)) {
 		dev_dbg(&slot->pci_bus->self->dev,
 			"L1 failure %d with message \n%s\n",
 			resp.resp_sub_errno, resp.resp_l1_msg);
 		return -EPERM;
 	}

 	if ((action == PCI_REQ_SLOT_ELIGIBLE) && rc) {
 		dev_dbg(&slot->pci_bus->self->dev,
 			"remove failed with error %d sub-error %d\n",
 			rc, resp.resp_sub_errno);
 		return -EIO;
 	}

 	if ((action == PCI_REQ_SLOT_ELIGIBLE) && !rc)
 		return 0;

 	if ((action == PCI_REQ_SLOT_DISABLE) && !rc) {
 		pcibus_info = SN_PCIBUS_BUSSOFT_INFO(slot->pci_bus);
 		pcibus_info->pbi_enabled_devices &= ~(1 << device_num);
 		dev_dbg(&slot->pci_bus->self->dev, "remove successful\n");
 		return 0;
 	}

 	if ((action == PCI_REQ_SLOT_DISABLE) && rc) {
 		dev_dbg(&slot->pci_bus->self->dev,"remove failed rc = %d\n", rc);
 	}

 	return rc;
 }

 /*
  * Power up and configure the slot via a SAL call to PROM.
  * Scan slot (and any children), do any platform specific fixup,
  * and find device driver.
  */
 static int enable_slot(struct hotplug_slot *bss_hotplug_slot)
 {
 	struct slot *slot = bss_hotplug_slot->private;
 	struct pci_bus *new_bus = NULL;
 	struct pci_dev *dev;
 	int num_funcs;
 	int new_ppb = 0;
 	int rc;
 	char *ssdt = NULL;
 	void pcibios_fixup_device_resources(struct pci_dev *);

 	/* Serialize the Linux PCI infrastructure */
 	mutex_lock(&sn_hotplug_mutex);

 	/*
 	 * Power-on and initialize the slot in the SN
 	 * PCI infrastructure. Also, retrieve the ACPI SSDT
 	 * table for the slot (if ACPI capable PROM).
 	 */
 	rc = sn_slot_enable(bss_hotplug_slot, slot->device_num, &ssdt);
 	if (rc) {
 		mutex_unlock(&sn_hotplug_mutex);
 		return rc;
 	}

 	if (ssdt)
 		ssdt = __va(ssdt);
 	/* Add the new SSDT for the slot to the ACPI namespace */
 	if (SN_ACPI_BASE_SUPPORT() && ssdt) {
 		acpi_status ret;

 		ret = acpi_load_table((struct acpi_table_header *)ssdt);
 		if (ACPI_FAILURE(ret)) {
 			printk(KERN_ERR "%s: acpi_load_table failed (0x%x)\n",
 			       __func__, ret);
 			/* try to continue on */
 		}
 	}

 	num_funcs = pci_scan_slot(slot->pci_bus,
 				  PCI_DEVFN(slot->device_num + 1, 0));
 	if (!num_funcs) {
 		dev_dbg(&slot->pci_bus->self->dev, "no device in slot\n");
 		mutex_unlock(&sn_hotplug_mutex);
 		return -ENODEV;
 	}

 	/*
 	 * Map SN resources for all functions on the card
 	 * to the Linux PCI interface and tell the drivers
 	 * about them.
 	 */
 	list_for_each_entry(dev, &slot->pci_bus->devices, bus_list) {
 		if (PCI_SLOT(dev->devfn) != slot->device_num + 1)
 			continue;

 		/* Need to do slot fixup on PPB before fixup of children
 		 * (PPB's pcidev_info needs to be in pcidev_info list
 		 * before child's SN_PCIDEV_INFO() call to setup
 		 * pdi_host_pcidev_info).
 		 */
 		pcibios_fixup_device_resources(dev);
 		if (SN_ACPI_BASE_SUPPORT())
 			sn_acpi_slot_fixup(dev);
 		else
 			sn_io_slot_fixup(dev);
 		if (dev->hdr_type == PCI_HEADER_TYPE_BRIDGE) {
 			pci_hp_add_bridge(dev);
 			if (dev->subordinate) {
 				new_bus = dev->subordinate;
 				new_ppb = 1;
 			}
 		}
 	}

 	/*
 	 * Add the slot's devices to the ACPI infrastructure */
 	if (SN_ACPI_BASE_SUPPORT() && ssdt) {
 		unsigned long long adr;
 		struct acpi_device *pdevice;
 		acpi_handle phandle;
 		acpi_handle chandle = NULL;
 		acpi_handle rethandle;
 		acpi_status ret;

 		phandle = PCI_CONTROLLER(slot->pci_bus)->acpi_handle;

 		if (acpi_bus_get_device(phandle, &pdevice)) {
 			dev_dbg(&slot->pci_bus->self->dev,
 				"no parent device, assuming NULL\n");
 			pdevice = NULL;
 		}

 		acpi_scan_lock_acquire();
 		/*
 		 * Walk the rootbus node's immediate children looking for
 		 * the slot's device node(s). There can be more than
 		 * one for multifunction devices.
 		 */
 		for (;;) {
 			rethandle = NULL;
 			ret = acpi_get_next_object(ACPI_TYPE_DEVICE,
 						   phandle, chandle,
 						   &rethandle);

 			if (ret == AE_NOT_FOUND || rethandle == NULL)
 				break;

 			chandle = rethandle;

 			ret = acpi_evaluate_integer(chandle, METHOD_NAME__ADR,
 						    NULL, &adr);

 			if (ACPI_SUCCESS(ret) &&
 			    (adr>>16) == (slot->device_num + 1)) {

 				ret = acpi_bus_scan(chandle);
 				if (ACPI_FAILURE(ret)) {
 					printk(KERN_ERR "%s: acpi_bus_scan "
 					       "failed (0x%x) for slot %d "
 					       "func %d\n", __func__,
 					       ret, (int)(adr>>16),
 					       (int)(adr&0xffff));
 					/* try to continue on */
 				}
 			}
 		}
 		acpi_scan_lock_release();
 	}

 	/* Call the driver for the new device */
 	pci_bus_add_devices(slot->pci_bus);
 	/* Call the drivers for the new devices subordinate to PPB */
 	if (new_ppb)
 		pci_bus_add_devices(new_bus);

 	mutex_unlock(&sn_hotplug_mutex);

 	if (rc == 0)
 		dev_dbg(&slot->pci_bus->self->dev,
 			"insert operation successful\n");
 	else
 		dev_dbg(&slot->pci_bus->self->dev,
 			"insert operation failed rc = %d\n", rc);

 	return rc;
 }

 static int disable_slot(struct hotplug_slot *bss_hotplug_slot)
 {
 	struct slot *slot = bss_hotplug_slot->private;
 	struct pci_dev *dev, *temp;
 	int rc;
 	acpi_owner_id ssdt_id = 0;

 	/* Acquire update access to the bus */
 	mutex_lock(&sn_hotplug_mutex);

 	/* is it okay to bring this slot down? */
 	rc = sn_slot_disable(bss_hotplug_slot, slot->device_num,
 			     PCI_REQ_SLOT_ELIGIBLE);
 	if (rc)
 		goto leaving;

 	/* free the ACPI resources for the slot */
 	if (SN_ACPI_BASE_SUPPORT() &&
             PCI_CONTROLLER(slot->pci_bus)->acpi_handle) {
 		unsigned long long adr;
 		struct acpi_device *device;
 		acpi_handle phandle;
 		acpi_handle chandle = NULL;
 		acpi_handle rethandle;
 		acpi_status ret;

 		/* Get the rootbus node pointer */
 		phandle = PCI_CONTROLLER(slot->pci_bus)->acpi_handle;

 		acpi_scan_lock_acquire();
 		/*
 		 * Walk the rootbus node's immediate children looking for
 		 * the slot's device node(s). There can be more than
 		 * one for multifunction devices.
 		 */
 		for (;;) {
 			rethandle = NULL;
 			ret = acpi_get_next_object(ACPI_TYPE_DEVICE,
 						   phandle, chandle,
 						   &rethandle);

 			if (ret == AE_NOT_FOUND || rethandle == NULL)
 				break;

 			chandle = rethandle;

 			ret = acpi_evaluate_integer(chandle,
 						    METHOD_NAME__ADR,
 						    NULL, &adr);
 			if (ACPI_SUCCESS(ret) &&
 			    (adr>>16) == (slot->device_num + 1)) {
 				/* retain the owner id */
 				acpi_get_id(chandle, &ssdt_id);

 				ret = acpi_bus_get_device(chandle,
 							  &device);
 				if (ACPI_SUCCESS(ret))
 					acpi_bus_trim(device);
 			}
 		}
 		acpi_scan_lock_release();
 	}

 	/* Free the SN resources assigned to the Linux device.*/
 	list_for_each_entry_safe(dev, temp, &slot->pci_bus->devices, bus_list) {
 		if (PCI_SLOT(dev->devfn) != slot->device_num + 1)
 			continue;

 		pci_dev_get(dev);
 		sn_bus_free_data(dev);
 		pci_stop_and_remove_bus_device(dev);
 		pci_dev_put(dev);
 	}

 	/* Remove the SSDT for the slot from the ACPI namespace */
 	if (SN_ACPI_BASE_SUPPORT() && ssdt_id) {
 		acpi_status ret;
 		ret = acpi_unload_table_id(ssdt_id);
 		if (ACPI_FAILURE(ret)) {
 			printk(KERN_ERR "%s: acpi_unload_table_id "
 			       "failed (0x%x) for id %d\n",
 			       __func__, ret, ssdt_id);
 			/* try to continue on */
 		}
 	}

 	/* free the collected sysdata pointers */
 	sn_bus_free_sysdata();

 	/* Deactivate slot */
 	rc = sn_slot_disable(bss_hotplug_slot, slot->device_num,
 			     PCI_REQ_SLOT_DISABLE);
  leaving:
 	/* Release the bus lock */
 	mutex_unlock(&sn_hotplug_mutex);

 	return rc;
 }

 static inline int get_power_status(struct hotplug_slot *bss_hotplug_slot,
 				   u8 *value)
 {
 	struct slot *slot = bss_hotplug_slot->private;
 	struct pcibus_info *pcibus_info;
 	u32 power;

 	pcibus_info = SN_PCIBUS_BUSSOFT_INFO(slot->pci_bus);
 	mutex_lock(&sn_hotplug_mutex);
 	power = pcibus_info->pbi_enabled_devices & (1 << slot->device_num);
 	*value = power ? 1 : 0;
 	mutex_unlock(&sn_hotplug_mutex);
 	return 0;
 }

 static void sn_release_slot(struct hotplug_slot *bss_hotplug_slot)
 {
 	kfree(bss_hotplug_slot->info);
 	kfree(bss_hotplug_slot->private);
 	kfree(bss_hotplug_slot);
 }

 static int sn_hotplug_slot_register(struct pci_bus *pci_bus)
 {
 	int device;
 	struct pci_slot *pci_slot;
 	struct hotplug_slot *bss_hotplug_slot;
 	char name[SN_SLOT_NAME_SIZE];
 	int rc = 0;

 	/*
 	 * Currently only four devices are supported,
 	 * in the future there maybe more -- up to 32.
 	 */

 	for (device = 0; device < SN_MAX_HP_SLOTS ; device++) {
 		if (sn_pci_slot_valid(pci_bus, device) != 1)
 			continue;

 		bss_hotplug_slot = kzalloc(sizeof(*bss_hotplug_slot),
 					   GFP_KERNEL);
 		if (!bss_hotplug_slot) {
 			rc = -ENOMEM;
 			goto alloc_err;
 		}

 		bss_hotplug_slot->info =
 			kzalloc(sizeof(struct hotplug_slot_info),
 				GFP_KERNEL);
 		if (!bss_hotplug_slot->info) {
 			rc = -ENOMEM;
 			goto alloc_err;
 		}

 		if (sn_hp_slot_private_alloc(bss_hotplug_slot,
 					     pci_bus, device, name)) {
 			rc = -ENOMEM;
 			goto alloc_err;
 		}
 		bss_hotplug_slot->ops = &sn_hotplug_slot_ops;
 		bss_hotplug_slot->release = &sn_release_slot;

 		rc = pci_hp_register(bss_hotplug_slot, pci_bus, device, name);
 		if (rc)
 			goto register_err;

 		pci_slot = bss_hotplug_slot->pci_slot;
 		rc = sysfs_create_file(&pci_slot->kobj,
 				       &sn_slot_path_attr.attr);
 		if (rc)
 			goto register_err;
 	}
 	dev_dbg(&pci_bus->self->dev, "Registered bus with hotplug\n");
 	return rc;

 register_err:
 	dev_dbg(&pci_bus->self->dev, "bus failed to register with err = %d\n",
 		rc);

 alloc_err:
 	if (rc == -ENOMEM)
 		dev_dbg(&pci_bus->self->dev, "Memory allocation error\n");

 	/* destroy THIS element */
 	if (bss_hotplug_slot)
 		sn_release_slot(bss_hotplug_slot);

 	/* destroy anything else on the list */
 	while ((bss_hotplug_slot = sn_hp_destroy()))
 		pci_hp_deregister(bss_hotplug_slot);

 	return rc;
 }

 static int __init sn_pci_hotplug_init(void)
 {
 	struct pci_bus *pci_bus = NULL;
 	int rc;
 	int registered = 0;

 	if (!sn_prom_feature_available(PRF_HOTPLUG_SUPPORT)) {
 		printk(KERN_ERR "%s: PROM version does not support hotplug.\n",
 		       __func__);
 		return -EPERM;
 	}

 	INIT_LIST_HEAD(&sn_hp_list);

 	while ((pci_bus = pci_find_next_bus(pci_bus))) {
 		if (!pci_bus->sysdata)
 			continue;

 		rc = sn_pci_bus_valid(pci_bus);
 		if (rc != 1) {
 			dev_dbg(&pci_bus->self->dev, "not a valid hotplug bus\n");
 			continue;
 		}
 		dev_dbg(&pci_bus->self->dev, "valid hotplug bus\n");

 		rc = sn_hotplug_slot_register(pci_bus);
 		if (!rc) {
 			registered = 1;
 		} else {
 			registered = 0;
 			break;
 		}
 	}

 	return registered == 1 ? 0 : -ENODEV;
 }

 static void __exit sn_pci_hotplug_exit(void)
 {
 	struct hotplug_slot *bss_hotplug_slot;

 	while ((bss_hotplug_slot = sn_hp_destroy()))
 		pci_hp_deregister(bss_hotplug_slot);

 	if (!list_empty(&sn_hp_list))
 		printk(KERN_ERR "%s: internal list is not empty\n", __FILE__);
 }

 module_init(sn_pci_hotplug_init);
 module_exit(sn_pci_hotplug_exit);
	/*
	* This file is subject to the terms and conditions of the GNU General Public
	* License. See the file "COPYING" in the main directory of this archive
	* for more details.
	*
	* Copyright (C) 2005-2006 Silicon Graphics, Inc. All rights reserved.
	*
	* This work was based on the 2.4/2.6 kernel development by Dick Reigner.
	* Work to add BIOS PROM support was completed by Mike Habeck.
	*/

	#include <linux/init.h>
	#include <linux/kernel.h>
	#include <linux/module.h>
	#include <linux/pci.h>
	#include <linux/pci_hotplug.h>
	#include <linux/proc_fs.h>
	#include <linux/slab.h>
	#include <linux/types.h>
	#include <linux/mutex.h>

	#include <asm/sn/addrs.h>
	#include <asm/sn/geo.h>
	#include <asm/sn/l1.h>
	#include <asm/sn/module.h>
	#include <asm/sn/pcibr_provider.h>
	#include <asm/sn/pcibus_provider_defs.h>
	#include <asm/sn/pcidev.h>
	#include <asm/sn/sn_feature_sets.h>
	#include <asm/sn/sn_sal.h>
	#include <asm/sn/types.h>
	#include <linux/acpi.h>
	#include <asm/sn/acpi.h>

	#include "../pci.h"

	MODULE_LICENSE("GPL");
	MODULE_AUTHOR("SGI (prarit@sgi.com, dickie@sgi.com, habeck@sgi.com)");
	MODULE_DESCRIPTION("SGI Altix Hot Plug PCI Controller Driver");


	/* SAL call error codes. Keep in sync with prom header io/include/pcibr.h */
	#define PCI_SLOT_ALREADY_UP 2 /* slot already up */
	#define PCI_SLOT_ALREADY_DOWN 3 /* slot already down */
	#define PCI_L1_ERR 7 /* L1 console command error */
	#define PCI_EMPTY_33MHZ 15 /* empty 33 MHz bus */


	#define PCIIO_ASIC_TYPE_TIOCA 4
	#define PCI_L1_QSIZE 128 /* our L1 message buffer size */
	#define SN_MAX_HP_SLOTS 32 /* max hotplug slots */
	#define SN_SLOT_NAME_SIZE 33 /* size of name string */

	/* internal list head */
	static struct list_head sn_hp_list;

	/* hotplug_slot struct's private pointer */
	struct slot {
	int device_num;
	struct pci_bus *pci_bus;
	/* this struct for glue internal only */
	struct hotplug_slot *hotplug_slot;
	struct list_head hp_list;
	char physical_path[SN_SLOT_NAME_SIZE];
	};

	struct pcibr_slot_enable_resp {
	int resp_sub_errno;
	char resp_l1_msg[PCI_L1_QSIZE + 1];
	};

	struct pcibr_slot_disable_resp {
	int resp_sub_errno;
	char resp_l1_msg[PCI_L1_QSIZE + 1];
	};

	enum sn_pci_req_e {
	PCI_REQ_SLOT_ELIGIBLE,
	PCI_REQ_SLOT_DISABLE
	};

	static int enable_slot(struct hotplug_slot *slot);
	static int disable_slot(struct hotplug_slot *slot);
	static inline int get_power_status(struct hotplug_slot slot, u8 value);

	static struct hotplug_slot_ops sn_hotplug_slot_ops = {
	.enable_slot = enable_slot,
	.disable_slot = disable_slot,
	.get_power_status = get_power_status,
	};

	static DEFINE_MUTEX(sn_hotplug_mutex);

	static ssize_t path_show(struct pci_slot pci_slot, char buf)
	{
	int retval = -ENOENT;
	struct slot *slot = pci_slot->hotplug->private;

	if (!slot)
	return retval;

	retval = sprintf (buf, "%s\n", slot->physical_path);
	return retval;
	}

	static struct pci_slot_attribute sn_slot_path_attr = __ATTR_RO(path);

	static int sn_pci_slot_valid(struct pci_bus *pci_bus, int device)
	{
	struct pcibus_info *pcibus_info;
	u16 busnum, segment, ioboard_type;

	pcibus_info = SN_PCIBUS_BUSSOFT_INFO(pci_bus);

	/* Check to see if this is a valid slot on 'pci_bus' */
	if (!(pcibus_info->pbi_valid_devices & (1 << device)))
	return -EPERM;

	ioboard_type = sn_ioboard_to_pci_bus(pci_bus);
	busnum = pcibus_info->pbi_buscommon.bs_persist_busnum;
	segment = pci_domain_nr(pci_bus) & 0xf;

	/* Do not allow hotplug operations on base I/O cards */
	if ((ioboard_type == L1_BRICKTYPE_IX \|\|
	ioboard_type == L1_BRICKTYPE_IA) &&
	(segment == 1 && busnum == 0 && device != 1))
	return -EPERM;

	return 1;
	}

	static int sn_pci_bus_valid(struct pci_bus *pci_bus)
	{
	struct pcibus_info *pcibus_info;
	u32 asic_type;
	u16 ioboard_type;

	/* Don't register slots hanging off the TIOCA bus */
	pcibus_info = SN_PCIBUS_BUSSOFT_INFO(pci_bus);
	asic_type = pcibus_info->pbi_buscommon.bs_asic_type;
	if (asic_type == PCIIO_ASIC_TYPE_TIOCA)
	return -EPERM;

	/* Only register slots in I/O Bricks that support hotplug */
	ioboard_type = sn_ioboard_to_pci_bus(pci_bus);
	switch (ioboard_type) {
	case L1_BRICKTYPE_IX:
	case L1_BRICKTYPE_PX:
	case L1_BRICKTYPE_IA:
	case L1_BRICKTYPE_PA:
	case L1_BOARDTYPE_PCIX3SLOT:
	return 1;
	break;
	default:
	return -EPERM;
	break;
	}

	return -EIO;
	}

	static int sn_hp_slot_private_alloc(struct hotplug_slot *bss_hotplug_slot,
	struct pci_bus *pci_bus, int device,
	char *name)
	{
	struct pcibus_info *pcibus_info;
	struct slot *slot;

	pcibus_info = SN_PCIBUS_BUSSOFT_INFO(pci_bus);

	slot = kzalloc(sizeof(*slot), GFP_KERNEL);
	if (!slot)
	return -ENOMEM;
	bss_hotplug_slot->private = slot;

	slot->device_num = device;
	slot->pci_bus = pci_bus;
	sprintf(name, "%04x:%02x:%02x",
	pci_domain_nr(pci_bus),
	((u16)pcibus_info->pbi_buscommon.bs_persist_busnum),
	device + 1);

	sn_generate_path(pci_bus, slot->physical_path);

	slot->hotplug_slot = bss_hotplug_slot;
	list_add(&slot->hp_list, &sn_hp_list);

	return 0;
	}

	static struct hotplug_slot * sn_hp_destroy(void)
	{
	struct slot *slot;
	struct pci_slot *pci_slot;
	struct hotplug_slot *bss_hotplug_slot = NULL;

	list_for_each_entry(slot, &sn_hp_list, hp_list) {
	bss_hotplug_slot = slot->hotplug_slot;
	pci_slot = bss_hotplug_slot->pci_slot;
	list_del(&((struct slot *)bss_hotplug_slot->private)->
	hp_list);
	sysfs_remove_file(&pci_slot->kobj,
	&sn_slot_path_attr.attr);
	break;
	}
	return bss_hotplug_slot;
	}

	static void sn_bus_free_data(struct pci_dev *dev)
	{
	struct pci_bus *subordinate_bus;
	struct pci_dev *child;

	/* Recursively clean up sn_irq_info structs */
	if (dev->subordinate) {
	subordinate_bus = dev->subordinate;
	list_for_each_entry(child, &subordinate_bus->devices, bus_list)
	sn_bus_free_data(child);
	}
	/*
	* Some drivers may use dma accesses during the
	* driver remove function. We release the sysdata
	* areas after the driver remove functions have
	* been called.
	*/
	sn_bus_store_sysdata(dev);
	sn_pci_unfixup_slot(dev);
	}

	static int sn_slot_enable(struct hotplug_slot *bss_hotplug_slot,
	int device_num, char **ssdt)
	{
	struct slot *slot = bss_hotplug_slot->private;
	struct pcibus_info *pcibus_info;
	struct pcibr_slot_enable_resp resp;
	int rc;

	pcibus_info = SN_PCIBUS_BUSSOFT_INFO(slot->pci_bus);

	/*
	* Power-on and initialize the slot in the SN
	* PCI infrastructure.
	*/
	rc = sal_pcibr_slot_enable(pcibus_info, device_num, &resp, ssdt);


	if (rc == PCI_SLOT_ALREADY_UP) {
	dev_dbg(&slot->pci_bus->self->dev, "is already active\n");
	return 1; /* return 1 to user */
	}

	if (rc == PCI_L1_ERR) {
	dev_dbg(&slot->pci_bus->self->dev,
	"L1 failure %d with message: %s",
	resp.resp_sub_errno, resp.resp_l1_msg);
	return -EPERM;
	}

	if (rc) {
	dev_dbg(&slot->pci_bus->self->dev,
	"insert failed with error %d sub-error %d\n",
	rc, resp.resp_sub_errno);
	return -EIO;
	}

	pcibus_info = SN_PCIBUS_BUSSOFT_INFO(slot->pci_bus);
	pcibus_info->pbi_enabled_devices \|= (1 << device_num);

	return 0;
	}

	static int sn_slot_disable(struct hotplug_slot *bss_hotplug_slot,
	int device_num, int action)
	{
	struct slot *slot = bss_hotplug_slot->private;
	struct pcibus_info *pcibus_info;
	struct pcibr_slot_disable_resp resp;
	int rc;

	pcibus_info = SN_PCIBUS_BUSSOFT_INFO(slot->pci_bus);

	rc = sal_pcibr_slot_disable(pcibus_info, device_num, action, &resp);

	if ((action == PCI_REQ_SLOT_ELIGIBLE) &&
	(rc == PCI_SLOT_ALREADY_DOWN)) {
	dev_dbg(&slot->pci_bus->self->dev, "Slot %s already inactive\n", slot->physical_path);
	return 1; /* return 1 to user */
	}

	if ((action == PCI_REQ_SLOT_ELIGIBLE) && (rc == PCI_EMPTY_33MHZ)) {
	dev_dbg(&slot->pci_bus->self->dev,
	"Cannot remove last 33MHz card\n");
	return -EPERM;
	}

	if ((action == PCI_REQ_SLOT_ELIGIBLE) && (rc == PCI_L1_ERR)) {
	dev_dbg(&slot->pci_bus->self->dev,
	"L1 failure %d with message \n%s\n",
	resp.resp_sub_errno, resp.resp_l1_msg);
	return -EPERM;
	}

	if ((action == PCI_REQ_SLOT_ELIGIBLE) && rc) {
	dev_dbg(&slot->pci_bus->self->dev,
	"remove failed with error %d sub-error %d\n",
	rc, resp.resp_sub_errno);
	return -EIO;
	}

	if ((action == PCI_REQ_SLOT_ELIGIBLE) && !rc)
	return 0;

	if ((action == PCI_REQ_SLOT_DISABLE) && !rc) {
	pcibus_info = SN_PCIBUS_BUSSOFT_INFO(slot->pci_bus);
	pcibus_info->pbi_enabled_devices &= ~(1 << device_num);
	dev_dbg(&slot->pci_bus->self->dev, "remove successful\n");
	return 0;
	}

	if ((action == PCI_REQ_SLOT_DISABLE) && rc) {
	dev_dbg(&slot->pci_bus->self->dev,"remove failed rc = %d\n", rc);
	}

	return rc;
	}

	/*
	* Power up and configure the slot via a SAL call to PROM.
	* Scan slot (and any children), do any platform specific fixup,
	* and find device driver.
	*/
	static int enable_slot(struct hotplug_slot *bss_hotplug_slot)
	{
	struct slot *slot = bss_hotplug_slot->private;
	struct pci_bus *new_bus = NULL;
	struct pci_dev *dev;
	int num_funcs;
	int new_ppb = 0;
	int rc;
	char *ssdt = NULL;
	void pcibios_fixup_device_resources(struct pci_dev *);

	/* Serialize the Linux PCI infrastructure */
	mutex_lock(&sn_hotplug_mutex);

	/*
	* Power-on and initialize the slot in the SN
	* PCI infrastructure. Also, retrieve the ACPI SSDT
	* table for the slot (if ACPI capable PROM).
	*/
	rc = sn_slot_enable(bss_hotplug_slot, slot->device_num, &ssdt);
	if (rc) {
	mutex_unlock(&sn_hotplug_mutex);
	return rc;
	}

	if (ssdt)
	ssdt = __va(ssdt);
	/* Add the new SSDT for the slot to the ACPI namespace */
	if (SN_ACPI_BASE_SUPPORT() && ssdt) {
	acpi_status ret;

	ret = acpi_load_table((struct acpi_table_header *)ssdt);
	if (ACPI_FAILURE(ret)) {
	printk(KERN_ERR "%s: acpi_load_table failed (0x%x)\n",
	__func__, ret);
	/* try to continue on */
	}
	}

	num_funcs = pci_scan_slot(slot->pci_bus,
	PCI_DEVFN(slot->device_num + 1, 0));
	if (!num_funcs) {
	dev_dbg(&slot->pci_bus->self->dev, "no device in slot\n");
	mutex_unlock(&sn_hotplug_mutex);
	return -ENODEV;
	}

	/*
	* Map SN resources for all functions on the card
	* to the Linux PCI interface and tell the drivers
	* about them.
	*/
	list_for_each_entry(dev, &slot->pci_bus->devices, bus_list) {
	if (PCI_SLOT(dev->devfn) != slot->device_num + 1)
	continue;

	/* Need to do slot fixup on PPB before fixup of children
	* (PPB's pcidev_info needs to be in pcidev_info list
	* before child's SN_PCIDEV_INFO() call to setup
	* pdi_host_pcidev_info).
	*/
	pcibios_fixup_device_resources(dev);
	if (SN_ACPI_BASE_SUPPORT())
	sn_acpi_slot_fixup(dev);
	else
	sn_io_slot_fixup(dev);
	if (dev->hdr_type == PCI_HEADER_TYPE_BRIDGE) {
	pci_hp_add_bridge(dev);
	if (dev->subordinate) {
	new_bus = dev->subordinate;
	new_ppb = 1;
	}
	}
	}

	/*
	* Add the slot's devices to the ACPI infrastructure */
	if (SN_ACPI_BASE_SUPPORT() && ssdt) {
	unsigned long long adr;
	struct acpi_device *pdevice;
	acpi_handle phandle;
	acpi_handle chandle = NULL;
	acpi_handle rethandle;
	acpi_status ret;

	phandle = PCI_CONTROLLER(slot->pci_bus)->acpi_handle;

	if (acpi_bus_get_device(phandle, &pdevice)) {
	dev_dbg(&slot->pci_bus->self->dev,
	"no parent device, assuming NULL\n");
	pdevice = NULL;
	}

	acpi_scan_lock_acquire();
	/*
	* Walk the rootbus node's immediate children looking for
	* the slot's device node(s). There can be more than
	* one for multifunction devices.
	*/
	for (;;) {
	rethandle = NULL;
	ret = acpi_get_next_object(ACPI_TYPE_DEVICE,
	phandle, chandle,
	&rethandle);

	if (ret == AE_NOT_FOUND \|\| rethandle == NULL)
	break;

	chandle = rethandle;

	ret = acpi_evaluate_integer(chandle, METHOD_NAME__ADR,
	NULL, &adr);

	if (ACPI_SUCCESS(ret) &&
	(adr>>16) == (slot->device_num + 1)) {

	ret = acpi_bus_scan(chandle);
	if (ACPI_FAILURE(ret)) {
	printk(KERN_ERR "%s: acpi_bus_scan "
	"failed (0x%x) for slot %d "
	"func %d\n", __func__,
	ret, (int)(adr>>16),
	(int)(adr&0xffff));
	/* try to continue on */
	}
	}
	}
	acpi_scan_lock_release();
	}

	/* Call the driver for the new device */
	pci_bus_add_devices(slot->pci_bus);
	/* Call the drivers for the new devices subordinate to PPB */
	if (new_ppb)
	pci_bus_add_devices(new_bus);

	mutex_unlock(&sn_hotplug_mutex);

	if (rc == 0)
	dev_dbg(&slot->pci_bus->self->dev,
	"insert operation successful\n");
	else
	dev_dbg(&slot->pci_bus->self->dev,
	"insert operation failed rc = %d\n", rc);

	return rc;
	}

	static int disable_slot(struct hotplug_slot *bss_hotplug_slot)
	{
	struct slot *slot = bss_hotplug_slot->private;
	struct pci_dev dev, temp;
	int rc;
	acpi_owner_id ssdt_id = 0;

	/* Acquire update access to the bus */
	mutex_lock(&sn_hotplug_mutex);

	/* is it okay to bring this slot down? */
	rc = sn_slot_disable(bss_hotplug_slot, slot->device_num,
	PCI_REQ_SLOT_ELIGIBLE);
	if (rc)
	goto leaving;

	/* free the ACPI resources for the slot */
	if (SN_ACPI_BASE_SUPPORT() &&
	PCI_CONTROLLER(slot->pci_bus)->acpi_handle) {
	unsigned long long adr;
	struct acpi_device *device;
	acpi_handle phandle;
	acpi_handle chandle = NULL;
	acpi_handle rethandle;
	acpi_status ret;

	/* Get the rootbus node pointer */
	phandle = PCI_CONTROLLER(slot->pci_bus)->acpi_handle;

	acpi_scan_lock_acquire();
	/*
	* Walk the rootbus node's immediate children looking for
	* the slot's device node(s). There can be more than
	* one for multifunction devices.
	*/
	for (;;) {
	rethandle = NULL;
	ret = acpi_get_next_object(ACPI_TYPE_DEVICE,
	phandle, chandle,
	&rethandle);

	if (ret == AE_NOT_FOUND \|\| rethandle == NULL)
	break;

	chandle = rethandle;

	ret = acpi_evaluate_integer(chandle,
	METHOD_NAME__ADR,
	NULL, &adr);
	if (ACPI_SUCCESS(ret) &&
	(adr>>16) == (slot->device_num + 1)) {
	/* retain the owner id */
	acpi_get_id(chandle, &ssdt_id);

	ret = acpi_bus_get_device(chandle,
	&device);
	if (ACPI_SUCCESS(ret))
	acpi_bus_trim(device);
	}
	}
	acpi_scan_lock_release();
	}

	/* Free the SN resources assigned to the Linux device.*/
	list_for_each_entry_safe(dev, temp, &slot->pci_bus->devices, bus_list) {
	if (PCI_SLOT(dev->devfn) != slot->device_num + 1)
	continue;

	pci_dev_get(dev);
	sn_bus_free_data(dev);
	pci_stop_and_remove_bus_device(dev);
	pci_dev_put(dev);
	}

	/* Remove the SSDT for the slot from the ACPI namespace */
	if (SN_ACPI_BASE_SUPPORT() && ssdt_id) {
	acpi_status ret;
	ret = acpi_unload_table_id(ssdt_id);
	if (ACPI_FAILURE(ret)) {
	printk(KERN_ERR "%s: acpi_unload_table_id "
	"failed (0x%x) for id %d\n",
	__func__, ret, ssdt_id);
	/* try to continue on */
	}
	}

	/* free the collected sysdata pointers */
	sn_bus_free_sysdata();

	/* Deactivate slot */
	rc = sn_slot_disable(bss_hotplug_slot, slot->device_num,
	PCI_REQ_SLOT_DISABLE);
	leaving:
	/* Release the bus lock */
	mutex_unlock(&sn_hotplug_mutex);

	return rc;
	}

	static inline int get_power_status(struct hotplug_slot *bss_hotplug_slot,
	u8 *value)
	{
	struct slot *slot = bss_hotplug_slot->private;
	struct pcibus_info *pcibus_info;
	u32 power;

	pcibus_info = SN_PCIBUS_BUSSOFT_INFO(slot->pci_bus);
	mutex_lock(&sn_hotplug_mutex);
	power = pcibus_info->pbi_enabled_devices & (1 << slot->device_num);
	*value = power ? 1 : 0;
	mutex_unlock(&sn_hotplug_mutex);
	return 0;
	}

	static void sn_release_slot(struct hotplug_slot *bss_hotplug_slot)
	{
	kfree(bss_hotplug_slot->info);
	kfree(bss_hotplug_slot->private);
	kfree(bss_hotplug_slot);
	}

	static int sn_hotplug_slot_register(struct pci_bus *pci_bus)
	{
	int device;
	struct pci_slot *pci_slot;
	struct hotplug_slot *bss_hotplug_slot;
	char name[SN_SLOT_NAME_SIZE];
	int rc = 0;

	/*
	* Currently only four devices are supported,
	* in the future there maybe more -- up to 32.
	*/

	for (device = 0; device < SN_MAX_HP_SLOTS ; device++) {
	if (sn_pci_slot_valid(pci_bus, device) != 1)
	continue;

	bss_hotplug_slot = kzalloc(sizeof(*bss_hotplug_slot),
	GFP_KERNEL);
	if (!bss_hotplug_slot) {
	rc = -ENOMEM;
	goto alloc_err;
	}

	bss_hotplug_slot->info =
	kzalloc(sizeof(struct hotplug_slot_info),
	GFP_KERNEL);
	if (!bss_hotplug_slot->info) {
	rc = -ENOMEM;
	goto alloc_err;
	}

	if (sn_hp_slot_private_alloc(bss_hotplug_slot,
	pci_bus, device, name)) {
	rc = -ENOMEM;
	goto alloc_err;
	}
	bss_hotplug_slot->ops = &sn_hotplug_slot_ops;
	bss_hotplug_slot->release = &sn_release_slot;

	rc = pci_hp_register(bss_hotplug_slot, pci_bus, device, name);
	if (rc)
	goto register_err;

	pci_slot = bss_hotplug_slot->pci_slot;
	rc = sysfs_create_file(&pci_slot->kobj,
	&sn_slot_path_attr.attr);
	if (rc)
	goto register_err;
	}
	dev_dbg(&pci_bus->self->dev, "Registered bus with hotplug\n");
	return rc;

	register_err:
	dev_dbg(&pci_bus->self->dev, "bus failed to register with err = %d\n",
	rc);

	alloc_err:
	if (rc == -ENOMEM)
	dev_dbg(&pci_bus->self->dev, "Memory allocation error\n");

	/* destroy THIS element */
	if (bss_hotplug_slot)
	sn_release_slot(bss_hotplug_slot);

	/* destroy anything else on the list */
	while ((bss_hotplug_slot = sn_hp_destroy()))
	pci_hp_deregister(bss_hotplug_slot);

	return rc;
	}

	static int __init sn_pci_hotplug_init(void)
	{
	struct pci_bus *pci_bus = NULL;
	int rc;
	int registered = 0;

	if (!sn_prom_feature_available(PRF_HOTPLUG_SUPPORT)) {
	printk(KERN_ERR "%s: PROM version does not support hotplug.\n",
	__func__);
	return -EPERM;
	}

	INIT_LIST_HEAD(&sn_hp_list);

	while ((pci_bus = pci_find_next_bus(pci_bus))) {
	if (!pci_bus->sysdata)
	continue;

	rc = sn_pci_bus_valid(pci_bus);
	if (rc != 1) {
	dev_dbg(&pci_bus->self->dev, "not a valid hotplug bus\n");
	continue;
	}
	dev_dbg(&pci_bus->self->dev, "valid hotplug bus\n");

	rc = sn_hotplug_slot_register(pci_bus);
	if (!rc) {
	registered = 1;
	} else {
	registered = 0;
	break;
	}
	}

	return registered == 1 ? 0 : -ENODEV;
	}

	static void __exit sn_pci_hotplug_exit(void)
	{
	struct hotplug_slot *bss_hotplug_slot;

	while ((bss_hotplug_slot = sn_hp_destroy()))
	pci_hp_deregister(bss_hotplug_slot);

	if (!list_empty(&sn_hp_list))
	printk(KERN_ERR "%s: internal list is not empty\n", __FILE__);
	}

	module_init(sn_pci_hotplug_init);
	module_exit(sn_pci_hotplug_exit);