string

ediv/CHANGE_LOG.txt

@@ -1,3 +1,11 @@
+25/5/2003
+---------
+ * Añadido soporte para datos STRING. Aún quedan por comprobar algunos
+   opcodes, los estoy señalando en el string.txt. Hay que averiguar el
+   origen del bug de Huevox (ver bug1.prg y bug1sol.prg). Curiosamente,
+   (o cabreantemente :P) el EML generado para los dos PRG es idéntico, 
+   pero aún así se comportan de forma distinta. (Er_Makina)
+
 4/4/2003
 --------
  * Añadido soporte para datos WORD. (Er_Makina)

ediv/bin/test/torus.prg

@@ -20,7 +20,6 @@ GLOBAL
     sen[360],cosen[360];
     dibupun;
     gir=1;
-    mx,my;
 
 BEGIN
     crea_tablas();
@@ -28,8 +27,6 @@ BEGIN
         clear_screen();
         gira_Donut(xdeg,ydeg,zdeg);
         pon_lineas(rgb(255,255,0));
-        mx=mouse.x;
-        my=mouse.y;
         frame;
         if(key(_p))
             dibupun++;

ediv/propuestas.txt

@@ -324,4 +324,6 @@ librer
 
 char = signed byte
 short = signed word
-dword = unsigned int
+dword = unsigned int
+
+opcion de compilacion: _explicit_type (obliga a indicar el tipo de dato en la declaracion de las variables)

ediv/src/ediv/compiler.c

@@ -139,6 +139,8 @@ void compila()
 	
 	printf(translate(27));
 	
+	/* inicio_textos debe ser como mínimo 256 */
+	if(imem<256) imem=256;
 	itxt=inicio_textos=imem;
 	psintactico();		/* Para obtener "longitud_textos" */
 	imem+=longitud_textos;
@@ -191,6 +193,8 @@ void compila()
 		}
 	}
 
+	/* inicio_textos debe ser como mínimo 256 */
+	if(imem<256) imem=256;
 	itxt=inicio_textos=imem;
 	imem+=longitud_textos;
 	test_buffer(&mem,&imem_max,imem);

ediv/src/stub/inte.c

@@ -92,6 +92,7 @@ int ini_interprete()
 		last_lin=0;
 	#endif /* DBG */
 
+	nstring=0;
 
 	return 1 ;
 }
@@ -151,6 +152,13 @@ int interprete()
 			if(procs_s[proc_orden[proceso_actual]].tipo==0 || mem[procs_s[proc_orden[proceso_actual]].id+_status]==2)
 				proceso( proc_orden[ proceso_actual ], -1 ) ;
 		}
+
+		/* El texto "en el aire" no se muestra nunca */
+		memb[nullstring[0]*4]=0;
+        memb[nullstring[1]*4]=0;
+        memb[nullstring[2]*4]=0;
+        memb[nullstring[3]*4]=0;
+
 		Call_Entrypoint(EDIV_frame);
 
 		for ( proceso_actual = 0 ; proceso_actual < num_proc_orden ; proceso_actual++ )
@@ -179,7 +187,7 @@ int proceso( int num, int padre )
 	int retcode = 0;
 	int no_devuelve = 0 ;
 	int (*externa)(struct _fun_params*);
-	int temp ;
+	int temp,oo;
 	unsigned int utemp;
 	int cpas=0;
 	#ifdef DBG
@@ -754,8 +762,6 @@ int proceso( int num, int padre )
 		/* OPERACIONES CON DATOS DE TIPO STRING */
 		/* Nota: un puntero a cadena menor a 256 se trata siempre como "%c" */
 
-#ifdef esto_pa_la_0_1_4
-
 		case lstrcpy:
 /*			#ifdef DEBUG
 				if ((mem[pila[sp-1]-1]&0xFFF00000)!=0xDAD00000) {
@@ -769,8 +775,10 @@ int proceso( int num, int padre )
 					break;
 				}
 			#endif*/
-			if ((unsigned)pila[sp]>255) strcpy((char*)&mem[pila[sp-1]],(char*)&mem[pila[sp]]);
+			if ((unsigned)pila[sp]>255)
-			else sprintf((char*)&mem[pila[sp-1]],"%c\0",pila[sp]);
+				strcpy((char*)&mem[pila[sp-1]],(char*)&mem[pila[sp]]);
+			else
+				sprintf((char*)&mem[pila[sp-1]],"%c\0",pila[sp]);
 			sp--;
 			break;
 
