[m-dev.] trivial diff: fix comments & layout in gcc.m

[Fergus Henderson]

Estimated hours taken: 0.25

compiler/gcc.m:
	Minor improvements to the comments.
	Wrap some long lines.

Workspace: /home/hg/fjh/gcc-cvs/gcc/mercury
Index: compiler/gcc.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/gcc.m,v
retrieving revision 1.13
diff -u -d -r1.13 gcc.m
--- compiler/gcc.m	2001/01/10 10:02:37	1.13
+++ compiler/gcc.m	2001/01/17 01:40:26
@@ -41,6 +41,10 @@
 % stuff defined by the gcc back-end are documented better
 % in the comments in the gcc source code.
 %
+% Many of the procedures here which are implemented using
+% stuff defined by the gcc back-end are documented better
+% in the comments in the gcc source code.
+%
 % QUOTES
 %
 %	``GCC is a software Vietnam.''
@@ -222,7 +226,7 @@
 	% they are defined by C part of the Mercury front-end,
 	% in gcc/mercury/mercury-gcc.c.  (XXX We might want to
 	% consider moving these to a separate module, to make
-	% this module more language-independant.)
+	% this module more language-independent.)
 :- func alloc_func_decl = gcc__func_decl.	% GC_malloc()
 :- func strcmp_func_decl = gcc__func_decl.	% strcmp()
 :- func hash_string_func_decl = gcc__func_decl.	% MR_hash_string()
@@ -1035,8 +1039,8 @@
 % operator expressions
 %
 
-:- pragma c_code(build_unop(Op::in, Type::in, Arg::in, Expr::out, _IO0::di, _IO::uo),
-	[will_not_call_mercury],
+:- pragma c_code(build_unop(Op::in, Type::in, Arg::in, Expr::out,
+	_IO0::di, _IO::uo), [will_not_call_mercury],
 "
 	Expr = (MR_Word) fold(build1(Op, (tree) Type, (tree) Arg));
 ").
@@ -1057,8 +1061,8 @@
 	DerefExpr = (MR_Word) build1 (INDIRECT_REF, type, ptr);
 ").
 
-:- pragma c_code(build_component_ref(ObjectExpr::in, FieldDecl::in, FieldExpr::out,
-	_IO0::di, _IO::uo), [will_not_call_mercury],
+:- pragma c_code(build_component_ref(ObjectExpr::in, FieldDecl::in,
+	FieldExpr::out, _IO0::di, _IO::uo), [will_not_call_mercury],
 "
 	/* XXX should move to mercury-gcc.c */
 	tree field_type = TREE_TYPE ((tree) FieldDecl);
@@ -1119,7 +1123,7 @@
 %
 
 	% GCC represents functions pointer expressions just as ordinary
-	% ADDR_EXPR nodes whose operand the function declaration tree node.
+	% ADDR_EXPR nodes whose operand is the function declaration tree node.
 build_func_addr_expr(FuncDecl, Expr) -->
 	build_addr_expr(FuncDecl, Expr).
 

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
                                    |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------