diff --git a/internal/c/libqb.cpp b/internal/c/libqb.cpp
index 592b9f482..f17b95401 100644
--- a/internal/c/libqb.cpp
+++ b/internal/c/libqb.cpp
@@ -29741,9 +29741,3 @@ void reinit_glut_callbacks(){
         
     #endif
 }
-
-int64 _SHL(int64 a1,int b1) 
-{return a1<<b1;}
-
-int64 _SHR(int64 a1,int b1) 
-{return a1>>b1;}
diff --git a/internal/c/qbx.cpp b/internal/c/qbx.cpp
index bbd245310..bbf4a9256 100644
--- a/internal/c/qbx.cpp
+++ b/internal/c/qbx.cpp
@@ -618,8 +618,8 @@ extern float string2s(qbs*str);
 extern double string2d(qbs*str);
 extern long double string2f(qbs*str);
 //Cobalt(aka Dave) added the next 2 lines
-extern int64 _SHR(int64 a1, int b1);
-extern int64 _SHL(int64 a1, int b1);
+int64 func__shr(int64 a1, int b1);
+int64 func__shl(int64 a1, int b1);
 #ifndef QB64_WINDOWS
     extern void Sleep(uint32 milliseconds);
     extern void ZeroMemory(void *ptr,int64 bytes);
@@ -947,6 +947,13 @@ inline int32 func_sgn(long double v){
     return 0;
 }
 
+//bit-shifting
+inline int64 func__shl(int64 a1,int b1) 
+{return a1<<b1;}
+
+inline int64 func__shr(int64 a1,int b1) 
+{return a1>>b1;}
+
 //Working with 32bit colors:
 inline uint32 func__rgb32(int32 r,int32 g,int32 b,int32 a){
     if (r<0) r=0;
diff --git a/source/subs_functions/subs_functions.bas b/source/subs_functions/subs_functions.bas
index 5f7823990..d057ca504 100644
--- a/source/subs_functions/subs_functions.bas
+++ b/source/subs_functions/subs_functions.bas
@@ -3347,7 +3347,7 @@ regid
 clearid
 id.n = "_SHR"
 id.subfunc = 1
-id.callname = "_SHR"
+id.callname = "func__shr"
 id.args = 2
 id.arg = MKL$(INTEGER64TYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER)
 id.ret = INTEGER64TYPE - ISPOINTER
@@ -3356,7 +3356,7 @@ regid
 clearid
 id.n = "_SHL"
 id.subfunc = 1
-id.callname = "_SHL"
+id.callname = "func__shl"
 id.args = 2
 id.arg = MKL$(INTEGER64TYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER)
 id.ret = INTEGER64TYPE - ISPOINTER