diff --git a/ediv/CHANGE_LOG.txt b/ediv/CHANGE_LOG.txt
index e0118fa..b45838a 100644
--- a/ediv/CHANGE_LOG.txt
+++ b/ediv/CHANGE_LOG.txt
@@ -1,3 +1,12 @@
+20/10/2002
+----------
+ * Ahora si no hay archivos .dll o .so solo muestra el mensaje de error, pero NO
+   sale de la compilacion (Daijo)
+ * Cambio todos los free/malloc de dll_load.c por e_free y e_malloc (Daijo)
+ * Cambio todos los free de los archivos que quedaban por e_free (Daijo)
+ * Mas comentarizacion (Daijo)
+ 
+
 19/10/2002
 ----------
  * Añado la rutina e_free() en ediv.c. Se encarga de comprobar si hay un puntero
diff --git a/ediv/src/ediv/compiler.c b/ediv/src/ediv/compiler.c
index 9d58e2a..8fa7417 100644
--- a/ediv/src/ediv/compiler.c
+++ b/ediv/src/ediv/compiler.c
@@ -1,6 +1,6 @@
 /*
  * eDiv Compiler
- * Copyright (C) 2000-2002 Sion Entertainment
+ * Copyright (C) 2000-2002 Sion, Ltd.
  * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
diff --git a/ediv/src/ediv/compiler.h b/ediv/src/ediv/compiler.h
index 0de128c..309f0fa 100644
--- a/ediv/src/ediv/compiler.h
+++ b/ediv/src/ediv/compiler.h
@@ -1,18 +1,18 @@
-/* 
+/*
  * eDiv Compiler
- * Copyright (C) 2000-2002 Sion Entertainment
+ * Copyright (C) 2000-2002 Sion, Ltd.
  * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 2 of the License, or
  * (at your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  * GNU General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
diff --git a/ediv/src/ediv/dll_load.c b/ediv/src/ediv/dll_load.c
index ada3e5b..d20ece9 100644
--- a/ediv/src/ediv/dll_load.c
+++ b/ediv/src/ediv/dll_load.c
@@ -93,7 +93,7 @@ void KillDLLLoad(void)
 	cur=g_pImageParamHead;
 	while(cur!=NULL) {
 		next=cur->next;
-		free(cur);
+		e_free(cur);
 		cur=next;
 	}
 
@@ -124,7 +124,7 @@ static int AddDLLReference(void *pImageBase, char *svName, DWORD dwFlags)
 	}
 
 	// Add new dll to list
-	cur=(IMAGE_PARAMETERS *)malloc(sizeof(IMAGE_PARAMETERS));
+	cur=(IMAGE_PARAMETERS *)e_malloc(sizeof(IMAGE_PARAMETERS));
 	if(cur==NULL) {
 		LeaveCriticalSection(&g_DLLCrit);
 		return -1;
@@ -171,10 +171,10 @@ static int RemoveDLLReference(void *pImageBase, char *svName, DWORD *pdwFlags)
 	if(cur->nLockCount==0) {
 		if(prev==NULL) {
 			g_pImageParamHead=g_pImageParamHead->next;
-			free(cur);
+			e_free(cur);
 		} else {
 			prev->next=cur->next;
-			free(cur);
+			e_free(cur);
 		}
 
 		LeaveCriticalSection(&g_DLLCrit);
diff --git a/ediv/src/ediv/dll_load.h b/ediv/src/ediv/dll_load.h
index b2e7b52..e1bf2f4 100644
--- a/ediv/src/ediv/dll_load.h
+++ b/ediv/src/ediv/dll_load.h
@@ -15,7 +15,8 @@
     along with this program; if not, write to the Free Software
     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
-	The author of this program may be contacted at dildog@l0pht.com. */
+	The author of this program may be contacted at dildog@l0pht.com. 
+*/
 
 #include <windows.h>
 
diff --git a/ediv/src/ediv/ediv.c b/ediv/src/ediv/ediv.c
index f250858..922a854 100644
--- a/ediv/src/ediv/ediv.c
+++ b/ediv/src/ediv/ediv.c
@@ -1,6 +1,6 @@
 /*
  * eDiv Compiler
- * Copyright (C) 2000-2002 Sion Entertainment
+ * Copyright (C) 2000-2002 Sion, Ltd.
  * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
diff --git a/ediv/src/ediv/ediv_export.c b/ediv/src/ediv/ediv_export.c
index b6ab864..41135c0 100644
--- a/ediv/src/ediv/ediv_export.c
+++ b/ediv/src/ediv/ediv_export.c
@@ -1,6 +1,6 @@
 /*
  * eDiv Compiler
- * Copyright (C) 2000-2002 Sion Entertainment
+ * Copyright (C) 2000-2002 Sion, Ltd.
  * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
diff --git a/ediv/src/ediv/encrypt.c b/ediv/src/ediv/encrypt.c
index c400d33..823f25c 100644
--- a/ediv/src/ediv/encrypt.c
+++ b/ediv/src/ediv/encrypt.c
@@ -1,18 +1,18 @@
-/* 
+/*
  * eDiv Compiler
- * Copyright (C) 2000-2002 Sion Entertainment
+ * Copyright (C) 2000-2002 Sion, Ltd.
  * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 2 of the License, or
  * (at your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  * GNU General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
@@ -115,7 +115,7 @@ void _encriptar(int encode, char * fichero, char * clave)
 				fclose(f);
 			} else { 
 				fclose(f);
-				free(ptr);
+				e_free(ptr);
 				return;
 			}
 		} else { 
@@ -147,7 +147,7 @@ void _encriptar(int encode, char * fichero, char * clave)
 
 
   if ((f=fopen("temp.dj!","wb"))==NULL) {
-	  free(ptr);
+	  e_free(ptr);
 	  return;
   }
 
@@ -155,18 +155,18 @@ void _encriptar(int encode, char * fichero, char * clave)
     if(fwrite(magic,1,14,f)!=14) {
       fclose(f);
       remove(fichero);
-      rename("temp.dj!",fichero); free(ptr); return;
+      rename("temp.dj!",fichero); e_free(ptr); return;
     }
   }
 
   if(fwrite(p,1,size,f)!=(unsigned int)size) {
     fclose(f);
-	free(ptr); return;
+	e_free(ptr); return;
   }
 
   /* Si todo ha ido bien ... */
   fclose(f);
-  free(ptr);
+  e_free(ptr);
 
 }
 
