From 3584f450567f48cf8c31382a35b9c5e91a9dd674 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sat, 6 Oct 2018 15:57:52 +0200 Subject: [PATCH] Revert "mescc: Make globals at least reg-size." This reverts commit 30544316c35ed4a2472f2029beb27e007d913792. --- module/mescc/compile.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/module/mescc/compile.scm b/module/mescc/compile.scm index bd2a0d3a..aefa580d 100644 --- a/module/mescc/compile.scm +++ b/module/mescc/compile.scm @@ -2151,8 +2151,7 @@ (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)))) @@ -2165,7 +2164,7 @@ (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)))))