Changeset 13150 in project for chicken


Ignore:
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:
5 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/c-platform.scm

    r12937 r13150  
    576576(rewrite 'fixnum? 2 1 "C_fixnump" #t #f)
    577577(rewrite 'finite? 2 1 "C_i_finitep" #f #f)
    578 (rewrite '##sys#pointer? 2 1 "C_pointerp" #t #f)
     578(rewrite '##sys#pointer? 2 1 "C_anypointerp" #t #f)
    579579(rewrite '##sys#generic-structure? 2 1 "C_structurep" #t #f)
    580580(rewrite 'exact? 2 1 "C_fixnump" #f #f)
  • chicken/trunk/library.scm

    r13140 r13150  
    37973797(define ##sys#make-pointer (##core#primitive "C_make_pointer"))
    37983798(define ##sys#make-tagged-pointer (##core#primitive "C_make_tagged_pointer"))
    3799 (define (##sys#pointer? x) (##core#inline "C_pointerp" x))
     3799(define (##sys#pointer? x) (##core#inline "C_anypointerp" x))
    38003800(define (##sys#set-pointer-address! ptr addr) (##core#inline "C_update_pointer" addr ptr))
    38013801(define (##sys#bytevector? x) (##core#inline "C_bytevectorp" x))
  • chicken/trunk/lolevel.import.scm

    r12937 r13150  
    6262   object-unevict
    6363   pointer->address
     64   pointer-like?
    6465   pointer->object
    6566   pointer-f32-ref
     
    8687   record->vector
    8788   record-instance?
     89   record-instance-length
     90   record-instance-slot
     91   record-instance-slot-set!
     92   record-instance-type
    8893   set-invalid-procedure-call-handler!
    8994   set-procedure-data!
    9095   tag-pointer
    9196   tagged-pointer?
    92    unbound-variable-value))
     97   unbound-variable-value
     98   vector-like?))
  • chicken/trunk/tests/hash-table-tests.scm

    r8506 r13150  
    11;;;; hash-table-tests.scm
     2
     3(require-extension srfi-69)
    24
    35(print "SRFI 69 procedures")
  • chicken/trunk/tests/runtests.sh

    r13081 r13150  
    88compile="../csc -compiler ../chicken -v -I.. -L.. -include-path .. -o a.out"
    99compile_s="../csc -s -compiler ../chicken -v -I.. -L.. -include-path .."
    10 interpret="../csi -include-path .."
     10interpret="../csi -n -include-path .."
    1111
    1212echo "======================================== compiler tests ..."
     
    8080$interpret -s hash-table-tests.scm
    8181
     82echo "======================================== lolevel tests ..."
     83$interpret -s lolevel-tests.scm
     84
    8285echo "======================================== port tests ..."
    8386$interpret -s port-tests.scm
Note: See TracChangeset for help on using the changeset viewer.