cvsuser 04/09/13 02:17:40
Modified: classes unmanagedstruct.pmc
config/gen/makefiles root.in
docs/pmc subs.pod
imcc/docs calling_conventions.pod
languages/forth forth.pasm
Log:
[perl #31537] add set_pointer method to the UnManagedStruct PMC
This patch adds the set_pointer method to the UnManagedStruct PMC.
This is needed when the actual structure already exist outside of
parrot and we want it to work on it (see: Parrot_PMC_set_pointer
in include/parrot/extend.h).
[perl #31539] fix 'make shared' target
This patch adds the LIBICUCORE and LIBICUDATA to the libraries needed to
build libparrot.so
Courtesy of Stephane Peiry <[EMAIL PROTECTED]>
Turn off buffering layer in forth.pasm
Courtesy of Matt Diephouse <[EMAIL PROTECTED]>
Update docs WRT @LOAD pragma.
Revision Changes Path
1.47 +15 -1 parrot/classes/unmanagedstruct.pmc
Index: unmanagedstruct.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/unmanagedstruct.pmc,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -w -r1.46 -r1.47
--- unmanagedstruct.pmc 12 Aug 2004 09:10:05 -0000 1.46
+++ unmanagedstruct.pmc 13 Sep 2004 09:17:33 -0000 1.47
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: unmanagedstruct.pmc,v 1.46 2004/08/12 09:10:05 leo Exp $
+$Id: unmanagedstruct.pmc,v 1.47 2004/09/13 09:17:33 leo Exp $
=head1 NAME
@@ -883,6 +883,20 @@
/*
+=item C<void set_pointer(void* value)>
+
+Set the pointer to the actual C C<struct>.
+
+=cut
+
+*/
+
+ void set_pointer(void* value) {
+ PMC_data(SELF) = value;
+ }
+
+/*
+
=item C<void set_integer_keyed_int(INTVAL ix, INTVAL value)>
Sets the value of the element at index C<ix> to C<value>.
1.237 +2 -2 parrot/config/gen/makefiles/root.in
Index: root.in
===================================================================
RCS file: /cvs/public/parrot/config/gen/makefiles/root.in,v
retrieving revision 1.236
retrieving revision 1.237
diff -u -w -r1.236 -r1.237
--- root.in 10 Sep 2004 08:54:47 -0000 1.236
+++ root.in 13 Sep 2004 09:17:35 -0000 1.237
@@ -1,4 +1,4 @@
-# $Id: root.in,v 1.236 2004/09/10 08:54:47 leo Exp $
+# $Id: root.in,v 1.237 2004/09/13 09:17:35 leo Exp $
###############################################################################
#
@@ -585,7 +585,7 @@
blib/lib/libparrot$(SO) : $(O_FILES)
$(MKDIR) blib blib/lib
- $(LD) $(LD_SHARED) $(LD_SHARED_FLAGS) $(LDFLAGS)
$(LD_OUT)blib/lib/libparrot$(SO) $(O_FILES) $(C_LIBS)
+ $(LD) $(LD_SHARED) $(LD_SHARED_FLAGS) $(LDFLAGS)
$(LD_OUT)blib/lib/libparrot$(SO) $(O_FILES) $(C_LIBS) $(LIBICUCORE) $(LIBICUDATA)
$(TEST_PROG_SO) : $(PARROT_MAIN)$(O) blib/lib/libparrot$(SO)
lib/Parrot/OpLib/core.pm
$(LINK) $(LINKFLAGS) $(LD_OUT)$(TEST_PROG) $(PARROT_MAIN)$(O) $(LIBPARROT)
$(C_LIBS)
1.13 +2 -0 parrot/docs/pmc/subs.pod
Index: subs.pod
===================================================================
RCS file: /cvs/public/parrot/docs/pmc/subs.pod,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -w -r1.12 -r1.13
--- subs.pod 16 Mar 2004 22:13:37 -0000 1.12
+++ subs.pod 13 Sep 2004 09:17:37 -0000 1.13
@@ -93,6 +93,8 @@
...
invoke P1
+B<@LOAD> is ignored, if another subroutine in that file is marked with
+B<@MAIN>.
=head2 Invocation i.e. calling the sub
1.22 +2 -0 parrot/imcc/docs/calling_conventions.pod
Index: calling_conventions.pod
===================================================================
RCS file: /cvs/public/parrot/imcc/docs/calling_conventions.pod,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -w -r1.21 -r1.22
--- calling_conventions.pod 30 Mar 2004 14:49:52 -0000 1.21
+++ calling_conventions.pod 13 Sep 2004 09:17:39 -0000 1.22
@@ -86,6 +86,8 @@
=item * @LOAD
Run this subroutine during the B<load_library> opcode.
+B<@LOAD> is ignored, if another subroutine in that file is marked with
+B<@MAIN>.
=item * method
1.40 +3 -0 parrot/languages/forth/forth.pasm
Index: forth.pasm
===================================================================
RCS file: /cvs/public/parrot/languages/forth/forth.pasm,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -w -r1.39 -r1.40
--- forth.pasm 20 Feb 2004 14:44:25 -0000 1.39
+++ forth.pasm 13 Sep 2004 09:17:40 -0000 1.40
@@ -92,6 +92,9 @@
.constant CellPMC P20
VeryBeginning:
+ # pop off the buffer layer so the prompt gets printed
+ getstdout P0
+ pop S0, P0
# We need a PMC for the compiler
compreg .PASMCompiler, "PASM"
