A little speed up for awk

[Andreas Hauser <andy@xxxxxxxxxxxxxxx>]

Hoi,

We now use the one true awk in DragonFly BSD as our default.
Some people reported poor performance in some cases and, while
looking over the source, i noticed a cheap speed improvement.
Maybe you like it.

Thx,
Andy


Index: tran.c
===================================================================
RCS file: /home/dcvs/src/contrib/awk20040207/tran.c,v
retrieving revision 1.1.1.1
diff -u -p -r1.1.1.1 tran.c
--- tran.c	17 Apr 2004 19:41:31 -0000	1.1.1.1
+++ tran.c	1 Nov 2004 19:05:26 -0000
@@ -396,11 +396,13 @@ char *getpssval(Cell *vp)     /* get str
 char *tostring(const char *s)	/* make a copy of string s */
 {
 	char *p;
+        size_t size;
 
-	p = (char *) malloc(strlen(s)+1);
+	size = strlen(s) + 1;
+	p = (char *) malloc(size);
 	if (p == NULL)
 		FATAL("out of space in tostring on %s", s);
-	strcpy(p, s);
+	bcopy(s, p, size);
 	return(p);
 }