This commit is contained in:
Vítor Santos Costa 2016-01-31 10:58:24 +00:00
parent 73f6c456ae
commit c9babdd03e

View File

@ -502,7 +502,7 @@ BaseName(const char *X) {
} }
const har * const char *
DirName(const char *X) { DirName(const char *X) {
char dir[YAP_FILENAME_MAX]; char dir[YAP_FILENAME_MAX];
char drive[YAP_FILENAME_MAX]; char drive[YAP_FILENAME_MAX];
@ -675,7 +675,7 @@ prolog_expanded_file_system_path( USES_REGS1 )
const char *rc = myrealpath(out, LOCAL_FileNameBuf2 ); const char *rc = myrealpath(out, LOCAL_FileNameBuf2 );
return Yap_unify(MkAtomTerm(Yap_LookupAtom(rc)), ARG4); return Yap_unify(MkAtomTerm(Yap_LookupAtom(rc)), ARG4);
} else { } else {
char *pt =stpncpy( LOCAL_FileNameBuf2, p0, YAP_FILENAME_MAX ); char *pt =strncpy( LOCAL_FileNameBuf2, p0, YAP_FILENAME_MAX );
printf("%s\n", LOCAL_FileNameBuf2); printf("%s\n", LOCAL_FileNameBuf2);
if ( !dir_separator( pt[-1] )) { if ( !dir_separator( pt[-1] )) {
#if ATARI || _MSC_VER || defined(__MINGW32__) #if ATARI || _MSC_VER || defined(__MINGW32__)