| 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 | |