arch/all-mingw32/kernel/maygetchar.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/exec.h>
   7
   8 #include "kernel_base.h"
   9
  10 AROS_LH0(int, KrnMayGetChar,
  11          struct KernelBase *, KernelBase, 26, Kernel)
  12 {
  13     AROS_LIBFUNC_INIT
  14
  15     int c;
  16
  17     Forbid();
  18     c = KernelIFace.core_getc();
  19     Permit();
  20
  21     return c;
  22
  23     AROS_LIBFUNC_EXIT
  24 }