From 9b4b7d2b09196383c51e977c09feac859cca58df Mon Sep 17 00:00:00 2001
From: Quietust <quietust@gmail.com>
Date: Fri, 25 Sep 2020 07:20:00 -0600
Subject: [PATCH] Various fixes to codegen_c_hdr.pl for #12

* Fix size of std::fstream on 64-bit Windows
* Remove "pad" from 32-bit Windows std::vector
* Apply proper name to Destructor vmethods
* Attempt to handle vectors of bitfields, defaulting to int32_t
* Attempt to handle vectors of unions
---
 codegen_c_hdr.pl | 22 +++++++++++++++++-----
 1 file changed, 17 insertions(+), 5 deletions(-)

diff --git a/codegen_c_hdr.pl b/codegen_c_hdr.pl
index 5270c88..617e39e 100644
--- a/codegen_c_hdr.pl
+++ b/codegen_c_hdr.pl
@@ -301,6 +301,7 @@ sub render_class_vtable_fields {
     my $voff = 0;
     for my $meth ($vms->findnodes('child::vmethod')) {
         my $name = $meth->getAttribute('name') || $meth->getAttribute('ld:anon-name') || "vmeth_$voff";
+        if ($meth->getAttribute('is-destructor')) { $name = "destructor" ; }
         # TODO actual prototype ?
         push @lines, "void *$name;";
         $voff += 4;
@@ -556,6 +557,7 @@ sub render_stlvector {
         }
     } elsif ($tgm eq 'number') {
         my $tgst = $tg->getAttribute('ld:subtype');
+        $tgst = 'int32_t' if !defined $tgst || ($tgst eq 'bitfield' && !$tg->getAttribute('base-type'));
         $tgst = $tg->getAttribute('base-type') if (!$tgst or $tgst eq 'enum' or $tgst eq 'bitfield');
         $tgst = 'int8_t' if $tgst eq 'bool';    # dont confuse with stl-bit-vector
         push @lines, "struct stl_vector_$tgst";
@@ -565,6 +567,20 @@ sub render_stlvector {
         if ($tgtm eq 'enum-type' or $tgtm eq 'bitfield-type') {
             my $tgtst = $tgt->getAttribute('base-type') || 'int32_t';
             push @lines, "struct stl_vector_$tgtst";
+        } elsif ($tgtm eq 'struct-type' && ($tgt->getAttribute('is-union') eq 'true')) {
+            my $utg = $tgt->findnodes('child::ld:field')->[0];
+            while (1) {
+                my $tgtst = $utg->getAttribute('ld:subtype');
+                if ($tgtst) {
+                    push @lines, "struct stl_vector_$tgtst";
+                    last;
+                }
+                $utg = $utg->findnodes('child::ld:field')->[0];
+                if (!$utg) {
+                    push @lines, "// TODO in $prefix: struct stl_vector_global-$tgtm";
+                    last;
+                }
+            }
         } else {
             push @lines, "// TODO in $prefix: struct stl_vector_global-$tgtm";
         }
@@ -640,7 +656,7 @@ sub render_item_primitive {
         if ($linux) {
             push @lines, "int32_t fstream[71]";     # (284 bytes, 4o align)
         } else {
-            push @lines, "int64_t fstream[24]";     # (192 bytes, 8o align)
+            push @lines, "int64_t fstream[35]";     # (280 bytes, 8o align)
         }
     } else {
         print "no render primitive $subtype\n";
@@ -729,10 +745,6 @@ sub render_item_bytes {
 };
 
 EOS
-    if ($bin32) {
-        $vecpad = "    int32_t pad;\n";
-    }
-
 } else {
 $hdr .= <<EOS;
 // Linux Glibc STL