diff options
| author | Tony Cook <tony@develop-help.com> | 2021-10-21 14:19:49 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2021-11-15 11:35:42 +1100 |
| commit | a889938046e1b9f7f2a4e0fa84eb5ff6e358854d (patch) | |
| tree | c2a3da74c7e3f03bcecf0bd69b581af5d3626416 /cop.h | |
| parent | 9c913148860b0e83e6149d37e86cdb29663ee812 (diff) | |
| download | perl-a889938046e1b9f7f2a4e0fa84eb5ff6e358854d.tar.gz | |
correct the comment distinguishing between threaded/unthreaded cop macros
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -524,6 +524,7 @@ string C<p>, creating the package if necessary. */ #ifdef USE_ITHREADS + # define CopFILE(c) ((c)->cop_file) # define CopFILEGV(c) (CopFILE(c) \ ? gv_fetchfile(CopFILE(c)) : NULL) @@ -543,7 +544,9 @@ string C<p>, creating the package if necessary. ? alloccopstash(hv) \ : 0) # define CopFILE_free(c) (PerlMemShared_free(CopFILE(c)),(CopFILE(c) = NULL)) -#else /* Above: no threads; Below yes threads */ + +#else /* Above: yes threads; Below no threads */ + # define CopFILEGV(c) ((c)->cop_filegv) # define CopFILEGV_set(c,gv) ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv)) # define CopFILE_set(c,pv) CopFILEGV_set((c), gv_fetchfile(pv)) |