This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Miscellaneous minor fixes
authorCharles Bailey <bailey@newman.upenn.edu>
Mon, 2 Mar 1998 01:48:27 +0000 (20:48 -0500)
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>
Thu, 5 Mar 1998 19:01:25 +0000 (19:01 +0000)
p4raw-id: //depot/perl@779

bytecode.h
ext/B/Makefile.PL
ext/B/byteperl.c
ext/Thread/Makefile.PL
patchlevel.h
perldir.h

index 8cdb001..4676b5a 100644 (file)
@@ -36,7 +36,7 @@ EXT I32 obj_list_fill INIT(-1);
 #define BGET_U8(arg)   arg = BGET_FGETC()
 
 #if INDIRECT_BGET_MACROS
-#define BGET_PV(arg)   do {            \
+#define BGET_PV(arg)   STMT_START {    \
        BGET_U32(arg);                  \
        if (arg)                        \
            bs.freadpv(arg, bs.data);   \
@@ -45,13 +45,13 @@ EXT I32 obj_list_fill INIT(-1);
            pv.xpv_len = 0;             \
            pv.xpv_cur = 0;             \
        }                               \
-    } while (0)
+    } STMT_END
 #else
-#define BGET_PV(arg)   do {                    \
+#define BGET_PV(arg)   STMT_START {            \
        BGET_U32(arg);                          \
        if (arg) {                              \
            New(666, pv.xpv_pv, arg, char);     \
-           PerlIO_fread(pv.xpv_pv, 1, arg, fp);        \
+           PerlIO_fread(pv.xpv_pv, 1, arg, fp);\
            pv.xpv_len = arg;                   \
            pv.xpv_cur = arg - 1;               \
        } else {                                \
@@ -59,7 +59,7 @@ EXT I32 obj_list_fill INIT(-1);
            pv.xpv_len = 0;                     \
            pv.xpv_cur = 0;                     \
        }                                       \
-    } while (0)
+    } STMT_END
 #endif /* INDIRECT_BGET_MACROS */
 
 #define BGET_comment(arg) \
@@ -70,7 +70,7 @@ EXT I32 obj_list_fill INIT(-1);
  * machines such that 32-bit machine compilers don't whine about the shift
  * count being too high even though the code is never reached there.
  */
-#define BGET_IV64(arg) do {                            \
+#define BGET_IV64(arg) STMT_START {                    \
        U32 hi, lo;                                     \
        BGET_U32(hi);                                   \
        BGET_U32(lo);                                   \
@@ -84,7 +84,7 @@ EXT I32 obj_list_fill INIT(-1);
            iv_overflows++;                             \
            arg = 0;                                    \
        }                                               \
-    } while (0)
+    } STMT_END
 
 #define BGET_op_tr_array(arg) do {     \
        unsigned short *ary;            \
@@ -97,31 +97,31 @@ EXT I32 obj_list_fill INIT(-1);
     } while (0)
 
 #define BGET_pvcontents(arg)   arg = pv.xpv_pv
-#define BGET_strconst(arg)     do {    \
+#define BGET_strconst(arg) STMT_START {        \
        for (arg = tokenbuf; (*arg = BGET_FGETC()); arg++) /* nothing */; \
        arg = tokenbuf;                 \
-    } while (0)
+    } STMT_END
 
-#define BGET_double(arg)       do {    \
+#define BGET_double(arg) STMT_START {  \
        char *str;                      \
        BGET_strconst(str);             \
        arg = atof(str);                \
-    } while (0)
+    } STMT_END
 
-#define BGET_objindex(arg) do {        \
-       U32 ix;                 \
-       BGET_U32(ix);           \
-       arg = obj_list[ix];     \
-    } while (0)
+#define BGET_objindex(arg) STMT_START {        \
+       U32 ix;                         \
+       BGET_U32(ix);                   \
+       arg = obj_list[ix];             \
+    } STMT_END
 
 #define BSET_ldspecsv(sv, arg) sv = specialsv_list[arg]
                                    
 #define BSET_sv_refcnt_add(svrefcnt, arg)      svrefcnt += arg
 #define BSET_gp_refcnt_add(gprefcnt, arg)      gprefcnt += arg
