[deliverable/linux.git] / arch / powerpc / kernel / rtas.c

/*
 *
 * Procedures for interfacing to the RTAS on CHRP machines.
 *
 * Peter Bergner, IBM	March 2001.
 * Copyright (C) 2001 IBM.
 *
 *      This program is free software; you can redistribute it and/or
 *      modify it under the terms of the GNU General Public License
 *      as published by the Free Software Foundation; either version
 *      2 of the License, or (at your option) any later version.
 */

#include <stdarg.h>
#include <linux/kernel.h>
#include <linux/types.h>
#include <linux/spinlock.h>
#include <linux/module.h>
#include <linux/init.h>
#include <linux/capability.h>
#include <linux/delay.h>

#include <asm/prom.h>
#include <asm/rtas.h>
#include <asm/semaphore.h>
#include <asm/machdep.h>
#include <asm/page.h>
#include <asm/param.h>
#include <asm/system.h>
#include <asm/delay.h>
#include <asm/uaccess.h>
#include <asm/lmb.h>
#include <asm/udbg.h>

struct rtas_t rtas = {
	.lock = SPIN_LOCK_UNLOCKED
};

EXPORT_SYMBOL(rtas);

DEFINE_SPINLOCK(rtas_data_buf_lock);
char rtas_data_buf[RTAS_DATA_BUF_SIZE] __cacheline_aligned;
unsigned long rtas_rmo_buf;

/*
 * If non-NULL, this gets called when the kernel terminates.
 * This is done like this so rtas_flash can be a module.
 */
void (*rtas_flash_term_hook)(int);
EXPORT_SYMBOL(rtas_flash_term_hook);

/*
 * call_rtas_display_status and call_rtas_display_status_delay
 * are designed only for very early low-level debugging, which
 * is why the token is hard-coded to 10.
 */
static void call_rtas_display_status(char c)
{
	struct rtas_args *args = &rtas.args;
	unsigned long s;

	if (!rtas.base)
		return;
	spin_lock_irqsave(&rtas.lock, s);

	args->token = 10;
	args->nargs = 1;
	args->nret  = 1;
	args->rets  = (rtas_arg_t *)&(args->args[1]);
	args->args[0] = (unsigned char)c;

	enter_rtas(__pa(args));

	spin_unlock_irqrestore(&rtas.lock, s);
}

static void call_rtas_display_status_delay(char c)
{
	static int pending_newline = 0;  /* did last write end with unprinted newline? */
	static int width = 16;

	if (c == '\n') {	
		while (width-- > 0)
			call_rtas_display_status(' ');
		width = 16;
		mdelay(500);
		pending_newline = 1;
	} else {
		if (pending_newline) {
			call_rtas_display_status('\r');
			call_rtas_display_status('\n');
		} 
		pending_newline = 0;
		if (width--) {
			call_rtas_display_status(c);
			udelay(10000);
		}
	}
}

void __init udbg_init_rtas(void)
{
	udbg_putc = call_rtas_display_status_delay;
}

void rtas_progress(char *s, unsigned short hex)
{
	struct device_node *root;
	int width, *p;
	char *os;
	static int display_character, set_indicator;
	static int display_width, display_lines, *row_width, form_feed;
	static DEFINE_SPINLOCK(progress_lock);
	static int current_line;
	static int pending_newline = 0;  /* did last write end with unprinted newline? */

	if (!rtas.base)
		return;

	if (display_width == 0) {
		display_width = 0x10;
		if ((root = find_path_device("/rtas"))) {
			if ((p = (unsigned int *)get_property(root,
					"ibm,display-line-length", NULL)))
				display_width = *p;
			if ((p = (unsigned int *)get_property(root,
					"ibm,form-feed", NULL)))
				form_feed = *p;
			if ((p = (unsigned int *)get_property(root,
					"ibm,display-number-of-lines", NULL)))
				display_lines = *p;
			row_width = (unsigned int *)get_property(root,
					"ibm,display-truncation-length", NULL);
		}
		display_character = rtas_token("display-character");
		set_indicator = rtas_token("set-indicator");
	}

	if (display_character == RTAS_UNKNOWN_SERVICE) {
		/* use hex display if available */
		if (set_indicator != RTAS_UNKNOWN_SERVICE)
			rtas_call(set_indicator, 3, 1, NULL, 6, 0, hex);
		return;
	}

	spin_lock(&progress_lock);

	/*
	 * Last write ended with newline, but we didn't print it since
	 * it would just clear the bottom line of output. Print it now
	 * instead.
	 *
	 * If no newline is pending and form feed is supported, clear the
	 * display with a form feed; otherwise, print a CR to start output
	 * at the beginning of the line.
	 */
	if (pending_newline) {
		rtas_call(display_character, 1, 1, NULL, '\r');
		rtas_call(display_character, 1, 1, NULL, '\n');
		pending_newline = 0;
	} else {
		current_line = 0;
		if (form_feed)
			rtas_call(display_character, 1, 1, NULL,
				  (char)form_feed);
		else
			rtas_call(display_character, 1, 1, NULL, '\r');
	}
 
	if (row_width)
		width = row_width[current_line];
	else
		width = display_width;
	os = s;
	while (*os) {
		if (*os == '\n' || *os == '\r') {
			/* If newline is the last character, save it
			 * until next call to avoid bumping up the
			 * display output.
			 */
			if (*os == '\n' && !os[1]) {
				pending_newline = 1;
				current_line++;
				if (current_line > display_lines-1)
					current_line = display_lines-1;
				spin_unlock(&progress_lock);
				return;
			}
 
			/* RTAS wants CR-LF, not just LF */
 
			if (*os == '\n') {
				rtas_call(display_character, 1, 1, NULL, '\r');
				rtas_call(display_character, 1, 1, NULL, '\n');
			} else {
				/* CR might be used to re-draw a line, so we'll
				 * leave it alone and not add LF.
				 */
				rtas_call(display_character, 1, 1, NULL, *os);
			}
 
			if (row_width)
				width = row_width[current_line];
			else
				width = display_width;
		} else {
			width--;
			rtas_call(display_character, 1, 1, NULL, *os);
		}
 
		os++;
 
		/* if we overwrite the screen length */
		if (width <= 0)
			while ((*os != 0) && (*os != '\n') && (*os != '\r'))
				os++;
	}
 
	spin_unlock(&progress_lock);
}
EXPORT_SYMBOL(rtas_progress);		/* needed by rtas_flash module */

