diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-06-24 14:55:09 +0300 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-28 19:10:53 +0000 |
| commit | d4217c7e457268e98e8711256888e15d5de11f46 (patch) | |
| tree | 61036003e5a7a212f46ae895c840c6dc2622c88f /pp.c | |
| parent | 219f41b1f58fd8a7ef20820f0e89c56470f7a6f4 (diff) | |
| download | perl-d4217c7e457268e98e8711256888e15d5de11f46.tar.gz | |
fixes unpack("q"...), and semctl() tests for UNICOS
Message-Id: <199806240855.LAA16152@alpha.hut.fi>
Subject: [PATCH] 5.004_68: semctl() in UNICOS (was: pack/unpack)
p4raw-id: //depot/perl@1233
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -3448,6 +3448,9 @@ PP(pp_unpack) break; #ifdef HAS_QUAD case 'q': + along = (strend - s) / sizeof(Quad_t); + if (len > along) + len = along; EXTEND(SP, len); EXTEND_MORTAL(len); while (len-- > 0) { @@ -3466,6 +3469,9 @@ PP(pp_unpack) } break; case 'Q': + along = (strend - s) / sizeof(Quad_t); + if (len > along) + len = along; EXTEND(SP, len); EXTEND_MORTAL(len); while (len-- > 0) { |