develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35342 - in trunk: include/parrot src

From:
kjs
Date:
January 10, 2009 08:40
Subject:
[svn:parrot] r35342 - in trunk: include/parrot src
Message ID:
20090110163951.9DDF0CB9F9@x12.develooper.com
Author: kjs
Date: Sat Jan 10 08:39:50 2009
New Revision: 35342

Modified:
   trunk/include/parrot/packfile.h
   trunk/src/packfile.c

Log:
[core] add PARROT_EXPORT to some of the new PackFile_Annotations functions. PIRC needs them, and being an external component (not in libparrot), they need to be exported.
I edited the header file manually, instead of regenerating using the headerizer. Not sure how to do this, and nmake headerizer failed for some weird reason.

Modified: trunk/include/parrot/packfile.h
==============================================================================
--- trunk/include/parrot/packfile.h	(original)
+++ trunk/include/parrot/packfile.h	Sat Jan 10 08:39:50 2009
@@ -686,6 +686,7 @@
 void mark_const_subs(PARROT_INTERP)
         __attribute__nonnull__(1);
 
+PARROT_EXPORT
 void PackFile_Annotations_add_entry(PARROT_INTERP,
     ARGMOD(struct PackFile_Annotations *self),
     opcode_t offset,
@@ -696,6 +697,7 @@
         __attribute__nonnull__(2)
         FUNC_MODIFIES(*self);
 
+PARROT_EXPORT
 void PackFile_Annotations_add_group(PARROT_INTERP,
     ARGMOD(struct PackFile_Annotations *self),
     opcode_t offset)
@@ -721,6 +723,7 @@
         __attribute__nonnull__(1)
         __attribute__nonnull__(2);
 
+PARROT_EXPORT
 PARROT_CANNOT_RETURN_NULL
 PackFile_Segment * PackFile_Annotations_new(PARROT_INTERP,
     ARGIN(struct PackFile *pf),

Modified: trunk/src/packfile.c
==============================================================================
--- trunk/src/packfile.c	(original)
+++ trunk/src/packfile.c	Sat Jan 10 08:39:50 2009
@@ -3845,7 +3845,7 @@
 =cut
 
 */
-
+PARROT_EXPORT
 PARROT_CANNOT_RETURN_NULL
 PackFile_Segment *
 PackFile_Annotations_new(PARROT_INTERP, ARGIN(struct PackFile *pf),
@@ -4112,7 +4112,7 @@
 =cut
 
 */
-
+PARROT_EXPORT
 void
 PackFile_Annotations_add_group(PARROT_INTERP, ARGMOD(struct PackFile_Annotations *self),
         opcode_t offset)
@@ -4153,7 +4153,7 @@
 =cut
 
 */
-
+PARROT_EXPORT
 void
 PackFile_Annotations_add_entry(PARROT_INTERP, ARGMOD(struct PackFile_Annotations *self),
         opcode_t offset, opcode_t key, opcode_t type, opcode_t value)



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About