Fix definition of CvSTASH

vickenty · vickenty · commit f3e24264e0db · 2019-06-13T21:19:51.000+02:00
diff --git a/lib/Ouroboros.pm b/lib/Ouroboros.pm
@@ -858,7 +858,7 @@ Perl macro: C<SvSTASH_set>
 
 =item ouroboros_cv_stash_ptr
 
-    OUROBOROS_STATIC void ouroboros_cv_stash(pTHX_ CV*);
+    OUROBOROS_STATIC HV* ouroboros_cv_stash(pTHX_ CV*);
 
 Perl macro: C<CvSTASH>
 
diff --git a/lib/Ouroboros/Spec.pm b/lib/Ouroboros/Spec.pm
@@ -1465,14 +1465,14 @@ our %SPEC = (
       "type" => "void"
     },
     {
-      "c_decl" => "OUROBOROS_STATIC void ouroboros_cv_stash(pTHX_ CV*);",
+      "c_decl" => "OUROBOROS_STATIC HV* ouroboros_cv_stash(pTHX_ CV*);",
       "name" => "ouroboros_cv_stash",
       "params" => [
         "CV*"
       ],
       "ptr_name" => "ouroboros_cv_stash_ptr",
       "tags" => {},
-      "type" => "void"
+      "type" => "HV*"
     },
     {
       "c_decl" => "OUROBOROS_STATIC const char* ouroboros_hv_name(pTHX_ HV*);",
diff --git a/libouroboros.c b/libouroboros.c
@@ -589,9 +589,9 @@ void ouroboros_sv_stash_set(pTHX_ SV* sv, HV* a)
         SvSTASH_set(sv, a);
 }
 
-void ouroboros_cv_stash(pTHX_ CV* a)
+HV* ouroboros_cv_stash(pTHX_ CV* a)
 {
-        CvSTASH(a);
+        return CvSTASH(a);
 }
 
 const char* ouroboros_hv_name(pTHX_ HV* a)
diff --git a/libouroboros.h b/libouroboros.h
@@ -148,7 +148,7 @@ OUROBOROS_STATIC HV* ouroboros_gv_hv(pTHX_ GV*);
 OUROBOROS_STATIC CV* ouroboros_gv_cv(pTHX_ CV*);
 OUROBOROS_STATIC HV* ouroboros_sv_stash(pTHX_ SV*);
 OUROBOROS_STATIC void ouroboros_sv_stash_set(pTHX_ SV*, HV*);
-OUROBOROS_STATIC void ouroboros_cv_stash(pTHX_ CV*);
+OUROBOROS_STATIC HV* ouroboros_cv_stash(pTHX_ CV*);
 OUROBOROS_STATIC const char* ouroboros_hv_name(pTHX_ HV*);
 OUROBOROS_STATIC STRLEN ouroboros_hv_name_len(pTHX_ HV*);
 OUROBOROS_STATIC unsigned char ouroboros_hv_name_utf8(pTHX_ HV*);
diff --git a/libouroboros.txt b/libouroboros.txt
@@ -251,7 +251,7 @@ fn	HV*	ouroboros_sv_stash	SV*
 #: SvSTASH_set
 fn	void	ouroboros_sv_stash_set	SV*	HV*
 #: CvSTASH
-fn	void	ouroboros_cv_stash	CV*
+fn	HV*	ouroboros_cv_stash	CV*
 #: HvNAME
 fn	const char*	ouroboros_hv_name	HV*
 #: HvNAMELEN

Original file line number	Diff line number	Diff line change
`@@ -589,9 +589,9 @@ void ouroboros_sv_stash_set(pTHX_ SV* sv, HV* a)`
`589`	`589`	`SvSTASH_set(sv, a);`
`590`	`590`	`}`
`591`	`591`
`592`		`-void ouroboros_cv_stash(pTHX_ CV* a)`
	`592`	`+HV* ouroboros_cv_stash(pTHX_ CV* a)`
`593`	`593`	`{`
`594`		`- CvSTASH(a);`
	`594`	`+ return CvSTASH(a);`
`595`	`595`	`}`
`596`	`596`
`597`	`597`	`const char* ouroboros_hv_name(pTHX_ HV* a)`