scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Simplification for s48_extract_unsigned_integer.

This commit is contained in:
mainzelm 2001-06-21 13:44:29 +00:00
parent 7906942942
commit 19ed629222
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
c/external.c
View File

@ -835,7 +835,7 @@ s48_extract_unsigned_integer(s48_value value)
(! S48_FIXNUM_P(boxed_high)) || (! S48_FIXNUM_P(boxed_high)) ||
(high > 0xFFFF)) (high > 0xFFFF))
s48_raise_argtype_error(value); s48_raise_argtype_error(value);
else return (- (((- high) << 16) - low)); else return ((((unsigned long) high) << 16) + low);
} }
} }
} }