+ wasm internal object reader: read tags from the export section

compiler/ogwasm.pas

@@ -2428,6 +2428,8 @@ implementation
           ImportModName: ansistring;
           TagAttr: Byte;
           TagTypeIdx: uint32;
+          IsExported: Boolean;
+          ExportName: ansistring;
         end;
         TagTypeImportsCount: uint32;
 
@@ -3566,7 +3568,7 @@ implementation
 
         function ReadExportSection: Boolean;
           var
-            ExportsCount, FuncIdx, TableIdx, MemIdx, GlobalIdx: uint32;
+            ExportsCount, FuncIdx, TableIdx, MemIdx, GlobalIdx, TagIdx: uint32;
             i: Integer;
             Name: ansistring;
             ExportType: Byte;
@@ -3668,6 +3670,24 @@ implementation
                           ExportName:=Name;
                         end;
                     end;
+                  $04:  { tag }
+                    begin
+                      if not ReadUleb32(TagIdx) then
+                        begin
+                          InputError('Error reading a tag index from the export section');
+                          exit;
+                        end;
+                      if TagIdx>high(TagTypes) then
+                        begin
+                          InputError('Tag index too high in the export section');
+                          exit;
+                        end;
+                      with TagTypes[TagIdx] do
+                        begin
+                          IsExported:=True;
+                          ExportName:=Name;
+                        end;
+                    end;
                   else
                     begin
                       InputError('Unsupported export type in the export section: ' + tostr(ExportType));