int rtas_token(const char *service)
{
	int *tokp;
	if (rtas.dev == NULL)
		return RTAS_UNKNOWN_SERVICE;
	tokp = (int *) get_property(rtas.dev, service, NULL);
	return tokp ? *tokp : RTAS_UNKNOWN_SERVICE;
}

#ifdef CONFIG_RTAS_ERROR_LOGGING
/*
 * Return the firmware-specified size of the error log buffer
 *  for all rtas calls that require an error buffer argument.
 *  This includes 'check-exception' and 'rtas-last-error'.
 */
int rtas_get_error_log_max(void)
{
	static int rtas_error_log_max;
	if (rtas_error_log_max)
		return rtas_error_log_max;

	rtas_error_log_max = rtas_token ("rtas-error-log-max");
	if ((rtas_error_log_max == RTAS_UNKNOWN_SERVICE) ||
	    (rtas_error_log_max > RTAS_ERROR_LOG_MAX)) {
		printk (KERN_WARNING "RTAS: bad log buffer size %d\n",
			rtas_error_log_max);
		rtas_error_log_max = RTAS_ERROR_LOG_MAX;
	}
	return rtas_error_log_max;
}
EXPORT_SYMBOL(rtas_get_error_log_max);


char rtas_err_buf[RTAS_ERROR_LOG_MAX];
int rtas_last_error_token;

/** Return a copy of the detailed error text associated with the
 *  most recent failed call to rtas.  Because the error text
 *  might go stale if there are any other intervening rtas calls,
 *  this routine must be called atomically with whatever produced
 *  the error (i.e. with rtas.lock still held from the previous call).
 */
static char *__fetch_rtas_last_error(char *altbuf)
{
	struct rtas_args err_args, save_args;
	u32 bufsz;
	char *buf = NULL;

	if (rtas_last_error_token == -1)
		return NULL;

	bufsz = rtas_get_error_log_max();

	err_args.token = rtas_last_error_token;
	err_args.nargs = 2;
	err_args.nret = 1;
	err_args.args[0] = (rtas_arg_t)__pa(rtas_err_buf);
	err_args.args[1] = bufsz;
	err_args.args[2] = 0;

	save_args = rtas.args;
	rtas.args = err_args;

	enter_rtas(__pa(&rtas.args));

	err_args = rtas.args;
	rtas.args = save_args;

	/* Log the error in the unlikely case that there was one. */
	if (unlikely(err_args.args[2] == 0)) {
		if (altbuf) {
			buf = altbuf;
		} else {
			buf = rtas_err_buf;
			if (mem_init_done)
				buf = kmalloc(RTAS_ERROR_LOG_MAX, GFP_ATOMIC);
		}
		if (buf)
			memcpy(buf, rtas_err_buf, RTAS_ERROR_LOG_MAX);
	}

	return buf;
}

#define get_errorlog_buffer()	kmalloc(RTAS_ERROR_LOG_MAX, GFP_KERNEL)

#else /* CONFIG_RTAS_ERROR_LOGGING */
#define __fetch_rtas_last_error(x)	NULL
#define get_errorlog_buffer()		NULL
#endif

int rtas_call(int token, int nargs, int nret, int *outputs, ...)
{
	va_list list;
	int i;
	unsigned long s;
	struct rtas_args *rtas_args;
	char *buff_copy = NULL;
	int ret;

	if (token == RTAS_UNKNOWN_SERVICE)
		return -1;

	/* Gotta do something different here, use global lock for now... */
	spin_lock_irqsave(&rtas.lock, s);
	rtas_args = &rtas.args;

	rtas_args->token = token;
	rtas_args->nargs = nargs;
	rtas_args->nret  = nret;
	rtas_args->rets  = (rtas_arg_t *)&(rtas_args->args[nargs]);
	va_start(list, outputs);
	for (i = 0; i < nargs; ++i)
		rtas_args->args[i] = va_arg(list, rtas_arg_t);
	va_end(list);

	for (i = 0; i < nret; ++i)
		rtas_args->rets[i] = 0;

	enter_rtas(__pa(rtas_args));

	/* A -1 return code indicates that the last command couldn't
	   be completed due to a hardware error. */
	if (rtas_args->rets[0] == -1)
		buff_copy = __fetch_rtas_last_error(NULL);

	if (nret > 1 && outputs != NULL)
		for (i = 0; i < nret-1; ++i)
			outputs[i] = rtas_args->rets[i+1];
	ret = (nret > 0)? rtas_args->rets[0]: 0;

	/* Gotta do something different here, use global lock for now... */
	spin_unlock_irqrestore(&rtas.lock, s);

	if (buff_copy) {
		log_error(buff_copy, ERR_TYPE_RTAS_LOG, 0);
		if (mem_init_done)
			kfree(buff_copy);
	}
	return ret;
}

/* Given an RTAS status code of 990n compute the hinted delay of 10^n
 * (last digit) milliseconds.  For now we bound at n=5 (100 sec).
 */
unsigned int rtas_extended_busy_delay_time(int status)
{
	int order = status - 9900;
	unsigned long ms;

	if (order < 0)
		order = 0;	/* RTC depends on this for -2 clock busy */
	else if (order > 5)
		order = 5;	/* bound */

	/* Use microseconds for reasonable accuracy */
	for (ms = 1; order > 0; order--)
		ms *= 10;

	return ms; 
}

int rtas_error_rc(int rtas_rc)
{
	int rc;

	switch (rtas_rc) {
		case -1: 		/* Hardware Error */
			rc = -EIO;
			break;
		case -3:		/* Bad indicator/domain/etc */
			rc = -EINVAL;
			break;
		case -9000:		/* Isolation error */
			rc = -EFAULT;
			break;
		case -9001:		/* Outstanding TCE/PTE */
			rc = -EEXIST;
			break;
		case -9002:		/* No usable slot */
			rc = -ENODEV;
			break;
		default:
			printk(KERN_ERR "%s: unexpected RTAS error %d\n",
					__FUNCTION__, rtas_rc);
			rc = -ERANGE;
			break;
	}
	return rc;
}

