===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2018/parse/load.c,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -p -r1.2 -r1.4
--- OpenXM_contrib2/asir2018/parse/load.c	2020/10/06 06:31:20	1.2
+++ OpenXM_contrib2/asir2018/parse/load.c	2021/03/25 08:42:32	1.4
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2018/parse/load.c,v 1.1 2018/09/19 05:45:08 noro Exp $
+ * $OpenXM: OpenXM_contrib2/asir2018/parse/load.c,v 1.3 2021/03/24 04:35:15 noro Exp $
 */
 #include "ca.h"
 #include "parse.h"
@@ -212,9 +212,9 @@ void env_init() {
       if ( !p )
         break;
     }
-    i += 5;
+    i += 6;
     ASIRLOADPATH_LEN=i;
-        ASIRLOADPATH=(char **)MALLOC(sizeof(char *)*i);
+    ASIRLOADPATH=(char **)MALLOC(sizeof(char *)*i);
     for ( l = 0; l<i; l++) ASIRLOADPATH[l] = NULL; 
     e = getenv("ASIRLOADPATH");
     for ( i = 0; ; i++, e = p+1 ) {
@@ -226,8 +226,8 @@ void env_init() {
       if ( !p )
         break;
     }
-    }else{
-    ASIRLOADPATH=(char **)MALLOC(sizeof(char *)*3);
+  }else{
+    ASIRLOADPATH=(char **)MALLOC(sizeof(char *)*6);
     ASIRLOADPATH[0] = NULL;
   }
 
@@ -369,7 +369,8 @@ void loadasirfile(char *name0)
 #else
   char com[BUFSIZ];
 
-  sprintf(com,"%s -I%s -D__FILE__=%s %s",cppname,asir_libdir,name0,name0); in = popen(com,"r");
+//  sprintf(com,"%s -I%s -D__FILE__=%s %s",cppname,asir_libdir,name0,name0); in = popen(com,"r");
+  sprintf(com,"%s -I%s %s",cppname,asir_libdir,name0); in = popen(com,"r");
   if ( !in ) {
     perror("popen");
     error("load : failed");