diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2002-04-21 19:53:08 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2002-04-21 19:53:08 +0000 |
| commit | eb160463266f58ba83ae9bb9ae8bbdc8f0c3027b (patch) | |
| tree | 41330a73ec92d9224b0fa008fcbc23fdc6593417 /vms | |
| parent | b8778c7c6345cf412905d167e9498cfd0d4983ea (diff) | |
| download | perl-eb160463266f58ba83ae9bb9ae8bbdc8f0c3027b.tar.gz | |
fixes for all the warnings reported by Visual C (most of this
change is from change#12026)
p4raw-link: @12026 on //depot/maint-5.6/perl: ff42b73b40f5a895aef4bed81c794f468e0609bc
p4raw-id: //depot/perl@16048
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/perly_c.vms | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/vms/perly_c.vms b/vms/perly_c.vms index 90726fec20..2b99328ca9 100644 --- a/vms/perly_c.vms +++ b/vms/perly_c.vms @@ -1616,7 +1616,7 @@ break; case 2: #line 136 "perly.y" { if (PL_copline > (line_t)yyvsp[-3].ival) - PL_copline = yyvsp[-3].ival; + PL_copline = (line_t)yyvsp[-3].ival; yyval.opval = block_end(yyvsp[-2].ival, yyvsp[-1].opval); } break; case 3: @@ -1635,7 +1635,7 @@ break; case 5: #line 156 "perly.y" { if (PL_copline > (line_t)yyvsp[-3].ival) - PL_copline = yyvsp[-3].ival; + PL_copline = (line_t)yyvsp[-3].ival; yyval.opval = block_end(yyvsp[-2].ival, yyvsp[-1].opval); } break; case 6: @@ -1703,7 +1703,7 @@ case 19: break; case 20: #line 209 "perly.y" -{ yyval.opval = newFOROP(0, Nullch, yyvsp[-1].ival, +{ yyval.opval = newFOROP(0, Nullch, (line_t)yyvsp[-1].ival, Nullop, yyvsp[0].opval, yyvsp[-2].opval, Nullop); } break; case 21: @@ -1716,19 +1716,19 @@ case 22: break; case 23: #line 219 "perly.y" -{ PL_copline = yyvsp[-5].ival; +{ PL_copline = (line_t)yyvsp[-5].ival; yyval.opval = newCONDOP(0, yyvsp[-3].opval, scope(yyvsp[-1].opval), yyvsp[0].opval); PL_hints |= HINT_BLOCK_SCOPE; } break; case 24: #line 226 "perly.y" -{ PL_copline = yyvsp[-6].ival; +{ PL_copline = (line_t)yyvsp[-6].ival; yyval.opval = block_end(yyvsp[-4].ival, newCONDOP(0, yyvsp[-3].opval, scope(yyvsp[-1].opval), yyvsp[0].opval)); } break; case 25: #line 230 "perly.y" -{ PL_copline = yyvsp[-6].ival; +{ PL_copline = (line_t)yyvsp[-6].ival; yyval.opval = block_end(yyvsp[-4].ival, newCONDOP(0, yyvsp[-3].opval, scope(yyvsp[-1].opval), yyvsp[0].opval)); } break; @@ -1742,7 +1742,7 @@ case 27: break; case 28: #line 244 "perly.y" -{ PL_copline = yyvsp[-6].ival; +{ PL_copline = (line_t)yyvsp[-6].ival; yyval.opval = block_end(yyvsp[-4].ival, newSTATEOP(0, yyvsp[-7].pval, newWHILEOP(0, 1, (LOOP*)Nullop, @@ -1750,7 +1750,7 @@ case 28: break; case 29: #line 250 "perly.y" -{ PL_copline = yyvsp[-6].ival; +{ PL_copline = (line_t)yyvsp[-6].ival; yyval.opval = block_end(yyvsp[-4].ival, newSTATEOP(0, yyvsp[-7].pval, newWHILEOP(0, 1, (LOOP*)Nullop, @@ -1759,23 +1759,23 @@ break; case 30: #line 256 "perly.y" { yyval.opval = block_end(yyvsp[-6].ival, - newFOROP(0, yyvsp[-9].pval, yyvsp[-8].ival, yyvsp[-5].opval, yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval)); } + newFOROP(0, yyvsp[-9].pval, (line_t)yyvsp[-8].ival, yyvsp[-5].opval, yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval)); } break; case 31: #line 259 "perly.y" { yyval.opval = block_end(yyvsp[-4].ival, - newFOROP(0, yyvsp[-8].pval, yyvsp[-7].ival, mod(yyvsp[-6].opval, OP_ENTERLOOP), + newFOROP(0, yyvsp[-8].pval, (line_t)yyvsp[-7].ival, mod(yyvsp[-6].opval, OP_ENTERLOOP), yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval)); } break; case 32: #line 263 "perly.y" { yyval.opval = block_end(yyvsp[-4].ival, - newFOROP(0, yyvsp[-7].pval, yyvsp[-6].ival, Nullop, yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval)); } + newFOROP(0, yyvsp[-7].pval, (line_t)yyvsp[-6].ival, Nullop, yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval)); } break; case 33: #line 267 "perly.y" { OP *forop; - PL_copline = yyvsp[-9].ival; + PL_copline = (line_t)yyvsp[-9].ival; forop = newSTATEOP(0, yyvsp[-10].pval, newWHILEOP(0, 1, (LOOP*)Nullop, yyvsp[-9].ival, scalar(yyvsp[-4].opval), |