Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re^9: references--hard vs anonymous operational weirdness

by hipowls (Curate)
on Mar 24, 2008 at 21:20 UTC ( #675990=note: print w/ replies, xml ) Need Help??


in reply to Re^8: references--hard vs anonymous operational weirdness
in thread references--hard vs anonymous operational weirdness

I was thinking of allocation to be handing over a chunk of raw memory and initialization to be things like setting ref count to 1, the pointer to the contents to NULL or however an empty list is represented and any other bookkeeping. It is possible that these two steps are a single opcode and can't be separated.

On stack unwind, in response to the directive, clear the @array if there are no more references to it. Otherwise, allocate a new @array.
Surely allocation of a new array would only be done on entry to the block at the start of each iteration?

Once more thanks for your time. If you would care to point me to documentation where I can read some more that would be helpful (and spare you more tedious questions;). I am looking for somewhere between perl internals and the source tarball. Even knowing where to start on the source would be useful.

Just spotted perl -lne 'print if /^[^\/]+\.[ch]\s+/' MANIFEST in perlhack, I guess that's where I start.


Comment on Re^9: references--hard vs anonymous operational weirdness
Download Code
Re^10: references--hard vs anonymous operational weirdness
by ikegami (Pope) on Mar 25, 2008 at 03:47 UTC

    I was thinking of allocation to be handing over a chunk of raw memory and initialization to be things like setting ref count to 1, [...]

    Then allocation and initialization are done by the same function (not opcode). newSV and newAV, for example.

    Surely allocation of a new array would only be done on entry to the block at the start of each iteration?

    No, it's done on exit.

    The directive to which I referred is SAVEt_CLEARSV. It's placed on the stack by SAVECLEARSV. In the code relating to SAVEt_CLEARSV in Perl_leave_scope in scope.c, you'll spot

    switch (SvTYPE(sv)) { /* Console ourselves with a new value */ case SVt_PVAV: *(SV**)ptr = (SV*)newAV(); break; case SVt_PVHV: *(SV**)ptr = (SV*)newHV(); break; default: *(SV**)ptr = newSV(0); break; }

    If you would care to point me to documentation where I can read some more that would be helpful

    I don't know where or if this detail is documented. I discovered it while searching for my's runtime effect.

    perl -MO=Concise -e"code" gives the names of the opcodes (e.g padav for my @array), which you'll find in the pp* files.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://675990]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (8)
As of 2014-08-22 02:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (145 votes), past polls