Permalink
Browse files

Apply patch from jimmy++ in TT #111.

* Convert lots of Parrot_Interp arguments to PARROT_INTERP and NULLOK_INTERP.
* Reformat some comments, fix some typos.

git-svn-id: https://svn.parrot.org/parrot/trunk@34730 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
1 parent a117a5a commit f376029265238a5dff2e7fbb29c2ca454b6c4b3e @Infinoid Infinoid committed Jan 1, 2009
@@ -59,7 +59,7 @@ static void build_interference_graph(PARROT_INTERP, ARGMOD(IMC_Unit *unit))
__attribute__nonnull__(2)
FUNC_MODIFIES(*unit);
-static void build_reglist(Parrot_Interp interp, ARGMOD(IMC_Unit *unit))
+static void build_reglist(NULLOK_INTERP, ARGMOD(IMC_Unit *unit))
__attribute__nonnull__(2)
FUNC_MODIFIES(*unit);
@@ -634,7 +634,7 @@ Run through them and allocate all that don't overlap in one bunch.
*/
static void
-build_reglist(Parrot_Interp interp, ARGMOD(IMC_Unit *unit))
+build_reglist(NULLOK_INTERP, ARGMOD(IMC_Unit *unit))
{
SymHash const *hsh = &unit->hash;
unsigned int i, count, unused, n_symbols;
@@ -23,7 +23,7 @@ RT#48264
/*
-=item C<INTVAL Parrot_Run_OS_Command(Parrot_Interp interp, STRING *command)>
+=item C<INTVAL Parrot_Run_OS_Command(PARROT_INTERP, STRING *command)>
Spawn a subprocess
@@ -32,7 +32,7 @@ Spawn a subprocess
*/
INTVAL
-Parrot_Run_OS_Command(Parrot_Interp interp, STRING *command)
+Parrot_Run_OS_Command(PARROT_INTERP, STRING *command)
{
Parrot_warn(NULL, PARROT_WARNINGS_PLATFORM_FLAG,
"Parrot_Run_OS_Command not implemented");
@@ -41,7 +41,7 @@ Parrot_Run_OS_Command(Parrot_Interp interp, STRING *command)
/*
-=item C<INTVAL Parrot_Run_OS_Command_Argv(Parrot_Interp interp, PMC *cmdargs)>
+=item C<INTVAL Parrot_Run_OS_Command_Argv(PARROT_INTERP, PMC *cmdargs)>
RT#48260: Not yet documented!!!
@@ -50,7 +50,7 @@ RT#48260: Not yet documented!!!
*/
INTVAL
-Parrot_Run_OS_Command_Argv(Parrot_Interp interp, PMC *cmdargs)
+Parrot_Run_OS_Command_Argv(PARROT_INTERP, PMC *cmdargs)
{
Parrot_warn(NULL, PARROT_WARNINGS_PLATFORM_FLAG,
"Parrot_Run_OS_Command_Argv not implemented");
@@ -59,7 +59,7 @@ Parrot_Run_OS_Command_Argv(Parrot_Interp interp, PMC *cmdargs)
/*
-=item C<void Parrot_Exec_OS_Comman(Parrot_Interp interp, STRING *command)>
+=item C<void Parrot_Exec_OS_Comman(PARROT_INTERP, STRING *command)>
RT#48260: Not yet documented!!!
@@ -68,7 +68,7 @@ RT#48260: Not yet documented!!!
*/
void
-Parrot_Exec_OS_Comman(Parrot_Interp interp, STRING *command)
+Parrot_Exec_OS_Comman(PARROT_INTERP, STRING *command)
{
Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_NOSPAWN,
"Exec not implemented");
@@ -27,7 +27,7 @@ system() stuff
/*
=item C<INTVAL
-Parrot_Run_OS_Command(Parrot_Interp interp, STRING *command)>
+Parrot_Run_OS_Command(PARROT_INTERP, STRING *command)>
Spawn off a subprocess and wait for the damn thing to complete,
returning the return value of the process
@@ -37,7 +37,7 @@ returning the return value of the process
*/
INTVAL
-Parrot_Run_OS_Command(Parrot_Interp interp, STRING *command)
+Parrot_Run_OS_Command(PARROT_INTERP, STRING *command)
{
pid_t child;
child = fork();
@@ -72,7 +72,7 @@ Parrot_Run_OS_Command(Parrot_Interp interp, STRING *command)
/*
=item C<INTVAL
-Parrot_Run_OS_Command_Argv(Parrot_Interp interp, PMC *cmdargs)>
+Parrot_Run_OS_Command_Argv(PARROT_INTERP, PMC *cmdargs)>
RT#48260: Not yet documented!!!
@@ -81,7 +81,7 @@ RT#48260: Not yet documented!!!
*/
INTVAL
-Parrot_Run_OS_Command_Argv(Parrot_Interp interp, PMC *cmdargs)
+Parrot_Run_OS_Command_Argv(PARROT_INTERP, PMC *cmdargs)
{
pid_t child;
int len = VTABLE_elements(interp, cmdargs);
@@ -133,7 +133,7 @@ Parrot_Run_OS_Command_Argv(Parrot_Interp interp, PMC *cmdargs)
/*
=item C<void
-Parrot_Exec_OS_Command(Parrot_Interp interp, STRING *command)>
+Parrot_Exec_OS_Command(PARROT_INTERP, STRING *command)>
RT #48260: Not yet documented!!!
@@ -142,7 +142,7 @@ RT #48260: Not yet documented!!!
*/
void
-Parrot_Exec_OS_Command(Parrot_Interp interp, STRING *command)
+Parrot_Exec_OS_Command(PARROT_INTERP, STRING *command)
{
/* Be horribly profligate with memory, since we're
about to be something else */
@@ -26,7 +26,7 @@ Functions for dealing with child processes and Execs.
/*
=item C<INTVAL
-Parrot_Run_OS_Command(Parrot_Interp interp, STRING *command)>
+Parrot_Run_OS_Command(PARROT_INTERP, STRING *command)>
Spawn the subprocess specified in C<command>.
Waits for the process to complete, and then
@@ -37,7 +37,7 @@ returns the exit code in POSIX-compatibility mode.
*/
INTVAL
-Parrot_Run_OS_Command(Parrot_Interp interp, STRING *command)
+Parrot_Run_OS_Command(PARROT_INTERP, STRING *command)
{
DWORD status = 0;
STARTUPINFO si;
@@ -79,7 +79,7 @@ Parrot_Run_OS_Command(Parrot_Interp interp, STRING *command)
/*
=item C<INTVAL
-Parrot_Run_OS_Command_Argv(Parrot_Interp interp, PMC *cmdargs)>
+Parrot_Run_OS_Command_Argv(PARROT_INTERP, PMC *cmdargs)>
Spawns a subprocess with the arguments provided in the C<cmdargs> PMC array.
The first array element should be the name of the process to spawn,
@@ -92,7 +92,7 @@ and returns the exit code in POSIX-compatibility mode.
*/
INTVAL
-Parrot_Run_OS_Command_Argv(Parrot_Interp interp, PMC *cmdargs)
+Parrot_Run_OS_Command_Argv(PARROT_INTERP, PMC *cmdargs)
{
DWORD status = 0;
STARTUPINFO si;
@@ -152,7 +152,7 @@ Parrot_Run_OS_Command_Argv(Parrot_Interp interp, PMC *cmdargs)
/*
=item C<void
-Parrot_Exec_OS_Command(Parrot_Interp interp, STRING *command)>
+Parrot_Exec_OS_Command(PARROT_INTERP, STRING *command)>
Exits parrot and passes control to the specified process. Does not return. Raises an exception
if the exec fails.
@@ -162,7 +162,7 @@ if the exec fails.
*/
void
-Parrot_Exec_OS_Command(Parrot_Interp interp, STRING *command)
+Parrot_Exec_OS_Command(PARROT_INTERP, STRING *command)
{
int status;
char *in = string_to_cstring(interp, command);
@@ -4,7 +4,7 @@
Z<CHP-10>
-This chapter contains a condensed list of PASM opcodes, PIR directives
+This chapter contains a condensed list of PASM opcodes, PIR directives
and instructions, and Parrot command-line options, sorted alphabetically
for easy reference. Any PASM opcode is valid in PIR code, so if you're
looking up PIR syntax you should check A<CHP-10-SECT-1>"PASM Opcodes",
View
@@ -5,7 +5,7 @@
=head1 Title
-FHS - Filesystem Hieararchy Standard and Parrot
+FHS - Filesystem Hierarchy Standard and Parrot
=head1 AUTHOR
Oops, something went wrong.

0 comments on commit f376029

Please sign in to comment.