paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 09:11:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed DeleteFile()

Browse Source
This commit is contained in:
peter 1999-08-24 13:14:28 +00:00
parent 06a845c5e8
commit 98fb19f0b0
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/go32v2/filutil.inc
View File

@ -293,7 +293,7 @@ var Regs: registers;
begin begin
StringToTB(FileName); StringToTB(FileName);
Regs.Edx := tb_offset; Regs.Edx := tb_offset;
Regs.Ds := tb_offset; Regs.Ds := tb_segment;
if LFNSupport then if LFNSupport then
Regs.Eax := $7141 Regs.Eax := $7141
else else
@ -350,9 +350,9 @@ SystemTime.Day := Regs.Dl;
end ; end ;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
Internationalization settings Internationalization settings
---------------------------------------------------------------------} ---------------------------------------------------------------------}
{ Codepage constants } { Codepage constants }
const const
@ -421,13 +421,13 @@ for i := 91 to 255 do
{ Get country and codepage info } { Get country and codepage info }
GetExtendedCountryInfo(1, $FFFF, $FFFF, CountryInfo); GetExtendedCountryInfo(1, $FFFF, $FFFF, CountryInfo);
if CountryInfo.CodePage = 850 then if CountryInfo.CodePage = 850 then
begin begin
{ Special, known case } { Special, known case }
Move(CP850UCT, UpperCaseTable[128], 128); Move(CP850UCT, UpperCaseTable[128], 128);
Move(CP850LCT, LowerCaseTable[128], 128); Move(CP850LCT, LowerCaseTable[128], 128);
end end
else else
begin begin
{ this needs to be checked !! { this needs to be checked !!
this is correct only if UpperCaseTable is this is correct only if UpperCaseTable is
@ -435,7 +435,7 @@ else
{ get the uppercase table from dosmemory } { get the uppercase table from dosmemory }
GetExtendedCountryInfo(2, $FFFF, $FFFF, CountryInfo); GetExtendedCountryInfo(2, $FFFF, $FFFF, CountryInfo);
DosMemGet(CountryInfo.UpperCaseTable shr 16, 2 + CountryInfo.UpperCaseTable and 65535, UpperCaseTable[128], 128); DosMemGet(CountryInfo.UpperCaseTable shr 16, 2 + CountryInfo.UpperCaseTable and 65535, UpperCaseTable[128], 128);
for i := 128 to 255 do for i := 128 to 255 do
begin begin
if UpperCaseTable[i] <> chr(i) then if UpperCaseTable[i] <> chr(i) then
LowerCaseTable[ord(UpperCaseTable[i])] := chr(i); LowerCaseTable[ord(UpperCaseTable[i])] := chr(i);
@ -454,7 +454,10 @@ end;
{ {
$Log$ $Log$
Revision 1.6 1999-08-19 14:00:08 pierre Revision 1.7 1999-08-24 13:14:28 peter
* fixed DeleteFile()
Revision 1.6 1999/08/19 14:00:08 pierre
* bug in country info code fixed * bug in country info code fixed
Revision 1.5 1999/02/28 13:18:12 michael Revision 1.5 1999/02/28 13:18:12 michael