Changed how savepoint name is generated.

jgebal · jgebal · commit 39d144ae7f55 · 2019-11-30T00:59:11.000Z
Resolves #982
diff --git a/source/core/coverage/proftab.sql b/source/core/coverage/proftab.sql
@@ -37,7 +37,7 @@ begin
   if l_tab_exist = 0 then
     execute immediate q'[create table plsql_profiler_units
 (
-  runid              number references plsql_profiler_runs,
+  runid              number(18) references plsql_profiler_runs,
   unit_number        number,           -- internally generated library unit #
   unit_type          varchar2(128),     -- library unit type
   unit_owner         varchar2(128),     -- library unit owner name
diff --git a/source/core/ut_savepoint_seq.sql b/source/core/ut_savepoint_seq.sql
diff --git a/source/core/ut_utils.pkb b/source/core/ut_utils.pkb
@@ -59,7 +59,7 @@ create or replace package body ut_utils is
 
   function gen_savepoint_name return varchar2 is
   begin
-    return 's'||trim(to_char(ut_savepoint_seq.nextval,'0000000000000000000000000000'));
+    return 's'||to_char(systimestamp,'yyyymmddhh24missff9');
   end;
 
   procedure debug_log(a_message varchar2) is
diff --git a/source/install.sql b/source/install.sql
@@ -59,7 +59,6 @@ end;
 @@install_component.sql 'core/types/ut_reporters_info.tps'
 @@install_component.sql 'core/ut_utils.pks'
 @@install_component.sql 'core/ut_metadata.pks'
-@@install_component.sql 'core/ut_savepoint_seq.sql'
 @@install_component.sql 'core/ut_utils.pkb'
 @@install_component.sql 'core/ut_metadata.pkb'
 @@install_component.sql 'reporters/ut_ansiconsole_helper.pks'
diff --git a/source/uninstall_objects.sql b/source/uninstall_objects.sql
@@ -243,8 +243,6 @@ end;
 
 drop package ut_utils;
 
-drop sequence ut_savepoint_seq;
-
 drop type ut_documentation_reporter force;
 
 drop type ut_debug_reporter force;

Original file line number	Diff line number	Diff line change
`@@ -37,7 +37,7 @@ begin`
`37`	`37`	`if l_tab_exist = 0 then`
`38`	`38`	`execute immediate q'[create table plsql_profiler_units`
`39`	`39`	`(`
`40`		`- runid number references plsql_profiler_runs,`
	`40`	`+ runid number(18) references plsql_profiler_runs,`
`41`	`41`	`unit_number number, -- internally generated library unit #`
`42`	`42`	`unit_type varchar2(128), -- library unit type`
`43`	`43`	`unit_owner varchar2(128), -- library unit owner name`