int rtas_get_power_level(int powerdomain, int *level)
{
	int token = rtas_token("get-power-level");
	int rc;

	if (token == RTAS_UNKNOWN_SERVICE)
		return -ENOENT;

	while ((rc = rtas_call(token, 1, 2, level, powerdomain)) == RTAS_BUSY)
		udelay(1);

	if (rc < 0)
		return rtas_error_rc(rc);
	return rc;
}

int rtas_set_power_level(int powerdomain, int level, int *setlevel)
{
	int token = rtas_token("set-power-level");
	unsigned int wait_time;
	int rc;

	if (token == RTAS_UNKNOWN_SERVICE)
		return -ENOENT;

	while (1) {
		rc = rtas_call(token, 2, 2, setlevel, powerdomain, level);
		if (rc == RTAS_BUSY)
			udelay(1);
		else if (rtas_is_extended_busy(rc)) {
			wait_time = rtas_extended_busy_delay_time(rc);
			udelay(wait_time * 1000);
		} else
			break;
	}

	if (rc < 0)
		return rtas_error_rc(rc);
	return rc;
}

int rtas_get_sensor(int sensor, int index, int *state)
{
	int token = rtas_token("get-sensor-state");
	unsigned int wait_time;
	int rc;

	if (token == RTAS_UNKNOWN_SERVICE)
		return -ENOENT;

	while (1) {
		rc = rtas_call(token, 2, 2, state, sensor, index);
		if (rc == RTAS_BUSY)
			udelay(1);
		else if (rtas_is_extended_busy(rc)) {
			wait_time = rtas_extended_busy_delay_time(rc);
			udelay(wait_time * 1000);
		} else
			break;
	}

	if (rc < 0)
		return rtas_error_rc(rc);
	return rc;
}

int rtas_set_indicator(int indicator, int index, int new_value)
{
	int token = rtas_token("set-indicator");
	unsigned int wait_time;
	int rc;

	if (token == RTAS_UNKNOWN_SERVICE)
		return -ENOENT;

	while (1) {
		rc = rtas_call(token, 3, 1, NULL, indicator, index, new_value);
		if (rc == RTAS_BUSY)
			udelay(1);
		else if (rtas_is_extended_busy(rc)) {
			wait_time = rtas_extended_busy_delay_time(rc);
			udelay(wait_time * 1000);
		}
		else
			break;
	}

	if (rc < 0)
		return rtas_error_rc(rc);
	return rc;
}

void rtas_restart(char *cmd)
{
	if (rtas_flash_term_hook)
		rtas_flash_term_hook(SYS_RESTART);
	printk("RTAS system-reboot returned %d\n",
	       rtas_call(rtas_token("system-reboot"), 0, 1, NULL));
	for (;;);
}

void rtas_power_off(void)
{
	if (rtas_flash_term_hook)
		rtas_flash_term_hook(SYS_POWER_OFF);
	/* allow power on only with power button press */
	printk("RTAS power-off returned %d\n",
	       rtas_call(rtas_token("power-off"), 2, 1, NULL, -1, -1));
	for (;;);
}

void rtas_halt(void)
{
	if (rtas_flash_term_hook)
		rtas_flash_term_hook(SYS_HALT);
	/* allow power on only with power button press */
	printk("RTAS power-off returned %d\n",
	       rtas_call(rtas_token("power-off"), 2, 1, NULL, -1, -1));
	for (;;);
}

/* Must be in the RMO region, so we place it here */
static char rtas_os_term_buf[2048];

void rtas_os_term(char *str)
{
	int status;

	if (RTAS_UNKNOWN_SERVICE == rtas_token("ibm,os-term"))
		return;

	snprintf(rtas_os_term_buf, 2048, "OS panic: %s", str);

	do {
		status = rtas_call(rtas_token("ibm,os-term"), 1, 1, NULL,
				   __pa(rtas_os_term_buf));

		if (status == RTAS_BUSY)
			udelay(1);
		else if (status != 0)
			printk(KERN_EMERG "ibm,os-term call failed %d\n",
			       status);
	} while (status == RTAS_BUSY);
}


asmlinkage int ppc_rtas(struct rtas_args __user *uargs)
{
	struct rtas_args args;
	unsigned long flags;
	char *buff_copy, *errbuf = NULL;
	int nargs;

	if (!capable(CAP_SYS_ADMIN))
		return -EPERM;

	if (copy_from_user(&args, uargs, 3 * sizeof(u32)) != 0)
		return -EFAULT;

	nargs = args.nargs;
	if (nargs > ARRAY_SIZE(args.args)
	    || args.nret > ARRAY_SIZE(args.args)
	    || nargs + args.nret > ARRAY_SIZE(args.args))
		return -EINVAL;

	/* Copy in args. */
	if (copy_from_user(args.args, uargs->args,
			   nargs * sizeof(rtas_arg_t)) != 0)
		return -EFAULT;

	buff_copy = get_errorlog_buffer();

	spin_lock_irqsave(&rtas.lock, flags);

	rtas.args = args;
	enter_rtas(__pa(&rtas.args));
	args = rtas.args;

	args.rets = &args.args[nargs];

	/* A -1 return code indicates that the last command couldn't
	   be completed due to a hardware error. */
	if (args.rets[0] == -1)
		errbuf = __fetch_rtas_last_error(buff_copy);

	spin_unlock_irqrestore(&rtas.lock, flags);

	if (buff_copy) {
		if (errbuf)
			log_error(errbuf, ERR_TYPE_RTAS_LOG, 0);
		kfree(buff_copy);
	}

	/* Copy out args. */
	if (copy_to_user(uargs->args + nargs,
			 args.args + nargs,
			 args.nret * sizeof(rtas_arg_t)) != 0)
		return -EFAULT;

	return 0;
}

/* This version can't take the spinlock, because it never returns */

