Changeset 38763 in project
- Timestamp:
- 06/21/20 20:31:14 (7 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/5/coops-utils/trunk/object-uword-ref.scm
r38400 r38763 14 14 (pointer-u64-ref ?ptr) ) ) ) ) ) 15 15 (else 16 (define-constant C_UWORD_SIZE 4) 17 (define-syntax pointer-uword-ref 18 (syntax-rules () 19 ((pointer-uword-ref ?ptr ?idx) 20 (pointer-u32-ref ?ptr) ) ) ) ) ) 16 (begin 17 (define-constant C_UWORD_SIZE 4) 18 (define-syntax pointer-uword-ref 19 (syntax-rules () 20 ((pointer-uword-ref ?ptr ?idx) 21 (pointer-u32-ref ?ptr) ) ) ) ) ) ) 21 22 22 23 (define-inline (object-uword-ref proc #!optional (idx 0))
Note: See TracChangeset
for help on using the changeset viewer.