* germanism removed (aktfilepos -> current_filepos)

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

1 files changed, 4 insertions, 4 deletions

diff --git a/compiler/ppheap.pas b/compiler/ppheap.pas
index 11ca168799..6dfe60066c 100644
--- a/compiler/ppheap.pas
+++ b/compiler/ppheap.pas
@@ -106,12 +106,12 @@ implementation
       begin
         with pextra_info(p)^ do
          begin
-           line:=aktfilepos.line;
-           col:=aktfilepos.column;
+           line:=current_filepos.line;
+           col:=current_filepos.column;
            if assigned(current_module) then
-            fileindex:=current_module.unit_index*100000+aktfilepos.fileindex
+            fileindex:=current_module.unit_index*100000+current_filepos.fileindex
            else
-            fileindex:=aktfilepos.fileindex;
+            fileindex:=current_filepos.fileindex;
          end;
       end;