diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2001-06-17 17:21:04 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-18 00:56:22 +0000 |
| commit | 4efcf9a278914cf1f0f9645a75b0f15d59f42f68 (patch) | |
| tree | cab157f0b13d8d99b89a5665f693065b63c100f6 | |
| parent | 0fcb073ca17b7658c8a82f28d44643e63d8c0a69 (diff) | |
| download | perl-4efcf9a278914cf1f0f9645a75b0f15d59f42f68.tar.gz | |
Re: anyone good at casting spells?
Message-Id: <200106180121.VAA10195@Orb.Nashua.NH.US>
p4raw-id: //depot/perl@10674
| -rw-r--r-- | ext/POSIX/POSIX.xs | 10 | ||||
| -rw-r--r-- | hv.h | 2 |
2 files changed, 7 insertions, 5 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index c2e9852494..49ea57e9dc 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -4,10 +4,12 @@ #ifdef NETWARE #define _POSIX_ - //Ideally this should be somewhere down in the includes - //but putting it in other places is giving compiler errors. - //Also here I am unable to check for HAS_UNAME since it wouldn't have yet - //come into the file at this stage - sgp 18th Oct 2000 + /* + * Ideally this should be somewhere down in the includes + * but putting it in other places is giving compiler errors. + * Also here I am unable to check for HAS_UNAME since it wouldn't have + * yet come into the file at this stage - sgp 18th Oct 2000 + */ #include <sys/utsname.h> #endif /* NETWARE */ @@ -123,7 +123,7 @@ C<SV*>. #define Nullhv Null(HV*) -#define HvARRAY(hv) ((HE**)((XPVHV*) SvANY(hv))->xhv_array) +#define HvARRAY(hv) (*(HE***)&((XPVHV*) SvANY(hv))->xhv_array) #define HvFILL(hv) ((XPVHV*) SvANY(hv))->xhv_fill #define HvMAX(hv) ((XPVHV*) SvANY(hv))->xhv_max #define HvKEYS(hv) ((XPVHV*) SvANY(hv))->xhv_keys |