Revert "mescc: Make globals at least reg-size."
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 6 Oct 2018 13:57:52 +0000 (15:57 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 6 Oct 2018 13:57:52 +0000 (15:57 +0200)
This reverts commit 30544316c35ed4a2472f2029beb27e007d913792.

module/mescc/compile.scm

index bd2a0d3a8772e87f5ab3083fcd5aa941bdef3467..aefa580d2e68f91e0f0ff23964601842dd3b0e21 100644 (file)
 (define (global->info type name o init info)
   (let* ((rank (->rank type))
          (size (->size type info))
-         (reg-size (->size "*" info))
-         (data (cond ((not init) (string->list (make-string (max size reg-size) #\nul)))
+         (data (cond ((not init) (string->list (make-string size #\nul)))
                      ((c-array? type)
                       (let* ((string (array-init->string init))
                              (size (or (and string (max size (1+ (string-length string))))
                         (append data (string->list (make-string (max 0 (- size (length data))) #\nul)))))
                      (else
                       (let ((data (init->data type init info)))
-                        (append data (string->list (make-string (max 0 (- (max size reg-size) (length data))) #\nul)))))))
+                        (append data (string->list (make-string (max 0 (- size (length data))) #\nul)))))))
          (global (make-global-entry name type data)))
     (clone info #:globals (append (.globals info) (list global)))))