From 45903fa3d58d139b22dbf9f53101b4d72bf57961 Mon Sep 17 00:00:00 2001
From: deuce <>
Date: Tue, 10 Jul 2007 21:11:09 +0000
Subject: [PATCH] getstrvar() -> 64-bit

---
 src/sbbs3/exec.cpp     |   2 +-
 src/sbbs3/execmisc.cpp | 126 ++++++++++++++++++++---------------------
 src/sbbs3/execnet.cpp  |  26 ++++-----
 src/sbbs3/sbbs.h       |   2 +-
 4 files changed, 78 insertions(+), 78 deletions(-)

diff --git a/src/sbbs3/exec.cpp b/src/sbbs3/exec.cpp
index a5a9fe44d9..6aab2216ed 100644
--- a/src/sbbs3/exec.cpp
+++ b/src/sbbs3/exec.cpp
@@ -38,7 +38,7 @@
 #include "sbbs.h"
 #include "cmdshell.h"
 
-char ** sbbs_t::getstrvar(csi_t *bin, long name)
+char ** sbbs_t::getstrvar(csi_t *bin, int32_t name)
 {
 	uint i;
 
diff --git a/src/sbbs3/execmisc.cpp b/src/sbbs3/execmisc.cpp
index 93c9569b90..6d433099c1 100644
--- a/src/sbbs3/execmisc.cpp
+++ b/src/sbbs3/execmisc.cpp
@@ -51,7 +51,7 @@ static char* format_string(sbbs_t* sbbs, csi_t* csi)
 	while(*(csi->ip++));	/* Find '\0' terminator */
 	args=*(csi->ip++); 		/* total args */
 	for(i=0;i<args;i++) {
-		if((vp=sbbs->getstrvar(csi,*(long *)csi->ip))==NULL) {
+		if((vp=sbbs->getstrvar(csi,*(int32_t *)csi->ip))==NULL) {
 			if((lp=sbbs->getintvar(csi,*(int32_t *)csi->ip))==NULL)
 				fmt=xp_asprintf_next(fmt,XP_PRINTF_CONVERT|XP_PRINTF_TYPE_INT,0);
 			else
@@ -78,7 +78,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 		case CS_VAR_INSTRUCTION:
 			switch(*(csi->ip++)) {	/* sub-op-code stored as next byte */
 				case PRINT_VAR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					if(!pp || !*pp) {
 						lp=getintvar(csi,*(int32_t *)csi->ip);
 						if(lp)
@@ -127,7 +127,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 							,global_int_var[i]);
 					return(0);
 				case DEFINE_STR_VAR:
-					if(getstrvar(csi,*(long *)csi->ip)) {
+					if(getstrvar(csi,*(int32_t *)csi->ip)) {
 						csi->ip+=4;
 						return(0); }
 					csi->str_vars++;
@@ -177,7 +177,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					csi->ip+=4; /* Skip variable name */
 					return(0);
 				case DEFINE_GLOBAL_STR_VAR:
-					if(getstrvar(csi,*(long *)csi->ip)) {
+					if(getstrvar(csi,*(int32_t *)csi->ip)) {
 						csi->ip+=4;
 						return(0); }
 					global_str_vars++;
@@ -230,7 +230,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					return(0);
 
 				case SET_STR_VAR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
 					if(pp)
 						*pp=copystrvar(csi,*pp
@@ -245,7 +245,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					csi->ip+=4; /* Skip value */
 					return(0);
 				case COMPARE_STR_VAR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
 					if(pp && *pp)
 						csi->logic=stricmp(*pp
@@ -258,7 +258,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					while(*(csi->ip++));	 /* Find NULL */
 					return(0);
 				case STRSTR_VAR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
 					if(pp && *pp && strstr(*pp
 						,cmdstr((char *)csi->ip,path,csi->str,buf)))
@@ -269,7 +269,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					return(0);
 				case STRNCMP_VAR:
 					i=*csi->ip++;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
 					if(pp && *pp)
 						csi->logic=strnicmp(*pp
@@ -280,9 +280,9 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					return(0);
 				case STRNCMP_VARS:
 					i=*csi->ip++;
-					pp1=getstrvar(csi,*(long *)csi->ip);
+					pp1=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
-					pp2=getstrvar(csi,*(long *)csi->ip);
+					pp2=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(pp1 && *pp1 && pp2 && *pp2)
 						csi->logic=strnicmp(*pp1,*pp2,i);
@@ -290,9 +290,9 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 						csi->logic=LOGIC_FALSE;
 					return(0);
 				case STRSTR_VARS:
-					pp1=getstrvar(csi,*(long *)csi->ip);
+					pp1=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
-					pp2=getstrvar(csi,*(long *)csi->ip);
+					pp2=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(pp1 && *pp1 && pp2 && *pp2 && strstr(*pp1,*pp2))
 						csi->logic=LOGIC_TRUE;
@@ -316,11 +316,11 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					return(0);
 				case COMPARE_VARS:
 					lp1=lp2=0;
-					pp1=getstrvar(csi,*(long *)csi->ip);
+					pp1=getstrvar(csi,*(int32_t *)csi->ip);
 					if(!pp1)
 						lp1=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
-					pp2=getstrvar(csi,*(long *)csi->ip);
+					pp2=getstrvar(csi,*(int32_t *)csi->ip);
 					if(!pp2)
 						lp2=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
@@ -360,11 +360,11 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					return(0);
 				case COPY_VAR:
 					lp1=lp2=0;
-					pp1=getstrvar(csi,*(long *)csi->ip);
+					pp1=getstrvar(csi,*(int32_t *)csi->ip);
 					if(!pp1)
 						lp1=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
-					pp2=getstrvar(csi,*(long *)csi->ip);
+					pp2=getstrvar(csi,*(int32_t *)csi->ip);
 					if(!pp2)
 						lp2=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
@@ -389,11 +389,11 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					return(0);
 				case SWAP_VARS:
 					lp1=lp2=0;
-					pp1=getstrvar(csi,*(long *)csi->ip);
+					pp1=getstrvar(csi,*(int32_t *)csi->ip);
 					if(!pp1)
 						lp1=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
-					pp2=getstrvar(csi,*(long *)csi->ip);
+					pp2=getstrvar(csi,*(int32_t *)csi->ip);
 					if(!pp2)
 						lp2=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
@@ -437,7 +437,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 						*lp2=l; }
 					return(0);
 				case CAT_STR_VAR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
 					strcpy(tmp,(char *)csi->ip);
 					while(*(csi->ip++));
@@ -454,9 +454,9 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 						strcat(*pp,tmp);
 					return(0);
 				case CAT_STR_VARS:
-					pp1=getstrvar(csi,*(long *)csi->ip);
+					pp1=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip dest variable name */
-					pp2=getstrvar(csi,*(long *)csi->ip);
+					pp2=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip source variable name */
 
 					/* Concatenate an int var to a str var (as char) */
@@ -499,7 +499,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					strcat(*pp1,*pp2);
 					return(0);
 				case FORMAT_STR_VAR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
 					p=format_string(this, csi);
 					cmdstr(p,path,csi->str,str);
@@ -508,7 +508,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					free(p);
 					return(0);
 				case FORMAT_TIME_STR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
 					strcpy(str,(char *)csi->ip);
 					while(*(csi->ip++));	/* Find NULL */
@@ -522,7 +522,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					}
 					return(0);
 				case TIME_STR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip str variable name */
 					lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip int variable name */
@@ -531,7 +531,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 						*pp=copystrvar(csi,*pp,str); }
 					return(0);
 				case DATE_STR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip str variable name */
 					lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip int variable name */
@@ -540,7 +540,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 						*pp=copystrvar(csi,*pp,str); }
 					return(0);
 				case SECOND_STR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip str variable name */
 					lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip int variable name */
@@ -549,25 +549,25 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 						*pp=copystrvar(csi,*pp,str); }
 					return(0);
 				case STRUPR_VAR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(pp && *pp)
 						strupr(*pp);
 					return(0);
 				case STRLWR_VAR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(pp && *pp)
 						strlwr(*pp);
 					return(0);
 				case TRUNCSP_STR_VAR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(pp && *pp)
 						truncsp(*pp);
 					return(0);
 				case STRIP_CTRL_STR_VAR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(pp && *pp)
 						strip_ctrl(*pp);
@@ -651,7 +651,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					csi->ip+=4;
 					lp2=getintvar(csi,*(int32_t *)csi->ip);
 					if(!lp2) {
-						pp=getstrvar(csi,*(long *)csi->ip);
+						pp=getstrvar(csi,*(int32_t *)csi->ip);
 						if(!pp || !*pp)
 							return(0);
 						l=strtol(*pp,0,0); }
@@ -706,7 +706,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case DATE_STR_TO_INT:
 					lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(lp && pp && *pp)
 						*lp=dstrtounix(&cfg,*pp);
@@ -714,7 +714,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case STRLEN_INT_VAR:
 					lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(lp) {
 						if(pp && *pp)
@@ -725,7 +725,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case CRC16_TO_INT:
 					lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(lp) {
 						if(pp && *pp)
@@ -736,7 +736,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case CRC32_TO_INT:
 					lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(lp) {
 						if(pp && *pp)
@@ -747,7 +747,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case CHKSUM_TO_INT:
 					lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(lp) {
 						*lp=0;
@@ -759,7 +759,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case FLENGTH_TO_INT:
 					lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(lp) {
 						if(pp && *pp)
@@ -770,7 +770,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case FTIME_TO_INT:
 					lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(lp) {
 						if(pp && *pp)
@@ -782,7 +782,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case COPY_FIRST_CHAR:	// duplicate functionality - doh!
 					lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(lp) {
 						if(pp && *pp)
@@ -795,7 +795,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case GETNAME_VAR:
 				case GETSTRUPR_VAR:
 				case GETSTR_MODE:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					i=*(csi->ip++);
 					csi->logic=LOGIC_FALSE;
@@ -828,7 +828,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 						csi->logic=LOGIC_TRUE; }
 					return(0);
 				case GETNUM_VAR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					if(!pp)
 						lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
@@ -852,7 +852,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					return(0);
 
 				case SHIFT_STR_VAR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					i=*(csi->ip++);
 					if(!pp || !*pp)
@@ -864,7 +864,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case SHIFT_TO_FIRST_CHAR:
 				case SHIFT_TO_LAST_CHAR:
 					i=*(csi->ip-1);
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					ch=*(csi->ip++);
 					csi->logic=LOGIC_FALSE;
@@ -883,7 +883,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					return(0);
 
 				case CHKFILE_VAR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(pp && *pp && fexistcase(cmdstr(*pp,path,csi->str,buf)))
 						csi->logic=LOGIC_TRUE;
@@ -891,7 +891,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 						csi->logic=LOGIC_FALSE;
 					return(0);
 				case PRINTFILE_VAR_MODE:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					i=*(short *)(csi->ip);
 					csi->ip+=2;
@@ -899,7 +899,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 						printfile(*pp,i);
 					return(0);
 				case PRINTTAIL_VAR_MODE:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					i=*(short *)(csi->ip);
 					csi->ip+=2;
@@ -911,7 +911,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case TELNET_GATE_VAR:
 					l=*(ulong *)(csi->ip);	// Mode
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(pp && *pp)
 						telnet_gate(*pp,l);
@@ -924,7 +924,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					telnet_gate(str,l);
 					return(0);
 				case COPY_CHAR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					if(pp==NULL)
 						lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
@@ -937,7 +937,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					}
 					return(0);
 				case COMPARE_FIRST_CHAR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					ch=*(csi->ip++);	/* char const */
 					if(pp==NULL || *pp==NULL)
@@ -971,7 +971,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case RECEIVE_FILE_VIA_VAR:
 					j=*(csi->ip-1);
 					ch=*(csi->ip++);	/* Protocol */
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					for(i=0;i<cfg.total_prots;i++)
 						if(cfg.prot[i]->mnemonic==ch && chk_ar(cfg.prot[i]->ar,&useron))
@@ -989,7 +989,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case MATCHUSER:
 					lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(lp) {
 						if(pp && *pp)
@@ -1016,7 +1016,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 						cmdstr((char *)csi->ip,path,csi->str,str);
 						while(*(csi->ip++)); }	 /* skip filename */
 					else {
-						pp=getstrvar(csi,*(long *)csi->ip);
+						pp=getstrvar(csi,*(int32_t *)csi->ip);
 						csi->ip+=4;
 						if(!pp || !*pp)
 							return(0);
@@ -1069,7 +1069,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case FIO_READ_VAR:
 					lp1=getintvar(csi,*(int32_t *)csi->ip);		/* Handle */
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					if(!pp)
 						lp2=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
@@ -1109,7 +1109,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case FIO_READ_LINE:
 					lp1=getintvar(csi,*(int32_t *)csi->ip);		/* Handle */
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					if(!pp)
 						lp2=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
@@ -1136,7 +1136,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case FIO_WRITE_VAR:
 					lp1=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					if(!pp)
 						lp2=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
@@ -1307,7 +1307,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 					csi->etx=*(csi->ip++);
 					return(0);
 				case REMOVE_FILE:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(pp && *pp && remove(*pp)==0)
 						csi->logic=LOGIC_TRUE;
@@ -1317,9 +1317,9 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case RENAME_FILE:
 				case COPY_FILE:
 				case MOVE_FILE:
-					pp1=getstrvar(csi,*(long *)csi->ip);
+					pp1=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4; /* Skip variable name */
-					pp2=getstrvar(csi,*(long *)csi->ip);
+					pp2=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(pp1 && *pp1 && pp2 && *pp2)
 						switch(*(csi->ip-9)) {
@@ -1339,7 +1339,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case SET_FILE_ATTRIB:
 					lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(pp && *pp && lp) {
 						if(*(csi->ip-9)==GET_FILE_ATTRIB)
@@ -1351,7 +1351,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case MAKE_DIR:
 				case REMOVE_DIR:
 				case CHANGE_DIR:
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					if(pp && *pp)
 						switch(*(csi->ip-5)) {
@@ -1371,7 +1371,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case OPEN_DIR:
 					lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					csi->logic=LOGIC_FALSE;
 					if(pp && *pp && lp) {
@@ -1382,7 +1382,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 				case READ_DIR:
 					lp=getintvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
-					pp=getstrvar(csi,*(long *)csi->ip);
+					pp=getstrvar(csi,*(int32_t *)csi->ip);
 					csi->ip+=4;
 					csi->logic=LOGIC_FALSE;
 					if(pp && lp) {
@@ -1500,7 +1500,7 @@ int sbbs_t::exec_misc(csi_t* csi, char *path)
 			while(*(csi->ip++));	 /* Find NULL */
 			return(0);
 		case CS_USE_INT_VAR:	// Self-modifying code!
-			pp=getstrvar(csi,*(long *)csi->ip);
+			pp=getstrvar(csi,*(int32_t *)csi->ip);
 			if(pp && *pp)
 				l=strtol(*pp,0,0);
 			else {
diff --git a/src/sbbs3/execnet.cpp b/src/sbbs3/execnet.cpp
index c46b8ab1ef..e39d0e5f34 100644
--- a/src/sbbs3/execnet.cpp
+++ b/src/sbbs3/execnet.cpp
@@ -121,7 +121,7 @@ int sbbs_t::exec_net(csi_t* csi)
 			lp=getintvar(csi,*(int32_t *)csi->ip);		/* socket */
 			csi->ip+=4;
 
-			pp=getstrvar(csi,*(long *)csi->ip);		/* address */
+			pp=getstrvar(csi,*(int32_t *)csi->ip);		/* address */
 			csi->ip+=4;
 
 			w=*(ushort *)csi->ip;					/* port */
@@ -178,7 +178,7 @@ int sbbs_t::exec_net(csi_t* csi)
 		case CS_SOCKET_READ:
 			lp=getintvar(csi,*(int32_t *)csi->ip);			/* socket */
 			csi->ip+=4;
-			pp=getstrvar(csi,*(long *)csi->ip);			/* buffer */
+			pp=getstrvar(csi,*(int32_t *)csi->ip);			/* buffer */
 			csi->ip+=4;
 			w=*(ushort *)csi->ip;						/* length */
 			csi->ip+=2;					
@@ -207,7 +207,7 @@ int sbbs_t::exec_net(csi_t* csi)
 		case CS_SOCKET_READLINE:
 			lp=getintvar(csi,*(int32_t *)csi->ip);			/* socket */
 			csi->ip+=4;
-			pp=getstrvar(csi,*(long *)csi->ip);			/* buffer */
+			pp=getstrvar(csi,*(int32_t *)csi->ip);			/* buffer */
 			csi->ip+=4;
 			w=*(ushort *)csi->ip;						/* length */
 			csi->ip+=2;					
@@ -264,7 +264,7 @@ int sbbs_t::exec_net(csi_t* csi)
 		case CS_SOCKET_WRITE:	
 			lp=getintvar(csi,*(int32_t *)csi->ip);			/* socket */
 			csi->ip+=4;
-			pp=getstrvar(csi,*(long *)csi->ip);			/* buffer */
+			pp=getstrvar(csi,*(int32_t *)csi->ip);			/* buffer */
 			csi->ip+=4;
 
 			csi->logic=LOGIC_FALSE;
@@ -283,9 +283,9 @@ int sbbs_t::exec_net(csi_t* csi)
 		case CS_FTP_LOGIN:
 			lp=getintvar(csi,*(int32_t *)csi->ip);			/* socket */
 			csi->ip+=4;
-			pp1=getstrvar(csi,*(long *)csi->ip);		/* username */
+			pp1=getstrvar(csi,*(int32_t *)csi->ip);		/* username */
 			csi->ip+=4;
-			pp2=getstrvar(csi,*(long *)csi->ip);		/* password */
+			pp2=getstrvar(csi,*(int32_t *)csi->ip);		/* password */
 			csi->ip+=4;
 
 			csi->logic=LOGIC_FALSE;
@@ -349,7 +349,7 @@ int sbbs_t::exec_net(csi_t* csi)
 		case CS_FTP_CWD:
 			lp=getintvar(csi,*(int32_t *)csi->ip);			/* socket */
 			csi->ip+=4;
-			pp=getstrvar(csi,*(long *)csi->ip);			/* path */
+			pp=getstrvar(csi,*(int32_t *)csi->ip);			/* path */
 			csi->ip+=4;
 
 			csi->logic=LOGIC_FALSE;
@@ -369,7 +369,7 @@ int sbbs_t::exec_net(csi_t* csi)
 		case CS_FTP_DIR:
 			lp=getintvar(csi,*(int32_t *)csi->ip);			/* socket */
 			csi->ip+=4;
-			pp=getstrvar(csi,*(long *)csi->ip);			/* path */
+			pp=getstrvar(csi,*(int32_t *)csi->ip);			/* path */
 			csi->ip+=4;
 
 			csi->logic=LOGIC_FALSE;
@@ -386,7 +386,7 @@ int sbbs_t::exec_net(csi_t* csi)
 		case CS_FTP_DELETE:
 			lp=getintvar(csi,*(int32_t *)csi->ip);			/* socket */
 			csi->ip+=4;
-			pp=getstrvar(csi,*(long *)csi->ip);			/* path */
+			pp=getstrvar(csi,*(int32_t *)csi->ip);			/* path */
 			csi->ip+=4;
 
 			csi->logic=LOGIC_FALSE;
@@ -407,9 +407,9 @@ int sbbs_t::exec_net(csi_t* csi)
 		case CS_FTP_GET:
 			lp=getintvar(csi,*(int32_t *)csi->ip);			/* socket */
 			csi->ip+=4;
-			pp1=getstrvar(csi,*(long *)csi->ip);		/* src path */
+			pp1=getstrvar(csi,*(int32_t *)csi->ip);		/* src path */
 			csi->ip+=4;
-			pp2=getstrvar(csi,*(long *)csi->ip);		/* dest path */
+			pp2=getstrvar(csi,*(int32_t *)csi->ip);		/* dest path */
 			csi->ip+=4;
 
 			csi->logic=LOGIC_FALSE;
@@ -426,9 +426,9 @@ int sbbs_t::exec_net(csi_t* csi)
 		case CS_FTP_PUT:
 			lp=getintvar(csi,*(int32_t *)csi->ip);			/* socket */
 			csi->ip+=4;
-			pp1=getstrvar(csi,*(long *)csi->ip);		/* src path */
+			pp1=getstrvar(csi,*(int32_t *)csi->ip);		/* src path */
 			csi->ip+=4;
-			pp2=getstrvar(csi,*(long *)csi->ip);		/* dest path */
+			pp2=getstrvar(csi,*(int32_t *)csi->ip);		/* dest path */
 			csi->ip+=4;
 
 			csi->logic=LOGIC_FALSE;
diff --git a/src/sbbs3/sbbs.h b/src/sbbs3/sbbs.h
index b0ba4ded40..23e636ae8c 100644
--- a/src/sbbs3/sbbs.h
+++ b/src/sbbs3/sbbs.h
@@ -391,7 +391,7 @@ public:
 	long	exec_bin(const char *mod, csi_t *csi);
 	void	clearvars(csi_t *bin);
 	void	freevars(csi_t *bin);
-	char**	getstrvar(csi_t *bin, long name);
+	char**	getstrvar(csi_t *bin, int32_t name);
 	int32_t*	getintvar(csi_t *bin, int32_t name);
 	char*	copystrvar(csi_t *csi, char *p, char *str);
 	void	skipto(csi_t *csi, uchar inst);
-- 
GitLab