winceunits \ mmsystem.pp SND_ALIAS_* constants definition problem
lazarus / 67-Windows

----------------------------------------------------------------------
440bx · 2025-08-27 09:05

Hello,

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

They are currently defined as:Code: Pascal
 [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i      
SND_ALIAS_SYSTEMASTERISK        = SND_ALIAS_START+                   
                   (DWORD(AnsiChar('S')) or                          
             DWORD(AnsiChar('*')));       SND_ALIAS_SYSTEMQUESTION   
   = SND_ALIAS_START+                                       
(DWORD(AnsiChar('S')) or                                       
 DWORD(AnsiChar('?')));       SND_ALIAS_SYSTEMHAND            =
SND_ALIAS_START+                                       
(DWORD(AnsiChar('S')) or                                       
 DWORD(AnsiChar('H')));       SND_ALIAS_SYSTEMEXIT            =
SND_ALIAS_START+                                       
(DWORD(AnsiChar('S')) or                                       
 DWORD(AnsiChar('E')));       SND_ALIAS_SYSTEMSTART           =
SND_ALIAS_START+                                       
(DWORD(AnsiChar('S')) or                                       
 DWORD(AnsiChar('S')));       SND_ALIAS_SYSTEMWELCOME         =
SND_ALIAS_START+                                       
(DWORD(AnsiChar('S')) or                                       
 DWORD(AnsiChar('W')));       SND_ALIAS_SYSTEMEXCLAMATION     =
SND_ALIAS_START+                                       
(DWORD(AnsiChar('S')) or                                       
 DWORD(AnsiChar('!')));       SND_ALIAS_SYSTEMDEFAULT         =
SND_ALIAS_START+                                       
(DWORD(AnsiChar('S')) or                                       
 DWORD(AnsiChar('D'))); 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 · 2025-08-27 09:48

Maybe endianess related?

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

----------------------------------------------------------------------
440bx · 2025-08-27 10:54

Quote from: marcov on August 27, 2025, 11:48:04 amI 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 · 2025-08-27 13:14

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

----------------------------------------------------------------------
440bx · 2025-08-27 13:34

Great!