with java.lang.Thread; use java.lang.Thread; package java.lang.ProcessReaper is type ProcessReaper_Obj is new Thread_Obj with null record; type ProcessReaper_Ptr is access all ProcessReaper_Obj'Class; procedure run(Obj : access ProcessReaper_Obj); pragma Import(Java, run); end java.lang.ProcessReaper;