@@ -187,7 +187,7 @@ void _comprimir(int encode, char *fichero) {
 				fclose(f);
 			} else { 
 				fclose(f); 
-				free(ptr); 
+				e_free(ptr); 
 				return; 
 			}
 		} else { 
@@ -203,20 +203,20 @@ void _comprimir(int encode, char *fichero) {
 		size2=size+size/100+256;
 		
 		if ((ptr_dest=(byte *)malloc(size2))==NULL) {
-			free(ptr);
+			e_free(ptr);
 			return;
 		}
 		
 		if (compress(ptr_dest, &size2, ptr, size)) {
-			free(ptr_dest);
-			free(ptr);
+			e_free(ptr_dest);
+			e_free(ptr);
 			return;
 		}
 
 		/* Si no se gana espacio, se deja el fichero sin comprimir */
 		if (size2>=size-12) { 
-			free(ptr_dest); 
-			free(ptr); 
+			e_free(ptr_dest); 
+			e_free(ptr); 
 			return; 
 		}
 	} else {
@@ -226,29 +226,29 @@ void _comprimir(int encode, char *fichero) {
 		size2=*(int*)(ptr+8);
 		
 		if ((ptr_dest=(byte *)malloc(size2))==NULL) {
-			free(ptr);
+			e_free(ptr);
 			return;
 		}
 		
 		if (uncompress(ptr_dest, &size2, ptr+12, size-12)) {
-			free(ptr_dest);
-			free(ptr);
+			e_free(ptr_dest);
+			e_free(ptr);
 			return;
 		}
 		
 		size2=*(int*)(ptr+8);
 	}
 
-	free(ptr);
+	e_free(ptr);
 
 	if (rename(fichero,"temp.ZX!")) {
-		free(ptr_dest);
+		e_free(ptr_dest);
 		return;
 	}
 
 	if ((f=fopen(fichero,"wb"))==NULL) {
 		rename("temp.ZX!",fichero); 
-		free(ptr_dest); 
+		e_free(ptr_dest); 
 		return;
   }
 
@@ -258,7 +258,7 @@ void _comprimir(int encode, char *fichero) {
 		  fclose(f);
 		  remove(fichero);
 		  rename("temp.ZX!",fichero);
-		  free(ptr_dest); 
+		  e_free(ptr_dest); 
 		  return;
 	  }
 	  
@@ -266,7 +266,7 @@ void _comprimir(int encode, char *fichero) {
 		  fclose(f);
 		  remove(fichero);
 		  rename("temp.ZX!",fichero);
-		  free(ptr_dest);
+		  e_free(ptr_dest);
 		  return;
 	  }
 	}
@@ -275,12 +275,12 @@ void _comprimir(int encode, char *fichero) {
 		fclose(f);
 		remove(fichero);
 		rename("temp.ZX!",fichero);
-		free(ptr_dest);
+		e_free(ptr_dest);
 		return;
 	}
 
   /* Si todo ha ido bien ... */
 	fclose(f);
-	free(ptr_dest);
+	e_free(ptr_dest);
 	remove("temp.ZX!");
 }
diff --git a/ediv/src/ediv/encrypt.h b/ediv/src/ediv/encrypt.h
index a865d4c..a385c42 100644
--- a/ediv/src/ediv/encrypt.h
+++ b/ediv/src/ediv/encrypt.h
@@ -1,18 +1,18 @@
-/* 
+/*
  * eDiv Compiler
- * Copyleft (C) 2000-2002 Sion Entertainment
- * http://www.sion-e.com
+ * Copyright (C) 2000-2002 Sion, Ltd.
+ * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 2 of the License, or
  * (at your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  * GNU General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
diff --git a/ediv/src/ediv/expresion.h b/ediv/src/ediv/expresion.h
index 8fc8149..661b517 100644
--- a/ediv/src/ediv/expresion.h
+++ b/ediv/src/ediv/expresion.h
@@ -1,3 +1,23 @@
+/*
+ * eDiv Compiler
+ * Copyright (C) 2000-2002 Sion, Ltd.
+ * http://www.sionhq.com
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
 #ifndef __EXPRESION_H
 #define __EXPRESION_H
 
diff --git a/ediv/src/ediv/language.c b/ediv/src/ediv/language.c
index 2b9f28d..a4e90a9 100644
--- a/ediv/src/ediv/language.c
+++ b/ediv/src/ediv/language.c
@@ -1,7 +1,7 @@
 /*
  * eDiv Compiler
- * Copyleft (C) 2000-2002 Sion Entertainment
- * http://www.sion-e.com
+ * Copyright (C) 2000-2002 Sion, Ltd.
+ * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -38,12 +38,12 @@ int detecta_idioma_iso(char* lang)
 {
 	int i;
 	static char getid[NUM_LANGUAGES][3] = {
-		"es",	// español
-		"it",	// italiano
-		"pt",	// portugués
-		"en",	// inglés
-		"ca",	// catalán
-		"eu"	// euskera
+		"es",	/* español   */
+		"it",	/* italiano  */
+		"pt",	/* portugués */
+		"en",	/* inglés    */
+		"ca",	/* catalán   */
+		"eu"	/* euskera   */
 	};
 	if(lang==NULL) return DEFAULT_LANGUAGE;
 	if(strlen(lang)>2) lang[2]=0;
@@ -65,12 +65,12 @@ int detecta_idioma()
 		#ifdef _WIN32
 			int i;
 			static int getid[NUM_LANGUAGES] = {
-				0x0a,	// español
-				0x10,	// italiano
-				0x16,	// portugués
-				0x09,	// inglés
-				0x03,	// catalán
-				0x2d	// euskera
+				0x0a,	/* español   */
+				0x10,	/* italiano  */
+				0x16,	/* portugués */
+				0x09,	/* inglés    */
+				0x03,	/* catalán   */
+				0x2d	/* euskera   */
 			};
 			LANGID lang;
 
@@ -155,9 +155,9 @@ char* translate_error(int num)
 	/* 56	*/	"Esperando BEGIN",
 	/* 57	*/	"Esperando END",
 	/* 58	*/	"Esperando UNTIL",
-	/* 59	*/	"Esperando una variable", // (para el FROM)	
+	/* 59	*/	"Esperando una variable", /* (para el FROM)	*/
 	/* 60	*/	"Esperando TO",
-	/* 61	*/	"Sentencia FROM incorrecta", // (from==to)
+	/* 61	*/	"Sentencia FROM incorrecta", /* (from==to) */
 	/* 62	*/	"El valor STEP no es válido",
 	/* 63	*/	"Esperando CASE, DEFAULT o END",
 	/* 64	*/	"Esperando ':'",
@@ -232,9 +232,9 @@ char* translate_error(int num)
 	/* 56	*/	"Aspettando BEGIN",
 	/* 57	*/	"Aspettando END",
 	/* 58	*/	"Aspettando UNTIL",
-	/* 59	*/	"Aspettando una variabile", // (para el FROM)	
+	/* 59	*/	"Aspettando una variabile",
 	/* 60	*/	"Aspettando TO",
-	/* 61	*/	"Sentenza FROM incorretta", // (from==to)
+	/* 61	*/	"Sentenza FROM incorretta",
 	/* 62	*/	"Il valore STEP non è valido",
 	/* 63	*/	"Aspettando CASE, DEFAULT o END",
 	/* 64	*/	"Aspettando ':'",
