Subversion Repositories pentevo

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1126 savelij 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
}