pl 24 Dec 2001 21:23:57 - 1.6
+++ jit2h.pl 29 Dec 2001 20:42:11 - 1.7
@@ -2,6 +2,8 @@
#
# jit2h.pl
#
+# $Id: jit2h.pl,v 1.7 2001/12/29 20:42:11 grunblatt Exp $
+#
use strict;
use Parrot::Jit;
@@ -22,7 +24,7 @@
my ($function, $body, $line);
@@ -1,5 +1,7 @@
/*
** jit.c
+**
+** $Id: jit.c,v 1.4 2001/12/30 20:15:44 grunblatt Exp $
*/
#include
@@ -31,7 +33,7 @@
char *
build_asm(struct Parrot_Interp *interpreter,opcode_t *pc, opcode_t *code_start,
opcode_t *code_end)
{
-char *arena, *arena_start
@@
#
# Configure.pl
#
-# $Id: Configure.pl,v 1.47 2001/12/31 03:05:59 dan Exp $
+# $Id: Configure.pl,v 1.48 2001/12/31 05:09:25 grunblatt Exp $
#
# Author: Brent Dax
#
@@ -43,7 +43,7 @@
if($opt_version) {
print "Parrot Version $parrot_version Configure\n";
-
1.6
@@ -1,7 +1,7 @@
/*
** jit.h
**
-** $Id: jit.h,v 1.5 2001/12/31 19:37:53 gregor Exp $
+** $Id: jit.h,v 1.6 2002/01/02 19:52:19 grunblatt Exp $
*/
#ifndef JIT_H_GUARD
@@ -42,7 +42,7 @@
typedef struct {
const char *assembly;
-int size;
+unsigned
@@
/*
** jit.c
**
-** $Id: jit.c,v 1.5 2001/12/31 19:37:53 gregor Exp $
+** $Id: jit.c,v 1.6 2002/01/02 19:52:19 grunblatt Exp $
*/
#include
#include "parrot/jit.h"
-
-opcode_assembly_t op_assembly[458]= {
#include "parrot/jit_struct.h"
-};
-
jit.c
**
-** $Id: jit.c,v 1.6 2002/01/02 19:52:19 grunblatt Exp $
+** $Id: jit.c,v 1.7 2002/01/10 20:30:38 grunblatt Exp $
*/
#include
@@ -313,6 +313,9 @@
case 5:
address = (INTVAL *)push_generic_entry;
/core.jit,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -w -r1.7 -r1.8
--- core.jit 10 Jan 2002 20:30:42 - 1.7
+++ core.jit 11 Jan 2002 03:44:27 - 1.8
@@ -1,7 +1,7 @@
;
; i386_core.jit
;
-; $Id: core.jit,v 1.7 2002/01/10 20:30:42 grunblatt Exp
**
-** $Id: jit.c,v 1.8 2002/01/10 23:14:56 dan Exp $
+** $Id: jit.c,v 1.9 2002/01/12 00:16:31 grunblatt Exp $
*/
#include
@@ -364,8 +364,12 @@
/* Keep it pointing to "where the code goes" */
arena += op_assembly[*pc].size;
-bytecod
go here)
* CVS Info
- * $Id: string.h,v 1.21 2002/01/11 23:03:01 dan Exp $
+ * $Id: string.h,v 1.22 2002/01/12 00:39:47 grunblatt Exp $
* Overview:
* This is the api header for the string subsystem
* Data Structure and Algorithms:
@@ -32,15 +32,15 @@
void
cvsuser 02/01/20 12:50:12
parrot/jit/alpha - New directory
#
-# $Id: Configure.pl,v 1.81 2002/01/18 23:58:02 dan Exp $
+# $Id: Configure.pl,v 1.82 2002/01/20 20:52:20 grunblatt Exp $
#
# Author: Brent Dax
#
@@ -75,7 +75,7 @@
if($opt_version) {
print "Parrot Version $parrot_version Configure\n";
-print '$Id: Configur
cvsuser 02/01/20 19:25:25
Modified:.Makefile.in
Log:
Use $jitcpuarch instead of $cpuarch.
Thanks to Melvin Smith for the catch up.
Revision ChangesPath
1.120 +1 -1 parrot/Makefile.in
Index: Makefile.in
===
Jan 2002 01:27:31 - 1.2
@@ -1,7 +1,7 @@
#
# Parrot::Jit::alphaGeneric;
#
-# $Id: alphaGeneric.pm,v 1.1 2002/01/20 20:52:22 grunblatt Exp $
+# $Id: alphaGeneric.pm,v 1.2 2002/01/25 01:27:31 grunblatt Exp $
#
package Parrot::Jit::alphaGeneric;
@@ -163,6 +163,7
:33 grunblatt Exp $
+; $Id: core.jit,v 1.3 2002/01/25 01:31:46 grunblatt Exp $
;
Parrot_end {
@@ -109,27 +109,27 @@
Parrot_neg_i_i {
ldq $3 , &INT_REG[2]
-neg $3 , $3
+negq $3 , $3
stq $3 , &INT_REG[1]
}
Parrot_neg_i_ic {
lda
@@
#
# Parrot::Jit;
#
-# $Id: i386-linux.pm,v 1.7 2002/01/20 20:52:22 grunblatt Exp $
+# $Id: i386-linux.pm,v 1.8 2002/01/26 17:20:53 grunblatt Exp $
#
package Parrot::Jit;
@@ -48,7 +48,7 @@
}
$sc .= "mov \$" . $syscall_number{$sys_n} .
::Jit::i386Generic;
#
-# $Id: i386Generic.pm,v 1.3 2002/01/26 17:20:53 grunblatt Exp $
+# $Id: i386Generic.pm,v 1.4 2002/01/26 23:17:16 grunblatt Exp $
#
package Parrot::Jit::i386Generic;
use IO::File;
-use constant DEBUG => 0;
+use constant DEBUG => 1;
;
#
-# $Id: i386Generic.pm,v 1.4 2002/01/26 23:17:16 grunblatt Exp $
+# $Id: i386Generic.pm,v 1.5 2002/01/26 23:18:13 grunblatt Exp $
#
package Parrot::Jit::i386Generic;
use IO::File;
-use constant DEBUG => 1;
+use constant DEBUG => 0;
use constant T
1.11
@@ -1,7 +1,7 @@
/*
** jit.c
**
-** $Id: jit.c,v 1.10 2002/01/20 20:52:21 grunblatt Exp $
+** $Id: jit.c,v 1.11 2002/01/28 14:16:59 grunblatt Exp $
*/
#include
@@ -33,7 +33,7 @@
INTVAL *address,ivalue,size,i,k;
INTVAL *op_address, prev_address
1.6
@@ -1,7 +1,7 @@
#
# Parrot::Jit::i386Generic;
#
-# $Id: i386Generic.pm,v 1.5 2002/01/26 23:18:13 grunblatt Exp $
+# $Id: i386Generic.pm,v 1.6 2002/01/28 17:46:57 grunblatt Exp $
#
package Parrot::Jit::i386Generic;
@@ -187,9 +187,9 @@
print STDERR "\n\
cvsuser 02/01/29 05:57:54
parrot/jit/sun4 - New directory
:03:15 dan Exp $
+ * $Id: interpreter.c,v 1.66 2002/01/29 14:05:31 grunblatt Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -303,6 +303,12 @@
#ifdef I386
(jit_code)();
#endif
+#ifdef SUN4
+(ji
5
@@ -2,7 +2,7 @@
#
# Configure.pl
#
-# $Id: Configure.pl,v 1.84 2002/01/26 16:52:36 dan Exp $
+# $Id: Configure.pl,v 1.85 2002/01/29 15:40:49 grunblatt Exp $
#
# Author: Brent Dax
#
@@ -75,7 +75,7 @@
if($opt_version) {
print "Parrot Version $parro
cvsuser 02/01/30 07:38:38
Modified:.MANIFEST
Log:
Enclosed patch adds the new SPARC-based JIT files to the manifest,
and also puts it back into alphabetical order.
Courtesy of: Simon Glover <[EMAIL PROTECTED]>
Revision ChangesPath
1.110 +31 -26par
software. It is subject to the same license
# as the Parrot interpreter.
#
-# $Id: pbc2c.pl,v 1.15 2002/01/19 08:26:50 brentdax Exp $
+# $Id: pbc2c.pl,v 1.16 2002/01/30 15:42:56 grunblatt Exp $
#
use strict;
+use lib 'lib';
use Parrot::Types;
use Parrot::PackFi
diff -u -w -r1.1 -r1.2
--- alpha-bsd.pm 20 Jan 2002 20:52:22 - 1.1
+++ alpha-bsd.pm 30 Jan 2002 23:50:40 - 1.2
@@ -1,12 +1,15 @@
#
# Parrot::Jit;
#
-# $Id: alpha-bsd.pm,v 1.1 2002/01/20 20:52:22 grunblatt Exp $
+# $Id: alpha-bsd.pm,v 1.2 2002/01/30 23:50
/01/28 17:46:59 grunblatt Exp $
+; $Id: core.jit,v 1.14 2002/01/31 02:22:00 grunblatt Exp $
;
Parrot_noop {
@@ -65,6 +65,9 @@
Parrot_print_s {
movl $1,&TEMP_INT[1]
+cmp $0,&STRING_REG[1]
+je ($0x0)
+JUMP(END)
F(get_bufstart, &
ure.pl 31 Jan 2002 03:13:46 - 1.89
@@ -2,7 +2,7 @@
#
# Configure.pl
#
-# $Id: Configure.pl,v 1.88 2002/01/30 22:13:36 dan Exp $
+# $Id: Configure.pl,v 1.89 2002/01/31 03:13:46 grunblatt Exp $
#
# Author: Brent Dax
#
@@ -76,7 +76,7 @@
if($opt_version) {
@@
;
; i386_core.jit
;
-; $Id: core.jit,v 1.14 2002/01/31 02:22:00 grunblatt Exp $
+; $Id: core.jit,v 1.15 2002/01/31 03:20:42 grunblatt Exp $
;
Parrot_noop {
@@ -65,9 +65,9 @@
Parrot_print_s {
movl $1,&TEMP_INT[1]
-cmp $0,&STRING_REG[1]
-je ($0x0)
-
ad1 Parrot JIT Subsystem
+=head1 TITLE
-Files:
+Parrot JIT Subsystem
+
+=head1 VERSION
+
+=head2 CURRENT
+
+Maintainer: Daniel Grunblatt
+Class: Internals
+PDD Number: 8
+Version: 1.1
+Status: Developing
+Last Modified: 31 January 2002
+
- 1.19
@@ -2,7 +2,7 @@
#
# jit2h.pl
#
-# $Id: jit2h.pl,v 1.18 2002/03/09 02:05:54 josh Exp $
+# $Id: jit2h.pl,v 1.19 2002/04/22 01:37:12 grunblatt Exp $
#
use strict;
@@ -108,7 +108,7 @@
$precompiled = 0;
if (!defined $body) {
$precompiled = 1
r 2002 01:37:12 - 1.23
+++ ops2c.pl 22 Apr 2002 02:40:55 - 1.24
@@ -5,13 +5,20 @@
# Generate a C header and source file from the operation definitions in
# an .ops file, using a supplied transform.
#
-# $Id: ops2c.pl,v 1.23 2002/04/22 01:37:12 grunblatt Exp $
interpreter.
#
-# $Id: pbc2c.pl,v 1.21 2002/04/02 04:46:44 sfink Exp $
+# $Id: pbc2c.pl,v 1.22 2002/04/22 20:56:23 grunblatt Exp $
#
use strict;
-use lib 'lib';
use lib 'lib';
use Parrot::Types;
cvsuser 02/05/12 11:57:43
Modified:lib/Parrot OpsFile.pm
Log:
Let's at least print the body :)
Revision ChangesPath
1.24 +5 -1 parrot/lib/Parrot/OpsFile.pm
Index: OpsFile.pm
===
RCS file:
cvsuser 02/05/16 10:46:05
parrot/languages/parrot_compiler - New directory
Index: gentable.pl
===
#! /usr/bin/perl
#
# gentable.pl
#
# Generate the tables for the parrot compiler
#
# $Id: gentable.pl,v 1.1 2002/05/16 18:31:04 grunblatt Exp $
#
use strict;
use lib '../../lib';
use Parrot::Op;
use Parrot::OpLib::core;
cvsuser 02/05/16 11:36:11
Modified:languages/parrot_compiler Makefile
Log:
Clean something we use.
Revision ChangesPath
1.2 +2 -4 parrot/languages/parrot_compiler/Makefile
Index: Makefile
=
cvsuser 02/05/16 11:40:09
Modified:.core.ops
Log:
Added index and pack.
Revision ChangesPath
1.138 +154 -0parrot/core.ops
Index: core.ops
===
RCS file: /home/perlcvs/parrot/core.ops,
/parrot/jit.c,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -w -r1.17 -r1.18
--- jit.c 20 May 2002 05:32:53 - 1.17
+++ jit.c 20 May 2002 15:12:10 - 1.18
@@ -1,7 +1,7 @@
/*
** jit.c
**
-** $Id: jit.c,v 1.17 2002/05/20 05:32:53 grunblatt Exp
1.11 2002/05/20 05:32:56 grunblatt Exp $
+** $Id: jit.h,v 1.12 2002/05/20 15:12:14 grunblatt Exp $
*/
#ifndef JIT_H_GUARD
@@ -90,6 +90,9 @@
void Parrot_jit_dofixup(Parrot_jit_info *jit_info, struct Parrot_Interp *
interpreter);
void Parrot_jit_cpcf_op(Parrot_jit_info *jit_info
0 1.56
@@ -1,7 +1,7 @@
/* resources.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: resources.c,v 1.55 2002/05/20 00:51:13 sfink Exp $
+ * $Id: resources.c,v 1.56 2002/05/20 16:16:01 grunblatt Exp $
* Overview:
* Allocate and
0 1.41
@@ -1,7 +1,7 @@
/* string.h
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: string.h,v 1.40 2002/05/20 00:45:40 sfink Exp $
+ * $Id: string.h,v 1.41 2002/05/20 16:16:09 grunblatt Exp $
* Overview:
* This is the api hea
cvsuser 02/05/20 10:52:29
Modified:.core.ops
Log:
Attached patch to core.ops implements neonate protection for the 'pack'
opcode. The flag doesn't need to be cleared, since string_destroy handles
this.
Courtesy of: Peter Gibbs <[EMAIL PROTECTED]>
Revision Chan
@ -1,7 +1,7 @@
/* string.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: string.c,v 1.78 2002/05/20 16:16:01 grunblatt Exp $
+ * $Id: string.c,v 1.79 2002/05/20 18:54:23 grunblatt Exp $
* Overview:
* This is the api definitions f
/05/20 18:54:25 grunblatt Exp $
* Overview:
* This is the api header for the string subsystem
* Data Structure and Algorithms:
@@ -18,14 +18,14 @@
/* Declarations of accessors */
INTVAL string_compute_strlen(STRING *);
-STRING *string_concat(struct Parrot_Interp*,
e.pm,v 1.16 2002/05/20 20:00:57 grunblatt Exp $
#
use strict;
@@ -187,20 +187,7 @@
$self->{MINOR} = shift_byte($string);
$self->{FLAGS} = shift_byte($string);
$self->{FLOATTYPE} = shift_byte($string);
-
- # Unused fields
- shift_byte($string);
-
@ -1,7 +1,7 @@
/* resources.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: resources.c,v 1.56 2002/05/20 16:16:01 grunblatt Exp $
+ * $Id: resources.c,v 1.57 2002/05/20 23:19:30 grunblatt Exp $
* Overview:
* Allocate and deallocate tracke
ay 2002 01:28:32 - 1.3
+++ hash.c22 May 2002 03:04:03 - 1.4
@@ -1,7 +1,7 @@
/* hash.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: hash.c,v 1.3 2002/05/20 01:28:32 mrjoltcola Exp $
+ * $Id: hash.c,v 1.4 2002/05/22 03:04:
02 14:13:39 - 1.18
@@ -1,7 +1,7 @@
;
; i386/core.jit
;
-; $Id: core.jit,v 1.17 2002/05/20 05:32:59 grunblatt Exp $
+; $Id: core.jit,v 1.18 2002/05/22 14:13:39 grunblatt Exp $
;
Parrot_end {
@@ -74,6 +74,76 @@
emit_jump(jit_info, *INT_CONST[1]);
}
+P
cvsuser 02/05/22 08:03:24
Modified:.TODO
Log:
Added:
*Finish the register allocator
*Make it work on more architectures
Revision ChangesPath
1.12 +4 -2 parrot/TODO
Index: TODO
==
cvsuser 02/05/23 11:36:49
Modified:.core.ops
Log:
Modified the 4th argument version of pack to grow the string if $2 + $4 > string
length.
Revision ChangesPath
1.144 +9 -0 parrot/core.ops
Index: core.ops
==
05:32:53 - 1.20
+++ jit2h.pl 24 May 2002 15:29:07 - 1.21
@@ -2,7 +2,7 @@
#
# jit2h.pl
#
-# $Id: jit2h.pl,v 1.20 2002/05/20 05:32:53 grunblatt Exp $
+# $Id: jit2h.pl,v 1.21 2002/05/24 15:29:07 grunblatt Exp $
#
use strict;
@@ -28,7 +28,7 @@
it.h 20 May 2002 15:12:14 - 1.12
+++ jit.h 24 May 2002 15:29:11 - 1.13
@@ -1,7 +1,7 @@
/*
** jit.h
**
-** $Id: jit.h,v 1.12 2002/05/20 15:12:14 grunblatt Exp $
+** $Id: jit.h,v 1.13 2002/05/24 15:29:11 grunblatt Exp $
*/
#ifndef JIT_H_GUARD
@
es.c,v 1.58 2002/05/23 18:15:51 dan Exp $
+ * $Id: resources.c,v 1.59 2002/05/24 16:11:08 grunblatt Exp $
* Overview:
* Allocate and deallocate tracked resources
* Data Structure and Algorithms:
@@ -24,6 +24,14 @@
#define UNITS_PER_ALLOC_GROWTH_FACTOR 4
* CVS Info
- * $Id: resources.h,v 1.31 2002/05/20 00:45:40 sfink Exp $
+ * $Id: resources.h,v 1.32 2002/05/24 16:11:10 grunblatt Exp $
* Overview:
* Defines the resource allocation API
* Data Structure and Algorithms:
@@ -29,6 +29,9 @@
void (*comp
1.59
+++ resources.c 26 May 2002 20:20:08 - 1.60
@@ -1,7 +1,7 @@
/* resources.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: resources.c,v 1.59 2002/05/24 16:11:08 grunblatt Exp $
+ * $Id: resources.c,v 1.60 2002/05/26 20:20:08 grunbla
cvsuser 02/05/27 13:37:47
Modified:config/auto jit.pl
Log:
Make the JIT compile again.
Revision ChangesPath
1.2 +2 -2 parrot/config/auto/jit.pl
Index: jit.pl
===
RCS file: /home/perlcvs/p
cvsuser 02/05/29 12:16:49
parrot/examples/benchmarks - New directory
cvsuser 02/05/29 12:19:30
Added: examples/benchmarks gc_alloc_new.pasm gc_alloc_reuse.pasm
gc_generations.pasm gc_header_new.pasm
gc_header_reuse.pasm gc_waves_headers.pasm
gc_waves_sizeable_data.pasm
cvsuser 02/05/30 11:03:17
Modified:config/gen/makefiles root.in
Log:
Following patch adds dependencies entry for hash.c to Makefile.
Stops things from getting very confusing when changing layout of String and/or
Buffer structs!
Courtesy of: Peter Gibbs <[EMAIL PROTECTED]>
- *$Id: debug.h,v 1.1 2002/06/01 02:52:50 jgoff Exp $
+ *$Id: debug.h,v 1.2 2002/06/01 06:05:53 grunblatt Exp $
* Overview:
*Parrot debugger header files
* History:
@@ -129,6 +129,9 @@
void
PDB_skip_breakpoint(struct Parrot_Interp *interpreter,
long i
:35 jgoff Exp $
+ *$Id: debug.c,v 1.2 2002/06/01 06:05:51 grunblatt Exp $
* Overview:
*Parrot debugger
* History:
@@ -153,7 +153,8 @@
PDB_run_command(interpreter,pdb->last_command);
break;
default:
-fprintf(std
cvsuser 02/06/01 01:06:53
Modified:.assemble.pl
Log:
Unescape \\.
Revision ChangesPath
1.54 +1 -0 parrot/assemble.pl
Index: assemble.pl
===
RCS file: /home/perlcvs/parrot/assemble.
16 May 2002 18:31:04 - 1.1
+++ gentable.pl 1 Jun 2002 08:15:03 - 1.2
@@ -4,7 +4,7 @@
#
# Generate the tables for the parrot compiler
#
-# $Id: gentable.pl,v 1.1 2002/05/16 18:31:04 grunblatt Exp $
+# $Id: gentable.pl,v 1.2 2002/06/01 08:15:03 grunblatt Exp
Info
- *$Id: debug.c,v 1.2 2002/06/01 06:05:51 grunblatt Exp $
+ *$Id: debug.c,v 1.3 2002/06/01 08:30:13 grunblatt Exp $
* Overview:
*Parrot debugger
* History:
@@ -113,7 +113,8 @@
case c_r:
case c_run:
na(command);
-PD
+2,7 @@
* debug.h
*
* CVS Info
- *$Id: debug.h,v 1.2 2002/06/01 06:05:53 grunblatt Exp $
+ *$Id: debug.h,v 1.3 2002/06/01 08:31:29 grunblatt Exp $
* Overview:
*Parrot debugger header files
* History:
@@ -47,7 +47,6 @@
char * sourcefil
cvsuser 02/06/01 10:20:30
Modified:.MANIFEST
Log:
Adding some missing files.
Revision ChangesPath
1.155 +20 -0 parrot/MANIFEST
Index: MANIFEST
===
RCS file: /home/perlcvs/parrot/MANI
cvsuser 02/06/01 10:50:21
Modified:.TODO
Log:
Added TODO things for the Debugger.
Revision ChangesPath
1.13 +12 -0 parrot/TODO
Index: TODO
===
RCS file: /home/perlcvs/parrot/TODO,v
cvsuser 02/06/01 10:55:20
Modified:.TODO
Log:
Forgot this one.
Revision ChangesPath
1.14 +1 -0 parrot/TODO
Index: TODO
===
RCS file: /home/perlcvs/parrot/TODO,v
retrieving revisi
cvsuser 02/06/01 16:09:50
Added: languages/parrot_compiler sample.pasm
Log:
Sample program to show the syntax.
Revision ChangesPath
1.1 parrot/languages/parrot_compiler/sample.pasm
Index: sample.pasm
=
cvsuser 02/06/01 16:15:01
Modified:.MANIFEST
Log:
Add sample.pasm
Revision ChangesPath
1.157 +1 -0 parrot/MANIFEST
Index: MANIFEST
===
RCS file: /home/perlcvs/parrot/MANIFEST,v
re
* CVS Info
- *$Id: debug.c,v 1.3 2002/06/01 08:30:13 grunblatt Exp $
+ *$Id: debug.c,v 1.4 2002/06/03 00:43:44 grunblatt Exp $
* Overview:
*Parrot debugger
* History:
@@ -13,6 +13,7 @@
#include "parrot/parrot.h"
#include "parrot/interp_guts.h&quo
-2,7 +2,7 @@
* debug.h
*
* CVS Info
- *$Id: debug.h,v 1.3 2002/06/01 08:31:29 grunblatt Exp $
+ *$Id: debug.h,v 1.4 2002/06/03 00:44:59 grunblatt Exp $
* Overview:
*Parrot debugger header files
* History:
@@ -111,6 +111,13 @@
const char *);
void
cvsuser 02/06/02 20:03:05
Modified:.TODO
Log:
Typo.
Revision ChangesPath
1.15 +1 -1 parrot/TODO
Index: TODO
===
RCS file: /home/perlcvs/parrot/TODO,v
retrieving revision 1.14
r
cvsuser 02/06/03 13:17:05
Modified:.core.ops
t/pmcarray.t perlarray.t perlhash.t
Log:
The patch below renames the set_keyed and get_keyed ops simply to set,
as Jeff suggested, as well as documenting them (slightly). It also
adjusts the tests accord
+3,7 @@
#
# Parrot compiler.
#
-# $Id: parrot.pasm,v 1.2 2002/06/01 08:15:03 grunblatt Exp $
+# $Id: parrot.pasm,v 1.3 2002/06/03 20:25:07 grunblatt Exp $
#
# It will compile any Parrot program written with fully qualified
@@ -43,18 +43,18 @@
new P6,.PerlHash
cvsuser 02/06/03 13:31:41
Modified:.assemble.pl
Log:
A few small fixes to the assembler documentation.
Courtesy of: Simon Glover <[EMAIL PROTECTED]>
Revision ChangesPath
1.59 +5 -9 parrot/assemble.pl
Index: assemble.pl
==
cvsuser 02/06/03 13:42:46
Modified:examples/assembly hanoi.pasm
Log:
s/[gs]et_keyed/set/
Renamed constants.
Revision ChangesPath
1.3 +19 -19parrot/examples/assembly/hanoi.pasm
Index: hanoi.pasm
==
/debug.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- debug.c 3 Jun 2002 00:43:44 - 1.4
+++ debug.c 4 Jun 2002 13:58:44 - 1.5
@@ -2,7 +2,7 @@
* debug.c
*
* CVS Info
- *$Id: debug.c,v 1.4 2002/06/03 00:43:44 grunblatt
c,v 1.5 2002/06/04 13:58:44 grunblatt Exp $
+ *$Id: debug.c,v 1.6 2002/06/04 14:44:52 grunblatt Exp $
* Overview:
*Parrot debugger
* History:
@@ -504,7 +504,7 @@
}
/* PDB_escape
- * escapes \r \n \t \a and \\
+ * escapes " \r \n \t \a and \\
*/
char *
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: resources.c,v 1.60 2002/05/26 20:20:08 grunblatt Exp $
+ * $Id: resources.c,v 1.61 2002/06/04 19:36:58 grunblatt Exp $
* Overview:
* Allocate and deallocate tracked resources
* Da
3
@@ -1,7 +1,7 @@
/* register.h
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: resources.h,v 1.32 2002/05/24 16:11:10 grunblatt Exp $
+ * $Id: resources.h,v 1.33 2002/06/04 19:37:02 grunblatt Exp $
* Overview:
* Defines the resourc
+16,7 @@
# This program is free software. It is subject to the same
# license as Perl itself.
#
-# $Id: PackFile.pm,v 1.16 2002/05/20 20:00:57 grunblatt Exp $
+# $Id: PackFile.pm,v 1.17 2002/06/05 00:14:57 grunblatt Exp $
#
use strict;
@@ -295,6 +295,8 @@
my $fh = new File
cvsuser 02/06/04 18:47:15
Modified:config/init/hints darwin.pl
Added: config/gen/platform darwin.c darwin.h
Log:
I happen to have access to an OSX box, but it doesn't have fink
installed, nor does it appear that it will be installed any time
soon.
This is my attempt
cvsuser 02/06/04 18:56:09
Modified:.core.ops
t/pmcperlhash.t
Log:
Bug found by Nick Glencross <[EMAIL PROTECTED]>
Added test.
Revision ChangesPath
1.147 +1 -1 parrot/core.ops
Index: core.ops
===
$
+** $Id: jit.h,v 1.15 2002/06/07 01:43:26 grunblatt Exp $
*/
#ifndef JIT_H_GUARD
@@ -9,7 +9,10 @@
typedef void (*jit_f)(struct Parrot_Interp *);
-jit_f build_asm(struct Parrot_Interp *, opcode_t *, opcode_t *, opcode_t *);
+jit_f build_asm(struct Parrot_Interp
:43:26 grunblatt Exp $
+** $Id: jit.h,v 1.16 2002/06/07 04:58:45 grunblatt Exp $
*/
#ifndef JIT_H_GUARD
@@ -53,7 +53,7 @@
Parrot_jit_register_count_t int_reg_count[NUM_REGISTERS];
Parrot_jit_optimizer_section_ptr prev;
Parrot_jit_optimizer_section_ptr next
cvsuser 02/06/07 08:06:21
Modified:.core.ops
t/op string.t
Log:
Fixed set_s_nc and added test.
Revision ChangesPath
1.148 +1 -1 parrot/core.ops
Index: core.ops
===
- 1.7
@@ -2,7 +2,7 @@
* debug.c
*
* CVS Info
- *$Id: debug.c,v 1.6 2002/06/04 14:44:52 grunblatt Exp $
+ *$Id: debug.c,v 1.7 2002/06/07 18:32:58 grunblatt Exp $
* Overview:
*Parrot debugger
* History:
@@ -18,6 +18,12 @@
#include "par
1.5
+++ debug.h 7 Jun 2002 18:33:33 - 1.6
@@ -2,7 +2,7 @@
* debug.h
*
* CVS Info
- *$Id: debug.h,v 1.5 2002/06/07 01:12:41 josh Exp $
+ *$Id: debug.h,v 1.6 2002/06/07 18:33:33 grunblatt Exp $
* Overview:
*Parrot debugger header files
* History:
@@ -
...it will go here)
* CVS Info
- * $Id: parrot.h,v 1.36 2002/06/08 21:36:00 mrjoltcola Exp $
+ * $Id: parrot.h,v 1.37 2002/06/08 21:53:20 grunblatt Exp $
* Overview:
* General header file includes for the parrot interpreter
* Data Structure and Algorithms:
@@ -56,14
/30 19:02:30 sfink Exp $
+# $Id: CGoto.pm,v 1.8 2002/06/10 18:05:19 grunblatt Exp $
#
use strict;
@@ -79,7 +79,7 @@
if ($addr eq '0') {
return "return (0);"
} else {
- return "goto *ops_addr[*(cur_opcode = $addr)]";
+ retur
- 1.28
@@ -1,7 +1,7 @@
/* embed.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: embed.c,v 1.27 2002/06/11 20:11:51 dmlloyd Exp $
+ * $Id: embed.c,v 1.28 2002/06/12 15:01:50 grunblatt Exp $
* Overview:
* The Parrot embedding int
here)
* CVS Info
- * $Id: array.pmc,v 1.23 2002/06/11 20:11:55 dmlloyd Exp $
+ * $Id: array.pmc,v 1.24 2002/06/12 15:37:09 grunblatt Exp $
* Overview:
* These are the vtable functions for the Array base class
* Data Structure and Algorithms:
@@ -76,14 +76,17
cvsuser 02/06/26 09:05:00
Modified:.TODO
Log:
More things for the future :)
Revision ChangesPath
1.16 +1 -0 parrot/TODO
Index: TODO
===
RCS file: /cvs/public/parrot/TODO,v
retrie
cvsuser 02/06/26 13:54:30
Modified:.core.ops
t/op integer.t number.t
Log:
Added one argument version of neg.
With the corresponding tests.
Revision ChangesPath
1.172 +16 -0 parrot/core.ops
Index: core.ops
==
cvsuser 02/06/30 19:46:13
Modified:.TODO
Log:
I will take care of this.
Revision ChangesPath
1.18 +0 -1 parrot/TODO
Index: TODO
===
RCS file: /cvs/public/parrot/TODO,v
retrieving
cvsuser 02/07/01 09:54:05
Modified:.MANIFEST
Log:
Added mandel.pasm
Revision ChangesPath
1.175 +1 -0 parrot/MANIFEST
Index: MANIFEST
===
RCS file: /cvs/public/parrot/MANIFEST,v
re
cvsuser 02/07/04 09:15:09
Modified:.MANIFEST
Log:
Added missing files
Revision ChangesPath
1.178 +12 -0 parrot/MANIFEST
Index: MANIFEST
===
RCS file: /cvs/public/parrot/MANIFEST,v
cvsuser 02/07/12 11:10:42
Modified:.MANIFEST
Log:
Removed some files.
Revision ChangesPath
1.181 +1 -5 parrot/MANIFEST
Index: MANIFEST
===
RCS file: /cvs/public/parrot/MANIFEST,v
4 Jul 2002 20:42:01 - 1.11
+++ C.pm 12 Jul 2002 18:43:47 - 1.12
@@ -1,7 +1,7 @@
#
# C.pm
#
-# $Id: C.pm,v 1.11 2002/07/04 20:42:01 mrjoltcola Exp $
+# $Id: C.pm,v 1.12 2002/07/12 18:43:47 grunblatt Exp $
#
use strict;
@@ -63,7 +63,7 @@
'nc'
1 - 100 of 247 matches
Mail list logo