struct rtas_args rtas_stop_self_args = {
	/* The token is initialized for real in setup_system() */
	.token = RTAS_UNKNOWN_SERVICE,
	.nargs = 0,
	.nret = 1,
	.rets = &rtas_stop_self_args.args[0],
};

void rtas_stop_self(void)
{
	struct rtas_args *rtas_args = &rtas_stop_self_args;

	local_irq_disable();

	BUG_ON(rtas_args->token == RTAS_UNKNOWN_SERVICE);

	printk("cpu %u (hwid %u) Ready to die...\n",
	       smp_processor_id(), hard_smp_processor_id());
	enter_rtas(__pa(rtas_args));

	panic("Alas, I survived.\n");
}

/*
 * Call early during boot, before mem init or bootmem, to retrieve the RTAS
 * informations from the device-tree and allocate the RMO buffer for userland
 * accesses.
 */
void __init rtas_initialize(void)
{
	unsigned long rtas_region = RTAS_INSTANTIATE_MAX;

	/* Get RTAS dev node and fill up our "rtas" structure with infos
	 * about it.
	 */
	rtas.dev = of_find_node_by_name(NULL, "rtas");
	if (rtas.dev) {
		u32 *basep, *entryp;
		u32 *sizep;

		basep = (u32 *)get_property(rtas.dev, "linux,rtas-base", NULL);
		sizep = (u32 *)get_property(rtas.dev, "rtas-size", NULL);
		if (basep != NULL && sizep != NULL) {
			rtas.base = *basep;
			rtas.size = *sizep;
			entryp = (u32 *)get_property(rtas.dev, "linux,rtas-entry", NULL);
			if (entryp == NULL) /* Ugh */
				rtas.entry = rtas.base;
			else
				rtas.entry = *entryp;
		} else
			rtas.dev = NULL;
	}
	if (!rtas.dev)
		return;

	/* If RTAS was found, allocate the RMO buffer for it and look for
	 * the stop-self token if any
	 */
#ifdef CONFIG_PPC64
	if (_machine == PLATFORM_PSERIES_LPAR)
		rtas_region = min(lmb.rmo_size, RTAS_INSTANTIATE_MAX);
#endif
	rtas_rmo_buf = lmb_alloc_base(RTAS_RMOBUF_MAX, PAGE_SIZE, rtas_region);

#ifdef CONFIG_HOTPLUG_CPU
	rtas_stop_self_args.token = rtas_token("stop-self");
#endif /* CONFIG_HOTPLUG_CPU */
#ifdef CONFIG_RTAS_ERROR_LOGGING
	rtas_last_error_token = rtas_token("rtas-last-error");
#endif
}


EXPORT_SYMBOL(rtas_token);
EXPORT_SYMBOL(rtas_call);
EXPORT_SYMBOL(rtas_data_buf);
EXPORT_SYMBOL(rtas_data_buf_lock);
EXPORT_SYMBOL(rtas_extended_busy_delay_time);
EXPORT_SYMBOL(rtas_get_sensor);
EXPORT_SYMBOL(rtas_get_power_level);
EXPORT_SYMBOL(rtas_set_power_level);
EXPORT_SYMBOL(rtas_set_indicator);
Commit	Line	Data
1da177e4 LT	1	/*
	2	*
	3	* Procedures for interfacing to the RTAS on CHRP machines.
	4	*
	5	* Peter Bergner, IBM March 2001.
	6	* Copyright (C) 2001 IBM.
	7	*
	8	* This program is free software; you can redistribute it and/or
	9	* modify it under the terms of the GNU General Public License
	10	* as published by the Free Software Foundation; either version
	11	* 2 of the License, or (at your option) any later version.
	12	*/
	13
	14	#include <stdarg.h>
	15	#include <linux/kernel.h>
	16	#include <linux/types.h>
	17	#include <linux/spinlock.h>
	18	#include <linux/module.h>
	19	#include <linux/init.h>
a9415644	20	#include <linux/capability.h>
21fe3301	21	#include <linux/delay.h>
1da177e4 LT	22
	23	#include <asm/prom.h>
	24	#include <asm/rtas.h>
	25	#include <asm/semaphore.h>
	26	#include <asm/machdep.h>
	27	#include <asm/page.h>
	28	#include <asm/param.h>
	29	#include <asm/system.h>
1da177e4 LT	30	#include <asm/delay.h>
1da177e4 LT	31	#include <asm/uaccess.h>
033ef338	32	#include <asm/lmb.h>
296167ae	33	#include <asm/udbg.h>
1da177e4	34
033ef338	35	struct rtas_t rtas = {
1da177e4 LT	36	.lock = SPIN_LOCK_UNLOCKED
	37	};
	38
	39	EXPORT_SYMBOL(rtas);
	40
1da177e4	41	DEFINE_SPINLOCK(rtas_data_buf_lock);
033ef338	42	char rtas_data_buf[RTAS_DATA_BUF_SIZE] __cacheline_aligned;
1da177e4 LT	43	unsigned long rtas_rmo_buf;
1da177e4 LT	44
f4fcbbe9 PM	45	/*
	46	* If non-NULL, this gets called when the kernel terminates.
	47	* This is done like this so rtas_flash can be a module.
	48	*/
	49	void (*rtas_flash_term_hook)(int);
	50	EXPORT_SYMBOL(rtas_flash_term_hook);
	51
033ef338 PM	52	/*
	53	* call_rtas_display_status and call_rtas_display_status_delay
	54	* are designed only for very early low-level debugging, which
	55	* is why the token is hard-coded to 10.
	56	*/
296167ae	57	static void call_rtas_display_status(char c)
1da177e4 LT	58	{
	59	struct rtas_args *args = &rtas.args;
	60	unsigned long s;
	61
	62	if (!rtas.base)
	63	return;
	64	spin_lock_irqsave(&rtas.lock, s);
	65
	66	args->token = 10;
	67	args->nargs = 1;
	68	args->nret = 1;
	69	args->rets = (rtas_arg_t *)&(args->args[1]);
296167ae	70	args->args[0] = (unsigned char)c;
1da177e4 LT	71
	72	enter_rtas(__pa(args));
	73
	74	spin_unlock_irqrestore(&rtas.lock, s);
	75	}
	76
