Commit 419b4da3 authored by Francois Gouget's avatar Francois Gouget Committed by Alexandre Julliard

config.h should be included first (if at all).

Fix return of convert_value.
parent b1045496
/* -*-C-*- -------------------------------------------------------------------- /* -*-C-*- -------------------------------------------------------------
| Module: wine.xs | | Module: wine.xs |
| ---------------------------------------------------------------------------- | | -------------------------------------------------------------------- |
| Purpose: Perl gateway to wine API calls | | Purpose: Perl gateway to wine API calls |
| | | |
------------------------------------------------------------------------------*/ ----------------------------------------------------------------------*/
#include "config.h"
#include <stdlib.h> #include <stdlib.h>
#include <string.h> #include <string.h>
#include "config.h"
#include "windef.h" #include "windef.h"
#include <EXTERN.h> #include <EXTERN.h>
...@@ -124,11 +125,9 @@ static SV *convert_value( enum ret_type type, unsigned long val ) ...@@ -124,11 +125,9 @@ static SV *convert_value( enum ret_type type, unsigned long val )
case RET_WORD: return sv_2mortal( newSViv ((int) val & 0xffff )); case RET_WORD: return sv_2mortal( newSViv ((int) val & 0xffff ));
case RET_PTR: return sv_2mortal( newSViv ((int) val )); case RET_PTR: return sv_2mortal( newSViv ((int) val ));
case RET_STR: return sv_2mortal( newSVpv ((char *) val, 0 )); case RET_STR: return sv_2mortal( newSVpv ((char *) val, 0 ));
default:
croak ("Bad return type %d", type);
break;
} }
croak ("Bad return type %d", type);
return &PL_sv_undef;
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment