From c48bf6776ec83adc030f55b2ade78e146aada62e Mon Sep 17 00:00:00 2001
From: Roland Heyder <support@rhosigma-cw.net>
Date: Fri, 22 Oct 2021 23:51:48 +0200
Subject: [PATCH] Fixed LOC function for files

Will correctly return zero (0) now for just opened but yet untouched files.
---
 CHANGELOG.md         |  3 ++-
 internal/c/libqb.cpp | 10 ++--------
 2 files changed, 4 insertions(+), 9 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 3de71aeff..56355eec7 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -14,10 +14,11 @@
 ### Linux
 --->
 
-<!---
 ## Fixes
 ### All platforms
+- Function `LOC` used on physical files will correctly return zero (0) now for just opened but yet untouched files.
 
+<!---
 ### Windows
 
 ### macOS
diff --git a/internal/c/libqb.cpp b/internal/c/libqb.cpp
index f3633f409..ca8971aa3 100644
--- a/internal/c/libqb.cpp
+++ b/internal/c/libqb.cpp
@@ -16325,19 +16325,13 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){
         }
         
         if (gfs->type==1){//RANDOM
-            return gfs_getpos(i)/gfs->record_length+1;
+            return gfs_getpos(i)/gfs->record_length;
         }
         if (gfs->type==2){//BINARY
             return gfs_getpos(i);
         }
         //APPEND/OUTPUT/INPUT
-        int64 pos;
-        pos=gfs_getpos(i);
-        if (!pos) return 1;
-        pos--;
-        pos/=128;
-        pos++;
-        return pos;
+        return gfs_getpos(i)/128;
     }
     
     qbs *func_input(int32 n,int32 i,int32 passed){