KolibriOS.TerminateThread → ExitThread

This commit is contained in:
Владислав Джавадов 2021-01-03 13:01:45 +03:00
parent 37ee57a6e3
commit f5b2618b92
2 changed files with 4 additions and 4 deletions

View File

@ -347,7 +347,7 @@ const
SHUTDOWN_REBOOT = 3; SHUTDOWN_REBOOT = 3;
SHUTDOWN_RESTART = 4; SHUTDOWN_RESTART = 4;
{-1} procedure TerminateThread; stdcall; {-1} procedure ExitThread; stdcall;
{0} procedure DrawWindow(Left, Top, Width, Height: LongInt; Caption: PKolibriChar; BackColor, Style, CapStyle: LongWord); stdcall; {0} procedure DrawWindow(Left, Top, Width, Height: LongInt; Caption: PKolibriChar; BackColor, Style, CapStyle: LongWord); stdcall;
{1} procedure SetPixel(X, Y: LongInt; Color: LongWord); stdcall; {1} procedure SetPixel(X, Y: LongInt; Color: LongWord); stdcall;
{2} function GetKey: TKeyboardInput; stdcall; {2} function GetKey: TKeyboardInput; stdcall;
@ -656,9 +656,9 @@ const
implementation implementation
procedure TerminateThread; stdcall; procedure ExitThread; stdcall;
asm asm
mov eax, $FFFFFFFF or eax, -1
int $40 int $40
end; end;

View File

@ -28,6 +28,6 @@ begin
GetKey; GetKey;
BUTTON_EVENT: BUTTON_EVENT:
if GetButton.ID = 1 then if GetButton.ID = 1 then
TerminateThread; Break;
end; end;
end. end.