date and time created 82/01/18 19:19:59 by linton

SCCS-vsn: usr.bin/pascal/pdx/breakpoint/setbps.c 1.1

diff --git a/usr/src/usr.bin/pascal/pdx/breakpoint/setbps.c b/usr/src/usr.bin/pascal/pdx/breakpoint/setbps.c
new file mode 100644 (file)
index 0000000..8f4f8c0
--- /dev/null
+++ b/usr/src/usr.bin/pascal/pdx/breakpoint/setbps.c
@@ -0,0 +1,35 @@
+/* Copyright (c) 1982 Regents of the University of California */
+
+static char sccsid[] = "@(#)setbps.c 1.1 %G%";
+
+/*
+ * set all breakpoints in object code
+ */
+
+#include "defs.h"
+#include "breakpoint.h"
+#include "process.h"
+#include "machine.h"
+#include "bp.rep"
+
+setallbps()
+{
+       register BPINFO *p;
+
+       for (p = bphead; p != NIL; p = p->bpnext) {
+               setbp(p->bpaddr);
+       }
+}
+
+/*
+ * undo damage done by "setallbps"
+ */
+
+unsetallbps()
+{
+       register BPINFO *p;
+
+       for (p = bphead; p != NIL; p = p->bpnext) {
+               unsetbp(p->bpaddr);
+       }
+}