Commit | Line | Data |
---|---|---|
0d78ca85 KB |
1 | /*- |
2 | * Copyright (c) 1979 The Regents of the University of California. | |
3 | * All rights reserved. | |
4 | * | |
5 | * %sccs.include.redist.c% | |
6 | */ | |
9360e1ec | 7 | |
0d78ca85 KB |
8 | #ifndef lint |
9 | static char sccsid[] = "@(#)HALT.c 1.4 (Berkeley) %G%"; | |
10 | #endif /* not lint */ | |
9360e1ec | 11 | |
b41daa08 | 12 | #include "h00vars.h" |
9360e1ec KM |
13 | |
14 | HALT() | |
15 | { | |
b41daa08 KM |
16 | PFLUSH(); |
17 | fputs("Call to procedure halt\n", stderr); | |
86997b19 | 18 | PCEXIT(0); |
9360e1ec | 19 | } |