handle deletion of the non-existant record with field

This commit is contained in:
Hinko Kocevar
2024-08-15 12:36:34 +02:00
committed by Andrew Johnson
parent f00de26be1
commit 8e62ea4965

View File

@ -1123,14 +1123,14 @@ static void dbRecordHead(char *recordType, char *name, int visible)
status = dbFindRecord(pdbentry, name);
if (status == 0) {
dbDeleteRecord(pdbentry);
popFirstTemp();
dbFreeEntry(pdbentry);
duplicate = TRUE;
} else {
fprintf(stderr, ERL_WARNING ": Unable to delete record \"%s\". Not found.\n"
" at file %s line %d\n",
name, pinputFileNow->filename, pinputFileNow->line_num);
}
popFirstTemp();
dbFreeEntry(pdbentry);
duplicate = TRUE;
return;
}
status = dbFindRecordType(pdbentry, recordType);