From 012d936d3fc266a213eccc28c6122926199af7ef Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Tue, 13 Mar 2018 15:48:23 -0400
Subject: [PATCH] when generating a debugger symbol table, GetTypeDisp returns
 0 for not found or for a displacement of 0.  Not good.  This uses a noDisp/-1
 const (as does ORCA/C).

---
 symbols.pas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/symbols.pas b/symbols.pas
index 48c56da..3f59059 100644
--- a/symbols.pas
+++ b/symbols.pas
@@ -753,6 +753,9 @@ procedure GenSymbols {sym: ctp; doGlobals: integer};
 {								}
 { Notes: Defined as extern in Native.pas			}
 
+const
+   noDisp = -1;                         {disp returned by GetTypeDisp if the type was not found}
+
 type
    tpPtr = ^tpRecord;			{type list displacements}
    tpRecord = record
@@ -794,7 +797,7 @@ var
    if tp2 <> nil then            
       GetTypeDisp := tp2^.disp		{return disp to entry}
    else begin
-      GetTypeDisp := 0;			{no entry}
+      GetTypeDisp := noDisp;			{no entry}
       new(tp1);				{create a new entry}
       tp1^.next := tpList;
       tpList := tp1;
@@ -1033,7 +1036,7 @@ var
                records,
                objects:		begin
 				disp := GetTypeDisp(tp^.eltype);
-                                if disp = 0 then begin
+                                if disp = noDisp then begin
                                    if tp^.eltype^.form = records then
         		   	      CnOut(12)
                                    else
@@ -1072,7 +1075,7 @@ var
                records,
                objects:		begin
 				disp := GetTypeDisp(sym^.idtype);
-                        	if disp = 0 then begin
+                        	if disp = noDisp then begin
                                    if sym^.idtype^.form = records then
         			      CnOut(12)
                                    else