Move XSLoader from ext/ to dist/
[perl.git] / symbian / symbian_dll.cpp
1 /*
2  *      symbian_dll.cpp
3  *
4  *      Copyright (c) Nokia 2004-2005.  All rights reserved.
5  *      This code is licensed under the same terms as Perl itself.
6  *
7  */
8
9 #define SYMBIAN_DLL_CPP
10 #include <e32base.h>
11 #include "PerlBase.h"
12
13 #ifdef __SERIES60_3X__ 
14 EXPORT_C GLDEF_C TInt E32Dll(/*TDllReason aReason*/) { return KErrNone; }
15 #else
16 EXPORT_C GLDEF_C TInt E32Dll(TDllReason /*aReason*/) { return KErrNone; }
17 #endif
18
19 extern "C" {
20     EXPORT_C void* symbian_get_vars(void)          { return Dll::Tls(); }
21     EXPORT_C void  symbian_set_vars(const void *p) { Dll::SetTls((TAny*)p); }
22     EXPORT_C void  symbian_unset_vars(void)        { Dll::SetTls(0); }
23 }
24