[m-rev.] [dotnet] fix canonical grade calculation for IL grades.

[Tyson Dowd]

Hi,

Another DevLab diff.

===================================================================


Estimated hours taken: 0.5
Branches: dotnet-foreign

scripts/canonical_grade.sh-subr:
	Correctly determine the canonical grade for IL grades.


Index: scripts/canonical_grade.sh-subr
===================================================================
RCS file: /home/mercury1/repository/mercury/scripts/canonical_grade.sh-subr,v
retrieving revision 1.2
diff -u -r1.2 canonical_grade.sh-subr
--- scripts/canonical_grade.sh-subr	2001/03/18 23:10:14	1.2
+++ scripts/canonical_grade.sh-subr	2001/04/13 12:43:41
@@ -35,15 +35,19 @@
 	false)		;;
 esac
 
-case $highlevel_code,$highlevel_data,$GRADE in
-	true,true,none)		
+case $target,$highlevel_code,$highlevel_data,$GRADE in
+	il,true,true,none)		
+		GRADE="il" ;;
+	il,true,false,none)	
+		GRADE="ilc" ;;
+	*,true,true,none)		
 		GRADE="hl" ;;
-	true,false,none)	
+	*,true,false,none)	
 		GRADE="hlc" ;;
-	false,false,*)
+	*,false,false,*)
 		# GRADE was set above
 		;;
-	false,true,*)
+	*,false,true,*)
 		progname=`basename $0`
 		echo "$progname: error: \`--high-level-data' requires \`--high-level-code'" 1>&2
 		exit 1


-- 
       Tyson Dowd           # 
                            #  Surreal humour isn't everyone's cup of fur.
     trd at cs.mu.oz.au        # 
http://www.cs.mu.oz.au/~trd #
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------