paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 15:47:53 +02: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);
if assigned(inputfile) 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)+':'
else
get_file_line:=inputfile^.name^+inputfile^.ext^
@ -148,7 +148,10 @@ implementation
end.
{
$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
* unit in interface uses and implementation uses gives error now
* 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 }
{ this only save the references to variables/functions }
{ defined in the unit what about the others }
ppufile^.do_crc:=false;
ppufile.do_crc:=false;
if assigned(lastwritten) then
ref:=lastwritten
else
@ -1918,7 +1918,7 @@
end;
lastwritten:=lastref;
writebyte(ibend);
ppufile^.do_crc:=true;
ppufile.do_crc:=true;
end;
procedure tprocdef.write_external_references;
@ -1926,7 +1926,7 @@
var ref : pref;
begin
ppufile^.do_crc:=false;
ppufile.do_crc:=false;
if lastwritten=lastref then exit;
writebyte(ibextdefref);
writedefref(@self);
@ -1944,7 +1944,7 @@
end;
lastwritten:=lastref;
writebyte(ibend);
ppufile^.do_crc:=true;
ppufile.do_crc:=true;
end;
procedure tprocdef.write_ref_to_file(var f : text);
@ -2620,7 +2620,10 @@
{
$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
+ data init/final. for local variables
@ -2654,4 +2657,4 @@
* symtable adapted for $ifdef NEWPPU
}

13
compiler/symsym.inc
View File

@ -209,7 +209,7 @@
{ references do not change the ppu caracteristics }
{ this only save the references to variables/functions }
{ defined in the unit what about the others }
ppufile^.do_crc:=false;
ppufile.do_crc:=false;
if assigned(lastwritten) then
ref:=lastwritten
else
@ -224,7 +224,7 @@
end;
lastwritten:=lastref;
writebyte(ibend);
ppufile^.do_crc:=true;
ppufile.do_crc:=true;
end;
@ -263,7 +263,7 @@
var ref : pref;
prdef : pdef;
begin
ppufile^.do_crc:=false;
ppufile.do_crc:=false;
if lastwritten=lastref then
exit;
writebyte(ibextsymref);
@ -291,7 +291,7 @@
prdef:=pprocdef(prdef)^.nextoverloaded;
end;
end;
ppufile^.do_crc:=true;
ppufile.do_crc:=true;
end;
{$endif NEWPPU}
@ -1741,7 +1741,10 @@
{
$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
(accepted are popstack cdecl and pascal)
+ added C vars with the following syntax