cvsuser 04/08/09 08:29:22
Modified:.MANIFEST
Log:
Update MANIFEST
Revision ChangesPath
1.717 +4 -0 parrot/MANIFEST
Index: MANIFEST
===
RCS file: /cvs/public/parrot/MANIFEST,v
retri
revision 1.14
retrieving revision 1.15
diff -u -w -r1.14 -r1.15
--- exec.c13 Aug 2003 22:39:58 - 1.14
+++ exec.c7 Oct 2003 18:28:29 - 1.15
@@ -2,7 +2,7 @@
* exec.c
*
* CVS Info
- *$Id: exec.c,v 1.14 2003/08/13 22:39:58 grunblatt Exp
- 1.84
@@ -3,7 +3,7 @@
*
* i386
*
- * $Id: jit_emit.h,v 1.83 2003/09/22 21:20:39 grunblatt Exp $
+ * $Id: jit_emit.h,v 1.84 2003/09/22 21:30:19 grunblatt Exp $
*/
#include
@@ -2843,13 +2843,13 @@
switch (*sig) {
/* I have no idea how to handle t
- 1.83
@@ -3,7 +3,7 @@
*
* i386
*
- * $Id: jit_emit.h,v 1.82 2003/09/22 21:02:15 dan Exp $
+ * $Id: jit_emit.h,v 1.83 2003/09/22 21:20:39 grunblatt Exp $
*/
#include
@@ -2962,7 +2962,8 @@
case '2':
case '
- * $Id: embed.c,v 1.84 2003/08/20 11:01:35 leo Exp $
+ * $Id: embed.c,v 1.85 2003/08/20 21:54:47 grunblatt Exp $
* Overview:
* The Parrot embedding interface.
* Data Structure and Algorithms:
@@ -417,7 +417,7 @@
k = interpreter->profile->data
*
* CVS Info
- *$Id: exec_save.c,v 1.7 2003/08/19 02:34:31 scog Exp $
+ *$Id: exec_save.c,v 1.8 2003/08/19 14:09:07 grunblatt Exp $
* Overview:
*Save the Parrot_exec_objfile_t to the native format
* History:
@@ -70,6 +70,9
$Id: exec_start.c,v 1.3 2003/08/08 16:39:59 grunblatt Exp $
+ *$Id: exec_start.c,v 1.4 2003/08/15 19:33:12 grunblatt Exp $
* Overview:
*Call compiled code.
* History:
@@ -77,7 +77,9 @@
extern struct PackFile_Constant const_table;
extern struct Parrot_In
cvsuser 03/08/15 08:49:00
Modified:config/gen/makefiles root.in
Log:
Added exec_so target.
Revision ChangesPath
1.110 +3 -0 parrot/config/gen/makefiles/root.in
Index: root.in
===
RCS file: /
@@
*
* i386
*
- * $Id: jit_emit.h,v 1.80 2003/08/15 11:11:23 grunblatt Exp $
+ * $Id: jit_emit.h,v 1.81 2003/08/15 15:31:52 grunblatt Exp $
*/
#include
@@ -12,6 +12,17 @@
# define JIT_CGP
#endif
+/* EXEC_SHARED generates code to be used with libparrot.so
cvsuser 03/08/15 08:12:29
Modified:config/gen/makefiles root.in
Log:
Remove $(INC)/exec_dep.h from GEN_HEADERS.
Revision ChangesPath
1.109 +1 -1 parrot/config/gen/makefiles/root.in
Index: root.in
cvsuser 03/08/15 06:41:29
Modified:config/auto jit.pl
config/gen/makefiles root.in
Log:
Move dependence of $(INC)/exec_dep.h to ${exec_h}.
Allowing parrot to compile again on Alpha/MIPS/sun4.
Bug reported by lbr at #parrot.
Revision ChangesPath
1.22
cvsuser 03/08/15 04:50:41
Modified:config/gen/makefiles root.in
Log:
Delete include/parrot/exec_dep.h on make clean.
Revision ChangesPath
1.107 +1 -1 parrot/config/gen/makefiles/root.in
Index: root.in
===
- 1.80
@@ -3,7 +3,7 @@
*
* i386
*
- * $Id: jit_emit.h,v 1.79 2003/08/13 05:59:23 leo Exp $
+ * $Id: jit_emit.h,v 1.80 2003/08/15 11:11:23 grunblatt Exp $
*/
#include
@@ -2498,11 +2498,13 @@
if (!jit_info->objfile) {
emitm_pushl_i(jit_info-&g
e.jit
===
;
; mips/core.jit
;
;
; $Id: core.jit,v 1.1 2003/08/10 22:38:41 grunblatt Exp $
;
Parrot_end {
emit_lw(NATIVECODE, ra, 32, sp);
emit_lw(NATIVECODE, fp, 28, sp);
emit_addiu(jit_info->native_ptr, sp, sp, 40);
emit_jr(NATIVE
grunblatt Exp $
+ *$Id: exec.c,v 1.14 2003/08/13 22:39:58 grunblatt Exp $
* Overview:
*Generate an object file.
* History:
@@ -27,9 +27,13 @@
static int symbol_list_find(Parrot_exec_objfile_t *obj, const char *func_name);
/*
- * Parrot_exec_run
001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: interpreter.c,v 1.188 2003/08/13 12:52:43 grunblatt Exp $
+ * $Id: interpreter.c,v 1.189 2003/08/13 12:56:02 grunblatt Exp $
* Overview:
* The interpreter api handles running the operations
* D
c.c
*
* CVS Info
- *$Id: exec.c,v 1.12 2003/08/08 00:09:17 grunblatt Exp $
+ *$Id: exec.c,v 1.13 2003/08/13 12:52:43 grunblatt Exp $
* Overview:
*Generate an object file.
* History:
@@ -146,7 +146,7 @@
obj->symbol_table = (Parrot_exec_sy
: exec_save.c,v 1.5 2003/08/13 12:52:43 grunblatt Exp $
+ *$Id: exec_save.c,v 1.6 2003/08/13 16:29:42 grunblatt Exp $
* Overview:
*Save the Parrot_exec_objfile_t to the native format
* History:
@@ -378,7 +378,7 @@
break;
case STYPE_COM
*
* CVS Info
- *$Id: exec_save.c,v 1.3 2003/07/29 00:38:16 grunblatt Exp $
+ *$Id: exec_save.c,v 1.4 2003/08/12 17:49:45 grunblatt Exp $
* Overview:
*Save the Parrot_exec_objfile_t to the native format
* History:
@@ -176,7 +176,8 @@
# if EXEC_OS == NETBSD
cvsuser 03/08/12 10:54:46
Modified:.MANIFEST
Log:
jit/arm/jit_emit.h is twice.
Revision ChangesPath
1.401 +0 -1 parrot/MANIFEST
Index: MANIFEST
===
RCS file: /cvs/public/parrot/MANIF
: exec_dep.h,v 1.5 2003/07/29 00:38:19 grunblatt Exp $
+ *$Id: exec_dep.h,v 1.6 2003/08/11 18:23:32 grunblatt Exp $
* Overview:
*PPC dependent functions to emit an executable.
* History:
@@ -50,6 +50,12 @@
jit_emit_lwz(jit_info->native_ptr, r3, 0,
cvsuser 03/08/10 21:58:53
Modified:config/gen/makefiles root.in
Log:
Added "exec" make target that works like this:
# make exec EXEC=
cc -o .o exec_start.o blib/lib/libparrot.a -lm
-lutil
Revision ChangesPath
1.102 +9 -0 parrot/config/gen/makefiles/root.
cvsuser 03/08/10 22:01:04
Modified:config/gen/makefiles root.in
Log:
Fix a typo.
Revision ChangesPath
1.103 +1 -1 parrot/config/gen/makefiles/root.in
Index: root.in
===
RCS file: /cvs/public
art.c 8 Aug 2003 16:39:59 - 1.3
@@ -2,7 +2,7 @@
* exec_start.c
*
* CVS Info
- *$Id: exec_start.c,v 1.2 2003/08/08 00:09:17 grunblatt Exp $
+ *$Id: exec_start.c,v 1.3 2003/08/08 16:39:59 grunblatt Exp $
* Overview:
*Call compiled code.
* Hi
:16:19 grunblatt Exp $
+ * $Id: embed.c,v 1.81 2003/08/08 00:09:17 grunblatt Exp $
* Overview:
* The Parrot embedding interface.
* Data Structure and Algorithms:
@@ -367,11 +367,20 @@
#endif
-
/* Set up @ARGS (or whatever this language calls it
t.c,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -w -r1.66 -r1.67
--- jit.c 24 Jul 2003 18:15:17 - 1.66
+++ jit.c 3 Aug 2003 18:56:04 - 1.67
@@ -1,7 +1,7 @@
/*
* jit.c
*
- * $Id: jit.c,v 1.66 2003/07/24 18:15:17 grunblatt
The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: embed.c,v 1.79 2003/07/30 14:59:46 leo Exp $
+ * $Id: embed.c,v 1.80 2003/08/01 03:16:19 grunblatt Exp $
* Overview:
* The Parrot embedding interface.
* Data Structure and Algorithms:
@@ -343,24
+++ jit2h.pl 31 Jul 2003 00:16:36 - 1.43
@@ -2,7 +2,7 @@
#
# jit2h.pl
#
-# $Id: jit2h.pl,v 1.42 2003/07/29 00:43:35 grunblatt Exp $
+# $Id: jit2h.pl,v 1.43 2003/07/31 00:16:36 grunblatt Exp $
#
use strict;
@@ -145,15 +145,20 @@
$asm =~ s/cur_opcode
All Rights Reserved.
* CVS Info
- * $Id: embed.c,v 1.77 2003/07/29 23:02:04 grunblatt Exp $
+ * $Id: embed.c,v 1.78 2003/07/29 23:31:06 grunblatt Exp $
* Overview:
* The Parrot embedding interface.
* Data Structure and Algorithms:
@@ -354,6 +3
1.76
+++ embed.c 29 Jul 2003 23:02:04 - 1.77
@@ -1,7 +1,7 @@
/* embed.c
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: embed.c,v 1.76 2003/07/29 20:54:03 scog Exp $
+ * $Id: embed.c,v 1.77 2003/07/29 23:02:04 grunblatt
+2,7 @@
* exec.c
*
* CVS Info
- *$Id: exec.c,v 1.9 2003/07/29 00:38:16 grunblatt Exp $
+ *$Id: exec.c,v 1.10 2003/07/29 20:04:03 grunblatt Exp $
* Overview:
*Generate an object file.
* History:
@@ -25,8 +25,6 @@
static void exec_init(Parrot_exec_objfile_t
: jit_emit.h,v 1.29 2003/07/29 00:38:19 grunblatt Exp $
+ * $Id: jit_emit.h,v 1.30 2003/07/29 00:55:32 grunblatt Exp $
*/
#include
@@ -561,6 +561,7 @@
jit_emit_addis(pc, D, r15, (long)disp >> 16); \
jit_emit_add_rri_i(pc, D, D, (long)disp & 0x)
+# if EX
lic/parrot/jit2h.pl,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -w -r1.41 -r1.42
--- jit2h.pl 29 Jul 2003 00:38:16 - 1.41
+++ jit2h.pl 29 Jul 2003 00:43:35 - 1.42
@@ -2,7 +2,7 @@
#
# jit2h.pl
#
-# $Id: jit2h.pl,v 1.41 2003/07/29 00:38:16 gru
+2,7 @@
* exec.c
*
* CVS Info
- *$Id: exec.c,v 1.8 2003/07/25 20:53:46 grunblatt Exp $
+ *$Id: exec.c,v 1.9 2003/07/29 00:38:16 grunblatt Exp $
* Overview:
*Generate an object file.
* History:
@@ -93,7 +93,9 @@
/* PAD */
obj->text.size +=
2003/07/25 20:44:25 grunblatt Exp $
+ *$Id: exec_save.c,v 1.2 2003/07/28 15:44:58 grunblatt Exp $
* Overview:
*Save the Parrot_exec_objfile_t to the native format
* History:
@@ -65,9 +65,6 @@
rellocation.r_extern = 1;
break
1.7
retrieving revision 1.8
diff -u -w -r1.7 -r1.8
--- exec.c25 Jul 2003 04:22:21 - 1.7
+++ exec.c25 Jul 2003 20:53:46 - 1.8
@@ -2,7 +2,7 @@
* exec.c
*
* CVS Info
- *$Id: exec.c,v 1.7 2003/07/25 04:22:21 grunblatt Exp $
+ *$Id: exec.c,v 1.8
/exec_save.c
Index: exec_save.c
===
/*
* exec_save.c
*
* CVS Info
*$Id: exec_save.c,v 1.1 2003/07/25 20:44:25 grunblatt Exp $
* Overview:
*Save the Parrot_exec_objfile_t to the native format
* History
2003/07/08 14:46:22 grunblatt Exp $
+ * $Id: jit_emit.h,v 1.28 2003/07/25 19:40:32 grunblatt Exp $
*/
#include
@@ -557,10 +557,14 @@
if ((long)imm >> 16 != 0) { \
jit_emit_oris(pc, D, D, (long)imm >> 16); }
-# define curop_disp(pc, D, disp) \
cvsuser 03/07/25 12:20:56
Modified:config/auto jit.pl
Log:
Make the JIT work in linux/ppc.
Revision ChangesPath
1.17 +1 -1 parrot/config/auto/jit.pl
Index: jit.pl
===
RCS file: /cvs/public/
1.71 2003/07/25 16:02:14 grunblatt Exp $
+ * $Id: jit_emit.h,v 1.72 2003/07/25 18:58:50 grunblatt Exp $
*/
#include
@@ -1787,11 +1787,12 @@
#undef Parrot_jit_vtable_newp_ic_op
#define EXR(m, s) (int *)(offsetof(struct Parrot_Interp, m) + s)
-#define IREG(i) EXR
cvsuser 03/07/25 10:10:22
Modified:.TODO
Log:
Done.
Revision ChangesPath
1.23 +0 -1 parrot/TODO
Index: TODO
===
RCS file: /cvs/public/parrot/TODO,v
retrieving revision 1.22
retr
Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: interpreter.c,v 1.179 2003/07/24 20:20:29 grunblatt Exp $
+ * $Id: interpreter.c,v 1.180 2003/07/25 16:25:19 grunblatt Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure
: jit_emit.h,v 1.70 2003/07/24 18:15:38 grunblatt Exp $
+ * $Id: jit_emit.h,v 1.71 2003/07/25 16:02:14 grunblatt Exp $
*/
#include
@@ -1787,10 +1787,10 @@
#undef Parrot_jit_vtable_newp_ic_op
#define EXR(m, s) (int *)(offsetof(struct Parrot_Interp, m) + s)
-#define IREG(i
@@
* exec.c
*
* CVS Info
- *$Id: exec.c,v 1.6 2003/07/25 03:01:42 grunblatt Exp $
+ *$Id: exec.c,v 1.7 2003/07/25 04:22:21 grunblatt Exp $
* Overview:
*Generate an object file.
* History:
@@ -213,12 +213,11 @@
obj->symbol_list_size++;
/07/25 02:58:47 grunblatt Exp $
+ *$Id: exec_dep.h,v 1.7 2003/07/25 03:09:56 grunblatt Exp $
* Overview:
*i386 dependent functions to emit an executable.
* History:
@@ -68,8 +68,8 @@
* or a JITed branch,
* when the branch is non JIT, we are in
revision 1.5
retrieving revision 1.6
diff -u -w -r1.5 -r1.6
--- exec.c24 Jul 2003 23:07:12 - 1.5
+++ exec.c25 Jul 2003 03:01:42 - 1.6
@@ -2,7 +2,7 @@
* exec.c
*
* CVS Info
- *$Id: exec.c,v 1.5 2003/07/24 23:07:12 grunblatt Exp $
+ *$Id
- *$Id: exec_dep.h,v 1.5 2003/07/24 23:06:58 grunblatt Exp $
+ *$Id: exec_dep.h,v 1.6 2003/07/25 02:58:47 grunblatt Exp $
* Overview:
*i386 dependent functions to emit an executable.
* History:
@@ -331,6 +331,8 @@
}
# define SHSTRTABSIZE 0x48
+# define PDFS
@@
* exec_dep.h
*
* CVS Info
- *$Id: exec_dep.h,v 1.4 2003/07/24 22:16:12 grunblatt Exp $
+ *$Id: exec_dep.h,v 1.5 2003/07/24 23:06:58 grunblatt Exp $
* Overview:
*i386 dependent functions to emit an executable.
* History:
@@ -411,7 +411,7 @@
* Link is the strtab
*
* CVS Info
- *$Id: exec_dep.h,v 1.3 2003/07/24 22:05:06 scog Exp $
+ *$Id: exec_dep.h,v 1.4 2003/07/24 22:16:12 grunblatt Exp $
* Overview:
*i386 dependent functions to emit an executable.
* History:
@@ -330,6 +330,8 @@
current_offset += (4 - s % 4
cvsuser 03/07/24 14:13:38
Modified:.MANIFEST
config/gen/makefiles root.in
Added: t/srcREADME
Log:
# New Ticket Created by Lars Balker Rasmussen
# Please include the string: [perl #23105]
# in the subject line of all future correspondence about
20:20:29 - 1.179
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: interpreter.c,v 1.178 2003/07/24 20:07:56 grunblatt Exp $
+ * $Id: interpreter.c,v 1.179 2003/07/24 20:20:29 grunblatt Exp $
cvsuser 03/07/24 13:18:09
Modified:..cvsignore
Log:
ignore generated files.
Revision ChangesPath
1.29 +1 -0 parrot/.cvsignore
Index: .cvsignore
===
RCS file: /cvs/public/parrot/.cvs
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: interpreter.c,v 1.177 2003/07/24 19:16:09 grunblatt Exp $
+ * $Id: interpreter.c,v 1.178 2003/07/24 20:07:56 grunblatt Exp $
* Overview:
* The interpreter api handles running the operations
cvsuser 03/07/24 12:23:29
Modified:config/auto jit.pl
Log:
Better check for the OS name.
Revision ChangesPath
1.15 +1 -1 parrot/config/auto/jit.pl
Index: jit.pl
===
RCS file: /cvs/public/pa
18:52:57 grunblatt Exp $
+ *$Id: exec.c,v 1.3 2003/07/24 19:16:09 grunblatt Exp $
* Overview:
*Generate an object file.
* History:
@@ -12,7 +12,7 @@
*/
#include
-#if HAVE_CGOTO
+#if HAVE_COMPUTED_GOTO
# include
#endif /* HAVE_CGOTO */
#include &quo
* CVS Info
- *$Id: exec_dep.h,v 1.1 2003/07/24 17:18:50 grunblatt Exp $
+ *$Id: exec_dep.h,v 1.2 2003/07/24 19:01:35 grunblatt Exp $
* Overview:
*i386 dependent functions to emit an executable.
* History:
@@ -235,17 +235,6 @@
header.a_drsize
1.2
@@ -2,7 +2,7 @@
* exec.c
*
* CVS Info
- *$Id: exec.c,v 1.1 2003/07/24 17:18:30 grunblatt Exp $
+ *$Id: exec.c,v 1.2 2003/07/24 18:52:57 grunblatt Exp $
* Overview:
*Generate an object file.
* History:
@@ -12,7 +12,9 @@
*/
#include
- 1.175
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: interpreter.c,v 1.174 2003/07/24 17:18:30 grunblatt Exp $
+ * $Id: interpreter.c,v 1.175 2003/07/24 18:15:17 grunblatt Exp
cvsuser 03/07/24 10:44:07
Modified:.MANIFEST
Log:
Another missing file.
Revision ChangesPath
1.386 +1 -0 parrot/MANIFEST
Index: MANIFEST
===
RCS file: /cvs/public/parrot/MANIFEST,v
cvsuser 03/07/24 10:41:06
Modified:.MANIFEST
Log:
Forgot to update the MANIFEST.
Revision ChangesPath
1.385 +4 -0 parrot/MANIFEST
Index: MANIFEST
===
RCS file: /cvs/public/parrot/MAN
@@
*
* PPC
*
- * $Id: jit_emit.h,v 1.26 2003/07/07 21:10:13 grunblatt Exp $
+ * $Id: jit_emit.h,v 1.27 2003/07/08 14:46:22 grunblatt Exp $
*/
#include
@@ -549,13 +549,13 @@
/*
- * Load a 32-bit immediate value. If the lower 16 bits are bigger than
- * 0x8000 we
--- jit_emit.h14 Jun 2003 17:48:51 - 1.24
+++ jit_emit.h7 Jul 2003 20:20:40 - 1.25
@@ -3,7 +3,7 @@
*
* PPC
*
- * $Id: jit_emit.h,v 1.24 2003/06/14 17:48:51 dan Exp $
+ * $Id: jit_emit.h,v 1.25 2003/07/07 20:20:40 grunblatt Exp
+3,7 @@
*
* PPC
*
- * $Id: jit_emit.h,v 1.25 2003/07/07 20:20:40 grunblatt Exp $
+ * $Id: jit_emit.h,v 1.26 2003/07/07 21:10:13 grunblatt Exp $
*/
#include
@@ -572,7 +572,7 @@
jit_emit_xor_rrr(jit_info->native_ptr, r31, r31, r31);
jit_emit_mov_rr(jit_i
$Id: jit_emit.h,v 1.19 2003/01/07 22:30:35 grunblatt Exp $
**/
/*
@@ -287,7 +287,7 @@
#define Parrot_jit_intrp emitm_i(0)
/* The register holding the address of I0 */
-#define Parrot_jit_regbase emitm_i(1)
+#define Parrot_jit_regbase emitm_i(2)
/* The register containing
ot/jit/ppc/core.jit,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -w -r1.11 -r1.12
--- core.jit 13 Dec 2002 14:26:22 - 1.11
+++ core.jit 13 Dec 2002 14:32:54 - 1.12
@@ -2,7 +2,7 @@
; ppc/core.jit
;
;
-; $Id: core.jit,v 1.11 2002/12/13 14:26:22
grunblatt Exp $
+; $Id: core.jit,v 1.11 2002/12/13 14:26:22 grunblatt Exp $
;
Parrot_end {
@@ -70,6 +70,19 @@
}
}
+TEMPLATE Parrot_binop_i_ic {
+if (MAP[1]) {
+jit_emit_mov_ri_i(NATIVECODE, ISR1, *INT_CONST[2]);
+jit_emit__rrr(NATIVECODE, MAP[1
- * $Id: cpu_dep.c,v 1.2 2002/12/06 06:53:32 sfink Exp $
+ * $Id: cpu_dep.c,v 1.3 2002/12/11 14:07:30 grunblatt Exp $
* Overview:
* CPU dependent functions
* Data Structure and Algorithms:
@@ -11,6 +11,8 @@
*/
#include "parrot/parrot.h"
@@
*
* i386
*
- * $Id: jit_emit.h,v 1.35 2002/12/02 10:41:11 leo Exp $
+ * $Id: jit_emit.h,v 1.36 2002/12/02 13:08:52 grunblatt Exp $
*/
#include
@@ -631,7 +631,8 @@
#define jit_emit_neg_r_i(pc, reg) emitm_alu_imp_r(pc, emit_b011, reg)
-#define emitm_negl_m(pc, b
grunblatt Exp $
+; $Id: core.jit,v 1.10 2002/12/01 23:42:46 grunblatt Exp $
;
Parrot_end {
@@ -70,722 +70,209 @@
}
}
-Parrot_bor_i_i_i {
-if (MAP[1] && MAP[2] && MAP[3]) {
-jit_emit_or_rrr(NATIVECODE, MAP[1], MAP[2], MAP[3]);
-}
-
: jit.c,v 1.48 2002/12/01 22:39:27 grunblatt Exp $
*/
#include
@@ -15,12 +15,12 @@
#ifndef INT_REGISTERS_TO_MAP
# define INT_REGISTERS_TO_MAP 0
-# define intval_map 0
+ char *intval_map = 0;
#endif
#ifndef FLOAT_REGISTERS_TO_MAP
# define
2 11:30:30 - 1.32
+++ jit_emit.h1 Dec 2002 15:59:54 - 1.33
@@ -3,7 +3,7 @@
*
* i386
*
- * $Id: jit_emit.h,v 1.32 2002/12/01 11:30:30 leo Exp $
+ * $Id: jit_emit.h,v 1.33 2002/12/01 15:59:54 grunblatt Exp $
*/
#include
@@ -2135,7 +2135,7 @@
--- jit.c 22 Nov 2002 20:04:29 - 1.44
+++ jit.c 22 Nov 2002 20:51:05 - 1.45
@@ -1,7 +1,7 @@
/*
* jit.c
*
- * $Id: jit.c,v 1.44 2002/11/22 20:04:29 nicholas Exp $
+ * $Id: jit.c,v 1.45 2002/11/22 20:51:05 grunblatt Exp $
*/
#include
@@ -465,13
/21 16:51:48 dan Exp $
+ * $Id: nci.c,v 1.5 2002/11/22 16:00:53 grunblatt Exp $
* Overview:
* Native Call Interface routines. The code needed to build a
* parrot to C call frame is in here
@@ -31,8 +31,10 @@
hackish, but that's just fine */
/* Return
0:14 - 1.15
+++ jit_emit.h22 Nov 2002 13:48:39 - 1.16
@@ -3,7 +3,7 @@
*
* ALPHA
*
- * $Id: jit_emit.h,v 1.15 2002/11/22 12:50:14 leo Exp $
+ * $Id: jit_emit.h,v 1.16 2002/11/22 13:48:39 grunblatt Exp $
*/
/* Register usage:
@@ -475,
-1,7 +1,7 @@
/*
* jit.c
*
- * $Id: jit.c,v 1.42 2002/11/22 13:21:38 grunblatt Exp $
+ * $Id: jit.c,v 1.43 2002/11/22 13:43:54 grunblatt Exp $
*/
#include
@@ -465,13 +465,14 @@
for (i = sect->int_registers_used-1; i >= 0; --i)
if (sect->int_reg_dir[se
grunblatt Exp $
*/
#include
@@ -665,10 +665,10 @@
}
#ifdef ARM
-arm_sync_d_i_cache(jit_info->arena.start, jit_info.native_ptr);
+arm_sync_d_i_cache(jit_info->arena.start, jit_inf->.native_ptr);
#endif
#ifdef PPC
-ppc_sync_cache
cvsuser 02/11/21 02:59:23
Modified:.core.ops
Log:
Doc fix.
Revision ChangesPath
1.230 +1 -1 parrot/core.ops
Index: core.ops
===
RCS file: /cvs/public/parrot/core.ops,v
retrieving r
002/11/20 15:18:55 grunblatt Exp $
+ * $Id: jit_emit.h,v 1.14 2002/11/20 18:47:39 grunblatt Exp $
*/
/* Register usage:
@@ -465,9 +465,9 @@
{
Parrot_jit_normal_op(jit_info,interpreter);
-jit_emit_sub_rrr(jit_info->native_ptr, SR1, REG10_s
cvsuser 02/11/20 09:14:41
Modified:config/gen/makefiles root.in
Log:
D'oh!
Revision ChangesPath
1.57 +1 -1 parrot/config/gen/makefiles/root.in
Index: root.in
===
RCS file: /cvs/public/parro
cvsuser 02/11/20 09:13:41
Modified:config/gen/makefiles root.in
Log:
Clean part of t/src
Revision ChangesPath
1.56 +2 -1 parrot/config/gen/makefiles/root.in
Index: root.in
===
RCS file: /cv
grunblatt Exp $
+; $Id: core.jit,v 1.8 2002/11/20 15:18:55 grunblatt Exp $
;
Parrot_noop {
@@ -27,10 +27,10 @@
Parrot_set_i_ic {
if (MAP[1]) {
-jit_emit_load_ri_i(NATIVECODE, MAP[1], *INT_CONST[2]);
+jit_emit_mov_ri_i(NATIVECODE, MAP[1], *INT_CONST[2
from the operation definitions in
# an .ops file, using a supplied transform.
#
-# $Id: ops2c.pl,v 1.33 2002/10/18 08:51:32 leo Exp $
+# $Id: ops2c.pl,v 1.34 2002/11/19 22:29:42 grunblatt Exp $
#
use strict;
@@ -272,7 +272,7 @@
"$full_name",
"$func_na
: core.jit,v 1.31 2002/11/19 20:56:17 grunblatt Exp $
+; $Id: core.jit,v 1.32 2002/11/19 22:22:26 grunblatt Exp $
;
# TODO complete this
#define P_ARITH ((PREV_OP == dec_i) || (PREV_OP == inc_i) || (PREV_OP == sub_i_i_i))
Parrot_end {
-emitm_addl_i_r(jit_info->native_ptr
:06 grunblatt Exp $
+; $Id: core.jit,v 1.31 2002/11/19 20:56:17 grunblatt Exp $
;
# TODO complete this
@@ -31,23 +31,23 @@
Parrot_set_i_i {
if (MAP[1] && MAP[2]) {
-emitm_movl_r_r(NATIVECODE, MAP[2], MAP[1]);
+jit_emit_mov_rr(NATIVECODE, MAP[1
2002/11/19 15:47:26 leo Exp $
+; $Id: core.jit,v 1.30 2002/11/19 20:31:06 grunblatt Exp $
;
# TODO complete this
@@ -22,10 +22,10 @@
Parrot_set_i_ic {
if (MAP[1]) {
-emitm_movl_i_r(NATIVECODE, *INT_CONST[2], MAP[1]);
+jit_emit_mov_ri_i(NATIVECODE, MAP[1
grunblatt Exp $
+; $Id: core.jit,v 1.6 2002/11/19 19:28:35 grunblatt Exp $
;
Parrot_noop {
@@ -11,105 +11,105 @@
Parrot_set_i_i {
if (MAP[1] && MAP[2]) {
-emit_mov(NATIVECODE, MAP[2], MAP[1]);
+jit_emit_mov_rr(NATIVECODE, MAP[2
cvsuser 02/11/19 11:14:52
Modified:lib/Parrot OpsFile.pm
Log:
Added a warning.
Revision ChangesPath
1.28 +2 -0 parrot/lib/Parrot/OpsFile.pm
Index: OpsFile.pm
===
RCS file: /cvs/public/parro
grunblatt Exp $
+; $Id: core.jit,v 1.8 2002/11/19 18:57:45 grunblatt Exp $
;
Parrot_end {
@@ -47,7 +47,7 @@
else {
jit_emit_load_ri_i(NATIVECODE, r12, &NUM_CONST[2]);
jit_emit_lfd(NATIVECODE, r12, 0, r12);
-jit_emit_stfd_r(NATIVECODE, r12, &N
cvsuser 02/08/26 13:02:49
Modified:docs debugger.pod
Log:
Here's a doc patch that might
help explain part of what the patch did.
Courtesy of: Steve Fink <[EMAIL PROTECTED]>
Revision ChangesPath
1.4 +14 -20parrot/docs/debugger.pod
Index: debugger
cvsuser 02/08/26 10:58:08
Modified:.MANIFEST
Log:
Add missing files.
Revision ChangesPath
1.203 +104 -3parrot/MANIFEST
Index: MANIFEST
===
RCS file: /cvs/public/parrot/MANIFEST,v
r
cvsuser 02/08/26 10:48:45
Modified:.MANIFEST
Log:
Added PPC JIT
Revision ChangesPath
1.202 +2 -0 parrot/MANIFEST
Index: MANIFEST
===
RCS file: /cvs/public/parrot/MANIFEST,v
retrie
,v 1.15 2002/08/26 16:51:16 sfink Exp $
+ *$Id: debug.h,v 1.16 2002/08/26 17:27:43 grunblatt Exp $
* Overview:
*Parrot debugger header files
* History:
@@ -149,85 +149,93 @@
int state;
} PDB_t;
-void PDB_run_command(struct Parrot_Interp
8/26 14:15:45 grunblatt Exp $
+ *$Id: debug.c,v 1.33 2002/08/26 15:18:45 grunblatt Exp $
* Overview:
*Parrot debugger
* History:
@@ -34,9 +34,11 @@
* Returns the position just past the current argument in a PASM
* instruction. This is not the same as na(), above
retrieving revision 1.14
diff -u -w -r1.13 -r1.14
--- debug.h 26 Aug 2002 04:56:00 - 1.13
+++ debug.h 26 Aug 2002 14:17:18 - 1.14
@@ -2,7 +2,7 @@
* debug.h
*
* CVS Info
- *$Id: debug.h,v 1.13 2002/08/26 04:56:00 grunblatt Exp $
+ *$Id: debug.h,v 1.
.32
diff -u -w -r1.31 -r1.32
--- debug.c 26 Aug 2002 04:55:27 - 1.31
+++ debug.c 26 Aug 2002 14:15:45 - 1.32
@@ -2,7 +2,7 @@
* debug.c
*
* CVS Info
- *$Id: debug.c,v 1.31 2002/08/26 04:55:27 grunblatt Exp $
+ *$Id: debug.c,v 1.32 2002/08/26 14:15
4
diff -u -w -r1.3 -r1.4
--- gentable.pl 3 Jun 2002 20:25:07 - 1.3
+++ gentable.pl 26 Aug 2002 14:31:46 - 1.4
@@ -4,7 +4,7 @@
#
# Generate the tables for the parrot compiler
#
-# $Id: gentable.pl,v 1.3 2002/06/03 20:25:07 grunblatt Exp $
+# $Id:
cvsuser 02/08/25 22:13:37
Modified:.TODO
Log:
Done watchpoints.
Revision ChangesPath
1.20 +0 -1 parrot/TODO
Index: TODO
===
RCS file: /cvs/public/parrot/TODO,v
retrieving revisio
cvsuser 02/08/25 22:08:30
Modified:docs debugger.pod
Log:
Added watchpoints.
Revision ChangesPath
1.3 +8 -0 parrot/docs/debugger.pod
Index: debugger.pod
===
RCS file: /cvs/public/parr
2002/08/25 23:38:44 grunblatt Exp $
+ *$Id: debug.h,v 1.13 2002/08/26 04:56:00 grunblatt Exp $
* Overview:
*Parrot debugger header files
* History:
@@ -45,10 +45,13 @@
* value: A pointer to the second argument.
*/
+typedef struct PDB_condition
retrieving revision 1.30
retrieving revision 1.31
diff -u -w -r1.30 -r1.31
--- debug.c 26 Aug 2002 04:23:56 - 1.30
+++ debug.c 26 Aug 2002 04:55:27 - 1.31
@@ -2,7 +2,7 @@
* debug.c
*
* CVS Info
- *$Id: debug.c,v 1.30 2002/08/26 04:23:56 grunblatt Exp
1 - 100 of 247 matches
Mail list logo
