diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-17 01:10:54 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-17 01:10:54 +0000 |
| commit | d9f975991d53b93e15d703c5e48ae9aea5162637 (patch) | |
| tree | dd1d9b7620f3ee9a37e547299d2cc978c5114674 /bytecode.h | |
| parent | ac4c12e7aee90d31d5da776601addbfd9d738a5a (diff) | |
| download | perl-d9f975991d53b93e15d703c5e48ae9aea5162637.tar.gz | |
[asperl] add a part of AS patch#14, backout incomplete variable
name changes for gcc. Builds and tests under VC/BC once again.
p4raw-id: //depot/asperl@830
Diffstat (limited to 'bytecode.h')
| -rw-r--r-- | bytecode.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/bytecode.h b/bytecode.h index 92c124dc06..0239866d0a 100644 --- a/bytecode.h +++ b/bytecode.h @@ -28,11 +28,11 @@ EXT I32 obj_list_fill INIT(-1); #endif /* INDIRECT_BGET_MACROS */ #define BGET_U32(arg) \ - BGET_FREAD(&arg, sizeof(U32), 1); arg = ntohl((U32)arg) + BGET_FREAD(&arg, sizeof(U32), 1); arg = PerlSock_ntohl((U32)arg) #define BGET_I32(arg) \ - BGET_FREAD(&arg, sizeof(I32), 1); arg = (I32)ntohl((U32)arg) + BGET_FREAD(&arg, sizeof(I32), 1); arg = (I32)PerlSock_ntohl((U32)arg) #define BGET_U16(arg) \ - BGET_FREAD(&arg, sizeof(U16), 1); arg = ntohs((U16)arg) + BGET_FREAD(&arg, sizeof(U16), 1); arg = PerlSock_ntohs((U16)arg) #define BGET_U8(arg) arg = BGET_FGETC() #if INDIRECT_BGET_MACROS @@ -92,7 +92,7 @@ EXT I32 obj_list_fill INIT(-1); New(666, ary, 256, unsigned short); \ BGET_FREAD(ary, 256, 2); \ for (i = 0; i < 256; i++) \ - ary[i] = ntohs(ary[i]); \ + ary[i] = PerlSock_ntohs(ary[i]); \ arg = (char *) ary; \ } while (0) |