diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2005-04-18 16:18:30 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-04-21 15:38:30 +0000 |
| commit | 27da23d53ccce622bc51822f59df8def79b4df95 (patch) | |
| tree | 1202440e0fbf7a2fc1bb54993d11cda7b245f1b4 /symbian/symbian_dll.cpp | |
| parent | ec0624293b57ae07d6b2c32bae099d4f163e7e07 (diff) | |
| download | perl-27da23d53ccce622bc51822f59df8def79b4df95.tar.gz | |
Symbian port of Perl
Message-ID: <B356D8F434D20B40A8CEDAEC305A1F2453D653@esebe105.NOE.Nokia.com>
p4raw-id: //depot/perl@24271
Diffstat (limited to 'symbian/symbian_dll.cpp')
| -rw-r--r-- | symbian/symbian_dll.cpp | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/symbian/symbian_dll.cpp b/symbian/symbian_dll.cpp new file mode 100644 index 0000000000..92a06b883f --- /dev/null +++ b/symbian/symbian_dll.cpp @@ -0,0 +1,20 @@ +/* + * symbian_dll.cpp + * + * Copyright (c) Nokia 2004-2005. All rights reserved. + * This code is licensed under the same terms as Perl itself. + * + */ + +#define SYMBIAN_DLL_CPP +#include <e32base.h> +#include "PerlBase.h" + +EXPORT_C GLDEF_C TInt E32Dll(TDllReason /*aReason*/) { return KErrNone; } + +extern "C" { + EXPORT_C void* symbian_get_vars(void) { return Dll::Tls(); } + EXPORT_C void symbian_set_vars(const void *p) { Dll::SetTls((TAny*)p); } + EXPORT_C void symbian_unset_vars(void) { Dll::SetTls(0); } +} + |