| 1234567891011121314151617181920212223 |
- (* Release 3.10 *)
- (*-------------------------------------------------------------------------*
- * *
- * ASSERT.DEF - Modula-2 interface to ASSERT.H *
- * *
- * COPYRIGHT (C) 1989..1992 Clarion Software Corporation. *
- * All Rights Reserved *
- * *
- *--------------------------------------------------------------------------*)
- (*# project("#set tsc='on'") *)
- (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
- (*# module(implementation=>off, init_code=>off) *)
- (*# name(prefix=>c) *)
- DEFINITION MODULE assert;
- (* assert macro cannot be used from Modula-2 *)
- PROCEDURE abort();
- END assert.
|
