[PATCH] Minor spelling & punctuation errors

0 views
Skip to first unread message

Steven Philip Schubiger

unread,
Apr 15, 2005, 8:42:20 AM4/15/05
to perl6-i...@perl.org
I've corrected a few spelling and punctuation errors;
since I'm not done yet, I'd like to know, whether I should
continue, or if the general consensus is, that it's mostly
needless nitpicking.

Punctuation has only been corrected, if punctuation was already
partly present; if totally absent, I didn't mind, as punctuation
does not always add up to readability.

Steven

--- src/builtin.c Fri Apr 15 14:24:06 2005
+++ src/builtin.c Fri Apr 15 13:04:58 2005
@@ -4,7 +4,7 @@

=head1 NAME

-src/builtin.c - Bultin Methods
+src/builtin.c - Builtin Methods

=head1 SYNOPSIS

--- src/datatypes.c Fri Apr 15 14:24:27 2005
+++ src/datatypes.c Fri Apr 15 14:34:40 2005
@@ -1,6 +1,5 @@
/*
-Copyright: (c) 2002 Leopold Toetsch <l...@toetsch.at>
-License: Artistic/GPL, see README and LICENSES for details
+Copyright: (c) 2002-2004 The Perl Foundation. All Rights Reserved.
$Id: datatypes.c,v 1.11 2004/09/08 00:33:58 dan Exp $

=head1 NAME
@@ -10,7 +9,7 @@
=head1 DESCRIPTION

The functions in this file are used in .ops files to access the C<enum>
-and C string constants for Parrot and native data types defined iin
+and C string constants for Parrot and native data types defined in
F<include/parrot/datatypes.h>.

=head2 Functions

--- src/debug.c Fri Apr 15 14:24:34 2005
+++ src/debug.c Fri Apr 15 13:30:21 2005
@@ -749,7 +749,7 @@
PDB_line_t *line;
long ln,i;

- /* If no line number was specified set it at the current line */
+ /* If no line number was specified, set it at the current line */
if (command && *command) {
ln = atol(command);

@@ -944,7 +944,7 @@
/* PDB_find_breakpoint
*
* Find breakpoint number N; returns NULL if the breakpoint doesn't
- * exist or if no breakpoint was specified
+ * exist or if no breakpoint was specified.
*
*/
/*
@@ -1470,8 +1470,8 @@
dest[size++] = 'P';
goto INTEGER;
case PARROT_ARG_IC:
- /* If the opcode jumps and this is the last argument
- means this is a label */
+ /* If the opcode jumps and this is the last argument,
+ that means this is a label */
if ((j == info->arg_count - 1) &&
(info->jump & PARROT_JUMP_RELATIVE))
{
@@ -1888,7 +1888,7 @@

=over 4

-=item * This should take the line get an instruction, get the opcode for
+=item * This should take the line, get an instruction, get the opcode for
that instruction and check that is the correct one.

=item * Decide what to do with macros if anything.
@@ -2265,7 +2265,8 @@
=item C<static void
dump_string(Interp *interpreter, STRING* s)>

-Description.
+Dumps the buflen, flags, bufused, strlen, offset associated
+with a string and the string itself.

=cut

--- src/dod.c Fri Apr 15 14:24:42 2005
+++ src/dod.c Fri Apr 15 13:41:18 2005
@@ -97,13 +97,13 @@
++arena_base->num_extended_PMCs;
/*
* XXX this basically invalidates the high-priority marking
- * of PMCs by putting all PMCs onto the front of the list
+ * of PMCs by putting all PMCs onto the front of the list.
* The reason for this is the by far better cache locality
- * when aggregates and their contents are marked "together"
+ * when aggregates and their contents are marked "together".
*
* To enable high priority marking again we should probably
* use a second pointer chain, which is, when not empty,
- * processed first
+ * processed first.
*/
if (tptr || hi_prio) {
if (PMC_next_for_GC(tptr) == tptr) {
@@ -177,7 +177,7 @@
if (*dod_flags & (PObj_is_special_PMC_FLAG << nm)) {
/* All PMCs that need special treatment are handled here.
* For normal PMCs, we don't touch the PMC memory itself
- * so that caches stay clean
+ * so that caches stay clean.
*/
#if GC_VERBOSE
if (PObj_report_TEST(obj)) {
@@ -210,7 +210,7 @@
PObj_live_SET(obj);

/* if object is a PMC and contains buffers or PMCs, then attach
- * the PMC to the chained mark list
+ * the PMC to the chained mark list.
*/
if (PObj_is_special_PMC_TEST(obj)) {
mark_special(interpreter, (PMC*) obj);
@@ -305,7 +305,7 @@
* but t/library/dumper* fails w/o this marking.
*
* It seems that the Class PMC gets DODed - these should
- * get created as constant PMCs
+ * get created as constant PMCs.
*/
for (i = 1; i < (unsigned int)enum_class_max; i++) {
VTABLE *vtable;
@@ -404,10 +404,10 @@
* First phase of mark is finished. Now if we are the owner
* of a shared pool, we must run the mark phase of other
* interpreters in our pool, so that live shared PMCs in that
- * interpreter are appended to our mark_ptrs chain
+ * interpreter are appended to our mark_ptrs chain.
*
* If there is a count of shared PMCs and we have already seen
- * all these, we could skip that
+ * all these, we could skip that.
*/
if (interpreter->profile)
Parrot_dod_profile_start(interpreter);
@@ -441,7 +441,7 @@
}
/* Start by checking if there's anything at all. This assumes that the
* largest percentage of PMCs won't have anything in their data
- * pointer that we need to trace */
+ * pointer that we need to trace. */
if (bits) {
if (bits == PObj_data_is_PMC_array_FLAG) {
/* malloced array of PMCs */
@@ -495,7 +495,7 @@

/* First mark the current set. We assume that all pointers in S registers
* are pointing to valid buffers. This is not a good assumption, but it'll
- * do for now */
+ * do for now. */
for (i = 0; i < NUM_REGISTERS; i++) {
Buffer *reg = (Buffer *)REG_STR(i);

@@ -633,7 +633,7 @@
* count free objects per arena
* - if we find more then one totally unused arena
* free all but one arena - this is the only possibility to
- * reduce the amount of free objects
+ * reduce the amount of free objects.
*
* doesn't really work or speed things up - disabled
*/
@@ -925,8 +925,8 @@
int bound = sizeof(size_t) * 8;

/* Shifting a value by its size (in bits) or larger is undefined behaviour.
- so need an explict check to return 0 if there is no prefix, rather than
- attempting to rely on (say) 0xFFFFFFFF << 32 being 0 */
+ So need an explict check to return 0 if there is no prefix, rather than
+ attempting to rely on (say) 0xFFFFFFFF << 32 being 0. */
for (i = 0; i < bound; i++) {
if (val1 == val2) {
return ~(size_t)0 << i;

--- src/embed.c Fri Apr 15 14:24:49 2005
+++ src/embed.c Fri Apr 15 13:46:47 2005
@@ -753,7 +753,7 @@

/*
* If any profile information was gathered, print it out
- * before exiting, then print debug infos if turned on
+ * before exiting, then print debug infos if turned on.
*/
Parrot_on_exit(print_debug, interpreter);
Parrot_on_exit(print_profile, interpreter);

--- src/events.c Fri Apr 15 14:24:58 2005
+++ src/events.c Fri Apr 15 13:50:51 2005
@@ -199,9 +199,9 @@
Parrot_init_signals(void)
{
/*
- * SIGFPE is architecture specific - some signal an error
+ * SIGFPE is architecture specific - some signal an error,
* some don't, so we have to use direct checks if we are dividing
- * by zero
+ * by zero.
*/
Parrot_sigaction(SIGHUP, sig_handler);
}
@@ -409,7 +409,7 @@
=item C<void
Parrot_new_cb_event(Parrot_Interp, PMC*cbi, void*ext)>

-Prepare and schedul a callback event
+Prepare and schedule a callback event.

=cut

--- src/exceptions.c Fri Apr 15 14:25:09 2005
+++ src/exceptions.c Fri Apr 15 13:53:44 2005
@@ -439,7 +439,7 @@
rethrow_c_exception(Interp * interpreter)>

Return back to runloop, assumes exception is still in C<REG_PMC(5)> and
-that this is called from within a handler setup with C<new_c_exception>
+that this is called from within a handler setup with C<new_c_exception>.

=cut

--- src/extend.c Fri Apr 15 14:25:16 2005
+++ src/extend.c Fri Apr 15 14:06:03 2005
@@ -991,7 +991,7 @@
=item C<void
Parrot_unregister_pmc(Parrot_INTERP interpreter, Parrot_PMC pmc)>

-Remove a reference of the PMC from the interpreters DOD registry If the
+Remove a reference of the PMC from the interpreters DOD registry. If the
reference count reaches zero, the PMC will be destroyed during the next
DOD run.

Reply all
Reply to author
Forward
0 new messages