Prepare portable hash numbers (bootstrap)

manuel-serrano · Aug 1, 2024 · d21c693 · d21c693
1 parent d384f3b
commit d21c693
Show file tree

Hide file tree

Showing 2 changed files with 34 additions and 2 deletions.
diff --git a/runtime/Llib/hash-generic.sch b/runtime/Llib/hash-generic.sch
@@ -0,0 +1,28 @@
+;*=====================================================================*/
+;*    .../prgm/project/bigloo/bigloo/runtime/Llib/hash-generic.sch     */
+;*    -------------------------------------------------------------    */
+;*    Author      :  Manuel Serrano                                    */
+;*    Creation    :  Tue Jul  9 13:49:25 2024                          */
+;*    Last change :  Thu Aug  1 14:44:46 2024 (serrano)                */
+;*    Copyright   :  2024 Manuel Serrano                               */
+;*    -------------------------------------------------------------    */
+;*    Generic portable hash implementation.                            */
+;*=====================================================================*/
+
+;*---------------------------------------------------------------------*/
+;*    The directives                                                   */
+;*---------------------------------------------------------------------*/
+(directives
+   (export (bgl_obj_hash_number::long ::obj))
+   (extern (export bgl_obj_hash_number "bgl_obj_hash_number")))
+
+;*---------------------------------------------------------------------*/
+;*    bgl_obj_hash_number ...                                          */
+;*---------------------------------------------------------------------*/
+(define (bgl_obj_hash_number obj)
+   (cond
+      ((vector? obj) 17)
+      ((object? obj) 27)
+      (else 23)))
+
+
diff --git a/runtime/Llib/hash.scm b/runtime/Llib/hash.scm
@@ -1,9 +1,9 @@
 ;*=====================================================================*/
-;*    serrano/prgm/project/bigloo/bigloo/hash-bad.scm                  */
+;*    serrano/prgm/project/bigloo/bigloo/runtime/Llib/hash.scm         */
 ;*    -------------------------------------------------------------    */
 ;*    Author      :  Manuel Serrano                                    */
 ;*    Creation    :  Thu Sep  1 08:51:06 1994                          */
-;*    Last change :  Fri Jun  2 08:14:11 2023 (serrano)                */
+;*    Last change :  Thu Aug  1 14:40:09 2024 (serrano)                */
 ;*    -------------------------------------------------------------    */
 ;*    The hash tables.                                                 */
 ;*    -------------------------------------------------------------    */
@@ -17,6 +17,10 @@
 ;*---------------------------------------------------------------------*/
 (module __hash
 
+   (cond-expand
+      ((and (not bigloo-c) (not bigloo-jvm))
+       (include "Llib/hash-generic.sch")))
+
    (import  __error
 	    __r4_symbols_6_4
 	    __param