@@ -831,11 +839,11 @@ int proceso( int num, int padre )
 			oo=strlen((char*)&mem[pila[sp-1]]);
 			if (oo<1028) {
 				strcpy((char*)&mem[nullstring[nstring]],(char*)&mem[pila[sp-1]]);
-				if (pila[sp]>0) { // Quitar caracteres
+				if (pila[sp]>0) { /* Quitar caracteres */
 					if (pila[sp]>=oo) memb[nullstring[nstring]*4]=0;
 					else memb[nullstring[nstring]*4+oo-pila[sp]]=0;
-				} else if (pila[sp]<0) { // A¤adir (?) caracteres (por homogeneidad)
+				} else if (pila[sp]<0) { /* Añadir (?) caracteres (por homogeneidad) */
-					pila[sp]=oo-pila[sp]; // Nueva longitud
+					pila[sp]=oo-pila[sp]; /* Nueva longitud */
 					if (pila[sp]>1025) pila[sp]=1025;
 					for (;oo<pila[sp];oo++) {
 						memb[nullstring[nstring]*4+oo]=' ';
@@ -863,8 +871,8 @@ int proceso( int num, int padre )
 			if (pila[sp]>0) { // Quitar caracteres
 				if (pila[sp]>=oo) memb[pila[sp-1]*4]=0;
 				else memb[pila[sp-1]*4+oo-pila[sp]]=0;
-			} else if (pila[sp]<0) { // A¤adir (?) caracteres (por homogeneidad)
+			} else if (pila[sp]<0) { /* Añadir (?) caracteres (por homogeneidad) */
-				pila[sp]=oo-pila[sp]; // Nueva longitud
+				pila[sp]=oo-pila[sp]; /* Nueva longitud */
 				for (;oo<pila[sp];oo++) {
 					memb[pila[sp-1]*4+oo]=' ';
 				} memb[pila[sp-1]*4+oo]=0;
@@ -971,6 +979,7 @@ int proceso( int num, int padre )
 			break;
 
 		case lcpastr:
+			_param_offset=reservedptr("param_offset");
 /*			#ifdef DEBUG
 				if ((mem[pila[sp]-1]&0xFFF00000)!=0xDAD00000) {
 					sp--; mem[id+_Param]++; v_function=-2; e(164);
@@ -985,12 +994,11 @@ int proceso( int num, int padre )
 					}
 				}
 			#endif*/
-			if ((unsigned)pila[mem[id+_Param]]>255)
+			if ((unsigned)pila[mem[procs_s[num_proc].id+_param_offset]]>255)
-				strcpy((char*)&mem[pila[sp]],(char*)&mem[pila[mem[id+_Param]]]);
+				strcpy((char*)&mem[pila[sp]],(char*)&mem[pila[mem[procs_s[num_proc].id+_param_offset]]]);
-			else sprintf((char*)&mem[pila[sp]],"%c\0",pila[mem[id+_Param]]);
+			else sprintf((char*)&mem[pila[sp]],"%c\0",pila[mem[procs_s[num_proc].id+_param_offset]]);
-			sp--; mem[id+_Param]++;
+			sp--; mem[procs_s[num_proc].id+_param_offset]++;
 			break;
-#endif
 
 		/* Comprobación de punteros nulos */
 		case lnul:

ediv/src/stub/inte.h

@@ -251,6 +251,13 @@ int num_proc_orden ;
 
 int devolver; // Si se espera devolucion > 0
 
+//----------------------------------------------------------------------
+// Para sumar cadenas "en el aire" (es decir, para evaluar los resultados de
+// las expresiones con cadenas, que no se almacenan necesariamente en mem[])
+
+int nullstring[4];
+int nstring;
+
 //----------------------------------------------------------------------
 
 int ini_interprete() ;

ediv/src/stub/stub.c

@@ -128,9 +128,11 @@ int main(int argc, char* argv[])
 	iloc_len=(mimem[5]+mimem[6]);
 	if (iloc_len&1) iloc_len++;
 	
+	/* max_process */
 	if (mimem[3]>0) {
 		imem_max=mimem[8]+mimem[3]*(iloc_len)+iloc_len+2;
 	} else {
+		/* si max_process==0, calcula un límite de memoria */
 		imem_max=mimem[8]+128*(iloc_len)+iloc_len+2;
 		if (imem_max<256*1024) imem_max=256*1024;
 		if (imem_max>512*1024) imem_max=512*1024;
@@ -144,11 +146,11 @@ int main(int argc, char* argv[])
 		//filenames=(char*)&mem[imem_max+258*5]; // Buffer de 16*1025 para dirinfo[].name
 		
 		memset(mem,0,4*imem_max+1032*5);
-		// Para sumar cadenas "en el aire"
+		/* Para sumar cadenas "en el aire" */
-/*		nullstring[0]=imem_max+1+258*0; mem[nullstring[0]-1]=0xDAD00402;
+		nullstring[0]=imem_max+1+258*0; mem[nullstring[0]-1]=0xDAD00402;
 		nullstring[1]=imem_max+1+258*1; mem[nullstring[1]-1]=0xDAD00402;
 		nullstring[2]=imem_max+1+258*2; mem[nullstring[2]-1]=0xDAD00402;
-		nullstring[3]=imem_max+1+258*3; mem[nullstring[3]-1]=0xDAD00402;*/
+		nullstring[3]=imem_max+1+258*3; mem[nullstring[3]-1]=0xDAD00402;
 		memcpy(mem,mimem,40);
 		
 		if ((ptr=(byte*)malloc(len))!=NULL) {