Permalink
Browse files

[GH #828] Use more va_arg PARROT_VA_PTR_FLOATVAL

  • Loading branch information...
1 parent b04ce3f commit c9827b782a9c59d56f37b70870069211eeb64f22 @rurban rurban committed Sep 15, 2012
Showing with 6 additions and 6 deletions.
  1. +1 −1 src/call/args.c
  2. +5 −5 src/string/spf_vtable.c
View
2 src/call/args.c
@@ -1784,7 +1784,7 @@ static FLOATVAL*
numval_param_from_c_args(SHIM_INTERP, ARGIN(va_list *args), SHIM(INTVAL param_index))
{
ASSERT_ARGS(numval_param_from_c_args)
- return va_arg(*args, FLOATVAL*);
+ return va_arg(*args, PARROT_VA_PTR_FLOATVAL*);
}
PARROT_WARN_UNUSED_RESULT
View
10 src/string/spf_vtable.c
@@ -1,5 +1,5 @@
/*
-Copyright (C) 2001-2009, Parrot Foundation.
+Copyright (C) 2001-2012, Parrot Foundation.
=head1 NAME
@@ -313,16 +313,16 @@ getfloat_va(PARROT_INTERP, INTVAL size, ARGIN(SPRINTF_OBJ *obj))
switch (size) {
case SIZE_SHORT:
/* float is promoted to double */
- return (HUGEFLOATVAL)(float)va_arg(*arg, double);
+ return (HUGEFLOATVAL)(float)va_arg(*arg, PARROT_VA_PTR_FLOATVAL);
case SIZE_REG:
- return (HUGEFLOATVAL)(double)va_arg(*arg, double);
+ return (HUGEFLOATVAL)(double)va_arg(*arg, PARROT_VA_PTR_FLOATVAL);
case SIZE_HUGE:
- return (HUGEFLOATVAL)(HUGEFLOATVAL) va_arg(*arg, HUGEFLOATVAL);
+ return (HUGEFLOATVAL)(HUGEFLOATVAL) va_arg(*arg, PARROT_VA_PTR_FLOATVAL);
case SIZE_XVAL:
- return (HUGEFLOATVAL)(FLOATVAL) va_arg(*arg, FLOATVAL);
+ return (HUGEFLOATVAL)(FLOATVAL) va_arg(*arg, PARROT_VA_PTR_FLOATVAL);
case SIZE_PMC:
{

0 comments on commit c9827b7

Please sign in to comment.