@@ -309,9 +309,9 @@ char* translate_error(int num)
 	/* 56	*/	"Esperando BEGIN",
 	/* 57	*/	"Esperando END",
 	/* 58	*/	"Esperando UNTIL",
-	/* 59   */  "Esperando uma variable", // (para el FROM) 
+	/* 59   */  "Esperando uma variable", 
 	/* 60	*/	"Esperando TO",
-	/* 61   */  "Sentença FROM incorrecta", // (from==to)
+	/* 61   */  "Sentença FROM incorrecta", 
 	/* 62   */  "O valor STEP não é válido",
 	/* 63   */  "Esperando CASE, DEFAULT ou END",
 	/* 64	*/	"Esperando ':'",
@@ -386,9 +386,9 @@ char* translate_error(int num)
 	/* 56	*/	"Expecting BEGIN",
 	/* 57	*/	"Expecting END",
 	/* 58	*/	"Expecting UNTIL",
-	/* 59	*/	"Expecting variable", // (para el FROM)	
+	/* 59	*/	"Expecting variable",
 	/* 60	*/	"Expecting TO",
-	/* 61	*/	"Incorrect FROM statement", // (from==to)
+	/* 61	*/	"Incorrect FROM statement", 
 	/* 62	*/	"Incorrect STEP value",
 	/* 63	*/	"Expecting CASE, DEFAULT or END",
 	/* 64	*/	"Expecting ':'",
@@ -463,9 +463,9 @@ char* translate_error(int num)
 	/* 56	*/ "Esperant BEGIN",
 	/* 57	*/ "Esperant END",
 	/* 58	*/ "Esperant UNTIL",
-	/* 59	*/ "Esperant una variable", // (per al FROM)
+	/* 59	*/ "Esperant una variable",
 	/* 60	*/ "Esperant TO",
-	/* 61	*/ "Sentència FROM incorrecta", // (from==to)
+	/* 61	*/ "Sentència FROM incorrecta",
 	/* 62	*/ "El valor STEP no es vàlid",
 	/* 63	*/ "Esperant CASE, DEFAULT o END",
 	/* 64	*/ "Esperant ':'",
@@ -540,9 +540,9 @@ char* translate_error(int num)
 	/* 56	*/ "BEGIN-en zai...",
 	/* 57	*/ "END-en zai...",
 	/* 58	*/ "UNTIL-en zai..",
-	/* 59	*/ "Aldagai baten zai...", // (para el FROM)	
+	/* 59	*/ "Aldagai baten zai...",
 	/* 60	*/ "TO-ren zai...",
-	/* 61	*/ "Okerreko FROM Sententzia", // (from==to)
+	/* 61	*/ "Okerreko FROM Sententzia",
 	/* 62	*/ "Okerreko STEP balioa",
 	/* 63	*/ "CASE, DEFAULT edo END-en zai...",
 	/* 64	*/ "':'-ren zai...",
