github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-04-26 04:17:27 +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
1 changed files with 1 additions and 2 deletions
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) { static unsigned short sxhash(LispPTR obj) {
/* unsigned short hashOffset; Not Used */ /* unsigned short hashOffset; Not Used */
unsigned int cell; unsigned int cell;
unsigned typen;
OneDArray *str; OneDArray *str;
switch (SEGMASK & obj) { switch (SEGMASK & obj) {
case S_POSITIVE: case S_POSITIVE:
case S_NEGATIVE: return (obj & 0xFFFF); case S_NEGATIVE: return (obj & 0xFFFF);
default: default:
switch (typen = GetTypeNumber(obj)) { switch (GetTypeNumber(obj)) {
case TYPE_FIXP: return ((FIXP_VALUE(obj)) & 0xFFFF); case TYPE_FIXP: return ((FIXP_VALUE(obj)) & 0xFFFF);
case TYPE_FLOATP: case TYPE_FLOATP:
cell = (unsigned int)FIXP_VALUE(obj); cell = (unsigned int)FIXP_VALUE(obj);