gsc/_codegen.scm

   1 ;;;============================================================================
   2
   3 ;;; File: "_codegen.scm"
   4
   5 ;;; Copyright (c) 2010-2012 by Marc Feeley, All Rights Reserved.
   6
   7 ;;;============================================================================
   8
   9 ;;; This module implements the code generation infrastructure.
  10
  11 (namespace ("_codegen#") ("" include))
  12 (include "~~lib/gambit#.scm")
  13
  14 (include "_asm#.scm")
  15 (include "_codegen#.scm")
  16
  17 (codegen-implement)
  18
  19 ;;;============================================================================
  20
  21 (define (make-codegen-context)
  22   (let ((cgc (make-vector (+ (asm-code-block-size) 3) 'codegen-context)))
  23     (codegen-context-listing-format-set! cgc #f)
  24     (codegen-context-arch-set!           cgc #f)
  25     (codegen-context-fixup-list-set!     cgc '())
  26     cgc))
  27
  28 (define (codegen-context-listing-format cgc)
  29   (vector-ref cgc (+ (asm-code-block-size) 0)))
  30
  31 (define (codegen-context-listing-format-set! cgc x)
  32   (vector-set! cgc (+ (asm-code-block-size) 0) x))
  33
  34 (define (codegen-context-arch cgc)
  35   (vector-ref cgc (+ (asm-code-block-size) 1)))
  36
  37 (define (codegen-context-arch-set! cgc x)
  38   (vector-set! cgc (+ (asm-code-block-size) 1) x))
  39
  40 (define (codegen-context-fixup-list cgc)
  41   (vector-ref cgc (+ (asm-code-block-size) 2)))
  42
  43 (define (codegen-context-fixup-list-set! cgc x)
  44   (vector-set! cgc (+ (asm-code-block-size) 2) x))
  45
  46 ;;;============================================================================