[m-rev.] trivial diff: fix compilation of compile_target_code.m

[Julien Fischer]

Branches: main, 11.07

Fix a compilation error introduced in Pete's recent change.

compiler/compile_target_code.m:
 	Ignore a singleton variable.

 	Reformat some code so that the lines are less than 80 chars in
 	length.

Julien.

Index: compiler/compile_target_code.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/compiler/compile_target_code.m,v
retrieving revision 1.183
diff -u -r1.183 compile_target_code.m
--- compiler/compile_target_code.m	15 Jan 2012 23:38:20 -0000	1.183
+++ compiler/compile_target_code.m	16 Jan 2012 06:03:08 -0000
@@ -2839,11 +2839,13 @@
      %
  :- func csharp_file_name(env_type, csharp_compiler_type, file_name) = file_name.

-csharp_file_name(env_type_posix, csharp_microsoft, Filename) = unexpected($module, $pred, "microsoft c# compiler in posix env").
+csharp_file_name(env_type_posix, csharp_microsoft, _FileName) =
+    unexpected($module, $pred, "microsoft c# compiler in posix env").
  csharp_file_name(env_type_posix, csharp_mono, Filename) = Filename.
  csharp_file_name(env_type_posix, csharp_unknown, Filename) = Filename.

-csharp_file_name(env_type_cygwin, csharp_microsoft, Filename) = convert_to_windows_path_format(Filename).
+csharp_file_name(env_type_cygwin, csharp_microsoft, Filename) =
+    convert_to_windows_path_format(Filename).
  csharp_file_name(env_type_cygwin, csharp_mono, Filename) = Filename.
  csharp_file_name(env_type_cygwin, csharp_unknown, Filename) = Filename.

@@ -2852,13 +2854,16 @@
  csharp_file_name(env_type_msys, csharp_mono, Filename) = Filename.
  csharp_file_name(env_type_msys, csharp_unknown, Filename) = Filename.

-csharp_file_name(env_type_win_cmd, csharp_microsoft, Filename) = convert_to_windows_path_format(Filename).
+csharp_file_name(env_type_win_cmd, csharp_microsoft, Filename) =
+    convert_to_windows_path_format(Filename).
  csharp_file_name(env_type_win_cmd, csharp_mono, Filename) = Filename.
-csharp_file_name(env_type_win_cmd, csharp_unknown, Filename) = convert_to_windows_path_format(Filename).
+csharp_file_name(env_type_win_cmd, csharp_unknown, Filename) =
+    convert_to_windows_path_format(Filename).

  :- func convert_to_windows_path_format(file_name) = file_name.

-convert_to_windows_path_format(FileName) = string.replace_all(FileName, "/", "\\\\").
+convert_to_windows_path_format(FileName) =
+    string.replace_all(FileName, "/", "\\\\").

  :- pred write_cli_shell_script(globals::in, string::in, io.output_stream::in,
      io::di, io::uo) is det.

--------------------------------------------------------------------------
mercury-reviews mailing list
Post messages to:       mercury-reviews at csse.unimelb.edu.au
Administrative Queries: owner-mercury-reviews at csse.unimelb.edu.au
Subscriptions:          mercury-reviews-request at csse.unimelb.edu.au
--------------------------------------------------------------------------