jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Sun Workshop warning fixes

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6148 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2004-08-25 20:45:56 +00:00
commit 634304dc98
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Source/Modules/modula3.cxx
View file

@ -139,7 +139,7 @@ class MODULA3:public Language
{ {
public: public:
enum block_type enum block_type
{ no_block, constant, variable, type, revelation }; { no_block, constant, variable, blocktype, revelation };
private: private:
struct M3File struct M3File
@ -2043,7 +2043,7 @@ MODULA3 ():
} else if (Strcmp (code, "constset") == 0) { } else if (Strcmp (code, "constset") == 0) {
} else if (Strcmp (code, "constint") == 0) { } else if (Strcmp (code, "constint") == 0) {
} else if (Strcmp (code, "makesetofenum") == 0) { } else if (Strcmp (code, "makesetofenum") == 0) {
m3wrap_intf.enterBlock (type); m3wrap_intf.enterBlock (blocktype);
Printf (m3wrap_intf.f, "%sSet = SET OF %s;\n", value, value); Printf (m3wrap_intf.f, "%sSet = SET OF %s;\n", value, value);
} else { } else {
Swig_warning (WARN_MODULA3_UNKNOWN_PRAGMA, input_file, line_number, Swig_warning (WARN_MODULA3_UNKNOWN_PRAGMA, input_file, line_number,
@ -2617,7 +2617,7 @@ MODULA3 ():
} }
writeArg (entries, state, NIL, NIL, NIL, NIL); writeArg (entries, state, NIL, NIL, NIL, NIL);
m3raw_intf.enterBlock (type); m3raw_intf.enterBlock (blocktype);
Printf (m3raw_intf.f, "%s =\nRECORD\n%sEND;\n", proxy_class_name, Printf (m3raw_intf.f, "%s =\nRECORD\n%sEND;\n", proxy_class_name,
entries); entries);
@ -2668,11 +2668,11 @@ MODULA3 ():
to imitate the whole class hierarchy of the C++ library, to imitate the whole class hierarchy of the C++ library,
but at least we can distinguish between classes of different roots. */ but at least we can distinguish between classes of different roots. */
if (hasContent (baseclassname)) { if (hasContent (baseclassname)) {
m3raw_intf.enterBlock (type); m3raw_intf.enterBlock (blocktype);
Printf (m3raw_intf.f, "%s = %s;\n", proxy_class_name, Printf (m3raw_intf.f, "%s = %s;\n", proxy_class_name,
baseclassname); baseclassname);
} else { } else {
m3raw_intf.enterBlock (type); m3raw_intf.enterBlock (blocktype);
Printf (m3raw_intf.f, "%s <: ADDRESS;\n", proxy_class_name); Printf (m3raw_intf.f, "%s <: ADDRESS;\n", proxy_class_name);
m3raw_impl.enterBlock (revelation); m3raw_impl.enterBlock (revelation);
Printf (m3raw_impl.f, Printf (m3raw_impl.f,
@ -2681,7 +2681,7 @@ MODULA3 ():
} }
String *superclass; String *superclass;
m3wrap_intf.enterBlock (type); m3wrap_intf.enterBlock (blocktype);
if (hasContent (methods[acc_public])) { if (hasContent (methods[acc_public])) {
superclass = NewStringf ("%sPublic", proxy_class_name); superclass = NewStringf ("%sPublic", proxy_class_name);
} else if (hasContent (baseclassname)) { } else if (hasContent (baseclassname)) {
@ -2709,7 +2709,7 @@ MODULA3 ():
m3wrap_intf.enterBlock (revelation); m3wrap_intf.enterBlock (revelation);
Printf (m3wrap_intf.f, "%s =\n", proxy_class_name); Printf (m3wrap_intf.f, "%s =\n", proxy_class_name);
} else { } else {
m3wrap_intf.enterBlock (type); m3wrap_intf.enterBlock (blocktype);
Printf (m3wrap_intf.f, "%s =\n", subclass); Printf (m3wrap_intf.f, "%s =\n", subclass);
} }
Printf (m3wrap_intf.f, "%s BRANDED OBJECT\n", baseclassname); Printf (m3wrap_intf.f, "%s BRANDED OBJECT\n", baseclassname);
@ -3424,7 +3424,7 @@ MODULA3 ():
if (multiretval) { if (multiretval) {
Printv (result_name, "result", NIL); Printv (result_name, "result", NIL);
Printf (result_m3wraptype, "%sResult", func_name); Printf (result_m3wraptype, "%sResult", func_name);
m3wrap_intf.enterBlock (type); m3wrap_intf.enterBlock (blocktype);
Printf (m3wrap_intf.f, "%s =\nRECORD\n%sEND;\n", Printf (m3wrap_intf.f, "%s =\nRECORD\n%sEND;\n",
result_m3wraptype, return_variables); result_m3wraptype, return_variables);
Printf (local_variables, "%s: %s;\n", result_name, result_m3wraptype); Printf (local_variables, "%s: %s;\n", result_name, result_m3wraptype);