Changeset 3921 for src/perl5

Timestamp:

05/26/05 23:40:37 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5482

Message:

* iv/pv/nv to Val promotion done.

Location:

src/perl5

Files:

• pugsembed.c (modified) (1 diff)
• pugsembed.h (modified) (1 diff)

src/perl5/pugsembed.c

@@ -23 +23 @@
 Val *pugs_Apply ( Val *sub, Val *inv, Val **args ) { return NULL; }
 
-Val *pugs_IvToVal ( IV iv ) { return NULL; }
-
-Val *pugs_NvToVal ( NV iv ) { return NULL; }
-
-Val *pugs_PvToVal ( char *pv ) { return NULL; }
-
 SV  *pugs_ValToSv ( Val *val ) { return NULL; }

src/perl5/pugsembed.h

@@ -12 +12 @@
 PUGS_EXTERN Val *pugs_Apply ( Val *sub, Val *inv, Val **args );
 
-PUGS_EXTERN Val *pugs_IvToVal ( IV iv );
-PUGS_EXTERN Val *pugs_NvToVal ( NV iv );
-PUGS_EXTERN Val *pugs_PvToVal ( char *pv );
+extern Val *pugs_IvToVal ( IV iv );
+extern Val *pugs_NvToVal ( NV iv );
+extern Val *pugs_PvToVal ( char *pv );
 
 PUGS_EXTERN SV  *pugs_ValToSv ( Val *val );