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

* missing import_name flag

Browse Source 
git-svn-id: trunk@3256 -
This commit is contained in:
peter 2006-04-17 21:06:36 +00:00
parent ce58e15393
commit d858a419c8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/pdecsub.pas
View File

@ -1477,7 +1477,10 @@ begin
end; end;
{ default is to used the realname of the procedure } { default is to used the realname of the procedure }
if (import_nr=0) and not assigned(import_name) then if (import_nr=0) and not assigned(import_name) then
import_name:=stringdup(procsym.realname); begin
import_name:=stringdup(procsym.realname);
include(procoptions,po_has_importname);
end;
end end
else else
begin begin