Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2024-11-09 17:50:30 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Little code cleanup and styling

Browse Source
This commit is contained in:
Владислав Джавадов 2020-12-30 00:45:11 +03:00
parent 66f8410294
commit 8d01247957
2 changed files with 15 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Lib/KolibriOS.pas
View File

@ -309,7 +309,10 @@ const
BS_TRANSPARENT_FILL = $40000000; BS_TRANSPARENT_FILL = $40000000;
BS_NO_FRAME = $20000000; BS_NO_FRAME = $20000000;
// OpenSharedMemory open\access flags // Blit flags
BLIT_CLIENT_RELATIVE = $20000000;
// OpenSharedMemory open/access flags
SHM_OPEN = $00; SHM_OPEN = $00;
SHM_OPEN_ALWAYS = $04; SHM_OPEN_ALWAYS = $04;
SHM_CREATE = $08; SHM_CREATE = $08;
@ -326,9 +329,6 @@ const
SHUTDOWN_REBOOT = 3; SHUTDOWN_REBOOT = 3;
SHUTDOWN_RESTART = 4; SHUTDOWN_RESTART = 4;
// Blit flags
BLIT_CLIENT_RELATIVE = $20000000;
{-1} procedure TerminateThread; stdcall; {-1} procedure TerminateThread; 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;

13
RTL/System.pas
View File

@ -239,6 +239,7 @@ var
procedure _HandleFinally; procedure _HandleFinally;
asm asm
MOV EAX, 1
end; end;
procedure InitUnits; procedure InitUnits;
@ -287,12 +288,10 @@ begin
end; end;
procedure _Halt0; procedure _Halt0;
begin asm
FinalizeUnits; CALL FinalizeUnits
asm
OR EAX, -1 OR EAX, -1
INT $40 INT $40
end;
end; end;
function Get8087CW: Word; function Get8087CW: Word;
@ -303,12 +302,10 @@ asm
end; end;
procedure Set8087CW(Value: Word); procedure Set8087CW(Value: Word);
begin asm
Default8087CW := Value; MOV Default8087CW, AX
asm
FNCLEX FNCLEX
FLDCW Default8087CW FLDCW Default8087CW
end;
end; end;
// Produce random values in a given range [MinValue..MaxValue] // Produce random values in a given range [MinValue..MaxValue]