lroot@devvax.JPL.NASA.GOV (The Superuser) (07/16/88)
System: perl version 2.0 Patch #: 10 Priority: Subject: finally nailed The Bug (the one that makes TEST blow up on UnixPC, etc) Subject: UTS can't cast char to double Description: Now I *know* I'm a danglesocket--The Bug turned out to be staring me in the face. The line around which Hokey put his workaround doesn't want to execute at all during the first pass of regular expression compilation. Can one die from kicking oneself? It so happens that UTS can't cast a char to a double, so a lot of the boolean operations fail. The solution seems to be to make bool an integer type (only on UTS machines). Fix: From rn, say "| patch -p -N -d DIR", where DIR is your perl source directory. Outside of rn, say "cd DIR; patch -p -N <thisarticle". If you don't have the patch program, apply the following by hand, or get patch (version 2.0, latest patchlevel). After patching: make make test make install If patch indicates that patchlevel is the wrong version, you may need to apply one or more previous patches, or the patch may already have been applied. See the patchlevel.h file to find out what has or has not been applied. In any event, don't continue with the patch. If you are missing previous patches they can be obtained from me: Larry Wall lwall@jpl-devvax.jpl.nasa.gov If you send a mail message of the following form it will greatly speed processing: Subject: Command @SH mailpatch PATH perl 2.0 LIST ^ note the c where PATH is a return path FROM ME TO YOU either in Internet notation, or in bang notation from some well-known host, and LIST is the number of one or more patches you need, separated by spaces, commas, and/or hyphens. Saying 35- says everything from 35 to the end. You can also get the patches via anonymous FTP from jpl-devvax.jpl.nasa.gov (128.149.8.43). Index: patchlevel.h Prereq: 9 1c1 < #define PATCHLEVEL 9 --- > #define PATCHLEVEL 10 Index: handy.h Prereq: 2.0 *** handy.h.old Fri Jul 15 18:10:58 1988 --- handy.h Fri Jul 15 18:10:59 1988 *************** *** 1,6 **** ! /* $Header: handy.h,v 2.0 88/06/05 00:09:03 root Exp $ * * $Log: handy.h,v $ * Revision 2.0 88/06/05 00:09:03 root * Baseline version 2.0. * --- 1,9 ---- ! /* $Header: handy.h,v 2.0.1.1 88/07/15 18:08:42 root Exp $ * * $Log: handy.h,v $ + * Revision 2.0.1.1 88/07/15 18:08:42 root + * patch10: UTS can't cast char to double + * * Revision 2.0 88/06/05 00:09:03 root * Baseline version 2.0. * *************** *** 14,20 **** --- 17,27 ---- #define Nullch Null(char*) #define Nullfp Null(FILE*) + #ifdef UTS + #define bool int + #else #define bool char + #endif #define TRUE (1) #define FALSE (0) Index: regexp.c Prereq: 2.0.1.2 *** regexp.c.old Fri Jul 15 18:11:06 1988 --- regexp.c Fri Jul 15 18:11:08 1988 *************** *** 7,15 **** * blame Henry for some of the lack of readability. */ ! /* $Header: regexp.c,v 2.0.1.2 88/07/11 23:05:53 root Exp $ * * $Log: regexp.c,v $ * Revision 2.0.1.2 88/07/11 23:05:53 root * patch2: added Hokey's workaround for 68000 addlepation * patch2: changed some savestr's to avoid recalculating length when we know it --- 7,19 ---- * blame Henry for some of the lack of readability. */ ! /* $Header: regexp.c,v 2.0.1.3 88/07/15 18:10:47 root Exp $ * * $Log: regexp.c,v $ + * Revision 2.0.1.3 88/07/15 18:10:47 root + * patch9: finally nailed The Bug + * patch9: UTS can't cast char to double + * * Revision 2.0.1.2 88/07/11 23:05:53 root * patch2: added Hokey's workaround for 68000 addlepation * patch2: changed some savestr's to avoid recalculating length when we know it *************** *** 806,823 **** *flagp |= HASWIDTH; if (len == 1) *flagp |= SIMPLE; ! #ifdef m68k ! #define Vomit /* Hokey's workaround */ ! #endif ! #ifdef Vomit ! { ! char *rs = regcode; ! #endif Vomit ! *OPERAND(ret) = len; ! #ifdef Vomit ! regcode = rs; ! } ! #endif Vomit regc('\0'); } break; --- 810,817 ---- *flagp |= HASWIDTH; if (len == 1) *flagp |= SIMPLE; ! if (regcode != ®dummy) ! *OPERAND(ret) = len; regc('\0'); } break; *************** *** 1221,1227 **** STATIC int regmatch(); STATIC int regrepeat(); - extern char sawampersand; extern int multiline; /* --- 1215,1220 ----