dfwad: fix error code on resource read

[d2df-editor.git] / src / shared / WADEDITOR_dfwad.pas

diff --git a/src/shared/WADEDITOR_dfwad.pas b/src/shared/WADEDITOR_dfwad.pas
index 2bbc03a3a031397b198d21cd1793574c6ca9b612..b8de439d9d38cf500f43e36027734eabf283fde0 100644 (file)
--- a/src/shared/WADEDITOR_dfwad.pas
+++ b/src/shared/WADEDITOR_dfwad.pas
@@ -534,6 +534,7 @@ implementation
                 pData := ptr;
                 Len := size;
                 Result := True;
+                FLastError := DFWAD_NOERROR;
               except
                 FreeMem(ptr);
                 raise;
@@ -547,6 +548,7 @@ implementation
                 pData := ptr;
                 Len := p.data.usize;
                 Result := True;
+                FLastError := DFWAD_NOERROR;
               except
                 FreeMem(ptr);
                 raise;
@@ -645,7 +647,7 @@ implementation
           begin
             if sec = nil then
               sec := InsertSectionRAW('');
-            if res = nil then
+            if sec = nil then
               raise Exception.Create('Failed to create root section');
             res := InsertFileInfoS(sec, name, offset, csize, -1, nil);
             if res = nil then