-----------------------------------------------------------------------------------------------------------------
                      [BUG/PRB.] VFP 9.0 FIX - LOCATE A FILE SPECIFIED WITH AN ABSOLUTE PATH IN THE VISUAL FOXPRO SEARCH PATH
                                September 2024
                 -----------------------------------------------------------------------------------------------------------------
                                     CCB



1. BUG:

     In vfp9 (and vfp6, vfp7, vfp8), if a file specified with an absolute path does not exist,
     it will locate the file in the Visual FoxPro search path.

     In VFP Advanced, if a file specified with an absolute path does not exist,
     it will not locate the file in the Visual FoxPro search path.


2. CAUSE:

     There are some BUGs in the following code.


3. RESOLUTION:

     We can write some code to fix the BUG.

     Label42c764 ::
             pushd 00h                                                       ;0x0042c764 :        6a00
             lea edx ,  dword ptr [ ebp - 48 ]                               ;0x0042c766 :        8d55d0
             push edx                                                        ;0x0042c769 :        52
             lea eax ,  dword ptr [ ebp - 44 ]                               ;0x0042c76a :        8d45d4
             push eax                                                        ;0x0042c76d :        50
             push ebx                                                        ;0x0042c76e :        53
             pushd 00h                                                       ;0x0042c76f :        6a00
             push ebx                                                        ;0x0042c771 :        53
             call Fun42cd23                                                  ;0x0042c772 :        e8ac050000
             test eax , eax                                                  ;0x0042c777 :        85c0
             jne Label42cc7f                                                 ;0x0042c779 :        0f8500050000
             mov ecx , 041h                                                  ;0x0042c77f :        b941000000
             mov esi , ebx                                                   ;0x0042c784 :        8bf3
             lea edi ,  dword ptr [ ebp - 8 ]                                ;0x0042c786 :        8d7df8
             rep movsd                                                       ;0x0042c789 :        f3a5
             lea ecx ,  dword ptr [ ebp - 8 ]                                ;0x0042c78b :        8d4df8
             movsb                                                           ;0x0042c78e :        a4
             call Fun42c8bb                                                  ;0x0042c78f :        e827010000
             mov  ecx , dword ptr [ ebp + 0118h ]                            ;0x0042c794 :        8b8d18010000
             and ecx , 01h                                                   ;0x0042c79a :        83e101
             push ecx                                                        ;0x0042c79d :        51
             lea edx ,  dword ptr [ ebp - 8 ]                                ;0x0042c79e :        8d55f8
             push edx                                                        ;0x0042c7a1 :        52
             call Fun42c9be                                                  ;0x0042c7a2 :        e817020000
             test eax , eax                                                  ;0x0042c7a7 :        85c0
             jne Label42cc7f                                                 ;0x0042c7a9 :        0f85d0040000
             mov esi , ebx                                                   ;0x0042c7af :        8bf3
             mov  dword ptr [ ebp - 16 ] , eax                               ;0x0042c7b1 :        8945f0
             call Fun435040                                                  ;0x0042c7b4 :        e887880000
             mov  ecx , dword ptr [ Data939390 ]                             ;0x0042c7b9 :        8b0d90939300
             test ecx , ecx                                                  ;0x0042c7bf :        85c9
             mov  dword ptr [ ebp - 32 ] , eax                               ;0x0042c7c1 :        8945e0
             jne Label598a24                                                 ;0x0042c7c4 :        0f855ac21600

     Label42c7ca ::
             mov  ecx , dword ptr [ ebp + 0114h ]                            ;0x0042c7ca :        8b8d14010000


     ;
     ;                 ------------------------------------------------------------------------------------------------------
     ;                      VFP 9.0 FIX - LOCATE A FILE SPECIFIED WITH AN ABSOLUTE PATH IN THE VISUAL FOXPRO SEARCH PATH
     ;                                September 2024
     ;                 ------------------------------------------------------------------------------------------------------
     ;                                     CCB
     ;
     ; Locate a file specified with an absolute path in the Visual FoxPro search path.
     ;
     ; 2024/9/29, by ccb
     ;

             mov eax , dword ptr [ ebp - 24 ]
             mov dword ptr [ ebp - 24 ] , ecx
             cmp byte ptr [ecx] , 00h
             je Label42cc7f

             cmp dword ptr vfpa_sys9173_data,0FFFFFFFEh
             je Label42c7cb
             cmp dword ptr vfpa_sys9173_data,0FFFFFFFFh
             je Label42c7cc
             cmp dword ptr vfpa_sys9173_data,00h
             je Label42c7cd
             jmp Label42c7d0

     Label42c7cb ::
             cmp word ptr [eax] , 05C5Ch
             je Label42cc7f
             cmp word ptr [ eax + 1 ] , 05C3Ah
             je Label42cc7f
             cmp byte ptr [ eax + 1 ] , 03Ah
             je Label42cc7f
             cmp byte ptr [eax] , 05Ch
             je Label42cc7f
             jmp Label42c7d0

     Label42c7cc ::
             cmp word ptr [eax] , 05C5Ch
             je Label42cc7f
             cmp word ptr [ eax + 1 ] , 05C3Ah
             je Label42cc7f
             cmp byte ptr [ eax + 1 ] , 03Ah
             je Label42cc7f
             jmp Label42c7d0

     Label42c7cd ::
             cmp word ptr [eax] , 05C5Ch
             je Label42cc7f
             cmp word ptr [ eax + 1 ] , 05C3Ah
             je Label42cc7f
             jmp Label42c7d0


     Label42c7d0 ::
             cmp  byte ptr [ecx] , 00h                                       ;0x0042c7d0 :        803900
             mov  dword ptr [ ebp - 24 ] , ecx                               ;0x0042c7d3 :        894de8
             je Label42cc7f                                                  ;0x0042c7d6 :        0f84a3040000
             xor edx , edx                                                   ;0x0042c7dc :        33d2
             mov eax , ecx                                                   ;0x0042c7de :        8bc1
             mov  dword ptr [ ebp - 20 ] , edx                               ;0x0042c7e0 :        8955ec
             mov edi , edi                                                   ;0x0042c7e3 :        8bff

     Label42c7e5 ::
             test edx , edx                                                  ;0x0042c7e5 :        85d2
             jne Label42c805                                                 ;0x0042c7e7 :        751c
             mov  bl , byte ptr [eax]                                        ;0x0042c7e9 :        8a18
             cmp bl , 03Bh                                                   ;0x0042c7eb :        80fb3b
             je Label41380d                                                  ;0x0042c7ee :        0f841970feff
             cmp bl , 02Ch                                                   ;0x0042c7f4 :        80fb2c
             je Label41380d                                                  ;0x0042c7f7 :        0f841070feff

     Label42c7fd ::
             mov  bl , byte ptr [ eax + 1 ]                                  ;0x0042c7fd :        8a5801
             inc eax                                                         ;0x0042c800 :        40
             test bl , bl                                                    ;0x0042c801 :        84db
             jne Label42c7e5                                                 ;0x0042c803 :        75e0

     Label42c805 ::
             test edx , edx                                                  ;0x0042c805 :        85d2
             mov  dword ptr [ ebp - 20 ] , edx                               ;0x0042c807 :        8955ec
             jne Label413814                                                 ;0x0042c80a :        0f850470feff
             mov eax , ecx                                                   ;0x0042c810 :        8bc1
             lea esi ,  dword ptr [ eax + 1 ]                                ;0x0042c812 :        8d7001
             lea esp ,  dword ptr [ esp ]                                    ;0x0042c815 :        8d2424

     Label42c818 ::
             mov  dl , byte ptr [eax]                                        ;0x0042c818 :        8a10
             inc eax                                                         ;0x0042c81a :        40
             test dl , dl                                                    ;0x0042c81b :        84d2
             jne Label42c818                                                 ;0x0042c81d :        75f9
             sub eax , esi                                                   ;0x0042c81f :        2bc6

     Label42c821 ::
             push eax                                                        ;0x0042c821 :        50
             mov  dword ptr [ ebp - 28 ] , eax                               ;0x0042c822 :        8945e4
             lea eax ,  dword ptr [ ebp - 36 ]                               ;0x0042c825 :        8d45dc
             push eax                                                        ;0x0042c828 :        50
             call Fun434a5b                                                  ;0x0042c829 :        e82d820000

     Label42c82e ::
             lea edx ,  dword ptr [ ebp - 40 ]                               ;0x0042c82e :        8d55d8
             lea eax ,  dword ptr [ ebp - 128 ]                              ;0x0042c831 :        8d4580
             call Fun42c27f                                                  ;0x0042c834 :        e846faffff
             pushd 00h                                                       ;0x0042c839 :        6a00
             push eax                                                        ;0x0042c83b :        50
             call Fun42c2be                                                  ;0x0042c83c :        e87dfaffff
             mov esi , eax                                                   ;0x0042c841 :        8bf0
             add esp , 08h                                                   ;0x0042c843 :        83c408
             test esi , esi                                                  ;0x0042c846 :        85f6
             jne Label42c85b                                                 ;0x0042c848 :        7511
             mov  ecx , dword ptr [ ebp - 32 ]                               ;0x0042c84a :        8b4de0
             push ecx                                                        ;0x0042c84d :        51
             lea edx ,  dword ptr [ ebp - 36 ]                               ;0x0042c84e :        8d55dc
             push edx                                                        ;0x0042c851 :        52
             lea eax ,  dword ptr [ ebp - 8 ]                                ;0x0042c852 :        8d45f8
             push eax                                                        ;0x0042c855 :        50
             call Fun42c5c5                                                  ;0x0042c856 :        e86afdffff

     Label42c85b ::
             mov eax ,  dword ptr [ Data937220 ]                             ;0x0042c85b :        a120729300
             lea ecx ,  dword ptr [ ebp - 128 ]                              ;0x0042c860 :        8d4d80
             cmp ecx , eax                                                   ;0x0042c863 :        3bc8
             jne Label598a31                                                 ;0x0042c865 :        0f85c6c11600
             mov  edx , dword ptr [ Data937220 ]                             ;0x0042c86b :        8b1520729300
             mov  eax , dword ptr [ edx + 76 ]                               ;0x0042c871 :        8b424c
             cmp  dword ptr [ ebp - 40 ] , eax                               ;0x0042c874 :        3945d8
             mov dword ptr [ Data937220 ] ,  eax                             ;0x0042c877 :        a320729300
             jne Label598a3b                                                 ;0x0042c87c :        0f85b9c11600
             test esi , esi                                                  ;0x0042c882 :        85f6
             jne Label598a45                                                 ;0x0042c884 :        0f85bbc11600

     Label42c88a ::
             mov  eax , dword ptr [ ebp + 0118h ]                            ;0x0042c88a :        8b8518010000
             and eax , 01h                                                   ;0x0042c890 :        83e001
             push eax                                                        ;0x0042c893 :        50
             lea ecx ,  dword ptr [ ebp - 8 ]                                ;0x0042c894 :        8d4df8
             push ecx                                                        ;0x0042c897 :        51
             call Fun42c9be                                                  ;0x0042c898 :        e821010000
             test eax , eax                                                  ;0x0042c89d :        85c0
             mov  dword ptr [ ebp - 16 ] , eax                               ;0x0042c89f :        8945f0
             jne Label598a67                                                 ;0x0042c8a2 :        0f85bfc11600

     Label42c8a8 ::
             mov  eax , dword ptr [ ebp - 20 ]                               ;0x0042c8a8 :        8b45ec
             test eax , eax                                                  ;0x0042c8ab :        85c0
             jne Label41381d                                                 ;0x0042c8ad :        0f856a6ffeff
             mov  ebx , dword ptr [ ebp - 12 ]                               ;0x0042c8b3 :        8b5df4
             jmp Label42cc7f                                                 ;0x0042c8b6 :        e9c4030000


