Subversion Repositories pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

  1. /* version.c */
  2. /*****************************************************************************/
  3. /* SPDX-License-Identifier: GPL-2.0-only OR GPL-3.0-only                     */
  4. /*                                                                           */
  5. /* ASL                                                                       */
  6. /*                                                                           */
  7. /* Keeps Version Number(s)                                                   */
  8. /*                                                                           */
  9. /*****************************************************************************/
  10.  
  11. #include "version.h"
  12.  
  13. const char *Version = STR(AS_VERSION_MAJOR) "." STR(AS_VERSION_MINOR) " Beta [Bld " STR(AS_VERSION_BUILD) "]";
  14. const char *DebVersion = STR(AS_VERSION_MAJOR) "." STR(AS_VERSION_MINOR) "bld" STR(AS_VERSION_BUILD) "-1";
  15. LongInt VerNo = (AS_VERSION_MAJOR * 4096)
  16.               | ((AS_VERSION_MINOR / 10) * 256)
  17.               | ((AS_VERSION_MINOR % 10) * 16)
  18.               | 15;
  19.  
  20. const char *InfoMessCopyright = "(C) 1992,2024 Alfred Arnold";
  21.  
  22. LongInt Magic = 0x12372846;
  23.  
  24. void version_init(void)
  25. {
  26.   unsigned shift;
  27.   const char *p_mess;
  28.  
  29.   for (shift = 0, p_mess = InfoMessCopyright; *p_mess; p_mess++)
  30.     Magic ^= (((LongWord)*p_mess) & 0xff) << ((shift += 8) & 31);
  31. }
  32.