paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 08:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* makerop to dword mantis #34712

Browse Source 
git-svn-id: trunk@41269 -
This commit is contained in:
marco 2019-02-09 17:53:05 +00:00
parent 93fcce4ba1
commit d6b39276bb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/win/wininc/base.inc
View File

@ -543,7 +543,7 @@
}
{ was #define dname(params) def_expr }
{ argument types are unknown }
function MAKEROP4(fore,back : longint) : DWORD; inline;
function MAKEROP4(fore,back : DWord ) : DWORD; inline;
{ was #define dname(params) def_expr }
{ argument types are unknown }
@ -1025,9 +1025,9 @@ type
{ was #define dname(params) def_expr }
{ argument types are unknown }
function MAKEROP4(fore,back : longint) : DWORD;
function MAKEROP4(fore,back : DWOrd ) : DWORD;
begin
MAKEROP4:=DWORD((DWORD(back shl 8) and $FF000000) or DWORD(fore));
MAKEROP4:=((back shl 8) and $FF000000) or fore;
end;
{ was #define dname(params) def_expr }