OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2010-05-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git]
/
libgfortran
/
runtime
/
pause.c
diff --git
a/libgfortran/runtime/pause.c
b/libgfortran/runtime/pause.c
index
7db536b
..
28edf6c
100644
(file)
--- a/
libgfortran/runtime/pause.c
+++ b/
libgfortran/runtime/pause.c
@@
-26,7
+26,6
@@
see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#include "libgfortran.h"
#include <string.h>
#include "libgfortran.h"
#include <string.h>
-
static void
do_pause (void)
{
static void
do_pause (void)
{
@@
-36,26
+35,24
@@
do_pause (void)
fgets(buff, 4, stdin);
if (strncmp(buff, "go\n", 3) != 0)
fgets(buff, 4, stdin);
if (strncmp(buff, "go\n", 3) != 0)
- stop_
numeric (-1
);
+ stop_
string ('\0', 0
);
st_printf ("RESUMED\n");
}
st_printf ("RESUMED\n");
}
-/* A numeric
or blank STOP
statement. */
+/* A numeric
PAUSE
statement. */
-extern void pause_numeric (GFC_INTEGER_4
code
);
+extern void pause_numeric (GFC_INTEGER_4);
export_proto(pause_numeric);
void
pause_numeric (GFC_INTEGER_4 code)
{
export_proto(pause_numeric);
void
pause_numeric (GFC_INTEGER_4 code)
{
- if (code == -1)
- st_printf ("PAUSE\n");
- else
- st_printf ("PAUSE %d\n", (int)code);
-
+ st_printf ("PAUSE %d\n", (int) code);
do_pause ();
}
do_pause ();
}
+/* A character string or blank PAUSE statement. */
+
extern void pause_string (char *string, GFC_INTEGER_4 len);
export_proto(pause_string);
extern void pause_string (char *string, GFC_INTEGER_4 len);
export_proto(pause_string);