X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=symbian%2FPerlBase.h;h=a2dbcf6212fbe7eab8a4df2aab9da652a8f3d053;hb=cbec8ebe2f7855c619451e56c6921e1537d3eba5;hp=f6765fbed2447ab1f89c17ad7299ad67bd5e8469;hpb=27da23d53ccce622bc51822f59df8def79b4df95;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/symbian/PerlBase.h b/symbian/PerlBase.h
index f6765fb..a2dbcf6 100644
--- a/symbian/PerlBase.h
+++ b/symbian/PerlBase.h
@@ -47,7 +47,7 @@ class CPerlBase : public CBase
   public:
     CPerlBase();
     IMPORT_C virtual ~CPerlBase();
-    IMPORT_C static CPerlBase* NewInterpreterL(TBool iCloseStdlib = ETrue,
+    IMPORT_C static CPerlBase* NewInterpreterL(TBool aCloseStdlib = ETrue,
                                                void (*aStdioInitFunc)(void*) = NULL,
                                                void *aStdioInitCookie = NULL);
     IMPORT_C static CPerlBase* NewInterpreterLC(TBool iCloseStdlib = ETrue,
@@ -84,7 +84,6 @@ class CPerlBase : public CBase
     TPerlState        iState;
 
    private:
- 
     void              ConstructL();
     CConsoleBase*     iConsole;		/* The screen. */
     TUint16*          iConsoleBuffer;	/* The UTF-16 characters. */
@@ -114,5 +113,12 @@ class CPerlBase : public CBase
 #define PerlCopyD(s,d,n,t)	(MEM_WRAP_CHECK(n,t), memcpy((char*)(d),(char*)(s), (n) * sizeof(t)))
 #define PerlNew(x,v,n,t)	(v = (MEM_WRAP_CHECK(n,t), (t*)safemalloc((MEM_SIZE)((n)*sizeof(t)))))
 
+// This is like the Symbian _LIT() but without the embedded L prefix,
+// which enables using #defined constants (which need to carry their
+// own L prefix).
+#ifndef _LIT_NO_L
+# define _LIT_NO_L(n, s) static const TLitC<sizeof(s)/2> n={sizeof(s)/2-1,s}
+#endif // #ifndef _LIT_NO_L
+
 #endif /* #ifndef __PerlBase_h__ */