constが利用できない個所で使用していたため、削除

Author: n-isaka

libcob/common.c

@@ -2685,7 +2685,7 @@ cob_acuw_calledby (unsigned char *data)
 			memset (f1->data, ' ', (int)f1->size);
 			return 0;
 		} else {
-			called_program_name = (const char *)cob_current_module->next->program_id;
+			called_program_name = (char *)cob_current_module->next->program_id;
 			if (called_program_name == NULL) {
 				return -1;
 			}