From d858a419c85d96ab59e8906d61cb00e6ddaebeac Mon Sep 17 00:00:00 2001 From: peter Date: Mon, 17 Apr 2006 21:06:36 +0000 Subject: [PATCH] * missing import_name flag git-svn-id: trunk@3256 - --- compiler/pdecsub.pas | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas index 9e61993440..73cda4e337 100644 --- a/compiler/pdecsub.pas +++ b/compiler/pdecsub.pas @@ -1477,7 +1477,10 @@ begin end; { default is to used the realname of the procedure } 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 else begin