diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-12-01 02:54:29 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-12-01 02:54:29 +0000 |
| commit | 22239a37ce131e4f5341aee571f08aced283e16a (patch) | |
| tree | 8f7f8e19354cc72b2f70b0f4bee40968a002c92b /proto.h | |
| parent | 36c15d3fd87bb94724027176c49a6c0afbc14dc9 (diff) | |
| download | perl-22239a37ce131e4f5341aee571f08aced283e16a.tar.gz | |
Create a struct for all perls globals (as an option)
Mainly for Mingw32 which cannot import data.
Now only Opcode tests fail (op_desc/op_name not
handled yet stuff)
p4raw-id: //depot/ansiperl@341
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -1,3 +1,5 @@ +START_EXTERN_C + #ifndef NEXT30_NO_ATTRIBUTE #ifndef HASATTRIBUTE /* disable GNU-cc attribute checking? */ #ifdef __attribute__ /* Avoid possible redefinition errors */ @@ -581,3 +583,9 @@ Malloc_t safexcalloc _((I32 x, MEM_SIZE elements, MEM_SIZE size)); Malloc_t safexrealloc _((Malloc_t where, MEM_SIZE size)); void safexfree _((Malloc_t where)); #endif + +#ifdef PERL_GLOBAL_STRUCT +struct perl_vars *Perl_GetVars _((void)); +#endif + +END_EXTERN_C |