winceunits \ mmsystem.pp SND_ALIAS_* constants definition problem

[440bx]

Hello,

In the source file winceunits\mmsystem.pp, the SND_ALIAS_* constant definitions are incorrect.

They are currently defined as:

Code: Pascal  [Select][+][-]

1.       SND_ALIAS_SYSTEMASTERISK        = SND_ALIAS_START+
2.                                         (DWORD(AnsiChar('S')) or
3.                                          DWORD(AnsiChar('*')));
4.  
5.       SND_ALIAS_SYSTEMQUESTION        = SND_ALIAS_START+
6.                                         (DWORD(AnsiChar('S')) or
7.                                          DWORD(AnsiChar('?')));
8.  
9.       SND_ALIAS_SYSTEMHAND            = SND_ALIAS_START+
10.                                         (DWORD(AnsiChar('S')) or
11.                                          DWORD(AnsiChar('H')));
12.  
13.       SND_ALIAS_SYSTEMEXIT            = SND_ALIAS_START+
14.                                         (DWORD(AnsiChar('S')) or
15.                                          DWORD(AnsiChar('E')));
16.  
17.       SND_ALIAS_SYSTEMSTART           = SND_ALIAS_START+
18.                                         (DWORD(AnsiChar('S')) or
19.                                          DWORD(AnsiChar('S')));
20.  
21.       SND_ALIAS_SYSTEMWELCOME         = SND_ALIAS_START+
22.                                         (DWORD(AnsiChar('S')) or
23.                                          DWORD(AnsiChar('W')));
24.  
25.       SND_ALIAS_SYSTEMEXCLAMATION     = SND_ALIAS_START+
26.                                         (DWORD(AnsiChar('S')) or
27.                                          DWORD(AnsiChar('!')));
28.  
29.       SND_ALIAS_SYSTEMDEFAULT         = SND_ALIAS_START+
30.                                         (DWORD(AnsiChar('S')) or
31.                                          DWORD(AnsiChar('D')));
32.  

The problem is that the second DWORD should be shifted left 8 and it is not, resulting in an invalid constant.

HTH.

NOTE: the definitions in winunits-base do not have this problem because they are numeric constants directly. IOW, they are correct (at least they look like they are correct - didn't check more than a couple of them.)

[marcov]

Maybe endianess related?

I don't know who maintains wince, so better file a bug.

[440bx]

I don't know who maintains wince, so better file a bug.

Done.

link: https://gitlab.com/freepascal.org/fpc/source/-/issues/41380
ticket: 41380

[pierre_muller]

Fixed on trunk by commit https://gitlab.com/freepascal.org/fpc/source/-/commit/13fa0cc1a86e2e647e53951559e63e06396bcf9e

[440bx]

Great!