Changeset 13150 in project
- Timestamp:
- 02/02/09 09:27:26 (12 years ago)
- Location:
- chicken/trunk
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/c-platform.scm
r12937 r13150 576 576 (rewrite 'fixnum? 2 1 "C_fixnump" #t #f) 577 577 (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) 579 579 (rewrite '##sys#generic-structure? 2 1 "C_structurep" #t #f) 580 580 (rewrite 'exact? 2 1 "C_fixnump" #f #f) -
chicken/trunk/library.scm
r13140 r13150 3797 3797 (define ##sys#make-pointer (##core#primitive "C_make_pointer")) 3798 3798 (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)) 3800 3800 (define (##sys#set-pointer-address! ptr addr) (##core#inline "C_update_pointer" addr ptr)) 3801 3801 (define (##sys#bytevector? x) (##core#inline "C_bytevectorp" x)) -
chicken/trunk/lolevel.import.scm
r12937 r13150 62 62 object-unevict 63 63 pointer->address 64 pointer-like? 64 65 pointer->object 65 66 pointer-f32-ref … … 86 87 record->vector 87 88 record-instance? 89 record-instance-length 90 record-instance-slot 91 record-instance-slot-set! 92 record-instance-type 88 93 set-invalid-procedure-call-handler! 89 94 set-procedure-data! 90 95 tag-pointer 91 96 tagged-pointer? 92 unbound-variable-value)) 97 unbound-variable-value 98 vector-like?)) -
chicken/trunk/tests/hash-table-tests.scm
r8506 r13150 1 1 ;;;; hash-table-tests.scm 2 3 (require-extension srfi-69) 2 4 3 5 (print "SRFI 69 procedures") -
chicken/trunk/tests/runtests.sh
r13081 r13150 8 8 compile="../csc -compiler ../chicken -v -I.. -L.. -include-path .. -o a.out" 9 9 compile_s="../csc -s -compiler ../chicken -v -I.. -L.. -include-path .." 10 interpret="../csi - include-path .."10 interpret="../csi -n -include-path .." 11 11 12 12 echo "======================================== compiler tests ..." … … 80 80 $interpret -s hash-table-tests.scm 81 81 82 echo "======================================== lolevel tests ..." 83 $interpret -s lolevel-tests.scm 84 82 85 echo "======================================== port tests ..." 83 86 $interpret -s port-tests.scm
Note: See TracChangeset
for help on using the changeset viewer.