* WebAssembly goto support: skip unused labels in resolve_labels_via_state_machine. Fixes #41093

compiler/wasm32/cpupi.pas

@@ -714,10 +714,14 @@ implementation
                 asmlist.Remove(hp);
                 if hp.typ=ait_label then
                   begin
-                    curr_block:=TAsmList.Create;
-                    blocks.Add(tai_label(hp).labsym.Name,curr_block);
-                  end;
-                curr_block.Concat(hp);
+                    if (tai_label(hp).labsym.is_used) then
+                      begin
+                        curr_block:=TAsmList.Create;
+                        blocks.Add(tai_label(hp).labsym.Name,curr_block);
+                      end;
+                  end
+                else
+                  curr_block.Concat(hp);
               end;
           until not assigned(hp);
           { asmlist is now empty }

tests/webtbs/tw41093.pp

@@ -0,0 +1,24 @@
+{ %OPT=-Sg }
+{$mode objfpc}
+{$H+}
+
+procedure Test;
+var
+  A: String;
+
+  function TestInline: Char; inline;
+  begin
+  end;
+
+label
+  TestLabel;
+
+begin
+  A := TestInline;
+  goto TestLabel;
+TestLabel:
+end;
+
+begin
+  Test;
+end.