Branch data Line data Source code
1 : : /* do not edit automatically generated by mc from M2Size. */
2 : : /* M2Size.mod exports the standard function SIZE.
3 : :
4 : : Copyright (C) 2003-2024 Free Software Foundation, Inc.
5 : : Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.
6 : :
7 : : This file is part of GNU Modula-2.
8 : :
9 : : GNU Modula-2 is free software; you can redistribute it and/or modify
10 : : it under the terms of the GNU General Public License as published by
11 : : the Free Software Foundation; either version 3, or (at your option)
12 : : any later version.
13 : :
14 : : GNU Modula-2 is distributed in the hope that it will be useful, but
15 : : WITHOUT ANY WARRANTY; without even the implied warranty of
16 : : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 : : General Public License for more details.
18 : :
19 : : You should have received a copy of the GNU General Public License
20 : : along with GNU Modula-2; see the file COPYING3. If not see
21 : : <http://www.gnu.org/licenses/>. */
22 : :
23 : : #include "config.h"
24 : : #include "system.h"
25 : : #include <stdbool.h>
26 : : # if !defined (PROC_D)
27 : : # define PROC_D
28 : : typedef void (*PROC_t) (void);
29 : : typedef struct { PROC_t proc; } PROC;
30 : : # endif
31 : :
32 : : #define _M2Size_H
33 : : #define _M2Size_C
34 : :
35 : : # include "GNameKey.h"
36 : : # include "GM2Base.h"
37 : : # include "GM2LexBuf.h"
38 : : # include "GSymbolTable.h"
39 : :
40 : : unsigned int M2Size_Size;
41 : :
42 : : /*
43 : : MakeSize - creates and declares the standard function SIZE.
44 : : */
45 : :
46 : : extern "C" void M2Size_MakeSize (void);
47 : :
48 : :
49 : : /*
50 : : MakeSize - creates and declares the standard function SIZE.
51 : : */
52 : :
53 : 33548 : extern "C" void M2Size_MakeSize (void)
54 : : {
55 : 33548 : if (M2Size_Size == SymbolTable_NulSym)
56 : : {
57 : : /* Function */
58 : 16817 : M2Size_Size = SymbolTable_MakeProcedure (M2LexBuf_BuiltinTokenNo, NameKey_MakeKey ((const char *) "SIZE", 4));
59 : : /* ZType */
60 : 16817 : SymbolTable_PutFunction (M2Size_Size, M2Base_ZType);
61 : : }
62 : : else
63 : : {
64 : 16731 : SymbolTable_AddSymToModuleScope (SymbolTable_GetCurrentScope (), M2Size_Size);
65 : : }
66 : 33548 : }
67 : :
68 : 0 : extern "C" void _M2_M2Size_init (__attribute__((unused)) int argc,__attribute__((unused)) char *argv[],__attribute__((unused)) char *envp[])
69 : : {
70 : 0 : M2Size_Size = SymbolTable_NulSym;
71 : 0 : }
72 : :
73 : 0 : extern "C" void _M2_M2Size_fini (__attribute__((unused)) int argc,__attribute__((unused)) char *argv[],__attribute__((unused)) char *envp[])
74 : : {
75 : 0 : }
|