@@ -754,7 +754,7 @@ char* translate(int id_cadena)
 {
 	switch(idioma) {
 
-	case 0:	// español
+	case 0:	/* español */
 		{
 			static char* msg[] = {
 				/* 0	*/ " **** Compilador eDIV " VERSION " ****\nCopyleft (c) 2000-2002 Sion, Ltd.\nhttp://www.edivcentral.com\n",
@@ -822,7 +822,7 @@ char* translate(int id_cadena)
 			return msg[id_cadena];
 		}
 
-	case 1:	// italiano
+	case 1:	/* italiano */
 		{
 			static char* msg[] = {
 				/* 0	*/ " **** Compilatore eDIV " VERSION " ****\nCopyleft (c) 2000-2002 Sion, Ltd.\nhttp://www.edivcentral.com\n",
@@ -890,7 +890,7 @@ char* translate(int id_cadena)
 			return msg[id_cadena];
 		}
 
-	case 2:	// portugués
+	case 2:	/* portugués */
 		{
 			static char* msg[] = {
 				/* 0	*/ " **** Compilador eDIV " VERSION " ****\nCopyleft (c) 2000-2002 Sion, Ltd.\nhttp://www.edivcentral.com\n",
@@ -952,7 +952,7 @@ char* translate(int id_cadena)
 				/* 47	*/ "Não se encontra ExportaFuncs em %s - Biblioteca invalida (%s)\n",
 				#endif
 
-				// FIXME: revisar/traducir esto
+				/* FIXME: revisar/traducir esto */
 				/* 48	*/ "    -n, --news      Mostra a última notícia de eDivCentral.com e sai\n",
 				/* 49	*/ "Error: no se ha configurado un servidor de noticias en ediv.cfg\n",
 				/* 50	*/ "Error: el fichero recibido no es del tipo esperado\n"
@@ -960,7 +960,7 @@ char* translate(int id_cadena)
 			return msg[id_cadena];
 		}
 
-	case 3:	// inglés
+	case 3:	/* inglés */
 		{
 			static char* msg[] = {
 				/* 0	*/ " **** eDIV Compiler " VERSION " ****\nCopyleft (c) 2000-2002Sion, Ltd.\nhttp://www.edivcentral.com\n",
@@ -1028,7 +1028,7 @@ char* translate(int id_cadena)
 			return msg[id_cadena];
 		}
 
-	case 4: // catalán
+	case 4: /* catalán */
 		{
 			static char* msg[] = {
 				/* 0	*/ " **** Compilador eDIV " VERSION " ****\nCopyleft (c) 2000-2002 Sion, Ltd.\nhttp://www.edivcentral.com\n",
@@ -1095,7 +1095,7 @@ char* translate(int id_cadena)
 			};
 			return msg[id_cadena];
 		}
-	case 5: // euskera
+	case 5: /* euskera */
 		{
 			static char* msg[] = {
 				/* 0	*/ " **** eDIV konpiladorea " VERSION " ****\nCopyleft (c) 2000-2002 Sion, Ltd.\nhttp://www.edivcentral.com\n",
diff --git a/ediv/src/ediv/listados.c b/ediv/src/ediv/listados.c
index 8633a22..f579013 100644
--- a/ediv/src/ediv/listados.c
+++ b/ediv/src/ediv/listados.c
@@ -1,7 +1,7 @@
 /*
  * eDiv Compiler
- * Copyleft (C) 2000-2002 Sion Entertainment
- * http://www.sion-e.com
+ * Copyright (C) 2000-2002 Sion, Ltd.
+ * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -27,9 +27,9 @@
 
 #include "language.h"
 
-//-----------------------------------------------------------------------------
-//      Graba el fichero de la tabla de objetos
-//-----------------------------------------------------------------------------
+/*
+ * Graba el fichero de la tabla de objetos
+ */
 
 void listado_objetos (void)
 {
@@ -154,11 +154,6 @@ void listado_objetos (void)
         fprintf(sta,"\toffset=%u\n",obj[n].proc.offset);
         fprintf(sta,"\tnum_par=%u\n",obj[n].proc.num_par);
         break;
-/*      case tfunc: fprintf(sta,"%5u\ttfunc: %s",n,obj[n].name);
-        if (obj[n].usado) fprintf(sta," (*) usado\n"); else fprintf(sta,"\n");
-        fprintf(sta,"\tcodigo=%u\n",obj[n].func.codigo);
-        fprintf(sta,"\tnum_par=%u\n",obj[n].func.num_par);
-        break;*/
       case tfext: fprintf(sta,"%5u\ttfext: %s",n,obj[n].name);
         if (obj[n].usado) fprintf(sta," (*) usado\n"); else fprintf(sta,"\n");
         fprintf(sta,"\tcodigo=%u\n",obj[n].fext.codigo);
@@ -209,10 +204,9 @@ void listado_objetos (void)
 }
 
 
-//-----------------------------------------------------------------------------
-//      Graba el fichero ensamblador
-//-----------------------------------------------------------------------------
-
+/*
+ *  Graba el fichero ensamblador
+ */
 void listado_ensamblador (void)
 {
   FILE * sta;
diff --git a/ediv/src/ediv/listados.h b/ediv/src/ediv/listados.h
index e41093a..70bd9d0 100644
--- a/ediv/src/ediv/listados.h
+++ b/ediv/src/ediv/listados.h
@@ -1,7 +1,7 @@
 /*
  * eDiv Compiler
- * Copyleft (C) 2000-2002 Sion Entertainment
- * http://www.sion-e.com
+ * Copyright (C) 2000-2002 Sion, Ltd.
+ * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
diff --git a/ediv/src/ediv/lower.c b/ediv/src/ediv/lower.c
index 2304966..52ef9fa 100644
--- a/ediv/src/ediv/lower.c
+++ b/ediv/src/ediv/lower.c
@@ -1,7 +1,5 @@
-/* Fenix - Compilador/intérprete de videojuegos
- * Copyright (C) 1999 José Luis Cebrián Pagüe
- *
- * Adaptado a eDiv por Sion Entertainment
+/* Copyright (C) 1999 José Luis Cebrián Pagüe
+ * Copyright (C) 2000-2002 Sion, Ltd
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -86,12 +84,7 @@ void set_c_lower (const byte * from, const byte * to)
 
 void inicializa_lower()
 {
-
-	/* ¡Esto hay que revisarlo bastante!
-	 */
-
-	memset (lower, 0, 256);  // es necesario
-
+	memset (lower, 0, 256);
 	set_c_lower  ("ABCDEFGHIJKLMNOPQRSTUVWXYZ",
 		      "abcdefghijklmnopqrstuvwxyz");
 	set_c_lower  ("abcdefghijklmnopqrstuvwxyz",
diff --git a/ediv/src/ediv/lower.h b/ediv/src/ediv/lower.h
index d4fe759..d0422d9 100644
--- a/ediv/src/ediv/lower.h
+++ b/ediv/src/ediv/lower.h
@@ -1,7 +1,7 @@
 /*
  * eDiv Compiler
- * Copyleft (C) 2000-2002 Sion Entertainment
- * http://www.sion-e.com
+ * Copyright (C) 2000-2002 Sion, Ltd.
+ * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
diff --git a/ediv/src/ediv/ltlex.c b/ediv/src/ediv/ltlex.c
index 561cc99..a8ba909 100644
--- a/ediv/src/ediv/ltlex.c
+++ b/ediv/src/ediv/ltlex.c
@@ -1,7 +1,7 @@
 /*
  * eDiv Compiler
- * Copyleft (C) 2000-2002 Sion Entertainment
- * http://www.sion-e.com
+ * Copyright (C) 2000-2002 Sion, Ltd.
+ * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -18,9 +18,9 @@
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  */
 
-//-----------------------------------------------------------------------------
-//      Precarga de las estructuras léxicas, analiza el fichero ltlex.def
-//-----------------------------------------------------------------------------
+/*
+ * Precarga de las estructuras léxicas, analiza el fichero ltlex.def
+ */
 
 #include <stdio.h>
 #include <stdlib.h>
@@ -43,30 +43,30 @@ void ltlex_error(int error)
 
 void analiza_ltlex(void){
 
-    byte *_buf, * buf;		// Buffer del texto y puntero al carácter actual
-	byte cont=1;			// 0 indica final del archivo
-    int len;				// Tamaño del archivo
-    struct lex_ele * e;		// Puntero al lex_case correspondiente
-	FILE * def;				// Stream del fichero
+    byte *_buf, * buf;		/* Buffer del texto y puntero al carácter actual */
+	byte cont=1;			/* 0 indica final del archivo                    */
+    int len;				/* Tamaño del archivo                            */
+    struct lex_ele * e;		/* Puntero al lex_case correspondiente           */
+	FILE * def;				/* Stream del fichero                            */
 
-    int t; //token (pieza)
-    byte h; //hash (para id)
+    int t;  /* token (pieza)  */
+    byte h; /* hash (para id) */
     byte * _ivnom;
     byte * * ptr;
 
-    // Busca el archivo ltlex.def
+    /* Busca el archivo ltlex.def */
 	if ((def=fopen("system/ltlex.def","rb"))==NULL)
 		ltlex_error(1);
 
-	// Lo lee
+	/* Lo lee */
     fseek(def,0,SEEK_END);
 	len=ftell(def);
     _buf=buf=(byte *) e_malloc(len+1);
     fseek(def,0,SEEK_SET);
     len=fread(buf,1,len,def);
 
-	// El carácter ASCII 0 indica final del fichero
-    *(buf+len)=0;// *(buf+len+1)=cr;
+	/* El carácter ASCII 0 indica final del fichero */
+    *(buf+len)=0;
 
 	#ifdef _DEBUG
 		printf("dbg: tamano ltlex: %d\n",len);
@@ -75,82 +75,72 @@ void analiza_ltlex(void){
     linea=1;
 
     do {
-/*    printf("- %d\n",linea);
-    if(linea==45)
-    	printf("heyp\n");*/
-    	
-    switch (*buf++) {
-
-    // Fin de fichero
-    case 0:
-    	cont=0; break;
-
-	// Ignoramos los espacios
-    case ' ': case tab:
-		break;
-
-	// Salta de linea
-    case cr:
-		if(*buf==lf) buf++;
-		
-	case lf:
-        linea++;
-        break;
-
-	// Los ; indican línea de comentario
-    case ';':
-		while (*buf!=cr && *buf!=lf) buf++; break;
-
-	// El símbolo & indica definición de token
-    case '&':
-		*buf=lower[*buf];
-		if (*buf>='0' && *buf<='9')
-			t=(*buf++-'0')<<4;
-		else
-			if (*buf>='a' && *buf<='f')
-				t=(*buf++-'a'+10)<<4;
-			else
-				ltlex_error(2);
-		*buf=lower[*buf];
-		if (*buf>='0' && *buf<='9')
-			t+=(*buf++-'0');
-		else
-			if (*buf>='a' && *buf<='f')
-				t+=(*buf++-'a'+10);
-			else
-				ltlex_error(2);
-		if (*buf==cr || *buf==lf || *buf==' ' || *buf==tab) break;
-		else if (lower[*buf]) {           //Analiza una palabra reservada
-			_ivnom=ivnom.b; *ivnom.p++=0; *ivnom.p++=(unsigned char*)t; h=0;
-			while ((*ivnom.b=lower[*buf++])) h=((byte)(h<<1)+(h>>7))^(*ivnom.b++);
-			ptr=&vhash[h]; while (*ptr) ptr=(unsigned char * *)*ptr; *ptr=_ivnom;
-			buf--; ivnom.b++;
-		} else if (t>=0x78 && t<=0x7b) {  //Analiza un delimitador de literal
-			lex_case[*buf]=(struct lex_ele*)l_lit;
-		} else {                          //Analiza un nuevo símbolo
-			if ((e=lex_case[*buf])==0) {
-				if (num_nodos++==max_nodos) ltlex_error(3);
-				e=lex_case[*buf]=ilex_simb++; (*e).caracter=*buf++;
-			} else buf++;
-			while (*buf!=' ' && *buf!=tab && *buf!=cr) {
-				if (lower[*buf]) ltlex_error(4);
-				if ((*e).siguiente==0)
-					if (num_nodos++==max_nodos) ltlex_error(3);
-					else e=(*e).siguiente=ilex_simb++;
-					else {
-						e=(*e).siguiente;
-						while ((*e).caracter!=*buf && (*e).alternativa)
-							e=(*e).alternativa;
-						if ((*e).caracter!=*buf) {
+		switch (*buf++) {
+			/* Fin de fichero */
+			case 0:
+				cont=0; break;
+			/* Ignoramos los espacios */
+			case ' ': 
+			case tab:
+				break;
+			/* Salta de linea */
+			case cr:
+				if(*buf==lf) buf++;
+			case lf:
+				linea++;
+				break;
+				/* Los ; indican línea de comentario */
+			case ';':
+				while (*buf!=cr && *buf!=lf) buf++; break;
+				/* El símbolo & indica definición de token */
+			case '&':
+				*buf=lower[*buf];
+				if (*buf>='0' && *buf<='9')
+					t=(*buf++-'0')<<4;
+				else
+					if (*buf>='a' && *buf<='f')
+						t=(*buf++-'a'+10)<<4;
+					else
+						ltlex_error(2);
+				*buf=lower[*buf];
+				if (*buf>='0' && *buf<='9')
+					t+=(*buf++-'0');
+				else
+					if (*buf>='a' && *buf<='f')
+						t+=(*buf++-'a'+10);
+					else
+						ltlex_error(2);
+				if (*buf==cr || *buf==lf || *buf==' ' || *buf==tab) break;
+				else if (lower[*buf]) {           /* Analiza una palabra reservada */
+					_ivnom=ivnom.b; *ivnom.p++=0; *ivnom.p++=(unsigned char*)t; h=0;
+					while ((*ivnom.b=lower[*buf++])) h=((byte)(h<<1)+(h>>7))^(*ivnom.b++);
+					ptr=&vhash[h]; while (*ptr) ptr=(unsigned char * *)*ptr; *ptr=_ivnom;
+					buf--; ivnom.b++;
+				} else if (t>=0x78 && t<=0x7b) {  /* Analiza un delimitador de literal */
+					lex_case[*buf]=(struct lex_ele*)l_lit;		
+				} else {                          /* Analiza un nuevo símbolo */
+					if ((e=lex_case[*buf])==0) {
+						if (num_nodos++==max_nodos) ltlex_error(3);
+						e=lex_case[*buf]=ilex_simb++; (*e).caracter=*buf++;			
+					} else buf++;
+					while (*buf!=' ' && *buf!=tab && *buf!=cr) {
+						if (lower[*buf]) ltlex_error(4);
+						if ((*e).siguiente==0)
 							if (num_nodos++==max_nodos) ltlex_error(3);
-							else e=(*e).alternativa=ilex_simb++;
-						}
-					} (*e).caracter=*buf++;
-			} (*e).token=t;
-		} break;
-    }} while (cont);
-
-    free(_buf); _buf=NULL;
-    fclose(def); def=NULL;
+							else e=(*e).siguiente=ilex_simb++;
+						else {
+							e=(*e).siguiente;
+							while ((*e).caracter!=*buf && (*e).alternativa)
+								e=(*e).alternativa;
+							if ((*e).caracter!=*buf) {
+								if (num_nodos++==max_nodos) ltlex_error(3);
+								else e=(*e).alternativa=ilex_simb++;
+							}
+						} (*e).caracter=*buf++;
+					} (*e).token=t;
+				} break;
+		}} while (cont);
 
+		e_free(_buf); _buf=NULL;
+		fclose(def); def=NULL;
 }
diff --git a/ediv/src/ediv/main.h b/ediv/src/ediv/main.h
index 3dd1b26..d32f245 100644
--- a/ediv/src/ediv/main.h
+++ b/ediv/src/ediv/main.h
@@ -1,7 +1,7 @@
 /*
  * eDiv Compiler
- * Copyleft (C) 2000-2002 Sion Entertainment
- * http://www.sion-e.com
+ * Copyright (C) 2000-2002 Sion, Ltd.
+ * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -59,11 +59,11 @@ word error_25;        // Para emitir "se esperaba una sentencia"
 
 // Prototipos
 
-void * e_malloc(size_t size);		// un malloc con mensaje de error
+void *e_malloc(size_t size);		// un malloc con mensaje de error
+void *e_free(void *puntero);
 void errormem();					// mensaje "memoria insuficiente"
 void save_error(word tipo);			// guarda una posición de error
 void error(word tipo,word num, ...);// error de compilación
 void warning(int num, ...);			// warning en el proceso
-//void c_error(int num);
 
 #endif // __MAIN_H
\ No newline at end of file
diff --git a/ediv/src/ediv/modulos.c b/ediv/src/ediv/modulos.c
index be04dcd..a490b7c 100644
--- a/ediv/src/ediv/modulos.c
+++ b/ediv/src/ediv/modulos.c
@@ -1,7 +1,7 @@
 /*
  * eDiv Compiler
- * Copyleft (C) 2000-2002 Sion Entertainment
- * http://www.sion-e.com
+ * Copyright (C) 2000-2002 Sion, Ltd.
+ * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -38,103 +38,7 @@
 int imem_temp;
 int iloc_temp;
 
-#ifdef MODULOS2
-_listamodulos *Buscar (char *nombre)
-{
-  if (ListaModulos) {
-      _listamodulos *tmp = ListaModulos;
-      while (tmp->anterior)
-	tmp = tmp->anterior;
-	  while (tmp) {
-	  if (tmp->modulo)
-	    if (!_strcmpi(tmp->modulo->NombreModulo, nombre))
-	      return tmp;
-	  if (tmp->siguiente)
-	    tmp = tmp->siguiente;
-	  else
-	    return NULL;
-	  }
-  }
-  return NULL;
-}
-
-/*
-int Cargar (char *NombreArchivo)
-{
-  dlHandler Manejador;
-  char *NombreModulo;
-  Log.Log ("Cargando %s:", NombreArchivo);
-  Manejador = dlopen (NombreArchivo, RTLD_GLOBAL | RTLD_NOW);
-  if (!Manejador)
-    {
-      Log.Log ("%s", UltimoErrorDL = dlerror ());
-      return CMOD_ERROR_DLOPEN;
-    }
-  else if (!(NombreModulo = (char *) dlsym (Manejador, "NombreModulo")))
-    {
-      Log.Log ("No se pudo encontrar el símbolo \"NombreModulo\"");
-      UltimoErrorDL = dlerror ();
-      dlclose (Manejador);
-      return CMOD_NO_NOMBRE_MODULO;
-    }
-  else
-    Log.Log ("NombreModulo para %s es [%s]", NombreArchivo, NombreModulo);
-  if (Buscar (NombreModulo))
-    {
-      Log.Log ("El módulo %s[%s] ya está cargado", NombreArchivo,
-	       NombreModulo);
-      dlclose (Manejador);
-      return CMOD_YA_CARGADO;
-    }
-  if (ListaModulos)
-    {
-      while (ListaModulos->Siguiente)
-	ListaModulos = ListaModulos->Siguiente;
-      ListaModulos->Siguiente =
-	(_ListaModulos *) gnew (sizeof (_ListaModulos));
-      bzero (ListaModulos->Siguiente, sizeof (_ListaModulos));
-      ListaModulos->Siguiente->Anterior = ListaModulos;
-      ListaModulos = ListaModulos->Siguiente;
-    }
-  else
-    {
-      ListaModulos = (_ListaModulos *) gnew (sizeof (_ListaModulos));
-      bzero (ListaModulos, sizeof (_ListaModulos));
-    }
-
-  ListaModulos->Modulo = (c_Modulo *) gnew (sizeof (c_Modulo));
-  bzero (ListaModulos->Modulo, sizeof (c_Modulo));
-  ListaModulos->Modulo->Manejador = Manejador;
-  ListaModulos->Modulo->NombreArchivo =
-    (char *) gnew (strlen (NombreArchivo) + 1);
-  strcpy (ListaModulos->Modulo->NombreArchivo, NombreArchivo);
-  ListaModulos->Modulo->NombreModulo = NombreModulo;
-
-  ListaModulos->Modulo->Autor = (char *) dlsym (Manejador, "Autor");
-  ListaModulos->Modulo->Version = (char *) dlsym (Manejador, "Version");
-  ListaModulos->Modulo->Descripcion =
-    (char *) dlsym (Manejador, "Descripcion");
-
-  if (!(dlCast_1 ListaModulos->Modulo->Iniciar =
-	dlCast_2 dlsym (Manejador, "Iniciar")))
-    Log.Log ("No se puede resolver el símbolo Iniciar");
-
-  if (!(dlCast_1 ListaModulos->Modulo->Detener =
-	dlCast_2 dlsym (Manejador, "Detener")))
-    Log.Log ("No se puede resolver el símbolo Detener");
-
-  if (ListaModulos->Modulo->Iniciar)
-    if (ListaModulos->Modulo->Iniciar () == INICIAR_FALLADO)
-      {
-	Descargar (NombreModulo, DMOD_DESCARGAR_DEP, DMOD_IGNORAR_DETENER);
-	return CMOD_ERROR_INICIAR;
-      }
-  return CMOD_OK;
-}
-*/
-#endif /* MODULOS2 */
-// obtiene el nombre esencial de la libreria (sin extension ni path)
-
+/* obtiene el nombre esencial de la libreria (sin extension ni path) */
 void get_rawname(char* completo, char* rawname)
 {
 	char* p=completo;
@@ -165,8 +69,7 @@ void get_rawname(char* completo, char* rawname)
 }
 
 
-// compara prioridades de dos dlls, para el qsort descendente
-
+/* compara prioridades de dos dlls, para el qsort descendente */
 int compara(const void* _a, const void* _b)
 {
 	struct _dlls a=*(struct _dlls*)_a;
@@ -182,7 +85,7 @@ int compara2(const void* _a, const void* _b)
 }
 
 
-void dll_func() // ke original, no? XD
+void dll_func()
 {
 	char dllkey[256]="dll_priority:";
 	char rawname[256];
@@ -192,7 +95,7 @@ void dll_func() // ke original, no? XD
 
 	#ifdef _WIN32
 		int buscafich;
-		struct _finddata_t fichero_dll;	// busqueda de DLLs
+		struct _finddata_t fichero_dll;	/* busqueda de DLLs */
 		char mask[256];
 	#else
 		DIR *directorio;
@@ -203,7 +106,7 @@ void dll_func() // ke original, no? XD
 	n_externs=0;
 	
 	#ifdef _WIN32
-		// Inicializa la carga de DLLs
+		/* Inicializa la carga de DLLs */
 		CheckWindowsVersion();
 		InitializeDLLLoad();
 	#endif
@@ -218,12 +121,11 @@ void dll_func() // ke original, no? XD
 		strcpy(mask,dir);
 		strcat(mask,"\\*.dll");
 
-		// Busca las DLLs que hay en el directorio
+		/* Busca las DLLs que hay en el directorio */
 		buscafich = _findfirst(mask, &fichero_dll);
-		if (buscafich==-1) {
-			printf(translate(43)); // no hay dlls
-			exit(1);
-		}
+		if (buscafich==-1)
+			printf(translate(43)); /* no hay dlls */
+		
 
 		#ifdef _DEBUG
 			printf("dbg: DLL encontrada: %s\n",fichero_dll.name);
@@ -241,18 +143,18 @@ void dll_func() // ke original, no? XD
 		if (carga) 
 			if(!leedll()) {
 				dlls[numdlls].prioridad=0;
-			// guarda el nombre de fichero en la tabla de DLLs
+			/* guarda el nombre de fichero en la tabla de DLLs */
 				dlls[0].nombre=(char*)e_malloc(strlen(rawname)+1);
 				strcpy(dlls[0].nombre,rawname);	
 
-			// importa las funciones de la DLL
+			/* importa las funciones de la DLL */
 				if (ini) 
 					dlls[numdlls].prioridad=iniparser_getint(ini,dllkey,dlls[numdlls].prioridad);
 
 				numdlls=1;
 			}
 
-		// hace lo mismo con el resto
+		/* hace lo mismo con el resto */
 		while(1) {
 			if(_findnext(buscafich,&fichero_dll)==0) {
 				#ifdef _DEBUG
@@ -260,7 +162,6 @@ void dll_func() // ke original, no? XD
 				#endif
 				carga=1;
 				sprintf(fichdll,"%s\\%s",dir,fichero_dll.name);
-//				dlls[numdlls].nfuncs=0;
 				dlls[numdlls].prioridad=0;
 				get_rawname(fichero_dll.name,rawname);
 				strcpy(dllkey,"dll_priority:");
@@ -278,25 +179,23 @@ void dll_func() // ke original, no? XD
 				break;
 		}
 
-	#else	// si estamos en Linux
+	#else	/* si estamos en Linux */
 
 		if(ini) dir=iniparser_getstr(ini,"dll:nixdll"));
 		if(!dir) dir="so";
 
 		directorio=opendir(dir);
 		if(!directorio) {
-			printf(translate(44),dir); // no hay directorio so/
+			printf(translate(44),dir); /* no hay directorio so/ */
 			exit(1);
 		}
-		// Nos saltamos las dos primeras entradas "./" y "../"
+		/* Nos saltamos las dos primeras entradas "./" y "../" */
 		for(i=0;i<2;i++) {
 			fichero_dll=readdir(directorio);
-			if(fichero_dll==0) {
-				printf(translate(43)); // no hay so's
-				exit(1);
-			}
+			if(fichero_dll==0)
+				printf(translate(43)); /* no hay so's */
 		}
-		// Busca las .so
+		/* Busca las .so */
 		while (1) {
 			fichero_dll=readdir(directorio);
 			if(fichero_dll==0)
@@ -308,7 +207,6 @@ void dll_func() // ke original, no? XD
 				#endif
 				carga=1;
 				sprintf(fichdll,"%s/%s",dir,fichero_dll->d_name);
-//				dlls[numdlls].nfuncs=0;
 				dlls[numdlls].prioridad=0;
 				get_rawname(fichero_dll->d_name,rawname);
 				strcpy(dllkey,"dll_priority:");
@@ -326,10 +224,8 @@ void dll_func() // ke original, no? XD
 
 	#endif
 
-	if(numdlls==0) {
-		printf(translate(43)); // no hay librerias
-		exit(1);
-	}
+	if(numdlls==0)
+		printf(translate(43)); /* no hay librerias */
 
 	nuevo_orden=e_malloc(numdlls*4);
 	for(i=0;i<numdlls;i++)
@@ -357,7 +253,6 @@ void dll_func2()
 		nuevo_orden[i]=i;
 
 	for(numdlls=0;numdlls<i;numdlls++) {
-		//printf("#### (%d) %s - prioridad: %d\n",i,dlls[i].nombre,dlls[i].prioridad);
 		if((dlls[numdlls].prioridad>P_NUNCA) && (dlls[numdlls].usado || dlls[numdlls].prioridad>=P_SIEMPRE)) {
 			#ifdef _DEBUG
 				printf("dbg: Se requiere %s (id=%d)\n",dlls[numdlls].nombre,numdlls);
@@ -371,7 +266,7 @@ void dll_func2()
 			#endif
 			sprintf(fichdll,"%s\\%s.dll",dir,dlls[numdlls].nombre);
 			if(leedll()) {
-				printf(translate(45),dlls[numdlls].nombre); // error al cargar libreria
+				printf(translate(45),dlls[numdlls].nombre); /* error al cargar libreria */
 				exit(1);
 			}
 		}
@@ -384,24 +279,21 @@ int leedll()
 #ifdef _WIN32
 	TYPEOF_ExportaFuncs *ExportaFuncs;
 	HINSTANCE hDLL;
-//	TYPEOF_extfunc *extfunc; // *** PRUEBA ***
 
-	// Carga la DLL
+	/* Carga la DLL */
 	hDLL=LoadDLL(fichdll);
 
 	if(hDLL==NULL) {
-		printf(translate(46),fichdll); // no puedo cargar libreria
+		printf(translate(46),fichdll); /* no puedo cargar libreria */
 		return 1;
 	}
 
-	// Inicializa y ejecuta la funcion ExportaFuncs de la DLL
-
+	/* Inicializa y ejecuta la funcion ExportaFuncs de la DLL */
 	ExportaFuncs=NULL;
-
 	ExportaFuncs=(TYPEOF_ExportaFuncs *)GetDLLProcAddress(hDLL,"ExportaFuncs");
 
 	if(ExportaFuncs==NULL) {
-		printf(translate(47),fichdll); // exportafuncs no encontrado
+		printf(translate(47),fichdll); /* exportafuncs no encontrado */
 		FreeDLL(hDLL);
 		return 1;
 	}
@@ -412,39 +304,30 @@ int leedll()
 
 	ExportaFuncs(EXPORTAFUNCS_PARAMS);
 
-/***** PRUEBA ****** PRUEBA ***** PRUEBA ***** PRUEBA *****
-	if(n_externs==5) {
-		extfunc=ext_funcs[4].hfuncion;
-		putparm("hola");
-		extfunc(params,sp);
-	}
- ***** PRUEBA ****** PRUEBA ***** PRUEBA ***** PRUEBA *****/
-
 	FreeDLL(hDLL);
 
-#else   // linux
+#else   /* Linux */
 
     TYPEOF_ExportaFuncs *ExportaFuncs;
     void *hDLL;
     char *errordll;
-//	TYPEOF_extfunc *extfunc; // *** PRUEBA ***
 
-	// Carga la DLL
+	/* Carga la DLL */
 	hDLL=dlopen(fichdll,RTLD_NOW);
 
 	if(!hDLL) {
-		printf(translate(46),fichdll,dlerror()); // no puedo cargar libreria
+		printf(translate(46),fichdll,dlerror()); /* no puedo cargar libreria */
 		return 1;
 	}
 
-	// Inicializa y ejecuta la funcion ExportaFuncs de la DLL
+	/* Inicializa y ejecuta la funcion ExportaFuncs de la DLL */
 
 	ExportaFuncs=NULL;
 
 	ExportaFuncs=(TYPEOF_ExportaFuncs *) dlsym(hDLL,"ExportaFuncs");
 
 	if((errordll=dlerror())!=NULL) {
-		printf(translate(47),fichdll,errordll); // exportafuncs no encontrado
+		printf(translate(47),fichdll,errordll); /* exportafuncs no encontrado */
 		dlclose(hDLL);
 		return 1;
 	}
@@ -454,18 +337,6 @@ int leedll()
 	#endif
 
 	ExportaFuncs(EXPORTAFUNCS_PARAMS);
-
-/***** PRUEBA ****** PRUEBA ***** PRUEBA ***** PRUEBA *****
-	//if(n_externs==3) {
-		extfunc=ext_funcs[1].hfuncion;
-		putparm(63);
-        putparm(30);
-        putparm(24);
-        putparm(6);
-		extfunc(params,sp);
-	//}
- ***** PRUEBA ****** PRUEBA ***** PRUEBA ***** PRUEBA *****/
-
 	dlclose(hDLL);
 #endif
 
diff --git a/ediv/src/ediv/modulos.h b/ediv/src/ediv/modulos.h
index ead0d57..67b4720 100644
--- a/ediv/src/ediv/modulos.h
+++ b/ediv/src/ediv/modulos.h
@@ -1,94 +1,28 @@
-/***************************************************************************
-                          modulos.h  -  description
-                             -------------------
-    begin                : Sat Jun 23 2001
-    copyright            : (C) 2001 by Sion Entertainment
-    email                : bugs@edivcentral.com
- ***************************************************************************/
-
-/***************************************************************************
- *                                                                         *
- *   This program is free software; you can redistribute it and/or modify  *
- *   it under the terms of the GNU General Public License as published by  *
- *   the Free Software Foundation; either version 2 of the License, or     *
- *   (at your option) any later version.                                   *
- *                                                                         *
- ***************************************************************************/
+/*
+ * eDiv Compiler
+ * Copyright (C) 2000-2002 Sion, Ltd.
+ * http://www.sionhq.com
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
 
 #ifndef __MODULOS_H
 #define __MODULOS_H
 
 #include <time.h>
 
-#define MODULOS2
-
-#ifdef MODULOS2
-
-#define dlHandler void*
-#define dlCast_1 (void*)
-#define dlCast_2
-
-struct Modulo {
-  dlHandler Manejador;   /* Manejador del módulo */
-  char *NombreArchivo;   /* Nombre del Archivo */
-  char *NombreModulo;    /* Nombre del Módulo */
-  char *Descripcion;     /* Descripcion del Módulo */
-  char *Version;         /* Versión del Módulo */
-  char *Autor;           /* Autor del Módulo */
-  time_t FechaCarga;     /* Fecha de Carga del Módulo */
-  time_t UltimoUso;      /* Fecha del último uso del Módulo */
-  int (*Iniciar) (void); /* Función llamada al inicio del Módulo */
-  int (*Detener) (void); /* Función llamada en la descarga del Módulo */
-};
-
-typedef struct _listamodulos
-{
-  /* Puntero al siguiente elemento de la lista.
-   * Si no hay siguiente elemento, este es NULL.
-   */	
-  struct _listamodulos *siguiente;
-  
-  /*! \brief Puntero al elemento anterior de la
-   *  lista.
-   *  \note Si no hay elemento anterior, este es NULL.
-   */
-  struct _listamodulos *anterior;
-  
-  /*! \brief Puntero a la información del Módulo */
-  struct Modulo *modulo;
-  
-  /*! \brief Lista de Dependencias del módulo 
-   *  \note Si no hay ninguna dependencia, este es NULL
-   */
-  struct _listadependencias
-  {
-    /*! \brief Puntero al siguiente elemento de la
-     *  lista.
-     *  \note Si no hay siguiente elemento, este es NULL.
-     */
-    struct _listadependencias *siguiente;
-    /*! \brief Puntero al elemento anterior de la
-     *  lista.
-     *  \note Si no hay elemento anterior, este es NULL.
-     */
-    struct _listadependencias *anterior;
-    /*! \brief Puntero a la dependencia */
-    struct _listamodulos *dependencia;
-  } *listadependencias;
-
-} _listamodulos;
-
-char *UltimoErrorDL;
-struct _listamodulos *ListaModulos;
-int Cargar (char *);
-int Descargar (char *, unsigned short, unsigned short);
-int NuevaDependencia (char *, char *);
-int BorrarDependencia (char *, char *);
-struct _listamodulos *Buscar (char *);
-char *ObtenerUltimoErrorDL (void);
-
-#endif /* MODULOS2 */
-
 int* nuevo_orden;
 
 int leedll();
diff --git a/ediv/src/ediv/parser.c b/ediv/src/ediv/parser.c
index e429542..2c8f372 100644
--- a/ediv/src/ediv/parser.c
+++ b/ediv/src/ediv/parser.c
@@ -1,7 +1,7 @@
 /*
  * eDiv Compiler
- * Copyleft (C) 2000-2002 Sion Entertainment
- * http://www.sion-e.com
+ * Copyright (C) 2000-2002 Sion, Ltd.
+ * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
diff --git a/ediv/src/ediv/parser.h b/ediv/src/ediv/parser.h
index 2fc0f25..0ade415 100644
--- a/ediv/src/ediv/parser.h
+++ b/ediv/src/ediv/parser.h
@@ -1,7 +1,7 @@
 /*
  * eDiv Compiler
- * Copyleft (C) 2000-2002 Sion Entertainment
- * http://www.sion-e.com
+ * Copyright (C) 2000-2002 Sion, Ltd.
+ * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
diff --git a/ediv/src/ediv/varindex.c b/ediv/src/ediv/varindex.c
index f970a81..8165db8 100644
--- a/ediv/src/ediv/varindex.c
+++ b/ediv/src/ediv/varindex.c
@@ -1,7 +1,7 @@
 /*
  * eDiv Compiler
- * Copyleft (C) 2000-2002 Sion Entertainment
- * http://www.sion-e.com
+ * Copyright (C) 2000-2002 Sion, Ltd.
+ * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
diff --git a/ediv/src/shared/extern.h b/ediv/src/shared/extern.h
index a73b43e..4ffd215 100644
--- a/ediv/src/shared/extern.h
+++ b/ediv/src/shared/extern.h
@@ -1,18 +1,18 @@
 /*
  * eDiv Compiler
- * Copyright (C) 2000-2002 Sion Entertainment
+ * Copyright (C) 2000-2002 Sion, Ltd.
  * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 2 of the License, or
  * (at your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  * GNU General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
diff --git a/ediv/src/shared/shared.h b/ediv/src/shared/shared.h
index f6a4dd4..1d4206e 100644
--- a/ediv/src/shared/shared.h
+++ b/ediv/src/shared/shared.h
@@ -1,6 +1,26 @@
 /*
-	Definiciones compartidas de eDiv - Usar en eDiv, encrypt y stub :)
-*/
+ * eDiv Compiler
+ * Copyright (C) 2000-2002 Sion, Ltd.
+ * http://www.sionhq.com
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
+/*
+ *	Definiciones compartidas de eDiv - Usar en eDiv, encrypt y stub :)
+ */
 
 #ifndef __SHARED_H
 #define __SHARED_H
diff --git a/ediv/src/shared/varindex.h b/ediv/src/shared/varindex.h
index efc68d9..636598f 100644
--- a/ediv/src/shared/varindex.h
+++ b/ediv/src/shared/varindex.h
@@ -1,7 +1,7 @@
 /*
  * eDiv Compiler
- * Copyleft (C) 2000-2002 Sion Entertainment
- * http://www.sion-e.com
+ * Copyright (C) 2000-2002 Sion, Ltd.
+ * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
diff --git a/ediv/src/visual c/ediv_ws.suo b/ediv/src/visual c/ediv_ws.suo
index 6ed81fd..31071c8 100644
Binary files a/ediv/src/visual c/ediv_ws.suo and b/ediv/src/visual c/ediv_ws.suo differ