296167ae	77	static void call_rtas_display_status_delay(char c)
1da177e4 LT	78	{
	79	static int pending_newline = 0; /* did last write end with unprinted newline? */
	80	static int width = 16;
	81
	82	if (c == '\n') {
	83	while (width-- > 0)
	84	call_rtas_display_status(' ');
	85	width = 16;
21fe3301	86	mdelay(500);
1da177e4 LT	87	pending_newline = 1;
	88	} else {
	89	if (pending_newline) {
	90	call_rtas_display_status('\r');
	91	call_rtas_display_status('\n');
	92	}
	93	pending_newline = 0;
	94	if (width--) {
	95	call_rtas_display_status(c);
	96	udelay(10000);
	97	}
	98	}
	99	}
	100
296167ae ME	101	void __init udbg_init_rtas(void)
	102	{
	103	udbg_putc = call_rtas_display_status_delay;
	104	}
	105
033ef338	106	void rtas_progress(char *s, unsigned short hex)
6566c6f1 AB	107	{
	108	struct device_node *root;
	109	int width, *p;
	110	char *os;
	111	static int display_character, set_indicator;
8f586b22	112	static int display_width, display_lines, *row_width, form_feed;
6566c6f1	113	static DEFINE_SPINLOCK(progress_lock);
8f586b22	114	static int current_line;
6566c6f1 AB	115	static int pending_newline = 0; /* did last write end with unprinted newline? */
	116
	117	if (!rtas.base)
	118	return;
	119
8f586b22 MS	120	if (display_width == 0) {
	121	display_width = 0x10;
	122	if ((root = find_path_device("/rtas"))) {
	123	if ((p = (unsigned int *)get_property(root,
	124	"ibm,display-line-length", NULL)))
	125	display_width = *p;
	126	if ((p = (unsigned int *)get_property(root,
	127	"ibm,form-feed", NULL)))
	128	form_feed = *p;
	129	if ((p = (unsigned int *)get_property(root,
	130	"ibm,display-number-of-lines", NULL)))
	131	display_lines = *p;
	132	row_width = (unsigned int *)get_property(root,
	133	"ibm,display-truncation-length", NULL);
	134	}
6566c6f1 AB	135	display_character = rtas_token("display-character");
	136	set_indicator = rtas_token("set-indicator");
	137	}
	138
	139	if (display_character == RTAS_UNKNOWN_SERVICE) {
	140	/* use hex display if available */
	141	if (set_indicator != RTAS_UNKNOWN_SERVICE)
	142	rtas_call(set_indicator, 3, 1, NULL, 6, 0, hex);
	143	return;
	144	}
	145
	146	spin_lock(&progress_lock);
	147
	148	/*
	149	* Last write ended with newline, but we didn't print it since
	150	* it would just clear the bottom line of output. Print it now
	151	* instead.
	152	*
8f586b22 MS	153	* If no newline is pending and form feed is supported, clear the
	154	* display with a form feed; otherwise, print a CR to start output
	155	* at the beginning of the line.
6566c6f1 AB	156	*/
	157	if (pending_newline) {
	158	rtas_call(display_character, 1, 1, NULL, '\r');
	159	rtas_call(display_character, 1, 1, NULL, '\n');
	160	pending_newline = 0;
	161	} else {
8f586b22 MS	162	current_line = 0;
	163	if (form_feed)
	164	rtas_call(display_character, 1, 1, NULL,
	165	(char)form_feed);
	166	else
	167	rtas_call(display_character, 1, 1, NULL, '\r');
6566c6f1 AB	168	}
6566c6f1 AB	169
8f586b22 MS	170	if (row_width)
	171	width = row_width[current_line];
	172	else
	173	width = display_width;
6566c6f1 AB	174	os = s;
	175	while (*os) {
	176	if (os == '\n' \|\| os == '\r') {
6566c6f1 AB	177	/* If newline is the last character, save it
	178	* until next call to avoid bumping up the
	179	* display output.
	180	*/
	181	if (*os == '\n' && !os[1]) {
	182	pending_newline = 1;
8f586b22 MS	183	current_line++;
	184	if (current_line > display_lines-1)
	185	current_line = display_lines-1;
6566c6f1 AB	186	spin_unlock(&progress_lock);
	187	return;
	188	}
	189
	190	/* RTAS wants CR-LF, not just LF */
	191
	192	if (*os == '\n') {
	193	rtas_call(display_character, 1, 1, NULL, '\r');
	194	rtas_call(display_character, 1, 1, NULL, '\n');
	195	} else {
	196	/* CR might be used to re-draw a line, so we'll
	197	* leave it alone and not add LF.
	198	*/
	199	rtas_call(display_character, 1, 1, NULL, *os);
	200	}
	201
8f586b22 MS	202	if (row_width)
	203	width = row_width[current_line];
	204	else
	205	width = display_width;
6566c6f1 AB	206	} else {
	207	width--;
	208	rtas_call(display_character, 1, 1, NULL, *os);
	209	}
	210
	211	os++;
	212
	213	/* if we overwrite the screen length */
	214	if (width <= 0)
	215	while ((os != 0) && (os != '\n') && (*os != '\r'))
	216	os++;
	217	}
	218
6566c6f1 AB	219	spin_unlock(&progress_lock);
6566c6f1 AB	220	}
f4fcbbe9	221	EXPORT_SYMBOL(rtas_progress); /* needed by rtas_flash module */
6566c6f1	222
033ef338	223	int rtas_token(const char *service)
1da177e4 LT	224	{
1da177e4 LT	225	int *tokp;
033ef338	226	if (rtas.dev == NULL)
1da177e4	227	return RTAS_UNKNOWN_SERVICE;
1da177e4 LT	228	tokp = (int *) get_property(rtas.dev, service, NULL);
	229	return tokp ? *tokp : RTAS_UNKNOWN_SERVICE;
	230	}
	231
