| Commit | Line | Data |
|---|
| 4d2c4e07 |
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 |
projects / p5sagit/p5-mst-13.2.git / blame