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));