X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/d72dd43f4ff53f995009806dfc46edfe01873be4..7dabc86f108864d14e0dde0fbdbb23b6d096d1e9:/usr/src/usr.bin/vgrind/vgrindefs.src

diff --git a/usr/src/usr.bin/vgrind/vgrindefs.src b/usr/src/usr.bin/vgrind/vgrindefs.src
index e5dbbc5e1e..0598afe17a 100644
--- a/usr/src/usr.bin/vgrind/vgrindefs.src
+++ b/usr/src/usr.bin/vgrind/vgrindefs.src
@@ -11,7 +11,9 @@ model|mod|m:\
 pascal|pasc|p:\
 	:pb=(^\d?procedure|function|program\d\p\d|\(|;|\:)|(=\d?record\d):\
 	:bb=\dcase|begin\d:be=\dend|forward\d|;:\
-	:cb={|\(*:ce=}|*\):sb=':se=':\
+	:cb={:ce=}:\
+	:ab=\(*:ae=*\):\
+	:sb=':se=':\
 	:kw=and array assert begin case const div do downto else end file for\
 	forward function goto if in label mod nil not of or packed procedure\
 	program record repeat set then to type until var while with oct hex\