[m-rev.] for review: Java: class file destination and cleanup fixes

[Fergus Henderson]

On 11-Feb-2003, Michael Wybrow <mjwybrow at cs.mu.OZ.AU> wrote:
> 
> Index: compiler/compile_target_code.m
> ===================================================================
> RCS file: /home/mercury1/repository/mercury/compiler/compile_target_code.m,v
> retrieving revision 1.37
> diff -u -r1.37 compile_target_code.m
> --- compiler/compile_target_code.m	11 Feb 2003 02:14:25 -0000	1.37
> +++ compiler/compile_target_code.m	11 Feb 2003 06:31:28 -0000
> @@ -653,9 +653,30 @@
>  	;
>  		Target_DebugOpt = ""
>  	},
> +
> +	globals__io_lookup_bool_option(use_subdirs, UseSubdirs),
> +	globals__io_lookup_bool_option(use_grade_subdirs, UseGradeSubdirs),
> +	globals__io_lookup_string_option(fullarch, FullArch),
> + 	globals__io_get_globals(Globals),
> +	( { UseSubdirs = yes } ->
> +		{ UseGradeSubdirs = yes ->
> +			grade_directory_component(Globals, Grade),
> +			DirName = "Mercury"/Grade/FullArch/"Mercury/classs"
> +		;
> +			DirName = "Mercury/classs"
> +		},

Both occurrences of "Mercury/classs" should be changed to "Mercury"/"classs".

Otherwise, that looks fine.

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------