diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-04-21 03:42:21 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-04-21 03:42:21 +0000 |
| commit | e3b8966e2a0e0357b86674327ee528dbb5f122a6 (patch) | |
| tree | ea57e05a591964f3904bd50af9c6059668286fc1 /perl.h | |
| parent | 3dfd1da1ac911ed5d5b4e3956b485ad9af14a10f (diff) | |
| download | perl-e3b8966e2a0e0357b86674327ee528dbb5f122a6.tar.gz | |
[asperl] add AS patch#17
p4raw-id: //depot/asperl@893
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 13 |
1 files changed, 10 insertions, 3 deletions
@@ -104,11 +104,12 @@ class CPerlObj; #define STATIC #define CPERLscope(x) CPerlObj::x #define CPERLproto CPerlObj * -#define CPERLproto_ CPERLproto, +#define _CPERLproto ,CPERLproto #define CPERLarg CPerlObj *pPerl #define CPERLarg_ CPERLarg, +#define _CPERLarg ,CPERLarg #define THIS this -#define THIS_ this, +#define _THIS ,this #define CALLRUNOPS (this->*runops) #else /* !PERL_OBJECT */ @@ -116,10 +117,12 @@ class CPerlObj; #define STATIC static #define CPERLscope(x) x #define CPERLproto -#define CPERLproto_ +#define _CPERLproto #define CPERLarg void #define CPERLarg_ +#define _CPERLarg #define THIS +#define _THIS #define THIS_ #define CALLRUNOPS runops @@ -1195,6 +1198,10 @@ union any { IV any_iv; long any_long; void (CPERLscope(*any_dptr)) _((void*)); +#if defined(WIN32) && !defined(PERL_OBJECT) + /* Visual C thinks that a pointer to a member variable is 16 bytes in size. */ + char handle_VC_problem[16]; +#endif }; #ifdef USE_THREADS |