Author: bernhard
Date: Fri Apr 15 10:37:19 2005
New Revision: 7847
Modified:
trunk/src/builtin.c
trunk/src/datatypes.c
trunk/src/debug.c
trunk/src/dod.c
trunk/src/embed.c
trunk/src/events.c
trunk/src/exceptions.c
trunk/src/extend.c
Log:
Fix a few spelling and punctuation errors.
Courtesy of Steven Philip Schubiger.
Modified: trunk/src/builtin.c
==============================================================================
--- trunk/src/builtin.c (original)
+++ trunk/src/builtin.c Fri Apr 15 10:37:19 2005
@@ -4,7 +4,7 @@
=head1 NAME
-src/builtin.c - Bultin Methods
+src/builtin.c - Builtin Methods
=head1 SYNOPSIS
Modified: trunk/src/datatypes.c
==============================================================================
--- trunk/src/datatypes.c (original)
+++ trunk/src/datatypes.c Fri Apr 15 10:37:19 2005
@@ -1,5 +1,5 @@
/*
-Copyright: (c) 2002 Leopold Toetsch <[EMAIL PROTECTED]>
+Copyright: (c) 2002-2005 Leopold Toetsch <[EMAIL PROTECTED]>
License: Artistic/GPL, see README and LICENSES for details
$Id$
@@ -10,7 +10,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
Modified: trunk/src/debug.c
==============================================================================
--- trunk/src/debug.c (original)
+++ trunk/src/debug.c Fri Apr 15 10:37:19 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
Modified: trunk/src/dod.c
==============================================================================
--- trunk/src/dod.c (original)
+++ trunk/src/dod.c Fri Apr 15 10:37:19 2005
@@ -1,5 +1,5 @@
/*
-Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
$Id$
=head1 NAME
@@ -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 explicit 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;
Modified: trunk/src/embed.c
==============================================================================
--- trunk/src/embed.c (original)
+++ trunk/src/embed.c Fri Apr 15 10:37:19 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);
Modified: trunk/src/events.c
==============================================================================
--- trunk/src/events.c (original)
+++ trunk/src/events.c Fri Apr 15 10:37:19 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);
}
@@ -412,7 +412,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
Modified: trunk/src/exceptions.c
==============================================================================
--- trunk/src/exceptions.c (original)
+++ trunk/src/exceptions.c Fri Apr 15 10:37:19 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
Modified: trunk/src/extend.c
==============================================================================
--- trunk/src/extend.c (original)
+++ trunk/src/extend.c Fri Apr 15 10:37:19 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.
