Fixed AV when OpenAPI document does not contain tags

Author: wlandgraf

Source/OpenApiGen.V3.Analyzer.pas

@@ -245,9 +245,12 @@ procedure TOpenApiAnalyzer.DoSolveServiceOperation(var ServiceName, ServiceDescr
         if Operation.Tags.Count > 0 then
         begin
           ServiceName := Operation.Tags[0];
-          Tag := FDocument.Tags.Find(ServiceName);
-          if Tag <> nil then
-            ServiceDescription := Tag.Description;
+          if FDocument.Tags <> nil then
+          begin
+            Tag := FDocument.Tags.Find(ServiceName);
+            if Tag <> nil then
+              ServiceDescription := Tag.Description;
+          end;
         end
         else
           ServiceName := '';

Source/version.rc

@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-  FILEVERSION 1,1,0,0
-  PRODUCTVERSION 1,1,0,0
+  FILEVERSION 1,1,1,0
+  PRODUCTVERSION 1,1,1,0
   FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef DEBUG
   FILEFLAGS VS_FF_DEBUG
@@ -15,10 +15,10 @@ BEGIN
     BLOCK "040904b0"
     BEGIN
       VALUE "FileDescription", "OpenApi Delphi Generator\0"
-      VALUE "FileVersion", "1.1.0.0\0"
+      VALUE "FileVersion", "1.1.1.0\0"
       VALUE "LegalCopyright", "� 2022 Landgraf.dev All Rights Reserved\0"
       VALUE "ProductName", "OpenApi Delphi Generator\0"
-      VALUE "ProductVersion", "1.1.0.0\0"
+      VALUE "ProductVersion", "1.1.1.0\0"
     END
   END
   BLOCK "VarFileInfo"