paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-22 10:01:33 +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
StringToTB(FileName);
Regs.Edx := tb_offset;
Regs.Ds := tb_offset;
Regs.Ds := tb_segment;
if LFNSupport then
Regs.Eax := $7141
else
@ -350,9 +350,9 @@ SystemTime.Day := Regs.Dl;
end ;
{ ---------------------------------------------------------------------
Internationalization settings
Internationalization settings
---------------------------------------------------------------------}
{ Codepage constants }
const
@ -421,13 +421,13 @@ for i := 91 to 255 do
{ Get country and codepage info }
GetExtendedCountryInfo(1, $FFFF, $FFFF, CountryInfo);
if CountryInfo.CodePage = 850 then
if CountryInfo.CodePage = 850 then
begin
{ Special, known case }
Move(CP850UCT, UpperCaseTable[128], 128);
Move(CP850LCT, LowerCaseTable[128], 128);
end
else
else
begin
{ this needs to be checked !!
this is correct only if UpperCaseTable is
@ -435,7 +435,7 @@ else
{ get the uppercase table from dosmemory }
GetExtendedCountryInfo(2, $FFFF, $FFFF, CountryInfo);
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
if UpperCaseTable[i] <> chr(i) then
LowerCaseTable[ord(UpperCaseTable[i])] := chr(i);
@ -454,7 +454,10 @@ end;
{
$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
Revision 1.5 1999/02/28 13:18:12 michael