/[gcl]/gcl/o/main.c
ViewVC logotype

Diff of /gcl/o/main.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by camm, Wed Aug 14 22:02:02 2002 UTC revision 1.18 by camm, Tue Sep 10 03:35:15 2002 UTC
# Line 153  main(int argc, char **argv, char **envp) Line 153  main(int argc, char **argv, char **envp)
153  #endif    #endif  
154          if (!initflag) {          if (!initflag) {
155    
156                  system_directory= (char *) malloc(strlen(argv[0])+3);                  system_directory= (char *) malloc(strlen(argv[1])+3);
157                                                                                    
158                  strcpy(system_directory, argv[0]);                  strcpy(system_directory, argv[1]);
159                  if (system_directory[0] != '/')                  if (system_directory[0] != '/')
160                          strcpy(system_directory, "./");                          strcpy(system_directory, "./");
161                  else {                  else {
# Line 770  multiply_stacks(int m) { Line 770  multiply_stacks(int m) {
770    return stack_multiple;    return stack_multiple;
771  }  }
772    
773    DEFVAR("*NO-INIT*",sSAno_initA,SI,Cnil,"");
774    
775  void  void
776  siLinit_system(void) {  siLinit_system(void) {
777    check_arg(0);    check_arg(0);
778    init_system();    init_system(sSAno_initA);
779    vs_base[0] = Cnil;    vs_base[0] = Cnil;
780  }  }
781    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26