diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-08 21:31:55 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-09 07:30:19 +0000 |
| commit | ef50df4b2435a16251e94335bad8aa9485e4478c (patch) | |
| tree | f9c34021c30005404fdcb5adf18834ff2a160052 /pod/perlxstut.pod | |
| parent | d9bb4600de3a7f46a4972e4a2d2e5d1ea333bb0a (diff) | |
| download | perl-ef50df4b2435a16251e94335bad8aa9485e4478c.tar.gz | |
[win32] enhancements to previous patch for XSUB OUTPUT args
Message-Id: <199802090731.CAA04438@aatma.engin.umich.edu>
Subject: Re: [PATCH] XSUB OUTPUT arguments and 'set' magic
p4raw-id: //depot/win32/perl@492
Diffstat (limited to 'pod/perlxstut.pod')
| -rw-r--r-- | pod/perlxstut.pod | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/pod/perlxstut.pod b/pod/perlxstut.pod index dfc56ffbf1..867d42a8c2 100644 --- a/pod/perlxstut.pod +++ b/pod/perlxstut.pod @@ -428,7 +428,7 @@ Let's now take a look at a portion of the .c file created for our extension. } else { arg = 0.0; } - SvSetMagicNV(ST(0), (double)arg); /* XXXXX */ + sv_setnv(ST(0), (double)arg); /* XXXXX */ } XSRETURN(1); } @@ -438,10 +438,10 @@ the typemap file, you'll see that doubles are of type T_DOUBLE. In the INPUT section, an argument that is T_DOUBLE is assigned to the variable arg by calling the routine SvNV on something, then casting it to double, then assigned to the variable arg. Similarly, in the OUTPUT section, -once arg has its final value, it is passed to the SvSetMagicNV() macro -(which calls the sv_setnv() function) to be passed back to the calling -subroutine. These macros/functions are explained in L<perlguts>; we'll talk -more later about what that "ST(0)" means in the section on the argument stack. +once arg has its final value, it is passed to the sv_setnv function to +be passed back to the calling subroutine. These two functions are explained +in L<perlguts>; we'll talk more later about what that "ST(0)" means in the +section on the argument stack. =head2 WARNING |