This commit is contained in:
Pavel 2023-04-28 10:04:45 +03:00
parent 16bd630aa1
commit 414cf07658
2 changed files with 14 additions and 13 deletions

View File

@ -203,8 +203,8 @@ procedure TD_SET_RUNNING(td:p_kthread);
procedure TD_SET_RUNQ(td:p_kthread);
procedure TD_SET_CAN_RUN(td:p_kthread);
function curthread_pflags_set(flags:Integer):Integer; inline;
procedure curthread_pflags_restore(save:Integer); inline;
function curthread_pflags_set(flags:Integer):Integer;
procedure curthread_pflags_restore(save:Integer);
procedure PROC_LOCK;
procedure PROC_UNLOCK;
@ -376,7 +376,7 @@ end;
//
function curthread_pflags_set(flags:Integer):Integer; inline;
function curthread_pflags_set(flags:Integer):Integer;
var
td:p_kthread;
begin
@ -385,7 +385,7 @@ begin
td^.td_pflags:=td^.td_pflags or flags;
end;
procedure curthread_pflags_restore(save:Integer); inline;
procedure curthread_pflags_restore(save:Integer);
begin
curkthread^.td_pflags:=curkthread^.td_pflags and save;
end;

View File

@ -96,7 +96,8 @@ begin
if (r<>0) then
begin
Writeln('failed NtAllocateVirtualMemory:',r);
Writeln('failed NtAllocateVirtualMemory:',HexStr(r,8));
//STATUS_COMMITMENT_LIMIT = $C000012D
Assert(false,'pmap_init');
end;
end;
@ -183,7 +184,7 @@ begin
if (r<>0) then
begin
Writeln('failed NtAllocateVirtualMemory:',r);
Writeln('failed NtAllocateVirtualMemory:',HexStr(r,8));
Assert(false,'pmap_enter_object');
end;
end;
@ -233,7 +234,7 @@ begin
if (r<>0) then
begin
Writeln('failed NtProtectVirtualMemory:',r);
Writeln('failed NtProtectVirtualMemory:',HexStr(r,8));
Assert(false,'pmap_protect');
end;
@ -249,7 +250,7 @@ begin
if (r<>0) then
begin
Writeln('failed NtAllocateVirtualMemory:',r);
Writeln('failed NtAllocateVirtualMemory:',HexStr(r,8));
Assert(false,'pmap_protect');
end;
@ -269,7 +270,7 @@ begin
if (r<>0) then
begin
Writeln('failed NtProtectVirtualMemory:',r);
Writeln('failed NtProtectVirtualMemory:',HexStr(r,8));
Assert(false,'pmap_protect');
end;
end;
@ -284,7 +285,7 @@ begin
if (r<>0) then
begin
Writeln('failed NtFreeVirtualMemory:',r);
Writeln('failed NtFreeVirtualMemory:',HexStr(r,8));
Assert(false,'pmap_protect');
end;
@ -300,7 +301,7 @@ begin
if (r<>0) then
begin
Writeln('failed NtProtectVirtualMemory:',r);
Writeln('failed NtProtectVirtualMemory:',HexStr(r,8));
Assert(false,'pmap_protect');
end;
end;
@ -334,7 +335,7 @@ begin
if (r<>0) then
begin
Writeln('failed NtAllocateVirtualMemory:',r);
Writeln('failed NtAllocateVirtualMemory:',HexStr(r,8));
Assert(false,'pmap_madv_free');
end;
end;
@ -368,7 +369,7 @@ begin
if (r<>0) then
begin
Writeln('failed NtFreeVirtualMemory:',r);
Writeln('failed NtFreeVirtualMemory:',HexStr(r,8));
Assert(false,'pmap_remove');
end;
end;