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

* fix result of high_tree when high was not available

Browse Source
This commit is contained in:
peter 2002-12-20 18:14:53 +00:00
parent ac667efffa
commit 766757fd5b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/nld.pas
View File

@ -196,6 +196,7 @@ implementation
srsym : tsym; srsym : tsym;
srsymtable : tsymtable; srsymtable : tsymtable;
begin begin
result:=nil;
srsymtable:=vs.owner; srsymtable:=vs.owner;
if vo_is_local_copy in vs.varoptions then if vo_is_local_copy in vs.varoptions then
begin begin
@ -1268,7 +1269,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.72 2002-12-17 22:19:33 peter Revision 1.73 2002-12-20 18:14:53 peter
* fix result of high_tree when high was not available
Revision 1.72 2002/12/17 22:19:33 peter
* fixed pushing of records>8 bytes with stdcall * fixed pushing of records>8 bytes with stdcall
* simplified hightree loading * simplified hightree loading