From 4d2c4e078e0d58f7b5fd54b2aedc642bb9296f6e Mon Sep 17 00:00:00 2001 From: Olaf Flebbe Date: Sun, 27 Jun 1999 22:50:30 +0200 Subject: EPOC port to Psion5. To: Jarkko Hietaniemi Cc: perl5-porters@perl.org Subject: Re: Psion5 Message-ID: p4raw-id: //depot/cfgperl@3555 --- epoc/epoc.c | 61 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 61 insertions(+) create mode 100644 epoc/epoc.c (limited to 'epoc/epoc.c') diff --git a/epoc/epoc.c b/epoc/epoc.c new file mode 100644 index 0000000000..a7c7e1090b --- /dev/null +++ b/epoc/epoc.c @@ -0,0 +1,61 @@ +/* Epoc helper Routines */ + +#include + +int getgid() {return 0;} +int getegid() {return 0;} +int geteuid() {return 0;} +int getuid() {return 0;} +int setgid() {return -1;} +int setuid() {return -1;} + + +char *environ; + +int Perl_my_popen( int a, int b) { + return 0; +} +int Perl_my_pclose( int a) { + return 0; +} + +kill() {} +signal() {} + +void execv() {} +void execvp() {} + + +void do_spawn() {} +void do_aspawn() {} +void Perl_do_exec() {} + +#ifdef __MARM__ +/* Symbian forgot to include __fixunsdfi into the MARM euser.lib */ +/* This is from libgcc2.c , gcc-2.7.2.3 */ + +typedef unsigned int UQItype __attribute__ ((mode (QI))); +typedef int SItype __attribute__ ((mode (SI))); +typedef unsigned int USItype __attribute__ ((mode (SI))); +typedef int DItype __attribute__ ((mode (DI))); +typedef unsigned int UDItype __attribute__ ((mode (DI))); + +typedef float SFtype __attribute__ ((mode (SF))); +typedef float DFtype __attribute__ ((mode (DF))); + + + +extern DItype __fixunssfdi (SFtype a); +extern DItype __fixunsdfdi (DFtype a); + + +USItype +__fixunsdfsi (a) + DFtype a; +{ + if (a >= - (DFtype) (- 2147483647L -1) ) + return (SItype) (a + (- 2147483647L -1) ) - (- 2147483647L -1) ; + return (SItype) a; +} + +#endif -- cgit v1.2.1