Adapted for new Pascal Compiler
This commit is contained in:
10
lang/pc/libpc/nfa.c
Normal file
10
lang/pc/libpc/nfa.c
Normal file
@@ -0,0 +1,10 @@
|
||||
/* Author: Hans van Eck */
|
||||
|
||||
#include <pc_err.h>
|
||||
|
||||
extern trp();
|
||||
|
||||
_nfa(bool)
|
||||
{
|
||||
if (! bool) _trp(EFUNASS);
|
||||
}
|
||||
Reference in New Issue
Block a user