paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 22:59:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* -gb works again

Browse Source
This commit is contained in:
peter 1998-06-11 10:11:57 +00:00
parent 0e2d38d46e
commit 6cd01467c6
3 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/browser.pas
View File

@ -96,7 +96,7 @@ implementation
inputfile:=get_source_file(moduleindex,posinfo.fileindex); inputfile:=get_source_file(moduleindex,posinfo.fileindex);
if assigned(inputfile) then if assigned(inputfile) then
if Use_Rhide then if Use_Rhide then
get_file_line:=globals.lowercase(inputfile^.name^+inputfile^.ext^) get_file_line:=lower(inputfile^.name^+inputfile^.ext^)
+':'+tostr(posinfo.line)+':'+tostr(posinfo.column)+':' +':'+tostr(posinfo.line)+':'+tostr(posinfo.column)+':'
else else
get_file_line:=inputfile^.name^+inputfile^.ext^ get_file_line:=inputfile^.name^+inputfile^.ext^
@ -148,7 +148,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.3 1998-05-20 09:42:32 pierre Revision 1.4 1998-06-11 10:11:57 peter
* -gb works again
Revision 1.3 1998/05/20 09:42:32 pierre
+ UseTokenInfo now default + UseTokenInfo now default
* unit in interface uses and implementation uses gives error now * unit in interface uses and implementation uses gives error now
* only one error for unknown symbol (uses lastsymknown boolean) * only one error for unknown symbol (uses lastsymknown boolean)

15
compiler/symdef.inc
View File

@ -1903,7 +1903,7 @@
{ references do not change the ppu caracteristics } { references do not change the ppu caracteristics }
{ this only save the references to variables/functions } { this only save the references to variables/functions }
{ defined in the unit what about the others } { defined in the unit what about the others }
ppufile^.do_crc:=false; ppufile.do_crc:=false;
if assigned(lastwritten) then if assigned(lastwritten) then
ref:=lastwritten ref:=lastwritten
else else
@ -1918,7 +1918,7 @@
end; end;
lastwritten:=lastref; lastwritten:=lastref;
writebyte(ibend); writebyte(ibend);
ppufile^.do_crc:=true; ppufile.do_crc:=true;
end; end;
procedure tprocdef.write_external_references; procedure tprocdef.write_external_references;
@ -1926,7 +1926,7 @@
var ref : pref; var ref : pref;
begin begin
ppufile^.do_crc:=false; ppufile.do_crc:=false;
if lastwritten=lastref then exit; if lastwritten=lastref then exit;
writebyte(ibextdefref); writebyte(ibextdefref);
writedefref(@self); writedefref(@self);
@ -1944,7 +1944,7 @@
end; end;
lastwritten:=lastref; lastwritten:=lastref;
writebyte(ibend); writebyte(ibend);
ppufile^.do_crc:=true; ppufile.do_crc:=true;
end; end;
procedure tprocdef.write_ref_to_file(var f : text); procedure tprocdef.write_ref_to_file(var f : text);
@ -2620,7 +2620,10 @@
{ {
$Log$ $Log$
Revision 1.7 1998-06-07 15:30:25 florian Revision 1.8 1998-06-11 10:11:58 peter
* -gb works again
Revision 1.7 1998/06/07 15:30:25 florian
+ first working rtti + first working rtti
+ data init/final. for local variables + data init/final. for local variables
@ -2654,4 +2657,4 @@
* symtable adapted for $ifdef NEWPPU * symtable adapted for $ifdef NEWPPU
} }

13
compiler/symsym.inc
View File

@ -209,7 +209,7 @@
{ references do not change the ppu caracteristics } { references do not change the ppu caracteristics }
{ this only save the references to variables/functions } { this only save the references to variables/functions }
{ defined in the unit what about the others } { defined in the unit what about the others }
ppufile^.do_crc:=false; ppufile.do_crc:=false;
if assigned(lastwritten) then if assigned(lastwritten) then
ref:=lastwritten ref:=lastwritten
else else
@ -224,7 +224,7 @@
end; end;
lastwritten:=lastref; lastwritten:=lastref;
writebyte(ibend); writebyte(ibend);
ppufile^.do_crc:=true; ppufile.do_crc:=true;
end; end;
@ -263,7 +263,7 @@
var ref : pref; var ref : pref;
prdef : pdef; prdef : pdef;
begin begin
ppufile^.do_crc:=false; ppufile.do_crc:=false;
if lastwritten=lastref then if lastwritten=lastref then
exit; exit;
writebyte(ibextsymref); writebyte(ibextsymref);
@ -291,7 +291,7 @@
prdef:=pprocdef(prdef)^.nextoverloaded; prdef:=pprocdef(prdef)^.nextoverloaded;
end; end;
end; end;
ppufile^.do_crc:=true; ppufile.do_crc:=true;
end; end;
{$endif NEWPPU} {$endif NEWPPU}
@ -1741,7 +1741,10 @@
{ {
$Log$ $Log$
Revision 1.7 1998-06-09 16:01:51 pierre Revision 1.8 1998-06-11 10:11:59 peter
* -gb works again
Revision 1.7 1998/06/09 16:01:51 pierre
+ added procedure directive parsing for procvars + added procedure directive parsing for procvars
(accepted are popstack cdecl and pascal) (accepted are popstack cdecl and pascal)
+ added C vars with the following syntax + added C vars with the following syntax