paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-16 13:28:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* enabled version and description directive for all windows

Browse Source 
git-svn-id: trunk@13447 -
This commit is contained in:
florian 2009-07-25 22:06:37 +00:00
parent 1a843608ad
commit caf0096877
2 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/gendef.pas
View File

@ -111,7 +111,6 @@ begin
{$I-}
if ioresult<>0 then
exit;
{$ifdef i386}
case target_info.system of
system_i386_Os2, system_i386_emx:
begin
@ -125,15 +124,19 @@ begin
writeln(t,'STACKSIZE'#9+tostr(stacksize));
writeln(t,'HEAPSIZE'#9+tostr(heapsize));
end;
system_i386_win32, system_i386_wdosx :
begin
if description<>'' then
writeln(t,'DESCRIPTION '+''''+description+'''');
if dllversion<>'' then
writeln(t,'VERSION '+dllversion);
end;
system_i386_win32,
system_x86_64_win64,
system_ia64_win64,
system_arm_wince,
system_i386_wince,
system_i386_wdosx :
begin
if description<>'' then
writeln(t,'DESCRIPTION '+''''+description+'''');
if dllversion<>'' then
writeln(t,'VERSION '+dllversion);
end;
end;
{$endif}
{write imports}
if not importlist.empty then

8
compiler/scandir.pas
View File

@ -312,8 +312,8 @@ unit scandir;
procedure dir_description;
begin
if not (target_info.system in [system_i386_os2,system_i386_emx,
system_i386_win32,system_i386_netware,system_i386_wdosx,system_i386_netwlibc]) then
if not (target_info.system in system_all_windows+[system_i386_os2,system_i386_emx,
system_i386_netware,system_i386_wdosx,system_i386_netwlibc]) then
Message(scan_w_description_not_support);
{ change description global var in all cases }
{ it not used but in win32, os2 and netware }
@ -1100,8 +1100,8 @@ unit scandir;
major, minor, revision : longint;
error : integer;
begin
if not (target_info.system in [system_i386_os2,system_i386_emx,
system_i386_win32,system_i386_netware,system_i386_wdosx,
if not (target_info.system in system_all_windows+[system_i386_os2,system_i386_emx,
system_i386_netware,system_i386_wdosx,
system_i386_netwlibc]) then
begin
Message(scan_n_version_not_support);