(* Copyright (C) 2009-2025 Free Software Foundation, Inc. *) (* This file is part of GNU Modula-2. GNU Modula-2 is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. GNU Modula-2 is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with gm2; see the file COPYING. If not, write to the Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *) DEFINITION MODULE FOR "C" c ; (* Title : c.def Author : Gaius Mulley System : GNU Modula-2 Date : Fri Nov 27 13:02:23 2009 Revision : $Version$ Description: provides a simple C module which can be used to test whether GNU Modula-2 data types are passed correctly to their C counterparts. *) FROM SYSTEM IMPORT ADDRESS ; PROCEDURE funcString (s: ADDRESS) : INTEGER ; END c.