paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 04:29:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed to compile with TP

Browse Source
This commit is contained in:
florian 1998-07-13 21:17:38 +00:00
parent 1b9ffe21b8
commit 0912889c24
1 changed files with 23 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/symsym.inc
View File

@ -337,7 +337,13 @@
function tsym.stabstring : pchar; function tsym.stabstring : pchar;
begin begin
stabstring:=strpnew('"'+name+'",'+tostr(N_LSYM)+',0,'+tostr({$ifdef NEWINPUT}fileinfo.line{$else}line_no{$endif})+',0'); stabstring:=strpnew('"'+name+'",'+tostr(N_LSYM)+',0,'+tostr(
{$ifdef NEWINPUT}
fileinfo.line
{$else}
line_no
{$endif}
)+',0');
end; end;
procedure tsym.concatstabto(asmlist : paasmoutput); procedure tsym.concatstabto(asmlist : paasmoutput);
@ -1123,7 +1129,8 @@
end; end;
stabstring := strpnew('"'+name+':'+st stabstring := strpnew('"'+name+':'+st
+definition^.numberstring+'",'+ +definition^.numberstring+'",'+
tostr(N_PSYM)+',0,'+tostr({$ifdef NEWINPUT}fileinfo.line{$else}line_no{$endif})+','+tostr(address+owner^.call_offset)) tostr(N_PSYM)+',0,'+tostr({$ifdef NEWINPUT}fileinfo.line{$else}line_no{$endif})+','+
tostr(address+owner^.call_offset))
{offset to ebp => will not work if the framepointer is esp {offset to ebp => will not work if the framepointer is esp
so some optimizing will make things harder to debug } so some optimizing will make things harder to debug }
end end
@ -1135,13 +1142,15 @@
{ this is the register order for GDB} { this is the register order for GDB}
stabstring:=strpnew('"'+name+':r' stabstring:=strpnew('"'+name+':r'
+definition^.numberstring+'",'+ +definition^.numberstring+'",'+
tostr(N_RSYM)+',0,'+tostr({$ifdef NEWINPUT}fileinfo.line{$else}line_no{$endif})+','+tostr(GDB_i386index[reg])); tostr(N_RSYM)+',0,'+tostr(
{$ifdef NEWINPUT}fileinfo.line{$else}line_no{$endif})+','+tostr(GDB_i386index[reg]));
end end
else else
{$endif i386} {$endif i386}
stabstring := strpnew('"'+name+':' stabstring := strpnew('"'+name+':'
+definition^.numberstring+'",'+ +definition^.numberstring+'",'+
tostr(N_LSYM)+',0,'+tostr({$ifdef NEWINPUT}fileinfo.line{$else}line_no{$endif})+',-'+tostr(address)) tostr(N_LSYM)+',0,'+tostr(
{$ifdef NEWINPUT}fileinfo.line{$else}line_no{$endif})+',-'+tostr(address))
else else
stabstring := inherited stabstring; stabstring := inherited stabstring;
end; end;
@ -1160,7 +1169,8 @@
{ this is the register order for GDB} { this is the register order for GDB}
stab_str:=strpnew('"'+name+':r' stab_str:=strpnew('"'+name+':r'
+definition^.numberstring+'",'+ +definition^.numberstring+'",'+
tostr(N_RSYM)+',0,'+tostr({$ifdef NEWINPUT}fileinfo.line{$else}line_no{$endif})+','+tostr(GDB_i386index[reg])); tostr(N_RSYM)+',0,'+tostr(
{$ifdef NEWINPUT}fileinfo.line{$else}line_no{$endif})+','+tostr(GDB_i386index[reg]));
asmlist^.concat(new(pai_stabs,init(stab_str))); asmlist^.concat(new(pai_stabs,init(stab_str)));
end; end;
{$endif i386} {$endif i386}
@ -1278,7 +1288,8 @@
else else
st := 'S'; st := 'S';
stabstring := strpnew('"'+name+':'+st stabstring := strpnew('"'+name+':'+st
+definition^.numberstring+'",'+tostr(n_STSYM)+',0,'+tostr({$ifdef NEWINPUT}fileinfo.line{$else}line_no{$endif})+','+mangledname); +definition^.numberstring+'",'+tostr(n_STSYM)+',0,'+tostr(
{$ifdef NEWINPUT}fileinfo.line{$else}line_no{$endif})+','+mangledname);
end; end;
{$endif GDB} {$endif GDB}
@ -1402,7 +1413,8 @@
{ sets are not recognized by GDB} { sets are not recognized by GDB}
{***} {***}
end; end;
stabstring := strpnew('"'+name+':c='+st+'",'+tostr(N_function)+',0,'+tostr({$ifdef NEWINPUT}fileinfo.line{$else}line_no{$endif})+',0'); stabstring := strpnew('"'+name+':c='+st+'",'+tostr(N_function)+',0,'+tostr(
{$ifdef NEWINPUT}fileinfo.line{$else}line_no{$endif})+',0');
end; end;
procedure tconstsym.concatstabto(asmlist : paasmoutput); procedure tconstsym.concatstabto(asmlist : paasmoutput);
@ -1632,7 +1644,10 @@
{ {
$Log$ $Log$
Revision 1.20 1998-07-10 00:00:05 peter Revision 1.21 1998-07-13 21:17:38 florian
* changed to compile with TP
Revision 1.20 1998/07/10 00:00:05 peter
* fixed ttypesym bug finally * fixed ttypesym bug finally
* fileinfo in the symtable and better using for unused vars * fileinfo in the symtable and better using for unused vars