* replaced most (if not all) remaining fields/parameters in the compiler

    that deal with paths/filenames with TPathStr (= ansistring) to prevent
    cutting off long paths (no change in speed when compiling the compiler,
    1% extra memory usage)

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@21120 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 1 deletions

diff --git a/compiler/ognlm.pas b/compiler/ognlm.pas
index 1f479ba9c8..42606b3af1 100644
--- a/compiler/ognlm.pas
+++ b/compiler/ognlm.pas
@@ -770,7 +770,7 @@ function SecOpts(SecOptions:TObjSectionOptions):string;
         { Initial header, will be updated later }
         nlmHeader.signature := NLM_SIGNATURE;
         nlmHeader.version := NLM_HEADER_VERSION;
-        moduleName := upperCase(current_module.exefilename^);
+        moduleName := upperCase(current_module.exefilename);
         nlmHeader.moduleName := moduleName;
         nlmHeader.codeImageOffset := TextExeSec.DataPos+TObjSection(TextExeSec.ObjSectionList[0]).dataalignbytes; // ??? may be that align has to be moved to fixups/imports
         nlmHeader.codeImageSize := TextExeSec.Size;