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

Diff of /gcl/o/unixsys.c

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

revision 1.3 by camm, Sat Jul 20 12:41:20 2002 UTC revision 1.4 by camm, Tue Sep 10 03:35:15 2002 UTC
# Line 60  char *command; Line 60  char *command;
60  void  void
61  Lsystem(void)  Lsystem(void)
62  {  {
63          char command[1024];          char command[32768];
64          int i;          int i;
65    
66          check_arg(1);          check_arg(1);
67          check_type_string(&vs_base[0]);          check_type_string(&vs_base[0]);
68          if (vs_base[0]->st.st_fillp >= 1024)          if (vs_base[0]->st.st_fillp >= 32768)
69                  FEerror("Too long command line: ~S.", 1, vs_base[0]);                  FEerror("Too long command line: ~S.", 1, vs_base[0]);
70          for (i = 0;  i < vs_base[0]->st.st_fillp;  i++)          for (i = 0;  i < vs_base[0]->st.st_fillp;  i++)
71                  command[i] = vs_base[0]->st.st_self[i];                  command[i] = vs_base[0]->st.st_self[i];

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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