Баг RTL: файл открытый первым не закрывается под голым Wine

[Vapaamies]

Так что, коллеги, лажает скорее Wine

Я тоже так думаю.

[Sergei I. Gorelkin]

По крайней мере wine ведет себя не так, как винда, потому что иначе на эти грабли наступили бы гораздо раньше.

[Mirage]

Так что, коллеги, лажает скорее Wine, чем RTL - не должно бы ей под пользовательские файлы отдавать дескрипторы ниже пятого.
Ибо "стандартный принтер" с дескриптором 4 во всех виндовс до миллениума влючительно был гарантированно и печатал в обход драйвера на порт LPT, начиная с XP этот поток вроде как перехватывался драйвером и направлялся как plain text на принтер по умолчанию

А магическая константа в коде, без каких-либо комментариев, это разве не лажа?
По мне, так самая что ни на есть.

[pda]

Так что, коллеги, лажает скорее Wine, чем RTL - не должно бы ей под пользовательские файлы отдавать дескрипторы ниже пятого.
Ибо "стандартный принтер" с дескриптором 4 во всех виндовс до миллениума влючительно был гарантированно и печатал в обход драйвера на порт LPT

Теперь ещё бы понять почему его надо защизать от закрытия. Ещё можно понять зачем stdin/stdout/stderr защищать (хотя на мой взгляд это дурная практика).

[SSerge]

понять почему его надо защизать от закрытия

Потому что нельзя закрывать поток системного принтера. Вот нельзя и всё. Закроешь - останешься без принтера до следующей перезагрузки, потому что некому будет открыть его стандартный дескриптор. Точно также и AUX. Опять же смотрим, откуда это все идёт. Вот такие вот MS-DOS и CP/M операционные системы были

[pda]

Закроешь - останешься без принтера до следующей перезагрузки,

Это как? В венде эти хендлы все per-process же. В DOS COMx/LPT тоже вроде открывать/закрывать можно было. Или перезагрузки программы? Да по фиг. Если программист в своей программе что-то закрывает, то он должен значть что делает.

[скалогрыз]

Баг RTL - просто убрать проверку в FileClose() и всё.

Ни FileCreate, ни FileRead, ни FileWrite, ни FileClose().
Код

Код: Выделить всё

  FileWrite(0, 'blah', length('blah'));

тоже не работает, а значит поддержки DOS-совместимых "стандартных устройств" - нет.

Теперь, пишем проверку на безопасность закрытия

Код: Выделить всё

uses Windows, SysUtils;
var
  flags : LongWord;
  i : integer;
  err : LongWord;
  hnd : THandle;
begin
  flags :=0;
  for i:=0 to 20 do begin
    hnd:=THandle(i);
    write(hnd,' ');
    if Windows.GetHandleInformation(hnd, flags) then
      write('is handle: ',IntToHex(flags, 8))
    else begin
      err:= GetLastError;
      if err = ERROR_INVALID_HANDLE then write('invalid handle')
      else write('error: ', err );

      write(' closing ');
      Windows.CloseHandle(hnd);
      err:=GetLastError;
      if err = ERROR_INVALID_HANDLE then write('inavlid handle')
      else write('error: ', err);
    end;
    writeln;
  end;
end. 

Попытка закрытия (неправильных) хендлов 0,1, 2,3 - приводит к ожидаемому результату. CloseHandle ругается и возвращает ERROR_INVALID_HANDLE.
Есть кому в 9х проверить?
Так или иначе - ненужную непонятную проверку из win RTL нужно убрать. Wine работает как надо.

[Cheb]

Пропробовал выставить в вайне "совместимость с Windows 98" для программы - не помогло.

[скалогрыз]

Пропробовал выставить в вайне "совместимость с Windows 98" для программы - не помогло.

не должно помочь. Единственно что поможет - убрать проверку из RTL, как ненужную и вредную.