mescc: Remove dead code. Thanks Mark Weaver.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 7 Sep 2019 14:17:03 +0000 (16:17 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 9 Sep 2019 14:04:16 +0000 (16:04 +0200)
* module/mescc/compile.scm (field-size): Remove dead function.

module/mescc/compile.scm

index ba6900a851d567ab7ce2b468774d9e37a1a66dba..326dbbf929fbdf80fe7abcbad453a4681c26d3c0 100644 (file)
   (let ((field (field-field info struct field)))
     (field:pointer field)))
 
   (let ((field (field-field info struct field)))
     (field:pointer field)))
 
-(define (field-size info struct field)
-  (if (eq? (type:type struct) 'union) 0
-      (let ((field (field-field info struct field)))
-        (field:size field info))))
-
 (define (field-size info struct field)
   (let ((field (field-field info struct field)))
     (field:size field info)))
 (define (field-size info struct field)
   (let ((field (field-field info struct field)))
     (field:size field info)))