shithub: fnt

Info  •  Files  •  Log  •  Branches

don't try to parse unused fixed arrays

--- a/otf.rkt

+++ b/otf.rkt

@@ -161,8 +161,10 @@

               (if index empty (~a "if(skip_bytes(ctx, " (size (field-type f)) ") < 0){")))]

          [count

           #:when (and (number? (cadr count)) (type? (field-type f)))

-          (list (~a "for(int i = 0; i < " (cadr count) "; i++)")

-                (~a "\t" ref "[i] = " ((type-parse (field-type f)) b index "i") ";"))]

+          (if (field-unused? f)

+              empty

+              (list (~a "for(int i = 0; i < " (cadr count) "; i++)")

+                    (~a "\t" ref "[i] = " ((type-parse (field-type f)) b index "i") ";")))]

          [count

           (~a "if(ctxarray(ctx, &"

               ref