scratch/igc 3084e092bd9 1/2: [MPS] Fix assertion violation crash in weak hash table code

[Pip Cet]

branch: scratch/igc
commit 3084e092bd98d51f0ebee8a56414dad98ed58210
Author: Pip Cet <pipcet@protonmail.com>
Commit: Pip Cet <pipcet@protonmail.com>

    [MPS] Fix assertion violation crash in weak hash table code
    
    * src/igc.c (weak_hash_table_entry): Cast to EMACS_INT so the sign bit
    is correct.
---
 src/igc.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/igc.c b/src/igc.c
index 3dc440def62..7db6de6d7f7 100644
--- a/src/igc.c
+++ b/src/igc.c
@@ -4108,7 +4108,7 @@ weak_hash_table_entry (struct Lisp_Weak_Hash_Table_Entry 
entry)
     case Lisp_Symbol:
       return make_lisp_symbol (client);
     case_Lisp_Int:
-      return make_fixnum (entry.intptr >> 1);
+      return make_fixnum ((EMACS_INT)entry.intptr >> 1);
     default:
       return make_lisp_ptr (client, XFIXNUM (entry.fixnum));
     }