diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-12-18 14:54:43 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-12-18 14:54:43 +1300 |
| commit | f6c26c09bad7ba5d39c8af25cc06ff07f836769c (patch) | |
| tree | 62c6692b25ce23bbaebfeef8fc9c9b905da6d98f /src/kompsos-collector.ads | |
| parent | 2ec591d4b2b4dc11356b7bc5f261050b2c49fed9 (diff) | |
Reduced number of reallocations for conjunct operations
Diffstat (limited to 'src/kompsos-collector.ads')
| -rw-r--r-- | src/kompsos-collector.ads | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/kompsos-collector.ads b/src/kompsos-collector.ads index 8743ecc..d3e22a1 100644 --- a/src/kompsos-collector.ads +++ b/src/kompsos-collector.ads @@ -58,8 +58,9 @@ private Dis_Gone1 : Boolean := False; Dis_Gone2 : Boolean := False; when Conjunct_Data => + Con_From : Long_Positive := 2; -- Number one will be obtained by Get_Next already + Con_Base : World_Access := null; Con_Part : World_Access := null; - Con_From : Long_Positive := 1; Con_Next : Long_Positive := 1; Con_Gone : Boolean := False; when Recurse_Data => |