http://bugs.winehq.com/show_bug.cgi?id=788
------- Additional Comments From gary(a)evalunet.co.za 2002-06-12 10:17 -------
Created an attachment (id=174)
Source and Executable (zipped)
DO NOT REPLY TO THIS EMAIL, BUT PLEASE POST YOUR BUG
RELATED COMMENTS THROUGH THE WEB INTERFACE AVAILABLE AT
<http://bugs.winehq.com/show_bug.cgi?id=788>.
ANY REPLY MADE TO THIS MESSAGE WILL NOT BE COLLECTED AND
INSERTED IN THE BUG DATABASE.
http://bugs.winehq.com/show_bug.cgi?id=788
------- Additional Comments From gary(a)evalunet.co.za 2002-06-12 10:14 -------
The program seems to operate just fine apart from displaying that message when
it runs.
DO NOT REPLY TO THIS EMAIL, BUT PLEASE POST YOUR BUG
RELATED COMMENTS THROUGH THE WEB INTERFACE AVAILABLE AT
<http://bugs.winehq.com/show_bug.cgi?id=788>.
ANY REPLY MADE TO THIS MESSAGE WILL NOT BE COLLECTED AND
INSERTED IN THE BUG DATABASE.
http://bugs.winehq.com/show_bug.cgi?id=788
------- Additional Comments From gary(a)evalunet.co.za 2002-06-12 10:11 -------
The program was compiled using Delphi 5 commandline compiler running under wine.
DO NOT REPLY TO THIS EMAIL, BUT PLEASE POST YOUR BUG
RELATED COMMENTS THROUGH THE WEB INTERFACE AVAILABLE AT
<http://bugs.winehq.com/show_bug.cgi?id=788>.
ANY REPLY MADE TO THIS MESSAGE WILL NOT BE COLLECTED AND
INSERTED IN THE BUG DATABASE.
http://bugs.winehq.com/show_bug.cgi?id=788
------- Additional Comments From gary(a)evalunet.co.za 2002-06-12 10:07 -------
Created an attachment (id=173)
Program causing the error
DO NOT REPLY TO THIS EMAIL, BUT PLEASE POST YOUR BUG
RELATED COMMENTS THROUGH THE WEB INTERFACE AVAILABLE AT
<http://bugs.winehq.com/show_bug.cgi?id=788>.
ANY REPLY MADE TO THIS MESSAGE WILL NOT BE COLLECTED AND
INSERTED IN THE BUG DATABASE.
http://bugs.winehq.com/show_bug.cgi?id=788
------- Additional Comments From apa3a(a)yahoo.com 2002-06-12 09:55 -------
Yes, having the executable would be great. Not everybody has Delphi.
What version of Delphi do you use?
DO NOT REPLY TO THIS EMAIL, BUT PLEASE POST YOUR BUG
RELATED COMMENTS THROUGH THE WEB INTERFACE AVAILABLE AT
<http://bugs.winehq.com/show_bug.cgi?id=788>.
ANY REPLY MADE TO THIS MESSAGE WILL NOT BE COLLECTED AND
INSERTED IN THE BUG DATABASE.
http://bugs.winehq.com/show_bug.cgi?id=787
------- Additional Comments From corporal_pisang(a)counter-strike.com.my 2002-06-12 08:30 -------
# gcc --version gcc (GCC) 3.1 # perl --version This is perl, v5.6.1 built for i386-linux-thread-multi RH7.2 updated with rawhide packages
DO NOT REPLY TO THIS EMAIL, BUT PLEASE POST YOUR BUG
RELATED COMMENTS THROUGH THE WEB INTERFACE AVAILABLE AT
<http://bugs.winehq.com/show_bug.cgi?id=787>.
ANY REPLY MADE TO THIS MESSAGE WILL NOT BE COLLECTED AND
INSERTED IN THE BUG DATABASE.
http://bugs.winehq.com/show_bug.cgi?id=788
------- Additional Comments From gary(a)evalunet.co.za 2002-06-12 08:13 -------
The installation of wine is a pure wine installation - there are no Microsoft
supplied files on the machine.
DO NOT REPLY TO THIS EMAIL, BUT PLEASE POST YOUR BUG
RELATED COMMENTS THROUGH THE WEB INTERFACE AVAILABLE AT
<http://bugs.winehq.com/show_bug.cgi?id=788>.
ANY REPLY MADE TO THIS MESSAGE WILL NOT BE COLLECTED AND
INSERTED IN THE BUG DATABASE.
http://bugs.winehq.com/show_bug.cgi?id=788
------- Additional Comments From gary(a)evalunet.co.za 2002-06-12 08:12 -------
The compiled executable can be supplied too if desired.
DO NOT REPLY TO THIS EMAIL, BUT PLEASE POST YOUR BUG
RELATED COMMENTS THROUGH THE WEB INTERFACE AVAILABLE AT
<http://bugs.winehq.com/show_bug.cgi?id=788>.
ANY REPLY MADE TO THIS MESSAGE WILL NOT BE COLLECTED AND
INSERTED IN THE BUG DATABASE.
http://bugs.winehq.com/show_bug.cgi?id=788
Summary: Delphi command line program gives err:dosmem:dos_mem
Cannot use first megabyte for DOS address space, please
report
Product: Wine
Version: CVS
Platform: PC
OS/Version: Linux
Status: NEW
Severity: normal
Priority: P2
Component: wine-dos
AssignedTo: wine-bugs(a)winehq.com
ReportedBy: gary(a)evalunet.co.za
The delphi program below gives the error when run with wine:
gary@larry:~/tmp/brainy$ wine -- tools/MakeMakefiles/MakeMakefiles.exe
err:dosmem:setup_dos_mem Cannot use first megabyte for DOS address space,
please report
gary@larry:~/tmp/brainy$ wine --version
Wine 20020605
-- Contents of MakeMakefiles.dpr --
program MakeMakefiles;
uses
Classes, SysUtils, Windows;
const tabchar = #9;
function SubstSpaceIn(s: string; subs: string): string;
var
i : Integer;
begin
Result := '';
for i := 1 to Length(s) do
if (s[i] <> ' ') then
Result := Result + s[i]
else
Result := Result + subs;
end;
procedure WriteSubdirs(var tf: TextFile; DirList: TStringList);
var
i : Integer;
begin
if (DirList.Count = 0) then
begin
Writeln(tf,'SUBDIRS = ');
Exit;
end;
Writeln(tf,'SUBDIRS = \');
for i := 0 to DirList.Count-1 do
Writeln(tf,' ' + SubstSpaceIn(DirList[i],'_') + '\');
end;
function GetTargetList(DprList: TStringList): string;
var
i: Integer;
begin
Result := '';
for i := 0 to DprList.Count-1 do
Result := Result + ChangeFileExt(DprList[i],'.exe') + ' ';
Result := Trim(Result);
end;
procedure WriteUnsafeDirs(var tf: TextFile; DirList: TStringList);
var
i: Integer;
begin
for i := 0 to DirList.Count-1 do
if (DirList[i] <> SubstSpaceIn(DirList[i],'_')) then
begin
Writeln(tf,SubstSpaceIn(DirList[i],'_')+':');
Writeln(tf,tabchar + 'ln -s ' + SubstSpaceIn(DirList[i],'\ ') +
' ' + SubstSpaceIn(DirList[i],'_'));
end;
end;
function GetUnsafeDirs(DirList: TStringList) : string;
var
i: Integer;
begin
Result := '';
for i := 0 to DirList.Count-1 do
if (DirList[i] <> SubstSpaceIn(DirList[i],'_')) then
Result := Result + SubstSpaceIn(DirList[i],'_') + ' ';
Result := Trim(Result);
end;
procedure WriteMakefiles(dir : string; DprList, DirList : TStringList);
var
tf : TextFile;
begin
AssignFile(tf, dir + 'Makefile');
Rewrite(tf);
Writeln(tf,'RM=rm -f');
Writeln(tf,'DCC = wine -- /usr/local/delphi/Bin/dcc32.exe');
Writeln(tf,'TODOS = todos');
Writeln(tf,'FROMDOS = fromdos');
Writeln(tf,'CONVERT = wine -- /usr/local/delphi/Bin/convert.exe -i -t');
Writeln(tf,'');
Writeln(tf,'PASFILES = $(wildcard *.pas)');
Writeln(tf,'DPRFILES = $(wildcard *.dpr)');
Writeln(tf,'DFMFILES = $(wildcard *.dfm)');
Writeln(tf,'DOFFILES = $(wildcard *.dof)');
Writeln(tf,'CFGFILES = $(wildcard *.cfg)');
Writeln(tf,'SRCFILES = $(PASFILES) $(DFMFILES) $(DPRFILES) $(DOFFILES)
$(CFGFILES)');
WriteSubdirs(tf,DirList);
Writeln(tf,'');
Writeln(tf,'.PHONY: all clean convert convertfiles dummy fixup fixuphere
fromdos todos');
Writeln(tf,'');
Writeln(tf,'all: $(SUBDIRS) ' + GetTargetList(DprList));
Writeln(tf,'');
Writeln(tf,'dummy:');
Writeln(tf,'');
Writeln(tf,'fixuphere: dummy');
Writeln(tf,tabchar + 'make -f Makefile.fixup fixup');
Writeln(tf,'');
Writeln(tf,'fixup: fixuphere $(SUBDIRS:%=%/__fixup__)');
Writeln(tf,'');
Writeln(tf,'%.exe : %.dpr');
Writeln(tf,tabchar + '$(DCC) $<');
Writeln(tf,'');
Writeln(tf,'$(SUBDIRS): dummy');
Writeln(tf,tabchar + '@cd $@ && $(MAKE)');
Writeln(tf,'');
Writeln(tf,'$(SUBDIRS:%=%/__clean__): dummy');
Writeln(tf,tabchar + 'cd `dirname $@` && $(MAKE) clean');
Writeln(tf,'');
Writeln(tf,'$(SUBDIRS:%=%/__todos__): dummy');
Writeln(tf,tabchar + 'cd `dirname $@` && $(MAKE) todos');
Writeln(tf,'');
Writeln(tf,'$(SUBDIRS:%=%/__fromdos__): dummy');
Writeln(tf,tabchar + 'cd `dirname $@` && $(MAKE) fromdos');
Writeln(tf,'');
Writeln(tf,'$(SUBDIRS:%=%/__convert__): dummy');
Writeln(tf,tabchar + 'cd `dirname $@` && $(MAKE) convert');
Writeln(tf,'');
Writeln(tf,'$(SUBDIRS:%=%/__precvsclean__): dummy');
Writeln(tf,tabchar + 'cd `dirname $@` && $(MAKE) precvsclean');
Writeln(tf,'');
Writeln(tf,'$(SUBDIRS:%=%/__fixup__): dummy');
Writeln(tf,tabchar + 'cd `dirname $@` && $(MAKE) fixup');
Writeln(tf,'');
Writeln(tf,'$(SRCFILES:%=%/__todos__): dummy');
Writeln(tf,tabchar + '$(TODOS) `dirname $@`');
Writeln(tf,'');
Writeln(tf,'$(SRCFILES:%=%/__fromdos__): dummy');
Writeln(tf,tabchar + '$(FROMDOS) `dirname $@`');
Writeln(tf,'');
Writeln(tf,'convertfiles: $(DFMFILES)');
Writeln(tf,tabchar + '$(CONVERT) $^');
Writeln(tf,'');
Writeln(tf,'clean: $(SUBDIRS:%=%/__clean__)');
Writeln(tf,tabchar + '$(RM) *.dcu *.exe');
Writeln(tf,'');
Writeln(tf,'todos: $(SUBDIRS:%=%/__todos__) $(SRCFILES:%=%/__todos__)');
Writeln(tf,'fromdos: $(SUBDIRS:%=%/__fromdos__) $(SRCFILES:%=%/__fromdos__)');
Writeln(tf,'convert: $(SUBDIRS:%=%/__convert__) convertfiles');
CloseFile(tf);
AssignFile(tf, dir + 'Makefile.fixup');
Rewrite(tf);
Writeln(tf,'fixup: dummy ' + GetUnsafeDirs(DirList));
Writeln(tf,'.phony: dummy fixup');
Writeln(tf,'dummy:');
Writeln(tf,'');
WriteUnsafeDirs(tf,DirList);
CloseFile(tf);
end;
procedure ProcessDirectory(dir : string);
var
FindFileData : WIN32_FIND_DATA;
hFind : THandle;
res : BOOL;
attrs : DWORD;
DprList : TStringList;
DirList : TStringList;
begin
DprList := TStringList.Create;
DirList := TStringList.Create;
hFind := FindFirstFile(PChar(dir + '*.*'), FindFileData);
if (hFind <> INVALID_HANDLE_VALUE) then
res := True
else
res := False;
while (res)do
begin
if (('.' <> string(FindFileData.cFileName)) and
(string(FindFileData.cFileName) <> '..') and
(string(FindFileData.cFileName) <> 'CVS') and
(string(FindFileData.cFileName) <> 'Data') and
(string(FindFileData.cFileName) <> 'Output')) then
begin
attrs := GetFileAttributes(PChar(dir + FindFileData.cFileName));
if ((attrs and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) then
begin
ProcessDirectory(IncludeTrailingBackslash(dir +
FindFileData.cFileName));
DirList.Add(FindFileData.cFileName);
end else
if (UpperCase(ExtractFileExt(FindFileData.cFileName)) = '.DPR') then
DprList.Add(FindFileData.cFileName);
end;
res := FindNextFile(hFind, FindFileData);
end;
Windows.FindClose(hFind);
WriteMakefiles(dir,DprList,DirList);
DprList.Free;
DirList.Free;
end;
begin
if (ParamCount <> 1) then
Exit;
ProcessDirectory(IncludeTrailingBackslash(ParamStr(1)));
end.
DO NOT REPLY TO THIS EMAIL, BUT PLEASE POST YOUR BUG
RELATED COMMENTS THROUGH THE WEB INTERFACE AVAILABLE AT
<http://bugs.winehq.com/show_bug.cgi?id=788>.
ANY REPLY MADE TO THIS MESSAGE WILL NOT BE COLLECTED AND
INSERTED IN THE BUG DATABASE.
http://bugs.winehq.com/show_bug.cgi?id=787
------- Additional Comments From apa3a(a)yahoo.com 2002-06-12 06:57 -------
Ubaida, what is your OS version/Distribution?
DO NOT REPLY TO THIS EMAIL, BUT PLEASE POST YOUR BUG
RELATED COMMENTS THROUGH THE WEB INTERFACE AVAILABLE AT
<http://bugs.winehq.com/show_bug.cgi?id=787>.
ANY REPLY MADE TO THIS MESSAGE WILL NOT BE COLLECTED AND
INSERTED IN THE BUG DATABASE.