paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 13:31:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Nextoverloading ordering fix

Browse Source
This commit is contained in:
pierre 1999-11-21 01:42:37 +00:00
parent 793a67c4a8
commit e4bfedf924
3 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ppu.pas
View File

@ -910,8 +910,8 @@ end;
procedure tppufile.putbyte(b:byte);
begin
writedata(b,1);
inc(entryidx);
putdata(b,1);
{ inc(entryidx);}
end;
@ -1000,7 +1000,10 @@ end;
end.
{
$Log$
Revision 1.49 1999-11-18 15:34:48 pierre
Revision 1.50 1999-11-21 01:42:37 pierre
* Nextoverloading ordering fix
Revision 1.49 1999/11/18 15:34:48 pierre
* Notes/Hints for local syms changed to
Set_varstate function

7
compiler/symppu.inc
View File

@ -129,9 +129,7 @@
{ when writing the pseudo PPU file
to get CRC values the globalsymtable is not yet
a unitsymtable PM }
{$ifndef Dont_use_double_checksum}
globalsymtable,
{$endif Dont_use_double_checksum}
unitsymtable :
begin
current_ppu^.putbyte(ord(derefunit));
@ -755,7 +753,10 @@
{
$Log$
Revision 1.55 1999-11-17 17:05:04 pierre
Revision 1.56 1999-11-21 01:42:37 pierre
* Nextoverloading ordering fix
Revision 1.55 1999/11/17 17:05:04 pierre
* Notes/hints changes
Revision 1.54 1999/11/12 11:03:50 peter

9
compiler/symsym.inc
View File

@ -445,7 +445,7 @@
currdef:=firstdef;
lastdef:=definition;
definition:=definition^.nextoverloaded;
if lastdef^.mangledname>currdef^.mangledname then
if lastdef^.mangledname<firstdef^.mangledname then
begin
lastdef^.nextoverloaded:=firstdef;
firstdef:=lastdef;
@ -453,7 +453,7 @@
else
begin
while assigned(currdef^.nextoverloaded) and
(currdef^.mangledname>lastdef^.mangledname) do
(lastdef^.mangledname>currdef^.nextoverloaded^.mangledname) do
currdef:=currdef^.nextoverloaded;
lastdef^.nextoverloaded:=currdef^.nextoverloaded;
currdef^.nextoverloaded:=lastdef;
@ -2192,7 +2192,10 @@
{
$Log$
Revision 1.128 1999-11-20 01:22:20 pierre
Revision 1.129 1999-11-21 01:42:37 pierre
* Nextoverloading ordering fix
Revision 1.128 1999/11/20 01:22:20 pierre
+ cond FPC_USE_CPREFIX (needs also some RTL changes)
this allows to use unit global vars as DLL exports
(the underline prefix seems needed by dlltool)