From 1a89445ae76b1ebc7874404656363ce2f3180d86 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Thu, 15 Mar 2018 23:10:49 -0400
Subject: [PATCH] debugger - bad code generated for array symbol tables

Fields are in the wrong order and it returns sizes for the array type rather than the element type.
---
 symbols.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/symbols.pas b/symbols.pas
index 48c56da..9b45856 100644
--- a/symbols.pas
+++ b/symbols.pas
@@ -991,10 +991,10 @@ var
          CnOut2(count);
          end; {else if}
       while count <> 0 do begin		{write the subscript entries}
-         CnOut2(0); CnOut2(0);
-         GetBounds(tp, lmin, lmax);
+         GetBounds(tp^.inxtype, lmin, lmax);
          CnOut2(long(lmin).lsw); CnOut2(long(lmin).msw);
          CnOut2(long(lmax).lsw); CnOut2(long(lmax).msw);
+         CnOut2(0); CnOut2(0);
          symLength := symLength+12;
          tp := tp^.aeltype;
          count := count-1;