epoc/epoc.c

   1 /* Epoc helper Routines */
   2
   3 #include <stdlib.h>
   4
   5 int getgid() {return 0;}
   6 int getegid() {return 0;}
   7 int geteuid() {return 0;}
   8 int getuid() {return 0;}
   9 int setgid() {return -1;}
  10 int setuid() {return -1;}
  11
  12
  13 char *environ;
  14
  15 int Perl_my_popen( int a, int b) {
  16          return 0;
  17 }
  18 int Perl_my_pclose( int a) {
  19          return 0;
  20 }
  21
  22 kill() {}
  23 signal() {}
  24
  25 void execv() {}
  26 void execvp() {}
  27
  28
  29 void do_spawn() {}
  30 void do_aspawn() {}
  31 void Perl_do_exec() {}
  32
  33 #ifdef __MARM__
  34 /* Symbian forgot to include __fixunsdfi into the MARM euser.lib */
  35 /* This is from libgcc2.c , gcc-2.7.2.3                          */
  36
  37 typedef unsigned int UQItype    __attribute__ ((mode (QI)));
  38 typedef          int SItype     __attribute__ ((mode (SI)));
  39 typedef unsigned int USItype    __attribute__ ((mode (SI)));
  40 typedef          int DItype     __attribute__ ((mode (DI)));
  41 typedef unsigned int UDItype    __attribute__ ((mode (DI)));
  42
  43 typedef         float SFtype    __attribute__ ((mode (SF)));
  44 typedef         float DFtype    __attribute__ ((mode (DF)));
  45
  46
  47
  48 extern DItype __fixunssfdi (SFtype a);
  49 extern DItype __fixunsdfdi (DFtype a);
  50
  51
  52 USItype
  53 __fixunsdfsi (a)
  54      DFtype a;
  55 {
  56   if (a >= - (DFtype) (- 2147483647L  -1) )
  57     return (SItype) (a + (- 2147483647L  -1) ) - (- 2147483647L  -1) ;
  58   return (SItype) a;
  59 }
  60
  61 #endif