github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-14 07:30:21 +00:00
Code Issues Projects Releases Wiki Activity

Remove a dead store. (#431)

Browse Source
This commit is contained in:
Bruce Mitchener 2022-07-23 01:54:19 +07:00 committed by GitHub
parent 259658fa2c
commit 430da79e73
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/sxhash.c
View File

@ -65,13 +65,12 @@ LispPTR SX_hash(LispPTR object) {
static unsigned short sxhash(LispPTR obj) {
/* unsigned short hashOffset; Not Used */
unsigned int cell;
unsigned typen;
OneDArray *str;
switch (SEGMASK & obj) {
case S_POSITIVE:
case S_NEGATIVE: return (obj & 0xFFFF);
default:
switch (typen = GetTypeNumber(obj)) {
switch (GetTypeNumber(obj)) {
case TYPE_FIXP: return ((FIXP_VALUE(obj)) & 0xFFFF);
case TYPE_FLOATP:
cell = (unsigned int)FIXP_VALUE(obj);