OS/2 build

[p5sagit/p5-mst-13.2.git] / os2 / OS2 / ExtAttr / ExtAttr.xs

diff --git a/os2/OS2/ExtAttr/ExtAttr.xs b/os2/OS2/ExtAttr/ExtAttr.xs
index 566b659..1f4e203 100644 (file)
--- a/os2/OS2/ExtAttr/ExtAttr.xs
+++ b/os2/OS2/ExtAttr/ExtAttr.xs
@@ -11,17 +11,17 @@ extern "C" {
 #include "myea.h"
 
 SV *
-my_eadvalue(_ead ead, int index)
+my_eadvalue(pTHX_ _ead ead, int index)
 {
     SV *sv;
     int size = _ead_value_size(ead, index);
-    void *p;
+    const char *p;
 
     if (size == -1) {
-       die("Error getting size of EA: %s", strerror(errno));
+       Perl_die(aTHX_ "Error getting size of EA: %s", strerror(errno));
     }
     p = _ead_get_value(ead, index);
-    return  newSVpv((char*)p, size);
+    return  newSVpv(p, size);
 }
 
 #define my_eadreplace(ead, index, sv, flag)    \
@@ -37,6 +37,10 @@ SV *
 my_eadvalue(ead, index)
        _ead    ead
        int     index
+    CODE:
+       RETVAL = my_eadvalue(aTHX_ ead, index);
+    OUTPUT:
+       RETVAL
 
 int
 my_eadreplace(ead, index, sv, flag = 0)
@@ -132,7 +136,7 @@ _ead_find(ead, name)
        _ead    ead
        char *  name
 
-void *
+const void *
 _ead_get_fea2list(ead)
        _ead    ead
 
@@ -141,12 +145,12 @@ _ead_get_flags(ead, index)
        _ead    ead
        int     index
 
-char *
+const char *
 _ead_get_name(ead, index)
        _ead    ead
        int     index
 
-void *
+const void *
 _ead_get_value(ead, index)
        _ead    ead
        int     index