cvsuser 05/02/21 15:06:19
Modified: languages/regex regex-compiler.imc
Log:
Oops. I forgot that C<getpid> only exists in my local area. Switch to using
C<time> to generate unique ids. The Right Way would be to make a tempfile
package, but I've no time for that.
Revision Changes Path
1.2 +3 -3 parrot/languages/regex/regex-compiler.imc
Index: regex-compiler.imc
===================================================================
RCS file: /cvs/public/parrot/languages/regex/regex-compiler.imc,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- regex-compiler.imc 18 Sep 2004 03:16:57 -0000 1.1
+++ regex-compiler.imc 21 Feb 2005 23:06:19 -0000 1.2
@@ -10,14 +10,14 @@
.local string code
code = S5
- .local int pid
+ .local int uniq
.local string imcfile
.local string pir_data
.local string cmdline
- pid = getpid
+ uniq = time
imcfile = "/tmp/regex-"
- $S0 = pid
+ $S0 = uniq
imcfile = concat $S0
imcfile = concat ".imc"
