diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-03-27 04:46:23 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-03-27 04:46:23 +0000 |
| commit | 0f85fab05fafa513bd55a9e1ab280aac5567e27a (patch) | |
| tree | 104b9667181305a6dce5f73bb4d23518f8ba0b2e /stab.c | |
| parent | b1248f16cd8cccfb12ae16cd8e7e93dd53dc52bf (diff) | |
| download | perl-0f85fab05fafa513bd55a9e1ab280aac5567e27a.tar.gz | |
perl 3.0 patch #18 patch #16, continued
See patch #16.
Diffstat (limited to 'stab.c')
| -rw-r--r-- | stab.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -1,4 +1,4 @@ -/* $Header: stab.c,v 3.0.1.5 90/03/12 17:00:11 lwall Locked $ +/* $Header: stab.c,v 3.0.1.6 90/03/27 16:22:11 lwall Locked $ * * Copyright (c) 1989, Larry Wall * @@ -6,6 +6,9 @@ * as specified in the README file that comes with the perl 3.0 kit. * * $Log: stab.c,v $ + * Revision 3.0.1.6 90/03/27 16:22:11 lwall + * patch16: support for machines that can't cast negative floats to unsigned ints + * * Revision 3.0.1.5 90/03/12 17:00:11 lwall * patch13: undef $/ didn't work as advertised * @@ -342,7 +345,7 @@ STR *str; arybase = (int)str_gnum(str); break; case '?': - statusvalue = (unsigned short)str_gnum(str); + statusvalue = U_S(str_gnum(str)); break; case '!': errno = (int)str_gnum(str); /* will anyone ever use this? */ |