; Copyright (c) 1994 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
	 )))))