paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:46:00 +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); procedure tppufile.putbyte(b:byte);
begin begin
writedata(b,1); putdata(b,1);
inc(entryidx); { inc(entryidx);}
end; end;
@ -1000,7 +1000,10 @@ end;
end. end.
{ {
$Log$ $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 * Notes/Hints for local syms changed to
Set_varstate function Set_varstate function

7
compiler/symppu.inc
View File

@ -129,9 +129,7 @@
{ when writing the pseudo PPU file { when writing the pseudo PPU file
to get CRC values the globalsymtable is not yet to get CRC values the globalsymtable is not yet
a unitsymtable PM } a unitsymtable PM }
{$ifndef Dont_use_double_checksum}
globalsymtable, globalsymtable,
{$endif Dont_use_double_checksum}
unitsymtable : unitsymtable :
begin begin
current_ppu^.putbyte(ord(derefunit)); current_ppu^.putbyte(ord(derefunit));
@ -755,7 +753,10 @@
{ {
$Log$ $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 * Notes/hints changes
Revision 1.54 1999/11/12 11:03:50 peter Revision 1.54 1999/11/12 11:03:50 peter

9
compiler/symsym.inc
View File

@ -445,7 +445,7 @@
currdef:=firstdef; currdef:=firstdef;
lastdef:=definition; lastdef:=definition;
definition:=definition^.nextoverloaded; definition:=definition^.nextoverloaded;
if lastdef^.mangledname>currdef^.mangledname then if lastdef^.mangledname<firstdef^.mangledname then
begin begin
lastdef^.nextoverloaded:=firstdef; lastdef^.nextoverloaded:=firstdef;
firstdef:=lastdef; firstdef:=lastdef;
@ -453,7 +453,7 @@
else else
begin begin
while assigned(currdef^.nextoverloaded) and while assigned(currdef^.nextoverloaded) and
(currdef^.mangledname>lastdef^.mangledname) do (lastdef^.mangledname>currdef^.nextoverloaded^.mangledname) do
currdef:=currdef^.nextoverloaded; currdef:=currdef^.nextoverloaded;
lastdef^.nextoverloaded:=currdef^.nextoverloaded; lastdef^.nextoverloaded:=currdef^.nextoverloaded;
currdef^.nextoverloaded:=lastdef; currdef^.nextoverloaded:=lastdef;
@ -2192,7 +2192,10 @@
{ {
$Log$ $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) + cond FPC_USE_CPREFIX (needs also some RTL changes)
this allows to use unit global vars as DLL exports this allows to use unit global vars as DLL exports
(the underline prefix seems needed by dlltool) (the underline prefix seems needed by dlltool)