diff options
| author | Joshua Pritikin <joshua.pritikin@db.com> | 1998-04-04 03:33:50 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-05-14 14:58:13 +0000 |
| commit | 8b3be1d1d662cdbae5ce4a277ed2aebfaf7de321 (patch) | |
| tree | 7a1d323ca50b1a2d97e614e1c513f4dda08161bc /thrdvar.h | |
| parent | ff06c60c06e5437e446d6c794b05a29d5e6644fa (diff) | |
| download | perl-8b3be1d1d662cdbae5ce4a277ed2aebfaf7de321.tar.gz | |
[PATCH 5.004_64] Test.pm update
Date: Sat, 4 Apr 1998 08:33:50 -0500
Subject: [PATCH 5.004_64] modcount + comments
Date: Fri, 17 Apr 1998 16:07:35 -0400
p4raw-id: //depot/perl@943
Diffstat (limited to 'thrdvar.h')
| -rw-r--r-- | thrdvar.h | 12 |
1 files changed, 11 insertions, 1 deletions
@@ -1,4 +1,10 @@ -/* Per-thread variables */ +/* Don't forget to re-run embed.pl to propagate changes! */ + +/* Per-thread variables + The 'T' prefix is only needed for vars that need appropriate #defines +generated when built with or without USE_THREADS. (It is also used +to generate the appropriate the export list for win32.) */ + /* Important ones in the first cache line (if alignment is done right) */ PERLVAR(Tstack_sp, SV **) @@ -78,10 +84,14 @@ PERLVAR(Tstart_env, JMPENV) /* empty startup sigjmp() environment */ PERLVAR(Tav_fetch_sv, SV *) PERLVAR(Thv_fetch_sv, SV *) PERLVAR(Thv_fetch_ent_mh, HE) +PERLVAR(Tmodcount, I32) /* XXX Sort stuff, firstgv secongv and so on? */ /* XXX What about regexp stuff? */ +/* Note that the variables below are all explicitly referenced in the code +as thr->whatever and therefore don't need the 'T' prefix. */ + #ifdef USE_THREADS PERLVAR(oursv, SV *) |