ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Fix return of convert_value.
This commit is contained in:
Francois Gouget 2002-02-01 19:09:32 +00:00 committed by Alexandre Julliard
parent b10454965e
commit 419b4da388
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
programs/winetest/wine.xs
View File

@ -1,14 +1,15 @@
/* -*-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 )
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;
} }