033ef338	232	#ifdef CONFIG_RTAS_ERROR_LOGGING
1da177e4 LT	233	/*
	234	* Return the firmware-specified size of the error log buffer
	235	* for all rtas calls that require an error buffer argument.
	236	* This includes 'check-exception' and 'rtas-last-error'.
	237	*/
	238	int rtas_get_error_log_max(void)
	239	{
	240	static int rtas_error_log_max;
	241	if (rtas_error_log_max)
	242	return rtas_error_log_max;
	243
	244	rtas_error_log_max = rtas_token ("rtas-error-log-max");
	245	if ((rtas_error_log_max == RTAS_UNKNOWN_SERVICE) \|\|
	246	(rtas_error_log_max > RTAS_ERROR_LOG_MAX)) {
033ef338 PM	247	printk (KERN_WARNING "RTAS: bad log buffer size %d\n",
033ef338 PM	248	rtas_error_log_max);
1da177e4 LT	249	rtas_error_log_max = RTAS_ERROR_LOG_MAX;
	250	}
	251	return rtas_error_log_max;
	252	}
033ef338	253	EXPORT_SYMBOL(rtas_get_error_log_max);
1da177e4 LT	254
1da177e4 LT	255
033ef338 PM	256	char rtas_err_buf[RTAS_ERROR_LOG_MAX];
	257	int rtas_last_error_token;
	258
1da177e4 LT	259	/** Return a copy of the detailed error text associated with the
	260	* most recent failed call to rtas. Because the error text
	261	* might go stale if there are any other intervening rtas calls,
	262	* this routine must be called atomically with whatever produced
	263	* the error (i.e. with rtas.lock still held from the previous call).
	264	*/
033ef338	265	static char __fetch_rtas_last_error(char altbuf)
1da177e4 LT	266	{
	267	struct rtas_args err_args, save_args;
	268	u32 bufsz;
033ef338 PM	269	char *buf = NULL;
	270
	271	if (rtas_last_error_token == -1)
	272	return NULL;
1da177e4 LT	273
	274	bufsz = rtas_get_error_log_max();
	275
033ef338	276	err_args.token = rtas_last_error_token;
1da177e4 LT	277	err_args.nargs = 2;
1da177e4 LT	278	err_args.nret = 1;
1da177e4 LT	279	err_args.args[0] = (rtas_arg_t)__pa(rtas_err_buf);
	280	err_args.args[1] = bufsz;
	281	err_args.args[2] = 0;
	282
	283	save_args = rtas.args;
	284	rtas.args = err_args;
	285
	286	enter_rtas(__pa(&rtas.args));
	287
	288	err_args = rtas.args;
	289	rtas.args = save_args;
	290
033ef338 PM	291	/* Log the error in the unlikely case that there was one. */
	292	if (unlikely(err_args.args[2] == 0)) {
	293	if (altbuf) {
	294	buf = altbuf;
	295	} else {
	296	buf = rtas_err_buf;
	297	if (mem_init_done)
	298	buf = kmalloc(RTAS_ERROR_LOG_MAX, GFP_ATOMIC);
	299	}
	300	if (buf)
	301	memcpy(buf, rtas_err_buf, RTAS_ERROR_LOG_MAX);
	302	}
	303
	304	return buf;
1da177e4 LT	305	}
1da177e4 LT	306
033ef338 PM	307	#define get_errorlog_buffer() kmalloc(RTAS_ERROR_LOG_MAX, GFP_KERNEL)
	308
	309	#else /* CONFIG_RTAS_ERROR_LOGGING */
	310	#define __fetch_rtas_last_error(x) NULL
	311	#define get_errorlog_buffer() NULL
	312	#endif
	313
1da177e4 LT	314	int rtas_call(int token, int nargs, int nret, int *outputs, ...)
	315	{
	316	va_list list;
033ef338	317	int i;
1da177e4 LT	318	unsigned long s;
1da177e4 LT	319	struct rtas_args *rtas_args;
033ef338	320	char *buff_copy = NULL;
1da177e4 LT	321	int ret;
1da177e4 LT	322
1da177e4 LT	323	if (token == RTAS_UNKNOWN_SERVICE)
	324	return -1;
	325
	326	/* Gotta do something different here, use global lock for now... */
	327	spin_lock_irqsave(&rtas.lock, s);
	328	rtas_args = &rtas.args;
	329
	330	rtas_args->token = token;
	331	rtas_args->nargs = nargs;
	332	rtas_args->nret = nret;
	333	rtas_args->rets = (rtas_arg_t *)&(rtas_args->args[nargs]);
	334	va_start(list, outputs);
033ef338	335	for (i = 0; i < nargs; ++i)
1da177e4	336	rtas_args->args[i] = va_arg(list, rtas_arg_t);
1da177e4 LT	337	va_end(list);
	338
	339	for (i = 0; i < nret; ++i)
	340	rtas_args->rets[i] = 0;
	341
1da177e4	342	enter_rtas(__pa(rtas_args));
1da177e4 LT	343
	344	/* A -1 return code indicates that the last command couldn't
	345	be completed due to a hardware error. */
	346	if (rtas_args->rets[0] == -1)
033ef338	347	buff_copy = __fetch_rtas_last_error(NULL);
1da177e4 LT	348
	349	if (nret > 1 && outputs != NULL)
	350	for (i = 0; i < nret-1; ++i)
	351	outputs[i] = rtas_args->rets[i+1];
	352	ret = (nret > 0)? rtas_args->rets[0]: 0;
	353
1da177e4 LT	354	/* Gotta do something different here, use global lock for now... */
	355	spin_unlock_irqrestore(&rtas.lock, s);
	356
	357	if (buff_copy) {
	358	log_error(buff_copy, ERR_TYPE_RTAS_LOG, 0);
	359	if (mem_init_done)
	360	kfree(buff_copy);
	361	}
	362	return ret;
	363	}
	364
	365	/* Given an RTAS status code of 990n compute the hinted delay of 10^n
	366	* (last digit) milliseconds. For now we bound at n=5 (100 sec).
	367	*/
