arch/frv/kernel/pm.c

   1 /*
   2  * FR-V Power Management Routines
   3  *
   4  * Copyright (c) 2004 Red Hat, Inc.
   5  *
   6  * Based on SA1100 version:
   7  * Copyright (c) 2001 Cliff Brake <cbrake@accelent.com>
   8  *
   9  * This program is free software; you can redistribute it and/or
  10  * modify it under the terms of the GNU General Public License.
  11  *
  12  */
  13
  14 #include <linux/init.h>
  15 #include <linux/module.h>
  16 #include <linux/pm.h>
  17 #include <linux/sched.h>
  18 #include <linux/interrupt.h>
  19 #include <linux/sysctl.h>
  20 #include <linux/errno.h>
  21 #include <linux/delay.h>
  22 #include <asm/uaccess.h>
  23
  24 #include <asm/mb86943a.h>
  25
  26 #include "local.h"
  27
  28 /*
  29  * Debug macros
  30  */
  31 #define DEBUG
  32
  33 int pm_do_suspend(void)
  34 {
  35         local_irq_disable();
  36
  37         __set_LEDS(0xb1);
  38
  39         /* go zzz */
  40         frv_cpu_suspend(pdm_suspend_mode);
  41
  42         __set_LEDS(0xb2);
  43
  44         local_irq_enable();
  45
  46         return 0;
  47 }
  48
  49 static unsigned long __irq_mask;
  50
  51 /*
  52  * Setup interrupt masks, etc to enable wakeup by power switch
  53  */
  54 static void __default_power_switch_setup(void)
  55 {
  56         /* default is to mask all interrupt sources. */
  57         __irq_mask = *(unsigned long *)0xfeff9820;
  58         *(unsigned long *)0xfeff9820 = 0xfffe0000;
  59 }
  60
  61 /*
  62  * Cleanup interrupt masks, etc after wakeup by power switch
  63  */
  64 static void __default_power_switch_cleanup(void)
  65 {
  66         *(unsigned long *)0xfeff9820 = __irq_mask;
  67 }
  68
  69 /*
  70  * Return non-zero if wakeup irq was caused by power switch
  71  */
  72 static int __default_power_switch_check(void)
  73 {
  74         return 1;
  75 }
  76
  77 void (*__power_switch_wake_setup)(void) = __default_power_switch_setup;
  78 int  (*__power_switch_wake_check)(void) = __default_power_switch_check;
  79 void (*__power_switch_wake_cleanup)(void) = __default_power_switch_cleanup;
  80
  81 int pm_do_bus_sleep(void)
  82 {
  83         local_irq_disable();
  84
  85         /*
  86          * Here is where we need some platform-dependent setup
  87          * of the interrupt state so that appropriate wakeup
  88          * sources are allowed and all others are masked.
  89          */
  90         __power_switch_wake_setup();
  91
  92         __set_LEDS(0xa1);
  93
  94         /* go zzz
  95          *
  96          * This is in a loop in case power switch shares an irq with other
  97          * devices. The wake_check() tells us if we need to finish waking
  98          * or go back to sleep.
  99          */
 100         do {
 101                 frv_cpu_suspend(HSR0_PDM_BUS_SLEEP);
 102         } while (__power_switch_wake_check && !__power_switch_wake_check());
 103
 104         __set_LEDS(0xa2);
 105
 106         /*
 107          * Here is where we need some platform-dependent restore
 108          * of the interrupt state prior to being called.
 109          */
 110         __power_switch_wake_cleanup();
 111
 112         local_irq_enable();
 113
 114         return 0;
 115 }
 116
 117 unsigned long sleep_phys_sp(void *sp)
 118 {
 119         return virt_to_phys(sp);
 120 }
 121
 122 #ifdef CONFIG_SYSCTL
 123 /*
 124  * Use a temporary sysctl number. Horrid, but will be cleaned up in 2.6
 125  * when all the PM interfaces exist nicely.
 126  */
 127 #define CTL_PM_SUSPEND 1
 128 #define CTL_PM_CMODE 2
 129 #define CTL_PM_P0 4
 130 #define CTL_PM_CM 5
 131
 132 static int user_atoi(char __user *ubuf, size_t len)
 133 {
 134         char buf[16];
 135         unsigned long ret;
 136
 137         if (len > 15)
 138                 return -EINVAL;
 139
 140         if (copy_from_user(buf, ubuf, len))
 141                 return -EFAULT;
 142
 143         buf[len] = 0;
 144         ret = simple_strtoul(buf, NULL, 0);
 145         if (ret > INT_MAX)
 146                 return -ERANGE;
 147         return ret;
 148 }
 149
 150 /*
 151  * Send us to sleep.
 152  */
 153 static int sysctl_pm_do_suspend(ctl_table *ctl, int write,
 154                                 void __user *buffer, size_t *lenp, loff_t *fpos)
 155 {
 156         int retval, mode;
 157
 158         if (*lenp <= 0)
 159                 return -EIO;
 160
 161         mode = user_atoi(buffer, *lenp);
 162         if ((mode != 1) && (mode != 5))
 163                 return -EINVAL;
 164
 165         if (retval == 0) {
 166                 if (mode == 5)
 167                     retval = pm_do_bus_sleep();
 168                 else
 169                     retval = pm_do_suspend();
 170         }
 171
 172         return retval;
 173 }
 174
 175 static int try_set_cmode(int new_cmode)
 176 {
 177         if (new_cmode > 15)
 178                 return -EINVAL;
 179         if (!(clock_cmodes_permitted & (1<<new_cmode)))
 180                 return -EINVAL;
 181
 182         /* now change cmode */
 183         local_irq_disable();
 184         frv_dma_pause_all();
 185
 186         frv_change_cmode(new_cmode);
 187
 188         determine_clocks(0);
 189         time_divisor_init();
 190
 191 #ifdef DEBUG
 192         determine_clocks(1);
 193 #endif
 194         frv_dma_resume_all();
 195         local_irq_enable();
 196
 197         return 0;
 198 }
 199
 200
 201 static int cmode_procctl(ctl_table *ctl, int write,
 202                          void __user *buffer, size_t *lenp, loff_t *fpos)
 203 {
 204         int new_cmode;
 205
 206         if (!write)
 207                 return proc_dointvec(ctl, write, buffer, lenp, fpos);
 208
 209         new_cmode = user_atoi(buffer, *lenp);
 210
 211         return try_set_cmode(new_cmode)?:*lenp;
 212 }
 213
 214 static int cmode_sysctl(ctl_table *table,
 215                         void __user *oldval, size_t __user *oldlenp,
 216                         void __user *newval, size_t newlen)
 217 {
 218         if (oldval && oldlenp) {
 219                 size_t oldlen;
 220
 221                 if (get_user(oldlen, oldlenp))
 222                         return -EFAULT;
 223
 224                 if (oldlen != sizeof(int))
 225                         return -EINVAL;
 226
 227                 if (put_user(clock_cmode_current, (unsigned __user *)oldval) ||
 228                     put_user(sizeof(int), oldlenp))
 229                         return -EFAULT;
 230         }
 231         if (newval && newlen) {
 232                 int new_cmode;
 233
 234                 if (newlen != sizeof(int))
 235                         return -EINVAL;
 236
 237                 if (get_user(new_cmode, (int __user *)newval))
 238                         return -EFAULT;
 239
 240                 return try_set_cmode(new_cmode)?:1;
 241         }
 242         return 1;
 243 }
 244
 245 static int try_set_p0(int new_p0)
 246 {
 247         unsigned long flags, clkc;
 248
 249         if (new_p0 < 0 || new_p0 > 1)
 250                 return -EINVAL;
 251
 252         local_irq_save(flags);
 253         __set_PSR(flags & ~PSR_ET);
 254
 255         frv_dma_pause_all();
 256
 257         clkc = __get_CLKC();
 258         if (new_p0)
 259                 clkc |= CLKC_P0;
 260         else
 261                 clkc &= ~CLKC_P0;
 262         __set_CLKC(clkc);
 263
 264         determine_clocks(0);
 265         time_divisor_init();
 266
 267 #ifdef DEBUG
 268         determine_clocks(1);
 269 #endif
 270         frv_dma_resume_all();
 271         local_irq_restore(flags);
 272         return 0;
 273 }
 274
 275 static int try_set_cm(int new_cm)
 276 {
 277         unsigned long flags, clkc;
 278
 279         if (new_cm < 0 || new_cm > 1)
 280                 return -EINVAL;
 281
 282         local_irq_save(flags);
 283         __set_PSR(flags & ~PSR_ET);
 284
 285         frv_dma_pause_all();
 286
 287         clkc = __get_CLKC();
 288         clkc &= ~CLKC_CM;
 289         clkc |= new_cm;
 290         __set_CLKC(clkc);
 291
 292         determine_clocks(0);
 293         time_divisor_init();
 294
 295 #if 1 //def DEBUG
 296         determine_clocks(1);
 297 #endif
 298
 299         frv_dma_resume_all();
 300         local_irq_restore(flags);
 301         return 0;
 302 }
 303
 304 static int p0_procctl(ctl_table *ctl, int write,
 305                       void __user *buffer, size_t *lenp, loff_t *fpos)
 306 {
 307         int new_p0;
 308
 309         if (!write)
 310                 return proc_dointvec(ctl, write, buffer, lenp, fpos);
 311
 312         new_p0 = user_atoi(buffer, *lenp);
 313
 314         return try_set_p0(new_p0)?:*lenp;
 315 }
 316
 317 static int p0_sysctl(ctl_table *table,
 318                      void __user *oldval, size_t __user *oldlenp,
 319                      void __user *newval, size_t newlen)
 320 {
 321         if (oldval && oldlenp) {
 322                 size_t oldlen;
 323
 324                 if (get_user(oldlen, oldlenp))
 325                         return -EFAULT;
 326
 327                 if (oldlen != sizeof(int))
 328                         return -EINVAL;
 329
 330                 if (put_user(clock_p0_current, (unsigned __user *)oldval) ||
 331                     put_user(sizeof(int), oldlenp))
 332                         return -EFAULT;
 333         }
 334         if (newval && newlen) {
 335                 int new_p0;
 336
 337                 if (newlen != sizeof(int))
 338                         return -EINVAL;
 339
 340                 if (get_user(new_p0, (int __user *)newval))
 341                         return -EFAULT;
 342
 343                 return try_set_p0(new_p0)?:1;
 344         }
 345         return 1;
 346 }
 347
 348 static int cm_procctl(ctl_table *ctl, int write,
 349                       void __user *buffer, size_t *lenp, loff_t *fpos)
 350 {
 351         int new_cm;
 352
 353         if (!write)
 354                 return proc_dointvec(ctl, write, buffer, lenp, fpos);
 355
 356         new_cm = user_atoi(buffer, *lenp);
 357
 358         return try_set_cm(new_cm)?:*lenp;
 359 }
 360
 361 static int cm_sysctl(ctl_table *table,
 362                      void __user *oldval, size_t __user *oldlenp,
 363                      void __user *newval, size_t newlen)
 364 {
 365         if (oldval && oldlenp) {
 366                 size_t oldlen;
 367
 368                 if (get_user(oldlen, oldlenp))
 369                         return -EFAULT;
 370
 371                 if (oldlen != sizeof(int))
 372                         return -EINVAL;
 373
 374                 if (put_user(clock_cm_current, (unsigned __user *)oldval) ||
 375                     put_user(sizeof(int), oldlenp))
 376                         return -EFAULT;
 377         }
 378         if (newval && newlen) {
 379                 int new_cm;
 380
 381                 if (newlen != sizeof(int))
 382                         return -EINVAL;
 383
 384                 if (get_user(new_cm, (int __user *)newval))
 385                         return -EFAULT;
 386
 387                 return try_set_cm(new_cm)?:1;
 388         }
 389         return 1;
 390 }
 391
 392
 393 static struct ctl_table pm_table[] =
 394 {
 395         {
 396                 .ctl_name       = CTL_PM_SUSPEND,
 397                 .procname       = "suspend",
 398                 .data           = NULL,
 399                 .maxlen         = 0,
 400                 .mode           = 0200,
 401                 .proc_handler   = &sysctl_pm_do_suspend,
 402         },
 403         {
 404                 .ctl_name       = CTL_PM_CMODE,
 405                 .procname       = "cmode",
 406                 .data           = &clock_cmode_current,
 407                 .maxlen         = sizeof(int),
 408                 .mode           = 0644,
 409                 .proc_handler   = &cmode_procctl,
 410                 .strategy       = &cmode_sysctl,
 411         },
 412         {
 413                 .ctl_name       = CTL_PM_P0,
 414                 .procname       = "p0",
 415                 .data           = &clock_p0_current,
 416                 .maxlen         = sizeof(int),
 417                 .mode           = 0644,
 418                 .proc_handler   = &p0_procctl,
 419                 .strategy       = &p0_sysctl,
 420         },
 421         {
 422                 .ctl_name       = CTL_PM_CM,
 423                 .procname       = "cm",
 424                 .data           = &clock_cm_current,
 425                 .maxlen         = sizeof(int),
 426                 .mode           = 0644,
 427                 .proc_handler   = &cm_procctl,
 428                 .strategy       = &cm_sysctl,
 429         },
 430         { .ctl_name = 0}
 431 };
 432
 433 static struct ctl_table pm_dir_table[] =
 434 {
 435         {
 436                 .ctl_name       = CTL_PM,
 437                 .procname       = "pm",
 438                 .mode           = 0555,
 439                 .child          = pm_table,
 440         },
 441         { .ctl_name = 0}
 442 };
 443
 444 /*
 445  * Initialize power interface
 446  */
 447 static int __init pm_init(void)
 448 {
 449         register_sysctl_table(pm_dir_table);
 450         return 0;
 451 }
 452
 453 __initcall(pm_init);
 454
 455 #endif