+

chip/pm4_me.pas

@@ -322,7 +322,7 @@ begin
  if (sheduler.count=Length(stall)) then
  begin
   //wait
-  msleep_td(hz div 1000);
+  msleep_td(hz div 10000);
   //
   sheduler.count:=0;
  end;

chip/pm4_stream.pas

@@ -722,7 +722,7 @@ var
  r:p_pm4_resource;
  i:p_pm4_resource_instance;
 begin
- if (rkey.cformat=VK_FORMAT_UNDEFINED) then Exit;
+ if (rkey.cformat=VK_FORMAT_UNDEFINED) then Exit(nil);
 
  r:=fetch_image_resource(rkey);
  i:=fetch_resource_instance(scope,r,mem_usage,img_usage);

gui/game_run.pas

@@ -304,6 +304,8 @@ begin
 end;
 
 function run_item(const cfg:TGameRunConfig):TGameProcess;
+label
+ _error;
 var
  r:Integer;
 
@@ -322,6 +324,7 @@ var
  mem:TMemoryStream;
 begin
  Result:=nil;
+ r:=0;
 
  GameStartupInfo:=TGameStartupInfo.Create(False);
  GameStartupInfo.FConfInfo:=cfg.FConfInfo;
@@ -339,7 +342,8 @@ begin
 
   with TGameProcessPipe(Result) do
   begin
-   md_pipe2(@kern2mgui,MD_PIPE_ASYNC0 or MD_PIPE_ASYNC1);
+   r:=md_pipe2(@kern2mgui,MD_PIPE_ASYNC0 or MD_PIPE_ASYNC1);
+   if (r<>0) then goto _error;
 
    p_mgui_ipc:=THostIpcPipeMGUI.Create;
    p_mgui_ipc.set_pipe(kern2mgui[0]);
@@ -395,6 +399,7 @@ begin
 
  if (r<>0) then
  begin
+  _error:
   ShowMessage('error run process code=0x'+HexStr(r,8));
   FreeAndNil(Result);
   Exit;

sys/dev/dev_gc.pas

@@ -19,6 +19,7 @@ uses
  errno,
  kern_mtx,
  sys_event,
+ sched_ule,
  kern_authinfo,
  vm,
  vmparam,
@@ -274,6 +275,7 @@ var
  p_id:DWORD;
  send:DWORD;
 begin
+ sched_prio(curkthread,64);
 
  if LoadVulkan then
  begin
@@ -397,7 +399,7 @@ begin
    RTLEventWaitFor(ring_watchdog);
   end else
   begin
-   msleep_td(hz div 1000);
+   msleep_td(hz div 10000);
   end;
  until false;
 

sys/dev/display_soft.pas

@@ -9,7 +9,8 @@ uses
  display_interface,
  time,
  kern_thr,
- kern_mtx;
+ kern_mtx,
+ sched_ule;
 
 type
  p_attr=^t_attr;
@@ -1098,6 +1099,8 @@ var
  dce:TDisplayHandleSoft;
  Node:PQNodeSubmit;
 begin
+ sched_prio(curkthread,64);
+
  dce:=TDisplayHandleSoft(parameter);
 
  repeat

sys/md/md_systm.pas

@@ -333,6 +333,7 @@ var
 
  guest_pmap_mem:array[0..2] of t_addr_range;
 begin
+ Result:=0;
  guest_pmap_mem:=pmap_mem;
  //
  if Length(guest_pmap_mem)<>0 then

vulkan/vShaderExt.pas

@@ -474,7 +474,7 @@ end;
 
 procedure TvShaderParserExt.OnSourceExtension(P:PChar);
 begin
- Writeln(P);
+ //Writeln(P);
  Case P^ of
   '#':OnDataLayout(P);
   '!':OnIExtLayout(P);