033ef338	368	unsigned int rtas_extended_busy_delay_time(int status)
1da177e4 LT	369	{
	370	int order = status - 9900;
	371	unsigned long ms;
	372
	373	if (order < 0)
	374	order = 0; /* RTC depends on this for -2 clock busy */
	375	else if (order > 5)
	376	order = 5; /* bound */
	377
	378	/* Use microseconds for reasonable accuracy */
033ef338	379	for (ms = 1; order > 0; order--)
1da177e4 LT	380	ms *= 10;
	381
	382	return ms;
	383	}
	384
	385	int rtas_error_rc(int rtas_rc)
	386	{
	387	int rc;
	388
	389	switch (rtas_rc) {
	390	case -1: /* Hardware Error */
	391	rc = -EIO;
	392	break;
	393	case -3: /* Bad indicator/domain/etc */
	394	rc = -EINVAL;
	395	break;
	396	case -9000: /* Isolation error */
	397	rc = -EFAULT;
	398	break;
	399	case -9001: /* Outstanding TCE/PTE */
	400	rc = -EEXIST;
	401	break;
	402	case -9002: /* No usable slot */
	403	rc = -ENODEV;
	404	break;
	405	default:
	406	printk(KERN_ERR "%s: unexpected RTAS error %d\n",
	407	__FUNCTION__, rtas_rc);
	408	rc = -ERANGE;
	409	break;
	410	}
	411	return rc;
	412	}
	413
	414	int rtas_get_power_level(int powerdomain, int *level)
	415	{
	416	int token = rtas_token("get-power-level");
	417	int rc;
	418
	419	if (token == RTAS_UNKNOWN_SERVICE)
	420	return -ENOENT;
	421
	422	while ((rc = rtas_call(token, 1, 2, level, powerdomain)) == RTAS_BUSY)
	423	udelay(1);
	424
	425	if (rc < 0)
	426	return rtas_error_rc(rc);
	427	return rc;
	428	}
	429
	430	int rtas_set_power_level(int powerdomain, int level, int *setlevel)
	431	{
	432	int token = rtas_token("set-power-level");
	433	unsigned int wait_time;
	434	int rc;
	435
	436	if (token == RTAS_UNKNOWN_SERVICE)
	437	return -ENOENT;
	438
	439	while (1) {
	440	rc = rtas_call(token, 2, 2, setlevel, powerdomain, level);
	441	if (rc == RTAS_BUSY)
	442	udelay(1);
	443	else if (rtas_is_extended_busy(rc)) {
444	wait_time = rtas_extended_busy_delay_time(rc);
445	udelay(wait_time * 1000);
446	} else
447	break;
448	}
449
450	if (rc < 0)
451	return rtas_error_rc(rc);
452	return rc;
453	}
454
455	int rtas_get_sensor(int sensor, int index, int *state)
456	{
457	int token = rtas_token("get-sensor-state");
458	unsigned int wait_time;
459	int rc;
460
461	if (token == RTAS_UNKNOWN_SERVICE)
462	return -ENOENT;
463
464	while (1) {
465	rc = rtas_call(token, 2, 2, state, sensor, index);
466	if (rc == RTAS_BUSY)
467	udelay(1);
468	else if (rtas_is_extended_busy(rc)) {
469	wait_time = rtas_extended_busy_delay_time(rc);
470	udelay(wait_time * 1000);
471	} else
472	break;
473	}
474
475	if (rc < 0)
476	return rtas_error_rc(rc);
477	return rc;
478	}
479
480	int rtas_set_indicator(int indicator, int index, int new_value)
481	{
482	int token = rtas_token("set-indicator");
483	unsigned int wait_time;
484	int rc;
485
486	if (token == RTAS_UNKNOWN_SERVICE)
487	return -ENOENT;
488
489	while (1) {
490	rc = rtas_call(token, 3, 1, NULL, indicator, index, new_value);
491	if (rc == RTAS_BUSY)
492	udelay(1);
493	else if (rtas_is_extended_busy(rc)) {
494	wait_time = rtas_extended_busy_delay_time(rc);
495	udelay(wait_time * 1000);
496	}
497	else
498	break;
499	}
500
501	if (rc < 0)
502	return rtas_error_rc(rc);
503	return rc;
504	}
505
033ef338	506	void rtas_restart(char *cmd)
1da177e4	507	{
f4fcbbe9 PM	508	if (rtas_flash_term_hook)
f4fcbbe9 PM	509	rtas_flash_term_hook(SYS_RESTART);
1da177e4 LT	510	printk("RTAS system-reboot returned %d\n",
	511	rtas_call(rtas_token("system-reboot"), 0, 1, NULL));
	512	for (;;);
	513	}
	514
033ef338	515	void rtas_power_off(void)
1da177e4	516	{
f4fcbbe9 PM	517	if (rtas_flash_term_hook)
f4fcbbe9 PM	518	rtas_flash_term_hook(SYS_POWER_OFF);
1da177e4 LT	519	/* allow power on only with power button press */
	520	printk("RTAS power-off returned %d\n",
	521	rtas_call(rtas_token("power-off"), 2, 1, NULL, -1, -1));
	522	for (;;);
	523	}
	524
