Apple-2gs-SW/ORCA-Pascal
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-Pascal.git synced 2025-02-15 23:32:23 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #12 from ksherlock/empty_record_debugger_tables

Browse Source 
Empty record debugger tables
This commit is contained in:
MikeW50 2018-03-25 15:18:45 -06:00 committed by GitHub
commit d2791b3c53
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
symbols.pas
View File

@ -47,6 +47,7 @@ var
fwptr: ctp; {head of chain for forw decl type ids}
inptr,outptr,erroroutputptr: ctp; {standard I/O}
dummyString: stp; {index entry for string constants}
dummyField: ctp;
{---------------------------------------------------------------}
@ -744,6 +745,21 @@ with dummyString^ do begin
min := 1;
max := 2;
end; {with}
dummyField := pointer(Malloc(sizeof(identifier)));
with dummyField^ do begin
name := @'FIELD';
idtype := intptr;
next := nil;
fldaddr := 0;
klass := field;
hasIFile := false;
llink := nil;
rlink := nil;
fldaddr := 0;
end; {with}
end; {EnterUndecl}
@ -954,6 +970,7 @@ var
ip := tp^.fstfld
else
ip := tp^.objfld;
if ip = nil then ip := dummyField;
GenSymbol(ip, true);
end; {ExpandRecordType}