Change 34695 by [EMAIL PROTECTED] on 2008/11/02 17:04:09
Subject: [PATCH] explicit empty while loops
From: "Robin Barker" <[EMAIL PROTECTED]>
Date: Wed, 29 Oct 2008 13:22:04 -0000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/op.c#1017 edit
... //depot/perl/pp_sort.c#85 edit
Differences ...
==== //depot/perl/op.c#1017 (text) ====
Index: perl/op.c
--- perl/op.c#1016~34679~ 2008-10-31 01:55:20.000000000 -0700
+++ perl/op.c 2008-11-02 09:04:09.000000000 -0800
@@ -8084,7 +8084,7 @@
const char *p = proto;
const char *const end = proto;
contextclass = 0;
- while (*--p != '[');
+ while (*--p != '[') {}
bad_type(arg, Perl_form(aTHX_ "one of %.*s",
(int)(end - p), p),
gv_ename(namegv), o3);
==== //depot/perl/pp_sort.c#85 (text) ====
Index: perl/pp_sort.c
--- perl/pp_sort.c#84~34694~ 2008-11-02 08:50:12.000000000 -0800
+++ perl/pp_sort.c 2008-11-02 09:04:09.000000000 -0800
@@ -204,7 +204,7 @@
if (r >= t) p = r = t; /* too short to care about */
else {
while (((cmp(aTHX_ *(p-1), *p) > 0) == sense) &&
- ((p -= 2) > q));
+ ((p -= 2) > q)) {}
if (p <= q) {
/* b through r is a (long) run.
** Extend it as far as possible.
End of Patch.