-#define BSET_gp_share(sv, arg) do {    \
-       gp_free((GV*)sv);               \
-       GvGP(sv) = GvGP(arg);           \
-    } while (0)
+#define BSET_gp_share(sv, arg) STMT_START {    \
+       gp_free((GV*)sv);                       \
+       GvGP(sv) = GvGP(arg);                   \
+    } STMT_END
 
 #define BSET_gv_fetchpv(sv, arg)       sv = (SV*)gv_fetchpv(arg, TRUE, SVt_PV)
 #define BSET_gv_stashpv(sv, arg)       sv = (SV*)gv_stashpv(arg, TRUE)
@@ -144,11 +144,11 @@ EXT I32 obj_list_fill INIT(-1);
                pregcomp(arg, arg + pv.xpv_cur, ((PMOP*)o)) : 0
 #define BSET_newsv(sv, arg)    sv = NEWSV(666,0); SvUPGRADE(sv, arg)
 #define BSET_newop(o, arg)     o = (OP*)safemalloc(optype_size[arg])
-#define BSET_newopn(o, arg)    do {    \
-       OP *oldop = o;                  \
-       BSET_newop(o, arg);             \
-       oldop->op_next = o;             \
-    } while (0)
+#define BSET_newopn(o, arg) STMT_START {       \
+       OP *oldop = o;                          \
+       BSET_newop(o, arg);                     \
+       oldop->op_next = o;                     \
+    } STMT_END
 
 #define BSET_ret(foo) return
 
@@ -156,12 +156,12 @@ EXT I32 obj_list_fill INIT(-1);
  * Kludge special-case workaround for OP_MAPSTART
  * which needs the ppaddr for OP_GREPSTART. Blech.
  */
-#define BSET_op_type(o, arg)   do {    \
-       o->op_type = arg;               \
-       if (arg == OP_MAPSTART)         \
-           arg = OP_GREPSTART;         \
-       o->op_ppaddr = ppaddr[arg];     \
-    } while (0)
+#define BSET_op_type(o, arg) STMT_START {      \
+       o->op_type = arg;                       \
+       if (arg == OP_MAPSTART)                 \
+           arg = OP_GREPSTART;                 \
+       o->op_ppaddr = ppaddr[arg];             \
+    } STMT_END
 #define BSET_op_ppaddr(o, arg) croak("op_ppaddr not yet implemented")
 #define BSET_curpad(pad, arg) pad = AvARRAY(arg)
 
index 92f01e2..cdcc4ed 100644 (file)
@@ -16,6 +16,7 @@ if ($^O eq 'MSWin32') {
 WriteMakefile(
     NAME       => "B",
     VERSION    => "a5",
+    MAN3PODS => ' ',
     clean      => {
        FILES           => "perl$e byteperl$e *$o B.c *~"
     }
index c4bf6d7..a42edfb 100644 (file)
@@ -3,7 +3,6 @@
 #ifndef PATCHLEVEL
 #include "patchlevel.h"
 #endif
-#include "byterun.h"
 
 static void xs_init _((void));
 static PerlInterpreter *my_perl;
index bed0db4..e252d4e 100644 (file)
@@ -1,6 +1,7 @@
 use ExtUtils::MakeMaker;
 WriteMakefile(
        NAME => 'Thread',
-       VERSION_FROM => 'Thread.pm'
+       VERSION_FROM => 'Thread.pm',
+    MAN3PODS => ' '
        );
 
index 1fe5ee8..aad5161 100644 (file)
@@ -1,3 +1,4 @@
+#ifndef __PATCHLEVEL_H_INCLUDED__
 #define PATCHLEVEL 4
 #define SUBVERSION 61
 
@@ -44,3 +45,6 @@ static        char    *local_patches[] = {
 /* Initial space prevents this variable from being inserted in config.sh  */
 #  define      LOCAL_PATCH_COUNT       \
        (sizeof(local_patches)/sizeof(local_patches[0])-2)
+
+#define __PATCHLEVEL_H_INCLUDED__
+#endif
index 45b3ba6..23d20ac 100644 (file)
--- a/perldir.h
+++ b/perldir.h
@@ -3,7 +3,7 @@
 
 #ifdef PERL_OBJECT
 #else
-#define PerlDir_mkdir(name, mode) mkdir((name), (mode))
+#define PerlDir_mkdir(name, mode) Mkdir((name), (mode))
 #define PerlDir_chdir(name) chdir((name))
 #define PerlDir_rmdir(name) rmdir((name))
 #define PerlDir_close(dir) closedir((dir))