+

gui/cfg_edit.pas

@@ -217,6 +217,8 @@ begin
  if (src=nil) then Exit;
 
  i:=src.ItemIndex;
+ if (i=-1) then Exit;
+
  ptr:=PVkPhysicalDeviceProperties(src.Items.Objects[i]);
 
  if (ptr=nil) then Exit;

gui/game_run.pas

@@ -121,7 +121,11 @@ end;
 
 Destructor TGameProcessSimple.Destroy;
 begin
- thread_dec_ref(Ftd);
+ if (Ftd<>nil) then
+ begin
+  thread_dec_ref(Ftd);
+  Ftd:=nil;
+ end;
  inherited;
 end;
 

sys/kern/kern_thread.pas

@@ -679,6 +679,7 @@ begin
 
  if (n<>0) then
  begin
+  Writeln(StdErr,'failed cpu_thread_create:0x',HexStr(n,8));
   thread_free(newtd);
   Exit(EINVAL);
  end;

sys/md/md_thread.pas

@@ -325,7 +325,7 @@ begin
    Result:=0;
   end else
   begin
-   Result:=-1;
+   Result:=GetLastError;
   end;
  {$ENDIF}