projects / OpenSPARC-T2-DV / blame
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Initial commit of OpenSPARC T2 design and verification files.
[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / sun4-solaris / Devel / PPPort.pm
CommitLineData
86530b38
AT		 1
2package Devel::PPPort;
3
4=head1 NAME
5
6Perl/Pollution/Portability
7
8=head1 SYNOPSIS
9
10 Devel::PPPort::WriteFile() ; # defaults to ./ppport.h
11 Devel::PPPort::WriteFile('someheader.h') ;
12
13=head1 DESCRIPTION
14
15Perl has changed over time, gaining new features, new functions,
16increasing its flexibility, and reducing the impact on the C namespace
17environment (reduced pollution). The header file, typicaly C<ppport.h>,
18written by this module attempts to bring some of the newer Perl
19features to older versions of Perl, so that you can worry less about
20keeping track of old releases, but users can still reap the benefit.
21
22Why you should use C<ppport.h> in modern code: so that your code will work
23with the widest range of Perl interpreters possible, without significant
24additional work.
25
26Why you should attempt older code to fully use C<ppport.h>: because
27the reduced pollution of newer Perl versions is an important thing, so
28important that the old polluting ways of original Perl modules will not be
29supported very far into the future, and your module will almost certainly
30break! By adapting to it now, you'll gained compatibility and a sense of
31having done the electronic ecology some good.
32
33How to use ppport.h: Don't direct the user to download C<Devel::PPPort>,
34and don't make C<ppport.h> optional. Rather, just take the most recent
35copy of C<ppport.h> that you can find (probably in C<Devel::PPPort>
36on CPAN), copy it into your project, adjust your project to use it,
37and distribute the header along with your module.
38
39C<Devel::PPPort> contains a single function, called C<WriteFile>. It's
40purpose is to write a 'C' header file that is used when writing XS
41modules. The file contains a series of macros that allow XS modules to
42be built using older versions of Perl.
43
44This module is used by h2xs to write the file F<ppport.h>.
45
46=head2 WriteFile
47
48C<WriteFile> takes a zero or one parameters. When called with one
49parameter it expects to be passed a filename. When called with no
50parameters, it defults to the filename C<./pport.h>.
51
52The function returns TRUE if the file was written successfully. Otherwise
53it returns FALSE.
54
55=head1 ppport.h
56
57The file written by this module, typically C<ppport.h>, provides access
58to the following Perl API if not already available (and in some cases [*]
59even if available, access to a fixed interface):
60
61 aMY_CXT
62 aMY_CXT_
63 _aMY_CXT
64 aTHX
65 aTHX_
66 AvFILLp
67 boolSV(b)
68 DEFSV
69 dMY_CXT
70 dMY_CXT_SV
71 dNOOP
72 dTHR
73 dTHX
74 dTHXa
75 dTHXoa
76 ERRSV
77 gv_stashpvn(str,len,flags)
78 INT2PTR(type,int)
79 IVdf
80 MY_CXT
81 MY_CXT_INIT
82 newCONSTSUB(stash,name,sv)
83 newRV_inc(sv)
84 newRV_noinc(sv)
85 newSVpvn(data,len)
86 NOOP
87 NV
88 NVef
89 NVff
90 NVgf
91 PERL_REVISION
92 PERL_SUBVERSION
93 PERL_UNUSED_DECL
94 PERL_UNUSED_DECL
95 PERL_VERSION
96 PL_compiling
97 PL_copline
98 PL_curcop
99 PL_curstash
100 PL_defgv
101 PL_dirty
102 PL_hints
103 PL_na
104 PL_perldb
105 PL_rsfp_filters
106 PL_rsfpv
107 PL_stdingv
108 PL_Sv
109 PL_sv_no
110 PL_sv_undef
111 PL_sv_yes
112 pMY_CXT
113 pMY_CXT_
114 _pMY_CXT
115 pTHX
116 pTHX_
117 PTR2IV(ptr)
118 PTR2NV(ptr)
119 PTR2ul(ptr)
120 PTR2UV(ptr)
121 SAVE_DEFSV
122 START_MY_CXT
123 SvPVbyte(sv,lp) [*]
124 UVof
125 UVSIZE
126 UVuf
127 UVxf
128 UVXf
129
130=head1 AUTHOR
131
132Version 1.x of Devel::PPPort was written by Kenneth Albanowski.
133
134Version 2.x was ported to the Perl core by Paul Marquess.
135
136=head1 SEE ALSO
137
138See L<h2xs>.
139
140=cut
141
142
143package Devel::PPPort;
144
145require Exporter;
146require DynaLoader;
147#use warnings;
148use strict;
149use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK $data );
150
151$VERSION = "2.0002";
152
153@ISA = qw(Exporter DynaLoader);
154@EXPORT = qw();
155# Other items we are prepared to export if requested
156@EXPORT_OK = qw( );
157
158bootstrap Devel::PPPort;
159
160package Devel::PPPort;
161
162{
163 local $/ = undef;
164 $data = <DATA> ;
165 my $now = localtime;
166 my $pkg = __PACKAGE__;
167 $data =~ s/__VERSION__/$VERSION/g;
168 $data =~ s/__DATE__/$now/g;
169 $data =~ s/__PKG__/$pkg/g;
170}
171
172sub WriteFile
173{
174 my $file = shift || 'ppport.h' ;
175
176 open F, ">$file" || return undef ;
177 print F $data ;
178 close F;
179
180 return 1 ;
181}
182
1831;
184
185__DATA__;
186
187/* ppport.h -- Perl/Pollution/Portability Version __VERSION__
188 *
189 * Automatically Created by __PKG__ on __DATE__
190 *
191 * Do NOT edit this file directly! -- Edit PPPort.pm instead.
192 *
193 * Version 2.x, Copyright (C) 2001, Paul Marquess.
194 * Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
195 * This code may be used and distributed under the same license as any
196 * version of Perl.
197 *
198 * This version of ppport.h is designed to support operation with Perl
199 * installations back to 5.004, and has been tested up to 5.8.0.
200 *
201 * If this version of ppport.h is failing during the compilation of this
202 * module, please check if a newer version of Devel::PPPort is available
203 * on CPAN before sending a bug report.
204 *
205 * If you are using the latest version of Devel::PPPort and it is failing
206 * during compilation of this module, please send a report to perlbug@perl.com
207 *
208 * Include all following information:
209 *
210 * 1. The complete output from running "perl -V"
211 *
212 * 2. This file.
213 *
214 * 3. The name & version of the module you were trying to build.
215 *
216 * 4. A full log of the build that failed.
217 *
218 * 5. Any other information that you think could be relevant.
219 *
220 *
221 * For the latest version of this code, please retreive the Devel::PPPort
222 * module from CPAN.
223 *
224 */
225
226/*
227 * In order for a Perl extension module to be as portable as possible
228 * across differing versions of Perl itself, certain steps need to be taken.
229 * Including this header is the first major one, then using dTHR is all the
230 * appropriate places and using a PL_ prefix to refer to global Perl
231 * variables is the second.
232 *
233 */
234
235
236/* If you use one of a few functions that were not present in earlier
237 * versions of Perl, please add a define before the inclusion of ppport.h
238 * for a static include, or use the GLOBAL request in a single module to
239 * produce a global definition that can be referenced from the other
240 * modules.
241 *
242 * Function: Static define: Extern define:
243 * newCONSTSUB() NEED_newCONSTSUB NEED_newCONSTSUB_GLOBAL
244 *
245 */
246
247
248/* To verify whether ppport.h is needed for your module, and whether any
249 * special defines should be used, ppport.h can be run through Perl to check
250 * your source code. Simply say:
251 *
252 * perl -x ppport.h *.c *.h *.xs foo/bar*.c [etc]
253 *
254 * The result will be a list of patches suggesting changes that should at
255 * least be acceptable, if not necessarily the most efficient solution, or a
256 * fix for all possible problems. It won't catch where dTHR is needed, and
257 * doesn't attempt to account for global macro or function definitions,
258 * nested includes, typemaps, etc.
259 *
260 * In order to test for the need of dTHR, please try your module under a
261 * recent version of Perl that has threading compiled-in.
262 *
263 */
264
265
266/*
267#!/usr/bin/perl
268@ARGV = ("*.xs") if !@ARGV;
269%badmacros = %funcs = %macros = (); $replace = 0;
270foreach (<DATA>) {
271 $funcs{$1} = 1 if /Provide:\s+(\S+)/;
272 $macros{$1} = 1 if /^#\s*define\s+([a-zA-Z0-9_]+)/;
273 $replace = $1 if /Replace:\s+(\d+)/;
274 $badmacros{$2}=$1 if $replace and /^#\s*define\s+([a-zA-Z0-9_]+).*?\s+([a-zA-Z0-9_]+)/;
275 $badmacros{$1}=$2 if /Replace (\S+) with (\S+)/;
276}
277foreach $filename (map(glob($_),@ARGV)) {
278 unless (open(IN, "<$filename")) {
279 warn "Unable to read from $file: $!\n";
280 next;
281 }
282 print "Scanning $filename...\n";
283 $c = ""; while (<IN>) { $c .= $_; } close(IN);
284 $need_include = 0; %add_func = (); $changes = 0;
285 $has_include = ($c =~ /#.*include.*ppport/m);
286
287 foreach $func (keys %funcs) {
288 if ($c =~ /#.*define.*\bNEED_$func(_GLOBAL)?\b/m) {
289 if ($c !~ /\b$func\b/m) {
290 print "If $func isn't needed, you don't need to request it.\n" if
291 $changes += ($c =~ s/^.*#.*define.*\bNEED_$func\b.*\n//m);
292 } else {
293 print "Uses $func\n";
294 $need_include = 1;
295 }
296 } else {
297 if ($c =~ /\b$func\b/m) {
298 $add_func{$func} =1 ;
299 print "Uses $func\n";
300 $need_include = 1;
301 }
302 }
303 }
304
305 if (not $need_include) {
306 foreach $macro (keys %macros) {
307 if ($c =~ /\b$macro\b/m) {
308 print "Uses $macro\n";
309 $need_include = 1;
310 }
311 }
312 }
313
314 foreach $badmacro (keys %badmacros) {
315 if ($c =~ /\b$badmacro\b/m) {
316 $changes += ($c =~ s/\b$badmacro\b/$badmacros{$badmacro}/gm);
317 print "Uses $badmacros{$badmacro} (instead of $badmacro)\n";
318 $need_include = 1;
319 }
320 }
321
322 if (scalar(keys %add_func) or $need_include != $has_include) {
323 if (!$has_include) {
324 $inc = join('',map("#define NEED_$_\n", sort keys %add_func)).
325 "#include \"ppport.h\"\n";
326 $c = "$inc$c" unless $c =~ s/#.*include.*XSUB.*\n/$&$inc/m;
327 } elsif (keys %add_func) {
328 $inc = join('',map("#define NEED_$_\n", sort keys %add_func));
329 $c = "$inc$c" unless $c =~ s/^.*#.*include.*ppport.*$/$inc$&/m;
330 }
331 if (!$need_include) {
332 print "Doesn't seem to need ppport.h.\n";
333 $c =~ s/^.*#.*include.*ppport.*\n//m;
334 }
335 $changes++;
336 }
337
338 if ($changes) {
339 open(OUT,">/tmp/ppport.h.$$");
340 print OUT $c;
341 close(OUT);
342 open(DIFF, "diff -u $filename /tmp/ppport.h.$$|");
343 while (<DIFF>) { s!/tmp/ppport\.h\.$$!$filename.patched!; print STDOUT; }
344 close(DIFF);
345 unlink("/tmp/ppport.h.$$");
346 } else {
347 print "Looks OK\n";
348 }
349}
350__DATA__
351*/
352
353#ifndef _P_P_PORTABILITY_H_
354#define _P_P_PORTABILITY_H_
355
356#ifndef PERL_REVISION
357# ifndef __PATCHLEVEL_H_INCLUDED__
358# include "patchlevel.h"
359# endif
360# ifndef PERL_REVISION
361# define PERL_REVISION (5)
362 /* Replace: 1 */
363# define PERL_VERSION PATCHLEVEL
364# define PERL_SUBVERSION SUBVERSION
365 /* Replace PERL_PATCHLEVEL with PERL_VERSION */
366 /* Replace: 0 */
367# endif
368#endif
369
370#define PERL_BCDVERSION ((PERL_REVISION * 0x1000000L) + (PERL_VERSION * 0x1000L) + PERL_SUBVERSION)
371
372/* It is very unlikely that anyone will try to use this with Perl 6
373 (or greater), but who knows.
374 */
375#if PERL_REVISION != 5
376# error ppport.h only works with Perl version 5
377#endif /* PERL_REVISION != 5 */
378
379#ifndef ERRSV
380# define ERRSV perl_get_sv("@",FALSE)
381#endif
382
383#if (PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 5))
384/* Replace: 1 */
385# define PL_Sv Sv
386# define PL_compiling compiling
387# define PL_copline copline
388# define PL_curcop curcop
389# define PL_curstash curstash
390# define PL_defgv defgv
391# define PL_dirty dirty
392# define PL_dowarn dowarn
393# define PL_hints hints
394# define PL_na na
395# define PL_perldb perldb
396# define PL_rsfp_filters rsfp_filters
397# define PL_rsfpv rsfp
398# define PL_stdingv stdingv
399# define PL_sv_no sv_no
400# define PL_sv_undef sv_undef
401# define PL_sv_yes sv_yes
402/* Replace: 0 */
403#endif
404
405#ifdef HASATTRIBUTE
406# if defined(__GNUC__) && defined(__cplusplus)
407# define PERL_UNUSED_DECL
408# else
409# define PERL_UNUSED_DECL __attribute__((unused))
410# endif
411#else
412# define PERL_UNUSED_DECL
413#endif
414
415#ifndef dNOOP
416# define NOOP (void)0
417# define dNOOP extern int Perl___notused PERL_UNUSED_DECL
418#endif
419
420#ifndef dTHR
421# define dTHR dNOOP
422#endif
423
424#ifndef dTHX
425# define dTHX dNOOP
426# define dTHXa(x) dNOOP
427# define dTHXoa(x) dNOOP
428#endif
429
430#ifndef pTHX
431# define pTHX void
432# define pTHX_
433# define aTHX
434# define aTHX_
435#endif
436
437#ifndef UVSIZE
438# define UVSIZE IVSIZE
439#endif
440
441#ifndef NVTYPE
442# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE)
443# define NVTYPE long double
444# else
445# define NVTYPE double
446# endif
447typedef NVTYPE NV;
448#endif
449
450#ifndef INT2PTR
451
452#if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
453# define PTRV UV
454# define INT2PTR(any,d) (any)(d)
455#else
456# if PTRSIZE == LONGSIZE
457# define PTRV unsigned long
458# else
459# define PTRV unsigned
460# endif
461# define INT2PTR(any,d) (any)(PTRV)(d)
462#endif
463#define NUM2PTR(any,d) (any)(PTRV)(d)
464#define PTR2IV(p) INT2PTR(IV,p)
465#define PTR2UV(p) INT2PTR(UV,p)
466#define PTR2NV(p) NUM2PTR(NV,p)
467#if PTRSIZE == LONGSIZE
468# define PTR2ul(p) (unsigned long)(p)
469#else
470# define PTR2ul(p) INT2PTR(unsigned long,p)
471#endif
472
473#endif /* !INT2PTR */
474
475#ifndef boolSV
476# define boolSV(b) ((b) ? &PL_sv_yes : &PL_sv_no)
477#endif
478
479#ifndef gv_stashpvn
480# define gv_stashpvn(str,len,flags) gv_stashpv(str,flags)
481#endif
482
483#ifndef newSVpvn
484# define newSVpvn(data,len) ((len) ? newSVpv ((data), (len)) : newSVpv ("", 0))
485#endif
486
487#ifndef newRV_inc
488/* Replace: 1 */
489# define newRV_inc(sv) newRV(sv)
490/* Replace: 0 */
491#endif
492
493/* DEFSV appears first in 5.004_56 */
494#ifndef DEFSV
495# define DEFSV GvSV(PL_defgv)
496#endif
497
498#ifndef SAVE_DEFSV
499# define SAVE_DEFSV SAVESPTR(GvSV(PL_defgv))
500#endif
501
502#ifndef newRV_noinc
503# ifdef __GNUC__
504# define newRV_noinc(sv) \
505 ({ \
506 SV *nsv = (SV*)newRV(sv); \
507 SvREFCNT_dec(sv); \
508 nsv; \
509 })
510# else
511# if defined(USE_THREADS)
512static SV * newRV_noinc (SV * sv)
513{
514 SV *nsv = (SV*)newRV(sv);
515 SvREFCNT_dec(sv);
516 return nsv;
517}
518# else
519# define newRV_noinc(sv) \
520 (PL_Sv=(SV*)newRV(sv), SvREFCNT_dec(sv), (SV*)PL_Sv)
521# endif
522# endif
523#endif
524
525/* Provide: newCONSTSUB */
526
527/* newCONSTSUB from IO.xs is in the core starting with 5.004_63 */
528#if (PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION < 63))
529
530#if defined(NEED_newCONSTSUB)
531static
532#else
533extern void newCONSTSUB(HV * stash, char * name, SV *sv);
534#endif
535
536#if defined(NEED_newCONSTSUB) || defined(NEED_newCONSTSUB_GLOBAL)
537void
538newCONSTSUB(stash,name,sv)
539HV *stash;
540char *name;
541SV *sv;
542{
543 U32 oldhints = PL_hints;
544 HV *old_cop_stash = PL_curcop->cop_stash;
545 HV *old_curstash = PL_curstash;
546 line_t oldline = PL_curcop->cop_line;
547 PL_curcop->cop_line = PL_copline;
548
549 PL_hints &= ~HINT_BLOCK_SCOPE;
550 if (stash)
551 PL_curstash = PL_curcop->cop_stash = stash;
552
553 newSUB(
554
555#if (PERL_VERSION < 3) || ((PERL_VERSION == 3) && (PERL_SUBVERSION < 22))
556 /* before 5.003_22 */
557 start_subparse(),
558#else
559# if (PERL_VERSION == 3) && (PERL_SUBVERSION == 22)
560 /* 5.003_22 */
561 start_subparse(0),
562# else
563 /* 5.003_23 onwards */
564 start_subparse(FALSE, 0),
565# endif
566#endif
567
568 newSVOP(OP_CONST, 0, newSVpv(name,0)),
569 newSVOP(OP_CONST, 0, &PL_sv_no), /* SvPV(&PL_sv_no) == "" -- GMB */
570 newSTATEOP(0, Nullch, newSVOP(OP_CONST, 0, sv))
571 );
572
573 PL_hints = oldhints;
574 PL_curcop->cop_stash = old_cop_stash;
575 PL_curstash = old_curstash;
576 PL_curcop->cop_line = oldline;
577}
578#endif
579
580#endif /* newCONSTSUB */
581
582#ifndef START_MY_CXT
583
584/*
585 * Boilerplate macros for initializing and accessing interpreter-local
586 * data from C. All statics in extensions should be reworked to use
587 * this, if you want to make the extension thread-safe. See ext/re/re.xs
588 * for an example of the use of these macros.
589 *
590 * Code that uses these macros is responsible for the following:
591 * 1. #define MY_CXT_KEY to a unique string, e.g. "DynaLoader_guts"
592 * 2. Declare a typedef named my_cxt_t that is a structure that contains
593 * all the data that needs to be interpreter-local.
594 * 3. Use the START_MY_CXT macro after the declaration of my_cxt_t.
595 * 4. Use the MY_CXT_INIT macro such that it is called exactly once
596 * (typically put in the BOOT: section).
597 * 5. Use the members of the my_cxt_t structure everywhere as
598 * MY_CXT.member.
599 * 6. Use the dMY_CXT macro (a declaration) in all the functions that
600 * access MY_CXT.
601 */
602
603#if defined(MULTIPLICITY) || defined(PERL_OBJECT) || \
604 defined(PERL_CAPI) || defined(PERL_IMPLICIT_CONTEXT)
605
606/* This must appear in all extensions that define a my_cxt_t structure,
607 * right after the definition (i.e. at file scope). The non-threads
608 * case below uses it to declare the data as static. */
609#define START_MY_CXT
610
611#if (PERL_VERSION < 4 || (PERL_VERSION == 4 && PERL_SUBVERSION < 68 ))
612/* Fetches the SV that keeps the per-interpreter data. */
613#define dMY_CXT_SV \
614 SV *my_cxt_sv = perl_get_sv(MY_CXT_KEY, FALSE)
615#else /* >= perl5.004_68 */
616#define dMY_CXT_SV \
617 SV *my_cxt_sv = *hv_fetch(PL_modglobal, MY_CXT_KEY, \
618 sizeof(MY_CXT_KEY)-1, TRUE)
619#endif /* < perl5.004_68 */
620
621/* This declaration should be used within all functions that use the
622 * interpreter-local data. */
623#define dMY_CXT \
624 dMY_CXT_SV; \
625 my_cxt_t *my_cxtp = INT2PTR(my_cxt_t*,SvUV(my_cxt_sv))
626
627/* Creates and zeroes the per-interpreter data.
628 * (We allocate my_cxtp in a Perl SV so that it will be released when
629 * the interpreter goes away.) */
630#define MY_CXT_INIT \
631 dMY_CXT_SV; \
632 /* newSV() allocates one more than needed */ \
633 my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
634 Zero(my_cxtp, 1, my_cxt_t); \
635 sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
636
637/* This macro must be used to access members of the my_cxt_t structure.
638 * e.g. MYCXT.some_data */
639#define MY_CXT (*my_cxtp)
640
641/* Judicious use of these macros can reduce the number of times dMY_CXT
642 * is used. Use is similar to pTHX, aTHX etc. */
643#define pMY_CXT my_cxt_t *my_cxtp
644#define pMY_CXT_ pMY_CXT,
645#define _pMY_CXT ,pMY_CXT
646#define aMY_CXT my_cxtp
647#define aMY_CXT_ aMY_CXT,
648#define _aMY_CXT ,aMY_CXT
649
650#else /* single interpreter */
651
652
653#define START_MY_CXT static my_cxt_t my_cxt;
654#define dMY_CXT_SV dNOOP
655#define dMY_CXT dNOOP
656#define MY_CXT_INIT NOOP
657#define MY_CXT my_cxt
658
659#define pMY_CXT void
660#define pMY_CXT_
661#define _pMY_CXT
662#define aMY_CXT
663#define aMY_CXT_
664#define _aMY_CXT
665
666#endif
667
668#endif /* START_MY_CXT */
669
670#ifndef IVdf
671# if IVSIZE == LONGSIZE
672# define IVdf "ld"
673# define UVuf "lu"
674# define UVof "lo"
675# define UVxf "lx"
676# define UVXf "lX"
677# else
678# if IVSIZE == INTSIZE
679# define IVdf "d"
680# define UVuf "u"
681# define UVof "o"
682# define UVxf "x"
683# define UVXf "X"
684# endif
685# endif
686#endif
687
688#ifndef NVef
689# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \
690 defined(PERL_PRIfldbl) /* Not very likely, but let's try anyway. */
691# define NVef PERL_PRIeldbl
692# define NVff PERL_PRIfldbl
693# define NVgf PERL_PRIgldbl
694# else
695# define NVef "e"
696# define NVff "f"
697# define NVgf "g"
698# endif
699#endif
700
701#ifndef AvFILLp /* Older perls (<=5.003) lack AvFILLp */
702# define AvFILLp AvFILL
703#endif
704
705#ifdef SvPVbyte
706# if PERL_REVISION == 5 && PERL_VERSION < 7
707 /* SvPVbyte does not work in perl-5.6.1, borrowed version for 5.7.3 */
708# undef SvPVbyte
709# define SvPVbyte(sv, lp) \
710 ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK) \
711 ? ((lp = SvCUR(sv)), SvPVX(sv)) : my_sv_2pvbyte(aTHX_ sv, &lp))
712 static char *
713 my_sv_2pvbyte(pTHX_ register SV *sv, STRLEN *lp)
714 {
715 sv_utf8_downgrade(sv,0);
716 return SvPV(sv,*lp);
717 }
718# endif
719#else
720# define SvPVbyte SvPV
721#endif
722
723#endif /* _P_P_PORTABILITY_H_ */
724
725/* End of File ppport.h */
Full OpenSPARC design & verification tarball including full HDL.