6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-12 17:30:50 +00:00
Code Issues Projects Releases Wiki Activity

Added cc65_childscopes_byid.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@5196 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2011-08-17 19:00:34 +00:00
parent 5edd1f7017
commit 0ec9ebbfaf
2 changed files with 53 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
src/dbginfo/dbginfo.c
View File

@ -296,6 +296,7 @@ struct ScopeInfo {
SymInfo* Info; /* Pointer to label symbol */ SymInfo* Info; /* Pointer to label symbol */
} Label; } Label;
Collection SpanInfoList; /* List of spans for this scope */ Collection SpanInfoList; /* List of spans for this scope */
Collection* ChildScopes; /* Child scopes of this scope */
char Name[1]; /* Name of scope */ char Name[1]; /* Name of scope */
}; };
@ -1279,6 +1280,7 @@ static ScopeInfo* NewScopeInfo (const StrBuf* Name)
/* Initialize the fields as necessary */ /* Initialize the fields as necessary */
CollInit (&S->SpanInfoList); CollInit (&S->SpanInfoList);
S->ChildScopes = 0;
memcpy (S->Name, SB_GetConstBuf (Name), SB_GetLen (Name) + 1); memcpy (S->Name, SB_GetConstBuf (Name), SB_GetLen (Name) + 1);
/* Return it */ /* Return it */
@ -1291,6 +1293,7 @@ static void FreeScopeInfo (ScopeInfo* S)
/* Free a ScopeInfo struct */ /* Free a ScopeInfo struct */
{ {
CollDone (&S->SpanInfoList); CollDone (&S->SpanInfoList);
CollFree (S->ChildScopes);
xfree (S); xfree (S);
} }
@ -4199,6 +4202,12 @@ static void ProcessScopeInfo (InputData* D)
S->Parent.Info = 0; S->Parent.Info = 0;
} else { } else {
S->Parent.Info = CollAt (&D->Info->ScopeInfoById, S->Parent.Id); S->Parent.Info = CollAt (&D->Info->ScopeInfoById, S->Parent.Id);
/* Set a backpointer in the parent */
if (S->Parent.Info->ChildScopes == 0) {
S->Parent.Info->ChildScopes = CollNew ();
}
CollAppend (S->Parent.Info->ChildScopes, S);
} }
/* Resolve the label */ /* Resolve the label */
@ -5630,6 +5639,44 @@ const cc65_scopeinfo* cc65_scope_bymodule (cc65_dbginfo Handle, unsigned ModId)
CopyScopeInfo (D->data + I, CollConstAt (&M->ScopeInfoByName, I)); CopyScopeInfo (D->data + I, CollConstAt (&M->ScopeInfoByName, I));
} }
/* Return the result */
return D;
}
const cc65_scopeinfo* cc65_childscopes_byid (cc65_dbginfo Handle, unsigned Id)
/* Return the direct child scopes of a scope with a given id. The function
* returns NULL if no scope with this id was found, otherwise a list of the
* direct childs.
*/
{
DbgInfo* Info;
cc65_scopeinfo* D;
ScopeInfo* S;
unsigned I;
/* Check the parameter */
assert (Handle != 0);
/* The handle is actually a pointer to a debug info struct */
Info = (DbgInfo*) Handle;
/* Check if the id is valid */
if (Id >= CollCount (&Info->ScopeInfoById)) {
return 0;
}
/* Get the scope */
S = CollAt (&Info->ScopeInfoById, Id);
/* Allocate memory for the data structure returned to the caller */
D = new_cc65_scopeinfo (S->ChildScopes? CollCount (S->ChildScopes) : 0);
/* Fill in the data */
for (I = 0; I < D->count; ++I) {
CopyScopeInfo (D->data + I, CollConstAt (S->ChildScopes, I));
}
/* Return the result */ /* Return the result */
return D; return D;

6
src/dbginfo/dbginfo.h
View File

@ -502,6 +502,12 @@ const cc65_scopeinfo* cc65_scope_bymodule (cc65_dbginfo handle, unsigned module_
* scope with the given id was found. * scope with the given id was found.
*/ */
const cc65_scopeinfo* cc65_childscopes_byid (cc65_dbginfo handle, unsigned id);
/* Return the direct child scopes of a scope with a given id. The function
* returns NULL if no scope with this id was found, otherwise a list of the
* direct childs.
*/
void cc65_free_scopeinfo (cc65_dbginfo Handle, const cc65_scopeinfo* Info); void cc65_free_scopeinfo (cc65_dbginfo Handle, const cc65_scopeinfo* Info);
/* Free a scope info record */ /* Free a scope info record */