diff options
Diffstat (limited to 'beos')
| -rw-r--r-- | beos/beos.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/beos/beos.c b/beos/beos.c index d5f7fbab48..7e799caf54 100644 --- a/beos/beos.c +++ b/beos/beos.c @@ -5,14 +5,16 @@ #include <sys/wait.h> /* In BeOS 5.0 the waitpid() seems to misbehave in that the status - * is _not_ shifted left by eight (multiplied by 256), as it is in - * POSIX/UNIX. To undo the surpise effect to the rest of Perl we - * need this wrapper. (The rest of BeOS might be surprised because - * of this, though.) */ + * has the upper and lower bytes swapped compared with the usual + * POSIX/UNIX implementations. To undo the surpise effect to the + * rest of Perl we need this wrapper. (The rest of BeOS might be + * surprised because of this, though.) */ pid_t beos_waitpid(pid_t process_id, int *status_location, int options) { pid_t got = waitpid(process_id, status_location, options); if (status_location) - *status_location <<= 8; /* What about the POSIX low bits? */ + *status_location = + (*status_location & 0x00FF) << 8 | + (*status_location & 0xFF00) >> 8; return got; } |