mirror of
https://github.com/vgstation-coders/vgstation13.git
synced 2025-12-10 18:32:03 +00:00
151 lines
3.1 KiB
Plaintext
151 lines
3.1 KiB
Plaintext
#define GC_COLLECTIONS_PER_TICK 300 // Was 100.
|
|
#define GC_COLLECTION_TIMEOUT (10 SECONDS)
|
|
#define GC_FORCE_DEL_PER_TICK 20
|
|
//#define GC_DEBUG
|
|
var/list/meowww = new
|
|
var/datum/garbage_collector/garbageCollector
|
|
|
|
/client/verb/bwoink()
|
|
set name = "bwoink"
|
|
set desc = "bwoink"
|
|
set category = "Debug"
|
|
|
|
for(var/A in meowww)
|
|
usr << A
|
|
|
|
/datum/garbage_collector
|
|
var/list/queue = new
|
|
var/del_everything = 0
|
|
|
|
// To let them know how hardworking am I :^).
|
|
var/dels_count = 0
|
|
var/hard_dels = 0
|
|
var/processing = 1
|
|
|
|
/datum/garbage_collector/proc/addTrash(const/datum/D)
|
|
if(!D)
|
|
return
|
|
|
|
if(del_everything)
|
|
del(D)
|
|
hard_dels++
|
|
dels_count++
|
|
return
|
|
|
|
if(!istype(D, /atom/movable))
|
|
del(D)
|
|
hard_dels++
|
|
dels_count++
|
|
return
|
|
|
|
var/atom/movable/AM = D
|
|
var/timeofday = world.timeofday
|
|
AM.timeDestroyed = timeofday
|
|
queue -= "\ref[AM]"
|
|
queue["\ref[AM]"] = timeofday
|
|
|
|
/datum/garbage_collector/proc/process()
|
|
if(processing)
|
|
var/remainingCollectionPerTick = GC_COLLECTIONS_PER_TICK
|
|
var/remainingForceDelPerTick = GC_FORCE_DEL_PER_TICK
|
|
var/collectionTimeScope = world.timeofday - GC_COLLECTION_TIMEOUT
|
|
|
|
while(queue.len && --remainingCollectionPerTick >= 0)
|
|
var/refID = queue[1]
|
|
var/destroyedAtTime = queue[refID]
|
|
|
|
if(destroyedAtTime > collectionTimeScope)
|
|
break
|
|
|
|
var/atom/movable/A = locate(refID)
|
|
|
|
// Something's still referring to the qdel'd object. Kill it.
|
|
if(A && A.timeDestroyed == destroyedAtTime)
|
|
if(remainingForceDelPerTick <= 0)
|
|
break
|
|
|
|
#ifdef GC_DEBUG
|
|
WARNING("gc process force delete [A.type]")
|
|
#endif
|
|
|
|
meowww |= "[A.type]"
|
|
|
|
del(A)
|
|
|
|
hard_dels++
|
|
remainingForceDelPerTick--
|
|
|
|
queue.Cut(1, 2)
|
|
dels_count++
|
|
|
|
#ifdef GC_DEBUG
|
|
#undef GC_DEBUG
|
|
#endif
|
|
|
|
#undef GC_FORCE_DEL_PER_TICK
|
|
#undef GC_COLLECTION_TIMEOUT
|
|
#undef GC_COLLECTIONS_PER_TICK
|
|
|
|
/proc/qdel(const/O)
|
|
if (!O)
|
|
return
|
|
|
|
if (!garbageCollector)
|
|
del(O)
|
|
return
|
|
|
|
if (!istype(O, /datum))
|
|
del(O)
|
|
garbageCollector.hard_dels++
|
|
garbageCollector.dels_count++
|
|
return
|
|
|
|
var/datum/D = O
|
|
|
|
if (isnull(D.gcDestroyed))
|
|
// Let our friend know they're about to get fucked up.
|
|
D.Destroy()
|
|
|
|
garbageCollector.addTrash(D)
|
|
|
|
/datum
|
|
// Garbage collection (qdel).
|
|
var/gcDestroyed
|
|
|
|
/datum/controller
|
|
var/processing = 0
|
|
var/iteration = 0
|
|
var/processing_interval = 0
|
|
|
|
/datum/controller/proc/recover() // If we are replacing an existing controller (due to a crash) we attempt to preserve as much as we can.
|
|
|
|
/datum/controller/New()
|
|
. = ..()
|
|
tag = "[type]:NOGC"
|
|
|
|
/datum/Del()
|
|
// Pass to Destroy().
|
|
if(isnull(gcDestroyed))
|
|
Destroy()
|
|
|
|
sleep(-1)
|
|
..()
|
|
|
|
/*
|
|
* Like Del(), but for qdel.
|
|
* Called BEFORE qdel moves shit.
|
|
*/
|
|
/datum/proc/Destroy()
|
|
tag = null
|
|
gcDestroyed = "Bye world!"
|
|
|
|
/client/proc/qdel_toggle()
|
|
set name = "Toggle qdel Behavior"
|
|
set desc = "Toggle qdel usage between normal and force del()."
|
|
set category = "Debug"
|
|
|
|
garbageCollector.del_everything = !garbageCollector.del_everything
|
|
world << "<b>GC: qdel turned [garbageCollector.del_everything ? "off" : "on"].</b>"
|
|
log_admin("[key_name(usr)] turned qdel [garbageCollector.del_everything ? "off" : "on"].")
|
|
message_admins("\blue [key_name(usr)] turned qdel [garbageCollector.del_everything ? "off" : "on"].", 1)
|