gcc/m2/gm2-gcc/m2linemap.def

   1 (* m2linemap.def provides access to GCC location_t.
   2
   3 Copyright (C) 2011-2024 Free Software Foundation, Inc.
   4 Contributed by Gaius Mulley <gaius.mulley@southwales.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 DEFINITION MODULE FOR "C" m2linemap ;
  23
  24 FROM SYSTEM IMPORT ADDRESS ;
  25
  26 EXPORT QUALIFIED StartFile, EndFile, StartLine, GetLocationColumn, GetLocationRange,
  27                  GetLocationBinary, UnknownLocation, BuiltinsLocation,
  28                  GetLineNoFromLocation, GetColumnNoFromLocation,
  29                  GetFilenameFromLocation, ErrorAt, ErrorAtf,
  30                  WarningAtf, NoteAtf, internal_error, location_t ;
  31
  32 TYPE
  33    location_t = CARDINAL ;
  34
  35
  36 PROCEDURE StartFile (filename: ADDRESS; linebegin: CARDINAL) ;
  37 PROCEDURE EndFile ;
  38 PROCEDURE StartLine (linenumber: CARDINAL; linesize: CARDINAL) ;
  39 PROCEDURE GetLocationColumn (column: CARDINAL) : location_t ;
  40 PROCEDURE GetLocationRange (start, end: CARDINAL) : location_t ;
  41 PROCEDURE GetLocationBinary (caret, left, right: location_t) : location_t ;
  42
  43 PROCEDURE UnknownLocation () : location_t ;
  44 PROCEDURE BuiltinsLocation () : location_t ;
  45
  46 PROCEDURE GetLineNoFromLocation (location: location_t) : INTEGER ;
  47 PROCEDURE GetColumnNoFromLocation (location: location_t) : INTEGER ;
  48 PROCEDURE GetFilenameFromLocation (location: location_t) : ADDRESS ;
  49 PROCEDURE ErrorAt (location: location_t; message: ADDRESS) ;
  50 PROCEDURE ErrorAtf (location: location_t; message: ADDRESS) ;
  51 PROCEDURE WarningAtf (location: location_t; message: ADDRESS) ;
  52 PROCEDURE NoteAtf (location: location_t; message: ADDRESS) ;
  53 PROCEDURE internal_error (message: ADDRESS) ;
  54
  55
  56 END m2linemap.