Change 29812: [PATCH] g++ fixes

[H . Merijn Brand]

Change 29812 by [EMAIL PROTECTED] on 2007/01/15 07:45:28

        Subject: [PATCH] g++ fixes
        From: [EMAIL PROTECTED] (Jarkko Hietaniemi)
        Date: Mon, 15 Jan 2007 06:09:30 +0200 (EET)
        Message-Id: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/op.c#876 edit
... //depot/perl/toke.c#733 edit

Differences ...

==== //depot/perl/op.c#876 (text) ====
Index: perl/op.c
--- perl/op.c#875~29765~        2007-01-12 02:42:05.000000000 -0800
+++ perl/op.c   2007-01-14 23:45:28.000000000 -0800
@@ -3096,8 +3096,10 @@
            else if (j >= (I32)rlen)
                j = rlen - 1;
            else {
-               tbl = PerlMemShared_realloc(tbl,
-                                       (0x101+rlen-j) * sizeof(short));
+               tbl = 
+                   (short *)
+                   PerlMemShared_realloc(tbl,
+                                         (0x101+rlen-j) * sizeof(short));
                cPVOPo->op_pv = (char*)tbl;
            }
            tbl[0x100] = (short)(rlen - j);

==== //depot/perl/toke.c#733 (text) ====
Index: perl/toke.c
--- perl/toke.c#732~29761~      2007-01-11 09:12:08.000000000 -0800
+++ perl/toke.c 2007-01-14 23:45:28.000000000 -0800
@@ -10997,7 +10997,7 @@
     }
   no_more:
 
-    tbl = PerlMemShared_calloc(complement&&!del?258:256, sizeof(short));
+    tbl = (short *)PerlMemShared_calloc(complement&&!del?258:256, 
sizeof(short));
     o = newPVOP(OP_TRANS, 0, (char*)tbl);
     o->op_private &= ~OPpTRANS_ALL;
     o->op_private |= del|squash|complement|
End of Patch.