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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
diff -P -N -C3 -r gpc.std/p/gpc-common.c gpc/p/gpc-common.c
*** p/gpc-common.c.orig Sat Dec 26 02:06:58 1998
--- p/gpc-common.c Thu Mar 23 18:24:40 2000
***************
*** 797,803 ****
record_function_format (DECL_NAME (decl),
DECL_ASSEMBLER_NAME (decl),
! is_scan, format_num, first_arg_num);
break;
}
--- 797,803 ----
record_function_format (DECL_NAME (decl),
DECL_ASSEMBLER_NAME (decl),
! is_scan, 0, format_num, first_arg_num);
break;
}
***************
*** 1038,1043 ****
--- 1038,1044 ----
tree assembler_name; /* optional mangled identifier (for C++) */
int is_scan; /* TRUE if *scanf */
int format_num; /* number of format argument */
+ int null_format_ok; /* TRUE if the format string may be NULL */
int first_arg_num; /* number of first arg (zero for varargs) */
} function_format_info;
***************
*** 1068,1082 ****
void
init_function_format_info ()
{
! record_function_format (get_identifier ("printf"), NULL_TREE, 0, 1, 2);
! record_function_format (get_identifier ("fprintf"), NULL_TREE, 0, 2, 3);
! record_function_format (get_identifier ("sprintf"), NULL_TREE, 0, 2, 3);
! record_function_format (get_identifier ("scanf"), NULL_TREE, 1, 1, 2);
! record_function_format (get_identifier ("fscanf"), NULL_TREE, 1, 2, 3);
! record_function_format (get_identifier ("sscanf"), NULL_TREE, 1, 2, 3);
! record_function_format (get_identifier ("vprintf"), NULL_TREE, 0, 1, 0);
! record_function_format (get_identifier ("vfprintf"), NULL_TREE, 0, 2, 0);
! record_function_format (get_identifier ("vsprintf"), NULL_TREE, 0, 2, 0);
record_international_format (get_identifier ("gettext"), NULL_TREE, 1);
record_international_format (get_identifier ("dgettext"), NULL_TREE, 2);
--- 1069,1083 ----
void
init_function_format_info ()
{
! record_function_format (get_identifier ("printf"), NULL_TREE, 0, 0, 1, 2);
! record_function_format (get_identifier ("fprintf"), NULL_TREE, 0, 0, 2, 3);
! record_function_format (get_identifier ("sprintf"), NULL_TREE, 0, 0, 2, 3);
! record_function_format (get_identifier ("scanf"), NULL_TREE, 1, 0, 1, 2);
! record_function_format (get_identifier ("fscanf"), NULL_TREE, 1, 0, 2, 3);
! record_function_format (get_identifier ("sscanf"), NULL_TREE, 1, 0, 2, 3);
! record_function_format (get_identifier ("vprintf"), NULL_TREE, 0, 0, 1, 0);
! record_function_format (get_identifier ("vfprintf"), NULL_TREE, 0, 0, 2, 0);
! record_function_format (get_identifier ("vsprintf"), NULL_TREE, 0, 0, 2, 0);
record_international_format (get_identifier ("gettext"), NULL_TREE, 1);
record_international_format (get_identifier ("dgettext"), NULL_TREE, 2);
***************
*** 1093,1104 ****
(e.g. for varargs such as vfprintf). */
void
! record_function_format (name, assembler_name, is_scan,
format_num, first_arg_num)
tree name;
tree assembler_name;
int is_scan;
int format_num;
int first_arg_num;
{
function_format_info *info;
--- 1094,1106 ----
(e.g. for varargs such as vfprintf). */
void
! record_function_format (name, assembler_name, is_scan, null_format_ok,
format_num, first_arg_num)
tree name;
tree assembler_name;
int is_scan;
int format_num;
+ int null_format_ok;
int first_arg_num;
{
function_format_info *info;
***************
*** 1122,1127 ****
--- 1124,1130 ----
info->is_scan = is_scan;
info->format_num = format_num;
+ info->null_format_ok = null_format_ok;
info->first_arg_num = first_arg_num;
}
diff -P -N -C3 -r gpc.std/p/gpc-defs.h gpc/p/gpc-defs.h
*** p/gpc-defs.h.orig Mon Dec 21 04:41:07 1998
--- p/gpc-defs.h Thu Mar 23 18:20:44 2000
***************
*** 622,628 ****
extern tree build_pascal_unary_op PROTO ((enum tree_code, tree, int));
extern tree build_pascal_pointer_reference PROTO ((tree));
extern tree build_pascal_address_expression PROTO ((tree));
! extern void record_function_format PROTO ((tree, tree, int, int, int));
/*
* construct an identifier_node for the assembler-name
--- 622,628 ----
extern tree build_pascal_unary_op PROTO ((enum tree_code, tree, int));
extern tree build_pascal_pointer_reference PROTO ((tree));
extern tree build_pascal_address_expression PROTO ((tree));
! extern void record_function_format PROTO ((tree, tree, int, int, int, int));
/*
* construct an identifier_node for the assembler-name
|
