diff --git a/SRC/cmemory.c b/SRC/cmemory.c
index cd876c7b..4b4ac325 100644
--- a/SRC/cmemory.c
+++ b/SRC/cmemory.c
@@ -660,8 +660,8 @@ cStackCompress(GlobalLU_t *Glu)
     
     last = (char*)usub + xusub[ndim] * iword;
     fragment = (char*) (((char*)Glu->stack.array + Glu->stack.top1) - last);
-    Glu->stack.used -= (long int) fragment;
-    Glu->stack.top1 -= (long int) fragment;
+    Glu->stack.used -= (int_t)(intptr_t) fragment;
+    Glu->stack.top1 -= (int_t)(intptr_t) fragment;
 
     Glu->ucol = ucol;
     Glu->lsub = lsub;
diff --git a/SRC/dmemory.c b/SRC/dmemory.c
index bf1aaad1..190769c8 100644
--- a/SRC/dmemory.c
+++ b/SRC/dmemory.c
@@ -660,8 +660,8 @@ dStackCompress(GlobalLU_t *Glu)
     
     last = (char*)usub + xusub[ndim] * iword;
     fragment = (char*) (((char*)Glu->stack.array + Glu->stack.top1) - last);
-    Glu->stack.used -= (long int) fragment;
-    Glu->stack.top1 -= (long int) fragment;
+    Glu->stack.used -= (int_t)(intptr_t) fragment;
+    Glu->stack.top1 -= (int_t)(intptr_t) fragment;
 
     Glu->ucol = ucol;
     Glu->lsub = lsub;
diff --git a/SRC/smemory.c b/SRC/smemory.c
index 32183477..7e535e0d 100644
--- a/SRC/smemory.c
+++ b/SRC/smemory.c
@@ -660,8 +660,8 @@ sStackCompress(GlobalLU_t *Glu)
     
     last = (char*)usub + xusub[ndim] * iword;
     fragment = (char*) (((char*)Glu->stack.array + Glu->stack.top1) - last);
-    Glu->stack.used -= (long int) fragment;
-    Glu->stack.top1 -= (long int) fragment;
+    Glu->stack.used -= (int_t)(intptr_t) fragment;
+    Glu->stack.top1 -= (int_t)(intptr_t) fragment;
 
     Glu->ucol = ucol;
     Glu->lsub = lsub;
diff --git a/SRC/zmemory.c b/SRC/zmemory.c
index e9fb0349..b61a8692 100644
--- a/SRC/zmemory.c
+++ b/SRC/zmemory.c
@@ -660,8 +660,8 @@ zStackCompress(GlobalLU_t *Glu)
     
     last = (char*)usub + xusub[ndim] * iword;
     fragment = (char*) (((char*)Glu->stack.array + Glu->stack.top1) - last);
-    Glu->stack.used -= (long int) fragment;
-    Glu->stack.top1 -= (long int) fragment;
+    Glu->stack.used -= (int_t)(intptr_t) fragment;
+    Glu->stack.top1 -= (int_t)(intptr_t) fragment;
 
     Glu->ucol = ucol;
     Glu->lsub = lsub;