(_fixup): Set .compile

git-svn-id: file:///svnroot/mailfromd/trunk@1328 7a8a7f39-df28-0410-adc6-e0d955640f24

1 files changed, 2 insertions, 1 deletions

diff --git a/src/prog.c b/src/prog.c
index a3cea4a3..386feb4b 100644
--- a/src/prog.c
+++ b/src/prog.c
@@ -1670,7 +1670,8 @@ _fixup(prog_counter_t pc, struct optab *op, void *data)
 			parse_error_locus(locus,
 					  "Cannot compile regex: %s",
 					  errbuf);
-		}
+		} else
+			regtab[index].compiled = 1;
 	} else if (opcode == opcode_locus) {
 		locus->file = (char*) (dataseg + (size_t) prog[pc+1]);
 		locus->line = (size_t) prog[pc+2];