Line data    Source code

       1              : /* m2top.cc provides top level scoping functions.
       2              : 
       3              : Copyright (C) 2012-2026 Free Software Foundation, Inc.
       4              : Contributed by Gaius Mulley <gaius@glam.ac.uk>.
       5              : 
       6              : This file is part of GNU Modula-2.
       7              : 
       8              : GNU Modula-2 is free software; you can redistribute it and/or modify
       9              : it under the terms of the GNU General Public License as published by
      10              : the Free Software Foundation; either version 3, or (at your option)
      11              : any later version.
      12              : 
      13              : GNU Modula-2 is distributed in the hope that it will be useful, but
      14              : WITHOUT ANY WARRANTY; without even the implied warranty of
      15              : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      16              : General Public License for more details.
      17              : 
      18              : You should have received a copy of the GNU General Public License
      19              : along with GNU Modula-2; see the file COPYING3.  If not see
      20              : <http://www.gnu.org/licenses/>.  */
      21              : 
      22              : #include "gcc-consolidation.h"
      23              : 
      24              : #include "../gm2-lang.h"
      25              : #include "../m2-tree.h"
      26              : 
      27              : #include "m2assert.h"
      28              : #include "m2block.h"
      29              : #include "m2decl.h"
      30              : #include "m2expr.h"
      31              : #include "m2tree.h"
      32              : #include "m2type.h"
      33              : #define m2top_c
      34              : #include "m2top.h"
      35              : 
      36              : /* StartGlobalContext - initializes a dummy function for the global
      37              :    scope.  */
      38              : 
      39              : void
      40        13940 : m2top_StartGlobalContext (void)
      41              : {
      42        13940 : }
      43              : 
      44              : /* EndGlobalContext - ends the dummy function for the global scope.  */
      45              : 
      46              : void
      47        13652 : m2top_EndGlobalContext (void)
      48              : {
      49        13652 : }
      50              : 
      51              : /* FinishBackend - flushes all outstanding functions held in the GCC
      52              :    backend out to the assembly file.  */
      53              : 
      54              : void
      55            0 : m2top_FinishBackend (void)
      56              : {
      57            0 : }
      58              : 
      59              : /* SetFlagUnitAtATime - sets GCC flag_unit_at_a_time to b.  */
      60              : 
      61              : void
      62        13940 : m2top_SetFlagUnitAtATime (bool b)
      63              : {
      64        13940 :   flag_unit_at_a_time = b;
      65        13940 : }