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 extern "C" {
  14     EXPORT_C void* symbian_get_vars(void)          { return Dll::Tls(); }
  15     EXPORT_C void  symbian_set_vars(const void *p) { Dll::SetTls((TAny*)p); }
  16     EXPORT_C void  symbian_unset_vars(void)        { Dll::SetTls(0); }
  17 }
  18