Changeset 13150 in project

Timestamp:

02/02/09 09:27:26 (11 years ago)

Author:

Kon Lovett

Message:

library.scm, c-platform.scm : C_pointerp -> C_anypointerp
lolevel.import.scm : added new procs
hash-table-tests.scm : added use of srfi-69 (worked because csi uses srfi-69)
runtests.sh : add lolevel test, no reading of .csirc

Location:

chicken/trunk

Files:

• c-platform.scm (modified) (1 diff)
• library.scm (modified) (1 diff)
• lolevel.import.scm (modified) (2 diffs)
• tests/hash-table-tests.scm (modified) (1 diff)
• tests/runtests.sh (modified) (2 diffs)

chicken/trunk/c-platform.scm

@@ -576 +576 @@
 (rewrite 'fixnum? 2 1 "C_fixnump" #t #f)
 (rewrite 'finite? 2 1 "C_i_finitep" #f #f)
-(rewrite '##sys#pointer? 2 1 "C_pointerp" #t #f)
+(rewrite '##sys#pointer? 2 1 "C_anypointerp" #t #f)
 (rewrite '##sys#generic-structure? 2 1 "C_structurep" #t #f)
 (rewrite 'exact? 2 1 "C_fixnump" #f #f)

chicken/trunk/library.scm

@@ -3797 +3797 @@
 (define ##sys#make-pointer (##core#primitive "C_make_pointer"))
 (define ##sys#make-tagged-pointer (##core#primitive "C_make_tagged_pointer"))
-(define (##sys#pointer? x) (##core#inline "C_pointerp" x))
+(define (##sys#pointer? x) (##core#inline "C_anypointerp" x))
 (define (##sys#set-pointer-address! ptr addr) (##core#inline "C_update_pointer" addr ptr))
 (define (##sys#bytevector? x) (##core#inline "C_bytevectorp" x))

chicken/trunk/lolevel.import.scm

@@ -62 +62 @@
    object-unevict
    pointer->address
+   pointer-like?
    pointer->object
    pointer-f32-ref
@@ -86 +87 @@
    record->vector
    record-instance?
+   record-instance-length
+   record-instance-slot
+   record-instance-slot-set!
+   record-instance-type
    set-invalid-procedure-call-handler!
    set-procedure-data!
    tag-pointer
    tagged-pointer?
-   unbound-variable-value))
+   unbound-variable-value
+   vector-like?))

chicken/trunk/tests/hash-table-tests.scm

@@ -1 +1 @@
 ;;;; hash-table-tests.scm
+
+(require-extension srfi-69)
 
 (print "SRFI 69 procedures")

chicken/trunk/tests/runtests.sh

@@ -8 +8 @@
 compile="../csc -compiler ../chicken -v -I.. -L.. -include-path .. -o a.out"
 compile_s="../csc -s -compiler ../chicken -v -I.. -L.. -include-path .."
-interpret="../csi -include-path .."
+interpret="../csi -n -include-path .."
 
 echo "======================================== compiler tests ..."
@@ -80 +80 @@
 $interpret -s hash-table-tests.scm
 
+echo "======================================== lolevel tests ..."
+$interpret -s lolevel-tests.scm
+
 echo "======================================== port tests ..."
 $interpret -s port-tests.scm