fix missing line/file name
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8687 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
2cdf8ec650
commit
2c19c671fd
1 changed files with 8 additions and 6 deletions
|
|
@ -120,15 +120,17 @@ Swig_fragment_emit(Node *n) {
|
||||||
if (debug) Printf(stdout,"looking subfragment %s\n", name);
|
if (debug) Printf(stdout,"looking subfragment %s\n", name);
|
||||||
if (code && (Strcmp(code,k_ignore) != 0)) {
|
if (code && (Strcmp(code,k_ignore) != 0)) {
|
||||||
String *section = Getmeta(code,k_section);
|
String *section = Getmeta(code,k_section);
|
||||||
Hash *n = Getmeta(code,k_kwargs);
|
Hash *nn = Getmeta(code,k_kwargs);
|
||||||
if (!looking_fragments) looking_fragments = NewHash();
|
if (!looking_fragments) looking_fragments = NewHash();
|
||||||
Setattr(looking_fragments,name,"1");
|
Setattr(looking_fragments,name,"1");
|
||||||
while (n) {
|
while (nn) {
|
||||||
if (Equal(Getattr(n,k_name),k_fragment)) {
|
if (Equal(Getattr(nn,k_name),k_fragment)) {
|
||||||
if (debug) Printf(stdout,"emitting fragment %s %s\n",n, type);
|
if (debug) Printf(stdout,"emitting fragment %s %s\n",nn, type);
|
||||||
Swig_fragment_emit(n);
|
Setfile(nn, Getfile(n));
|
||||||
|
Setline(nn, Getline(n));
|
||||||
|
Swig_fragment_emit(nn);
|
||||||
}
|
}
|
||||||
n = nextSibling(n);
|
nn = nextSibling(nn);
|
||||||
}
|
}
|
||||||
if (section) {
|
if (section) {
|
||||||
File *f = Swig_filebyname(section);
|
File *f = Swig_filebyname(section);
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue