marko10_000
/
wine-wine
forked from Mirrors/wine-wine
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.
oldstable
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-*- --------------------------------------------------------------------
| Module: wine.xs |
| ---------------------------------------------------------------------------- |
| Purpose: Perl gateway to wine API calls |
| |
------------------------------------------------------------------------------*/
/* -*-C-*- -------------------------------------------------------------
| Module: wine.xs |
| -------------------------------------------------------------------- |
| Purpose: Perl gateway to wine API calls |
| |
----------------------------------------------------------------------*/
#include "config.h"
#include <stdlib.h>
#include <string.h>
#include "config.h"
#include "windef.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_PTR: return sv_2mortal( newSViv ((int) val ));
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;
}