4. APPLIES TO:

     VFP 6.0.8167.0
     VFP 6.0.8961.0 (SP5)

     VFP 7.0.0.9262
     VFP 7.0.0.9465 (SP1)

     VFP 8.0.0.2521
     VFP 8.0.0.3117 (SP1)

     VFP 9.0.0.2412
     VFP 9.0.0.3504 (SP1)
     VFP 9.0.0.4611 (SP2)
     VFP 9.0.0.5015 (SP2)
     VFP 9.0.0.5411 (SP2)
     VFP 9.0.0.5721 (SP2)
     VFP 9.0.0.5815 (SP2)
     VFP 9.0.0.6303 (SP2)
     VFP 9.0.0.6602 (SP2)
     VFP 9.0.0.7423 (SP2)

     The bug has been fixed in VFP Advanced.


5. REFERENCE WEBSITES:

     1, baiyujia.com:
     http://www.baiyujia.com
     http://www.baiyujia.com/vfpdocuments/f_vfp9fix354.asp
     http://www.baiyujia.com/vfpdocuments/f_vfp9fix100.asp
     http://www.baiyujia.com/vfpdocuments/f_vfp9fix102.asp
     http://www.baiyujia.com/vfpdocuments/f_vfp9fix103.asp
     http://www.baiyujia.com/vfpdocuments/f_vfp9fix287.asp

     2, microsoft.com:
     https://learn.microsoft.com/en-us/dotnet/standard/io/file-path-formats


6. OTHER:

     For reference only, there is no guarantees.

     Any questions or suggestions, please send me an email at ccb2000@163.com.