mirror of https://github.com/postgres/postgres
Naming the individual lwlocks seems like something that may be useful for other types of debugging, monitoring, or instrumentation output, but this commit just implements it for the specific case of trace_lwlocks. Patch by me, reviewed by Amit Kapila and Kyotaro Horiguchipull/7/head
Robert Haas
10 years ago
parent
a1b2888517
commit
aa65de042f
@ -0,0 +1,2 @@ |
||||
/lwlocknames.c |
||||
/lwlocknames.h |
||||
@ -0,0 +1,67 @@ |
||||
#!/usr/bin/perl |
||||
# |
||||
# Generate lwlocknames.h and lwlocknames.c from lwlocknames.txt |
||||
# Copyright (c) 2000-2015, PostgreSQL Global Development Group |
||||
|
||||
use warnings; |
||||
use strict; |
||||
|
||||
my $lastlockidx = -1; |
||||
my $continue = "\n"; |
||||
|
||||
open my $lwlocknames, $ARGV[0] or die; |
||||
|
||||
# Include PID in suffix in case parallel make runs this multiple times. |
||||
my $htmp = "lwlocknames.h.tmp$$"; |
||||
my $ctmp = "lwlocknames.c.tmp$$"; |
||||
open H, '>', $htmp or die "Could not open $htmp: $!"; |
||||
open C, '>', $ctmp or die "Could not open $ctmp: $!"; |
||||
|
||||
my $autogen = |
||||
"/* autogenerated from src/backend/storage/lmgr/lwlocknames.txt, do not edit */\n"; |
||||
print H $autogen; |
||||
print H "/* there is deliberately not an #ifndef LWLOCKNAMES_H here */\n\n"; |
||||
print C $autogen, "\n"; |
||||
|
||||
print C "static char *MainLWLockNames[] = {"; |
||||
|
||||
while (<$lwlocknames>) |
||||
{ |
||||
chomp; |
||||
|
||||
# Skip comments |
||||
next if /^#/; |
||||
next if /^\s*$/; |
||||
|
||||
die "unable to parse lwlocknames.txt" |
||||
unless /^(\w+)\s+(\d+)$/; |
||||
|
||||
(my $lockname, my $lockidx) = ($1, $2); |
||||
|
||||
die "lwlocknames.txt not in order" if $lockidx < $lastlockidx; |
||||
die "lwlocknames.txt has duplicates" if $lockidx == $lastlockidx; |
||||
|
||||
while ($lastlockidx < $lockidx - 1) |
||||
{ |
||||
++$lastlockidx; |
||||
printf C "%s \"<unassigned:%d>\"", $continue, $lastlockidx; |
||||
$continue = ",\n"; |
||||
} |
||||
printf C "%s \"%s\"", $continue, $lockname; |
||||
$lastlockidx = $lockidx; |
||||
$continue = ",\n"; |
||||
|
||||
print H "#define $lockname (&MainLWLockArray[$lockidx].lock)\n"; |
||||
} |
||||
|
||||
printf C "\n};\n"; |
||||
print H "\n"; |
||||
printf H "#define NUM_INDIVIDUAL_LWLOCKS %s\n", $lastlockidx + 1; |
||||
|
||||
close H; |
||||
close C; |
||||
|
||||
rename($htmp, 'lwlocknames.h') || die "rename: $htmp: $!"; |
||||
rename($ctmp, 'lwlocknames.c') || die "rename: $ctmp: $!"; |
||||
|
||||
close $lwlocknames; |
||||
@ -0,0 +1,47 @@ |
||||
# Some commonly-used locks have predefined positions within MainLWLockArray; |
||||
# these are defined here. If you add a lock, add it to the end to avoid |
||||
# renumbering the existing locks; if you remove a lock, consider leaving a gap |
||||
# in the numbering sequence for the benefit of DTrace and other external |
||||
# debugging scripts. |
||||
|
||||
# 0 is available; was formerly BufFreelistLock |
||||
ShmemIndexLock 1 |
||||
OidGenLock 2 |
||||
XidGenLock 3 |
||||
ProcArrayLock 4 |
||||
SInvalReadLock 5 |
||||
SInvalWriteLock 6 |
||||
WALBufMappingLock 7 |
||||
WALWriteLock 8 |
||||
ControlFileLock 9 |
||||
CheckpointLock 10 |
||||
CLogControlLock 11 |
||||
SubtransControlLock 12 |
||||
MultiXactGenLock 13 |
||||
MultiXactOffsetControlLock 14 |
||||
MultiXactMemberControlLock 15 |
||||
RelCacheInitLock 16 |
||||
CheckpointerCommLock 17 |
||||
TwoPhaseStateLock 18 |
||||
TablespaceCreateLock 19 |
||||
BtreeVacuumLock 20 |
||||
AddinShmemInitLock 21 |
||||
AutovacuumLock 22 |
||||
AutovacuumScheduleLock 23 |
||||
SyncScanLock 24 |
||||
RelationMappingLock 25 |
||||
AsyncCtlLock 26 |
||||
AsyncQueueLock 27 |
||||
SerializableXactHashLock 28 |
||||
SerializableFinishedListLock 29 |
||||
SerializablePredicateLockListLock 30 |
||||
OldSerXidLock 31 |
||||
SyncRepLock 32 |
||||
BackgroundWorkerLock 33 |
||||
DynamicSharedMemoryControlLock 34 |
||||
AutoFileLock 35 |
||||
ReplicationSlotAllocationLock 36 |
||||
ReplicationSlotControlLock 37 |
||||
CommitTsControlLock 38 |
||||
CommitTsLock 39 |
||||
ReplicationOriginLock 40 |
||||
@ -0,0 +1 @@ |
||||
/lwlocknames.h |
||||
Loading…
Reference in new issue