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.
http://bugs.winehq.com/show_bug.cgi?id=787
Summary: wine-20020605 compile error (`perl_parse' from
incompatible pointer type)
Product: Wine
Version: CVS
Platform: PC
OS/Version: Linux
Status: NEW
Severity: blocker
Priority: P5
Component: test
AssignedTo: wine-bugs(a)winehq.com
ReportedBy: corporal_pisang(a)counter-strike.com.my
Im currently using Wine 20020509, Im having problem compiling 20020605.
The error as follows:
make[2]: Entering directory `/usr/src/wine-20020605/programs/winetest'
gcc -c -I. -I. -I../../include -I../../include `perl -MExtUtils::Embed -e
perl_inc` -g -O2 -Wall -mpreferred-stack-boundary=2 -fPIC -DSTRICT
-DNONAMELESSUNION -DNONAMELESSSTRUCT `perl -MExtUtils::Embed -e ccflags`
-D_REENTRANT -I/usr/X11R6/include -o winetest.o winetest.c
winetest.c: In function `xs_init':
winetest.c:158: `my_perl' undeclared (first use in this function)
winetest.c:158: (Each undeclared identifier is reported only once
winetest.c:158: for each function it appears in.)
winetest.c:158: warning: passing arg 3 of `Perl_newXS' from incompatible pointer
type
winetest.c: In function `main':
winetest.c:178: warning: passing arg 2 of `perl_parse' from incompatible pointer
type
make[2]: *** [winetest.o] Error 1
make[2]: Leaving directory `/usr/src/wine-20020605/programs/winetest'
make[1]: *** [winetest] Error 2
make[1]: Leaving directory `/usr/src/wine-20020605/programs'
make: *** [programs] Error 2
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=786
tom(a)platte.com changed:
What |Removed |Added
----------------------------------------------------------------------------
Severity|normal |critical
Version|unspecified |20020509
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=786>.
ANY REPLY MADE TO THIS MESSAGE WILL NOT BE COLLECTED AND
INSERTED IN THE BUG DATABASE.