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 |