1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
diff --git a/mmix-pipe.w b/mmix-pipe.w
index b7f4536..a1a9a48 100644
--- a/mmix-pipe.w
+++ b/mmix-pipe.w
@@ -1883,7 +1883,7 @@ static void print_specnode_id(a)
octa a;
{
if (a.h==sign_bit) {
- if (a.l<32) printf(special_name[a.l]);
+ if (a.l<32) fputs(special_name[a.l], stdout);
else if (a.l<256) printf("g[%d]",a.l);
else printf("l[%d]",a.l-256);
}@+else if (a.h!=(tetra)-1) {
diff --git a/mmix-sim.w b/mmix-sim.w
index cb6995c..176f60c 100644
--- a/mmix-sim.w
+++ b/mmix-sim.w
@@ -2832,7 +2832,7 @@ void trace_print(o)
case hex: fputc('#',stdout);@+print_hex(o);@+return;
case zhex: printf("%08x%08x",o.h,o.l);@+return;
case floating: print_float(o);@+return;
- case handle:@+if (o.h==0 && o.l<3) printf(stream_name[o.l]);
+ case handle:@+if (o.h==0 && o.l<3) fputs(stream_name[o.l], stdout);
else print_int(o);@+return;
}
}
@@ -2843,9 +2843,9 @@ case ')': fputc(right_paren[round_mode],stdout);@+break;
case 't':@+if (x.l) printf(" Yes, -> #"),print_hex(inst_ptr);
else printf(" No");@+break;
case 'g':@+if (!good) printf(" (bad guess)");@+break;
-case 's': printf(special_name[zz]);@+break;
+case 's': fputs(special_name[zz], stdout);@+break;
case '?': p++;@+if (z.l) printf("%c%d",*p,z.l);@+break;
-case 'l': printf(lhs);@+break;
+case 'l': fputs(lhs, stdout);@+break;
case 'r': p=switchable_string;@+break;
@ @d rhs &switchable_string[1]
@@ -2984,9 +2984,9 @@ void scan_option(arg,usage)
fprintf(stderr,
"Usage: %s <options> progfile command line-args...\n",myself);
@.Usage: ...@>
- for (k=0;usage_help[k][0];k++) fprintf(stderr,usage_help[k]);
+ for (k=0;usage_help[k][0];k++) fputs(usage_help[k], stderr);
exit(-1);
- }@+else@+ for (k=0;usage_help[k][1]!='b';k++) printf(usage_help[k]);
+ }@+else@+ for (k=0;usage_help[k][1]!='b';k++) fputs(usage_help[k], stdout);
return;
}
}
@@ -3090,7 +3090,7 @@ void catchint(n)
printf("Eh? Sorry, I don't understand `%s'. (Type h for help)\n",
command_buf);
goto interact;
- case 'h':@+ for (k=0;interactive_help[k][0];k++) printf(interactive_help[k]);
+ case 'h':@+ for (k=0;interactive_help[k][0];k++) fputs(interactive_help[k], stdout);
goto interact;
}
check_syntax:@+ if (*p!='\n') {
|
GitWeb
