From 344cdc69be09c9d7acf9ef1aa4efc5198c9b3201 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Sun, 3 Jan 2016 01:15:29 +0000
Subject: [PATCH] owner file

---
 C/adtdefs.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/C/adtdefs.c b/C/adtdefs.c
index c9f54f5b5..74cd0235a 100755
--- a/C/adtdefs.c
+++ b/C/adtdefs.c
@@ -808,7 +808,7 @@ Prop Yap_NewPredPropByFunctor(FunctorEntry *fe, Term cur_mod) {
   p->cs.p_code.FirstClause = p->cs.p_code.LastClause = NULL;
   p->cs.p_code.NOfClauses = 0;
   p->PredFlags = 0L;
-  p->src.OwnerFile = LOCAL_SourceFileName;
+  p->src.OwnerFile = Yap_source_file_name();
   p->OpcodeOfPred = UNDEF_OPCODE;
   p->CodeOfPred = p->cs.p_code.TrueCodeOfPred = (yamop *)(&(p->OpcodeOfPred));
   p->cs.p_code.ExpandCode = EXPAND_OP_CODE;
@@ -944,7 +944,7 @@ Prop Yap_NewPredPropByAtom(AtomEntry *ae, Term cur_mod) {
   p->cs.p_code.FirstClause = p->cs.p_code.LastClause = NULL;
   p->cs.p_code.NOfClauses = 0;
   p->PredFlags = 0L;
-  p->src.OwnerFile = LOCAL_SourceFileName;
+  p->src.OwnerFile = Yap_source_file_name();
   p->OpcodeOfPred = UNDEF_OPCODE;
   p->cs.p_code.ExpandCode = EXPAND_OP_CODE;
   p->CodeOfPred = p->cs.p_code.TrueCodeOfPred = (yamop *)(&(p->OpcodeOfPred));