1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
; Copyright (c) 1993-2008 by Richard Kelsey. See file COPYING.
; Code generation for primops.
(define-record-type c-primop :c-primop
(make-c-primop simple? generate)
c-primop?
(simple? c-primop-simple?)
(generate c-primop-generate))
(define (simple-c-primop? primop)
(c-primop-simple? (primop-code-data primop)))
(define (primop-generate-c primop call port indent)
((c-primop-generate (primop-code-data primop))
call port indent))
(define-syntax define-c-generator
(lambda (exp r$ c$)
(destructure (((ignore id simple? generate) exp))
`(set-primop-code-data!
(,(r$ 'get-prescheme-primop) ',id)
(,(r$ 'make-c-primop)
,simple?
,generate
)))))
|
