diff --git a/SWIG/Lib/perl5/perlprimtypes.swg b/SWIG/Lib/perl5/perlprimtypes.swg
index fa57a3d67..6844facae 100644
--- a/SWIG/Lib/perl5/perlprimtypes.swg
+++ b/SWIG/Lib/perl5/perlprimtypes.swg
@@ -149,7 +149,8 @@ SWIG_AsVal_dec(unsigned long)(SV *obj, unsigned long *val)
 
 %fragment(SWIG_From_frag(long long),"header",
 	  fragment=SWIG_From_frag(long),
-	  fragment="<limits.h>") {
+	  fragment="<limits.h>",
+	  fragment="<stdio.h>") {
 SWIGINTERNINLINE SV *
 SWIG_From_dec(long long)(long long value)
 {
@@ -167,6 +168,7 @@ SWIG_From_dec(long long)(long long value)
 
 %fragment(SWIG_AsVal_frag(long long),"header",
 	  fragment="<limits.h>",
+	  fragment="<stdlib.h>",
 	  fragment="SWIG_CanCastAsInteger") {
 
 SWIGINTERN int
@@ -210,7 +212,8 @@ SWIG_AsVal_dec(long long)(SV *obj, long long *val)
 
 %fragment(SWIG_From_frag(unsigned long long),"header",
 	  fragment=SWIG_From_frag(long long),
-	  fragment="<limits.h>") {
+	  fragment="<limits.h>",
+	  fragment="<stdio.h>") {
 SWIGINTERNINLINE SV *
 SWIG_From_dec(unsigned long long)(unsigned long long value)
 {
@@ -228,6 +231,7 @@ SWIG_From_dec(unsigned long long)(unsigned long long value)
 
 %fragment(SWIG_AsVal_frag(unsigned long long),"header",
 	  fragment="<limits.h>",
+	  fragment="<stdlib.h>",
 	  fragment="SWIG_CanCastAsInteger") {
 SWIGINTERN int
 SWIG_AsVal_dec(unsigned long long)(SV *obj, unsigned long long *val)
diff --git a/SWIG/Lib/tcl/tclprimtypes.swg b/SWIG/Lib/tcl/tclprimtypes.swg
index 91c45996b..93fd0522a 100644
--- a/SWIG/Lib/tcl/tclprimtypes.swg
+++ b/SWIG/Lib/tcl/tclprimtypes.swg
@@ -52,7 +52,8 @@ SWIG_AsVal_dec(long)(Tcl_Obj *obj, long* val)
 /* unsigned long */
 
 %fragment(SWIG_From_frag(unsigned long),"header",
-	  fragment=SWIG_From_frag(long)) {
+	  fragment=SWIG_From_frag(long),
+	  fragment="<stdio.h>") {
 SWIGINTERNINLINE Tcl_Obj* 
 SWIG_From_dec(unsigned long)(unsigned long value)
 {
@@ -103,7 +104,8 @@ SWIG_AsVal_dec(unsigned long)(Tcl_Obj *obj, unsigned long *val) {
 
 %fragment(SWIG_From_frag(long long),"header",
 	  fragment=SWIG_From_frag(long),
-	  fragment="<limits.h>") {
+	  fragment="<limits.h>",
+	  fragment="<stdio.h>") {
 SWIGINTERNINLINE Tcl_Obj* 
 SWIG_From_dec(long long)(long long value)
 {
@@ -117,7 +119,8 @@ SWIG_From_dec(long long)(long long value)
 }
 }
 
-%fragment(SWIG_AsVal_frag(long long),"header") {
+%fragment(SWIG_AsVal_frag(long long),"header",
+	  fragment="<stdlib.h>") {
 SWIGINTERN int
 SWIG_AsVal_dec(long long)(Tcl_Obj *obj, long long *val)
 {
@@ -150,7 +153,8 @@ SWIG_AsVal_dec(long long)(Tcl_Obj *obj, long long *val)
 
 %fragment(SWIG_From_frag(unsigned long long),"header",
 	  fragment=SWIG_From_frag(long long),
-	  fragment="<limits.h>") {
+	  fragment="<limits.h>",
+	  fragment="<stdio.h>") {
 SWIGINTERNINLINE Tcl_Obj* 
 SWIG_From_dec(unsigned long long)(unsigned long long value)
 {
@@ -165,7 +169,8 @@ SWIG_From_dec(unsigned long long)(unsigned long long value)
 }
 
 %fragment(SWIG_AsVal_frag(unsigned long long),"header",
-	  fragment=SWIG_AsVal_frag(unsigned long)) {
+	  fragment=SWIG_AsVal_frag(unsigned long),
+	  fragment="<stdlib.h>") {
 SWIGINTERN int
 SWIG_AsVal_dec(unsigned long long)(Tcl_Obj *obj, unsigned long long *val)
 {
diff --git a/SWIG/Lib/typemaps/fragments.swg b/SWIG/Lib/typemaps/fragments.swg
index 7154c6ca6..8ae449fb3 100644
--- a/SWIG/Lib/typemaps/fragments.swg
+++ b/SWIG/Lib/typemaps/fragments.swg
@@ -340,6 +340,14 @@
 #include <float.h>
 %}
 
+%fragment("<stdio.h>","header") %{
+#include <stdio.h>
+%}
+
+%fragment("<stdlib.h>","header") %{
+#include <stdlib.h>
+%}
+
 /* -----------------------------------------------------------------------------
  * special macros for fragments
  * ----------------------------------------------------------------------------- */