procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

PR modula2/119735: Remove single quotes from m2 source code comments.

Browse source 
Removing ' from all m2 comments so that make gcc.pot does not
generate any warnings.  Also hide %n from comments.

gcc/m2/ChangeLog:

	PR modula2/119735
	* gm2-compiler/M2MetaError.def: Hide %n from comment.
	* gm2-compiler/SymbolTable.def (PutIncludedByDefinition): Remove '
	from comment.
	* gm2-gcc/m2expr.def (init): Ditto.
	* gm2-libiberty/pexecute.def: Ditto.
	* gm2-libs-coroutines/Executive.def (InitSemaphore): Ditto.
	(Wait): Ditto.
	* gm2-libs-iso/ClientSocket.def: Ditto.
	* gm2-libs-log/BlockOps.def (BlockMoveBackward): Ditto.
	* gm2-libs-log/InOut.def: Ditto.
	* mc/mcFileName.def: Ditto.

Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>
This commit is contained in:
Gaius Mulley 2025-04-11 19:34:17 +01:00
parent 5cc8a75140
commit 985ae5ae9d
9 changed files with 20 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gcc/m2/gm2-compiler/M2MetaError.def
View file

@ -73,7 +73,8 @@ FROM NameKey IMPORT Name ;
{%kword} the string word is unquoted and rendered as a keyword.
{%C} chain this error on the previous rooted error.
{%R} this error will be the root of the future chained errors.
{%n} decimal number. Not quoted.
{% n} decimal number. Not quoted. There is no space between the
% and n (this has been added to hide this comment from gettext).
{%N} count (number), for example, 1st, 2nd, 3rd, 4th. Not quoted.
{%X} push contents of the output string onto the string stack.
{%Yname} place contents of dictionary entry name onto the output string.

2
gcc/m2/gm2-compiler/SymbolTable.def
View file

@ -2025,7 +2025,7 @@ PROCEDURE PutIncludedByDefinition (Sym: CARDINAL) ;
(*
IsIncludedByDefinition - returns TRUE if definition module symbol, Sym, was included
by ModSym's definition module.
by ModSyms definition module.
*)
PROCEDURE IsIncludedByDefinition (ModSym, Sym: CARDINAL) : BOOLEAN ;

2
gcc/m2/gm2-gcc/m2expr.def
View file

@ -45,7 +45,7 @@ PROCEDURE init (location: location_t) ;
(*
CSTIntToString - return an integer string using base 10 and no padding.
The string returned will have been malloc'd.
The string returned will have been mallocd.
*)
PROCEDURE CSTIntToString (t: tree) : CharStar ;

16
gcc/m2/gm2-libiberty/pexecute.def
View file

@ -31,16 +31,16 @@ EXPORT UNQUALIFIED pexecute ;
THIS_PNAME is name of the calling program (i.e. argv[0]).
TEMP_BASE is the path name, sans suffix, of a temporary file to use
if needed. This is currently only needed for MSDOS ports that don't use
GO32 (do any still exist?). Ports that don't need it can pass NULL.
if needed. This is currently only needed for MSDOS ports that dont use
GO32 (do any still exist?). Ports that dont need it can pass NULL.
(FLAGS & PEXECUTE_SEARCH) is non-zero if $PATH should be searched
(??? It's not clear that GCC passes this flag correctly).
(??? Its not clear that GCC passes this flag correctly).
(FLAGS & PEXECUTE_FIRST) is nonzero for the first process in chain.
(FLAGS & PEXECUTE_FIRST) is nonzero for the last process in chain.
FIRST_LAST could be simplified to only mark the last of a chain of processes
but that requires the caller to always mark the last one (and not give up
early if some error occurs). It's more robust to require the caller to
early if some error occurs). Its more robust to require the caller to
mark both ends of the chain.
The result is the pid on systems like Unix where we fork/exec and on systems
@ -52,20 +52,20 @@ EXPORT UNQUALIFIED pexecute ;
Upon failure, ERRMSG_FMT and ERRMSG_ARG are set to the text of the error
message with an optional argument (if not needed, ERRMSG_ARG is set to
NULL), and -1 is returned. `errno' is available to the caller to use.
NULL), and -1 is returned. errno is available to the caller to use.
pwait: cover function for wait.
PID is the process id of the task to wait for.
STATUS is the `status' argument to wait.
STATUS is the status argument to wait.
FLAGS is currently unused (allows future enhancement without breaking
upward compatibility). Pass 0 for now.
The result is the pid of the child reaped,
or -1 for failure (errno says why).
On systems that don't support waiting for a particular child, PID is
ignored. On systems like MSDOS that don't really multitask pwait
On systems that dont support waiting for a particular child, PID is
ignored. On systems like MSDOS that dont really multitask pwait
is just a mechanism to provide a consistent interface for the caller.
pfinish: finish generation of script

6
gcc/m2/gm2-libs-coroutines/Executive.def
View file

@ -32,7 +32,7 @@ EXPORT QUALIFIED SEMAPHORE, DESCRIPTOR,
RotateRunQueue, ProcessName, DebugProcess ;
TYPE
SEMAPHORE ; (* defines Dijkstra's semaphores *)
SEMAPHORE ; (* defines Dijkstras semaphores *)
DESCRIPTOR ; (* handle onto a process *)
@ -85,7 +85,7 @@ PROCEDURE InitSemaphore (v: CARDINAL; Name: ARRAY OF CHAR) : SEMAPHORE ;
(*
Wait - performs dijkstra's P operation on a semaphore.
Wait - performs dijkstras P operation on a semaphore.
A process which calls this procedure will
wait until the value of the semaphore is > 0
and then it will decrement this value.
@ -95,7 +95,7 @@ PROCEDURE Wait (s: SEMAPHORE) ;
(*
Signal - performs dijkstra's V operation on a semaphore.
Signal - performs dijkstras V operation on a semaphore.
A process which calls the procedure will increment
the semaphores value.
*)

2
gcc/m2/gm2-libs-iso/ClientSocket.def
View file

@ -1,4 +1,4 @@
(* ClientSocket.def provides a client TCP interface for ChanId's.
(* ClientSocket.def provides a client TCP interface for ChanIds.
Copyright (C) 2008-2025 Free Software Foundation, Inc.
Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.

2
gcc/m2/gm2-libs-log/BlockOps.def
View file

@ -50,7 +50,7 @@ PROCEDURE BlockMoveBackward (dest, src: ADDRESS; n: CARDINAL) ;
(*
BlockClear - fills, block..block+n-1, with zero's.
BlockClear - fills, block..block+n-1, with zeros.
*)
PROCEDURE BlockClear (block: ADDRESS; n: CARDINAL) ;

4
gcc/m2/gm2-libs-log/InOut.def
View file

@ -45,7 +45,7 @@ VAR
(*
OpenInput - reads a string from stdin as the filename for reading.
If the filename ends with `.' then it appends the defext
If the filename ends with '.' then it appends the defext
extension. The global variable Done is set if all
was successful.
*)
@ -63,7 +63,7 @@ PROCEDURE CloseInput ;
(*
OpenOutput - reads a string from stdin as the filename for writing.
If the filename ends with `.' then it appends the defext
If the filename ends with '.' then it appends the defext
extension. The global variable Done is set if all
was successful.
*)

2
gcc/m2/mc/mcFileName.def
View file

@ -29,7 +29,7 @@ FROM DynamicStrings IMPORT String ;
given a module and an extension. This file name
length will be operating system specific.
String, Extension, is concatenated onto
Module and thus it is safe to `Mark' the extension
Module and thus it is safe to Mark the extension
for garbage collection.
*)