artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mescc: Tinycc support: uniquify strings per compilation unit.

Browse source 
* module/mes/M1.mes (object->M1): Add file-name to string id.
This commit is contained in:
Jan Nieuwenhuizen 2017-07-29 09:08:44 +02:00
parent 683d5bf1d2
commit f1d9a7a42c
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
module/mes/M1.mes
View file

@ -87,12 +87,13 @@
(define (object->M1 o)
(let* ((functions (assoc-ref o 'functions))
(function-names (map car functions))
(file-name (car (or (assoc-ref o 'file-names) function-names)))
(globals (assoc-ref o 'globals))
(global-names (map car globals))
(strings (filter (lambda (g) (and (pair? g) (eq? (car g) #:string))) global-names)))
(define (string->label o)
(let ((index (list-index (lambda (s) (equal? s o)) strings)))
(format #f "string_~a" index)))
(format #f "string_~a_~a" file-name index)))
(define (text->M1 o)
(pmatch o
;; FIXME