mescc: Rename expr->accu*.
authorJan Nieuwenhuizen <janneke@gnu.org>
Thu, 2 Mar 2017 05:41:19 +0000 (06:41 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Thu, 2 Mar 2017 05:41:19 +0000 (06:41 +0100)
* module/language/c99/compiler.mes (expr->accu*): Rename from expr->accuX.

module/language/c99/compiler.mes

index edca76e1837a634db43f7e54a68d837b4b607cbf..0e3022eb7bb01390636088743012c74e9eea9473 100644 (file)
                               (i386:accu->base)
                               (i386:pop-accu)))))))))
 
-(define (expr->Xaccu info)
+(define (expr->accu* info)
   (lambda (o)
     (pmatch o
       ;; g_cells[10].type
                                 (i386:accu+value offset)))))))
 
       (_
-       (format (current-error-port) "SKIP: expr->Xaccu=~s\n" o)
+       (format (current-error-port) "SKIP: expr->accu*=~s\n" o)
        barf
        info)
       )))
            (stderr "OOOPS0: op=~s\n" op)
            barf)
          (let* ((empty (clone info #:text '()))
-                (expr ((expr->Xaccu empty) `(d-sel (ident ,field) ,@d-sel))) ;; <-OFFSET
+                (expr ((expr->accu* empty) `(d-sel (ident ,field) ,@d-sel))) ;; <-OFFSET
                 (base ((expr->base empty) b))
                 (type (list "struct" "scm")) ;; FIXME
                 (fields (type->description info type))