diff options
| author | Quentin Carbonneaux <quentin.carbonneaux@yale.edu> | 2016-03-18 14:44:20 -0400 |
|---|---|---|
| committer | Quentin Carbonneaux <quentin.carbonneaux@yale.edu> | 2016-03-18 15:15:02 -0400 |
| commit | b19b9a27a0efa7d46eda31d0bb81ade955d80e99 (patch) | |
| tree | 49b75edf977ea10135e7d1f7f840fa1c96a0b8ab /lisc/parse.c | |
| parent | d1c6c305f7244775541c3ba6e0422e9a0bb5d521 (diff) | |
| download | roux-b19b9a27a0efa7d46eda31d0bb81ade955d80e99.tar.gz | |
handle padding correctly in types
Diffstat (limited to 'lisc/parse.c')
| -rw-r--r-- | lisc/parse.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisc/parse.c b/lisc/parse.c index 43787c2..bf509d1 100644 --- a/lisc/parse.c +++ b/lisc/parse.c @@ -745,7 +745,7 @@ parsetyp() a = s - a; if (++n < NSeg) { /* padding segment */ - ty->seg[n].flt = 0; + ty->seg[n].ispad = 1; ty->seg[n].len = a; } } @@ -757,7 +757,8 @@ parsetyp() c = 1; while (c-- > 0) { if (++n < NSeg) { - ty->seg[n].flt = flt; + ty->seg[n].isflt = flt; + ty->seg[n].ispad = 0; ty->seg[n].len = s; } sz += a + s; |