Apple-2gs-SW
/
ORCA-Pascal
mirror of https://github.com/byteworksinc/ORCA-Pascal.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Merge pull request #2 from ksherlock/GetTypDisp-bug 

GetTypeDisp bug
This commit is contained in:
MikeW50 2018-03-25 15:11:48 -06:00 committed by GitHub
parent bb88b94ee5 012d936d3f
commit 4736864a57
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
symbols.pas
View File

@ -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