[svn:parrot] r44131 - in trunk: . docs/pdds/draft src src/interp

[whiteknight at svn.parrot.org]

Author: whiteknight
Date: Thu Feb 18 14:41:11 2010
New Revision: 44131
URL: https://trac.parrot.org/parrot/changeset/44131

Log:
remove the PASM1 compreg

Modified:
   trunk/DEPRECATED.pod
   trunk/docs/pdds/draft/pdd06_pasm.pod
   trunk/src/debug.c
   trunk/src/interp/inter_create.c

Modified: trunk/DEPRECATED.pod
==============================================================================
--- trunk/DEPRECATED.pod	Thu Feb 18 08:48:11 2010	(r44130)
+++ trunk/DEPRECATED.pod	Thu Feb 18 14:41:11 2010	(r44131)
@@ -232,17 +232,6 @@
 
 =head1 Compiler tools
 
-=head2 PASM1 compiler
-
-=over 4
-
-=item C<PASM1 compiler> [eligible in 2.1]
-
-See PDB_compile. Note that the current version of the C<PASM1> compiler
-issues a warning and is not functional. (However, it used to segfault.)
-
-=back
-
 =head2 Parrot Grammar Engine (PGE)
 
 =over 4

Modified: trunk/docs/pdds/draft/pdd06_pasm.pod
==============================================================================
--- trunk/docs/pdds/draft/pdd06_pasm.pod	Thu Feb 18 08:48:11 2010	(r44130)
+++ trunk/docs/pdds/draft/pdd06_pasm.pod	Thu Feb 18 14:41:11 2010	(r44131)
@@ -989,8 +989,7 @@
 "Perl5", "Perl6", "Perl5RE", "Perl6RE", "Python", "Ruby"... you get the
 picture.
 
-Parrot knows of a "PASM1" compiler, i.e. a one statement PASM compiler
-implemented as PDB_eval. Imcc registers "PASM" and "PIR" compilers.
+Imcc registers "PASM" and "PIR" compilers automatically.
 
 This is a high-level op, with the assumption that the resulting sub will be
 called. It's the equivalent of perl 5's string eval, except for the actual

Modified: trunk/src/debug.c
==============================================================================
--- trunk/src/debug.c	Thu Feb 18 08:48:11 2010	(r44130)
+++ trunk/src/debug.c	Thu Feb 18 14:41:11 2010	(r44131)
@@ -3363,33 +3363,6 @@
 
 /*
 
-=item C<opcode_t * PDB_compile(PARROT_INTERP, const char *command)>
-
-Compiles instructions with the PASM compiler.
-
-Appends an C<end> op.
-
-This may be called from C<PDB_eval> above or from the compile opcode
-which generates a malloced string.
-
-=cut
-
-*/
-
-PARROT_CAN_RETURN_NULL
-opcode_t *
-PDB_compile(PARROT_INTERP, ARGIN(const char *command))
-{
-    ASSERT_ARGS(PDB_compile)
-
-    UNUSED(command);
-    Parrot_ex_throw_from_c_args(interp, NULL,
-        EXCEPTION_UNIMPLEMENTED,
-        "PDB_compile ('PASM1' compiler) has been deprecated");
-}
-
-/*
-
 =item C<void PDB_print(PARROT_INTERP, const char *command)>
 
 Print interp registers.

Modified: trunk/src/interp/inter_create.c
==============================================================================
--- trunk/src/interp/inter_create.c	Thu Feb 18 08:48:11 2010	(r44130)
+++ trunk/src/interp/inter_create.c	Thu Feb 18 14:41:11 2010	(r44131)
@@ -37,9 +37,6 @@
         __attribute__nonnull__(1)
         __attribute__nonnull__(2);
 
-static void setup_default_compreg(PARROT_INTERP)
-        __attribute__nonnull__(1);
-
 #define ASSERT_ARGS_is_env_var_set __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(var))
@@ -78,26 +75,6 @@
 
 /*
 
-=item C<static void setup_default_compreg(PARROT_INTERP)>
-
-Setup default compiler for PASM.
-
-=cut
-
-*/
-
-static void
-setup_default_compreg(PARROT_INTERP)
-{
-    ASSERT_ARGS(setup_default_compreg)
-    STRING * const pasm1 = CONST_STRING(interp, "PASM1");
-
-    /* register the nci compiler object */
-    Parrot_compreg(interp, pasm1, (Parrot_compiler_func_t)PDB_compile);
-}
-
-/*
-
 =item C<Parrot_Interp make_interpreter(Interp *parent, INTVAL flags)>
 
 Create the Parrot interpreter. Allocate memory and clear the registers.
@@ -299,9 +276,6 @@
     interp->current_runloop_id    = 0;
     interp->current_runloop_level = 0;
 
-    /* register assembler/compilers */
-    setup_default_compreg(interp);
-
     /* setup stdio PMCs */
     Parrot_io_init(interp);