033ef338	525	void rtas_halt(void)
1da177e4	526	{
f4fcbbe9 PM	527	if (rtas_flash_term_hook)
	528	rtas_flash_term_hook(SYS_HALT);
	529	/* allow power on only with power button press */
	530	printk("RTAS power-off returned %d\n",
	531	rtas_call(rtas_token("power-off"), 2, 1, NULL, -1, -1));
	532	for (;;);
1da177e4 LT	533	}
	534
	535	/* Must be in the RMO region, so we place it here */
	536	static char rtas_os_term_buf[2048];
	537
	538	void rtas_os_term(char *str)
	539	{
	540	int status;
	541
	542	if (RTAS_UNKNOWN_SERVICE == rtas_token("ibm,os-term"))
	543	return;
	544
	545	snprintf(rtas_os_term_buf, 2048, "OS panic: %s", str);
	546
	547	do {
	548	status = rtas_call(rtas_token("ibm,os-term"), 1, 1, NULL,
	549	__pa(rtas_os_term_buf));
	550
	551	if (status == RTAS_BUSY)
	552	udelay(1);
	553	else if (status != 0)
	554	printk(KERN_EMERG "ibm,os-term call failed %d\n",
	555	status);
	556	} while (status == RTAS_BUSY);
	557	}
	558
	559
	560	asmlinkage int ppc_rtas(struct rtas_args __user *uargs)
	561	{
	562	struct rtas_args args;
	563	unsigned long flags;
033ef338	564	char buff_copy, errbuf = NULL;
1da177e4	565	int nargs;
1da177e4 LT	566
	567	if (!capable(CAP_SYS_ADMIN))
	568	return -EPERM;
	569
	570	if (copy_from_user(&args, uargs, 3 * sizeof(u32)) != 0)
	571	return -EFAULT;
	572
	573	nargs = args.nargs;
	574	if (nargs > ARRAY_SIZE(args.args)
	575	\|\| args.nret > ARRAY_SIZE(args.args)
	576	\|\| nargs + args.nret > ARRAY_SIZE(args.args))
	577	return -EINVAL;
	578
	579	/* Copy in args. */
	580	if (copy_from_user(args.args, uargs->args,
	581	nargs * sizeof(rtas_arg_t)) != 0)
	582	return -EFAULT;
	583
033ef338	584	buff_copy = get_errorlog_buffer();
1da177e4 LT	585
	586	spin_lock_irqsave(&rtas.lock, flags);
	587
	588	rtas.args = args;
	589	enter_rtas(__pa(&rtas.args));
	590	args = rtas.args;
	591
	592	args.rets = &args.args[nargs];
	593
	594	/* A -1 return code indicates that the last command couldn't
	595	be completed due to a hardware error. */
033ef338 PM	596	if (args.rets[0] == -1)
033ef338 PM	597	errbuf = __fetch_rtas_last_error(buff_copy);
1da177e4 LT	598
	599	spin_unlock_irqrestore(&rtas.lock, flags);
	600
	601	if (buff_copy) {
033ef338 PM	602	if (errbuf)
033ef338 PM	603	log_error(errbuf, ERR_TYPE_RTAS_LOG, 0);
1da177e4 LT	604	kfree(buff_copy);
	605	}
	606
	607	/* Copy out args. */
	608	if (copy_to_user(uargs->args + nargs,
	609	args.args + nargs,
	610	args.nret * sizeof(rtas_arg_t)) != 0)
	611	return -EFAULT;
	612
	613	return 0;
	614	}
	615
	616	/* This version can't take the spinlock, because it never returns */
	617
	618	struct rtas_args rtas_stop_self_args = {
	619	/* The token is initialized for real in setup_system() */
	620	.token = RTAS_UNKNOWN_SERVICE,
	621	.nargs = 0,
	622	.nret = 1,
	623	.rets = &rtas_stop_self_args.args[0],
	624	};
	625
	626	void rtas_stop_self(void)
	627	{
	628	struct rtas_args *rtas_args = &rtas_stop_self_args;
	629
	630	local_irq_disable();
	631
	632	BUG_ON(rtas_args->token == RTAS_UNKNOWN_SERVICE);
	633
	634	printk("cpu %u (hwid %u) Ready to die...\n",
	635	smp_processor_id(), hard_smp_processor_id());
	636	enter_rtas(__pa(rtas_args));
	637
	638	panic("Alas, I survived.\n");
	639	}
	640
	641	/*
943ffb58	642	* Call early during boot, before mem init or bootmem, to retrieve the RTAS
1da177e4 LT	643	* informations from the device-tree and allocate the RMO buffer for userland
	644	* accesses.
	645	*/
	646	void __init rtas_initialize(void)
	647	{
033ef338 PM	648	unsigned long rtas_region = RTAS_INSTANTIATE_MAX;
033ef338 PM	649
1da177e4 LT	650	/* Get RTAS dev node and fill up our "rtas" structure with infos
	651	* about it.
	652	*/
	653	rtas.dev = of_find_node_by_name(NULL, "rtas");
	654	if (rtas.dev) {
	655	u32 basep, entryp;
	656	u32 *sizep;
	657
	658	basep = (u32 *)get_property(rtas.dev, "linux,rtas-base", NULL);
	659	sizep = (u32 *)get_property(rtas.dev, "rtas-size", NULL);
	660	if (basep != NULL && sizep != NULL) {
	661	rtas.base = *basep;
	662	rtas.size = *sizep;
	663	entryp = (u32 *)get_property(rtas.dev, "linux,rtas-entry", NULL);
	664	if (entryp == NULL) /* Ugh */
	665	rtas.entry = rtas.base;
	666	else
	667	rtas.entry = *entryp;
	668	} else
	669	rtas.dev = NULL;
	670	}
033ef338 PM	671	if (!rtas.dev)
	672	return;
	673
1da177e4 LT	674	/* If RTAS was found, allocate the RMO buffer for it and look for
	675	* the stop-self token if any
	676	*/
033ef338	677	#ifdef CONFIG_PPC64
799d6046	678	if (_machine == PLATFORM_PSERIES_LPAR)
033ef338 PM	679	rtas_region = min(lmb.rmo_size, RTAS_INSTANTIATE_MAX);
	680	#endif
	681	rtas_rmo_buf = lmb_alloc_base(RTAS_RMOBUF_MAX, PAGE_SIZE, rtas_region);
1da177e4 LT	682
1da177e4 LT	683	#ifdef CONFIG_HOTPLUG_CPU
033ef338	684	rtas_stop_self_args.token = rtas_token("stop-self");
1da177e4	685	#endif /* CONFIG_HOTPLUG_CPU */
033ef338 PM	686	#ifdef CONFIG_RTAS_ERROR_LOGGING
	687	rtas_last_error_token = rtas_token("rtas-last-error");
	688	#endif
1da177e4 LT	689	}
	690
	691
1da177e4 LT	692	EXPORT_SYMBOL(rtas_token);
	693	EXPORT_SYMBOL(rtas_call);
	694	EXPORT_SYMBOL(rtas_data_buf);
	695	EXPORT_SYMBOL(rtas_data_buf_lock);
	696	EXPORT_SYMBOL(rtas_extended_busy_delay_time);
	697	EXPORT_SYMBOL(rtas_get_sensor);
	698	EXPORT_SYMBOL(rtas_get_power_level);
	699	EXPORT_SYMBOL(rtas_set_power_level);
	700	EXPORT_SYMBOL(rtas_set_indicator);