paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 01:48:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* disable packages which do not build on msdos

Browse Source 
git-svn-id: trunk@25236 -
This commit is contained in:
florian 2013-08-11 16:12:34 +00:00
parent ff3bb9322a
commit 6377c180bf
26 changed files with 55 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/bzip2/fpmake.pp
View File

@ -28,7 +28,7 @@ begin
P.Email := '';
P.Description := 'BZip2 decompression unit.';
P.NeedLibC:= true;
P.OSes := P.OSes - [embedded,nativent];
P.OSes := P.OSes - [embedded,nativent,msdos];
P.SourcePath.Add('src');
P.IncludePath.Add('src');

2
packages/chm/fpmake.pp
View File

@ -25,7 +25,7 @@ begin
P.Email := '';
P.Description := 'Standalone CHM reader and writer library';
P.NeedLibC:= false;
P.OSes := P.OSes - [embedded,nativent];
P.OSes := P.OSes - [embedded,nativent,msdos];
D:=P.Dependencies.Add('fcl-xml');
D:=P.Dependencies.Add('fcl-base');

2
packages/fcl-base/fpmake.pp
View File

@ -25,7 +25,7 @@ begin
P.Email := '';
P.Description := 'Base library of Free Component Libraries(FCL), FPC''s OOP library.';
P.NeedLibC:= false;
P.OSes:=AllOSes-[embedded];
P.OSes:=AllOSes-[embedded,msdos];
P.SourcePath.Add('src');
P.SourcePath.Add('src/$(OS)');

12
packages/fcl-base/src/contnrs.pp
View File

@ -190,9 +190,15 @@ type
PHashItem=^THashItem;
const
{$ifdef CPU16}
MaxHashListSize = maxsmallint div 16;
MaxHashStrSize = maxsmallint;
MaxHashTableSize = maxsmallint div 4;
{$else CPU16}
MaxHashListSize = Maxint div 16;
MaxHashStrSize = Maxint;
MaxHashTableSize = Maxint div 4;
{$endif CPU16}
MaxItemsPerHash = 3;
type
@ -2258,7 +2264,7 @@ begin
if Assigned(N) then
Result:=N.Data
else
Result:=Nil;
Result:=Nil;
end;
function TFPDataHashTable.ForEachCall(aMethod: TDataIteratorMethod): THTDataNode;
@ -2347,7 +2353,7 @@ begin
if Assigned(N) then
Result:=N.Data
else
Result:='';
Result:='';
end;
function TFPStringHashTable.ForEachCall(aMethod: TStringIteratorMethod): THTStringNode;
@ -2433,7 +2439,7 @@ begin
if Assigned(N) then
Result:=N.Data
else
Result:=Nil;
Result:=Nil;
end;
function TFPObjectHashTable.ForEachCall(aMethod: TObjectIteratorMethod): THTObjectNode;

2
packages/fcl-db/fpmake.pp
View File

@ -32,7 +32,7 @@ begin
P.Email := '';
P.Description := 'Database library of Free Component Libraries(FCL), FPC''s OOP library.';
P.NeedLibC:= false;
P.OSes:=AllOSes-[embedded];
P.OSes:=AllOSes-[embedded,msdos];
P.Directory:=ADirectory;
P.Version:='2.7.1';

2
packages/fcl-fpcunit/fpmake.pp
View File

@ -29,7 +29,7 @@ begin
P.Email := '';
P.Description := 'Unit testing system inspired by JUnit of Free Component Libraries (FCL), FPC''s OOP library.';
P.NeedLibC:= false;
P.OSes := P.OSes - [embedded,nativent];
P.OSes := P.OSes - [embedded,nativent,msdos];
P.SourcePath.Add('src');
P.IncludePath.Add('src');

2
packages/fcl-image/fpmake.pp
View File

@ -27,7 +27,7 @@ begin
P.Email := '';
P.Description := 'Image loading and conversion parts of Free Component Libraries (FCL), FPC''s OOP library.';
P.NeedLibC:= false;
P.OSes := P.OSes - [embedded,nativent];
P.OSes := P.OSes - [embedded,nativent,msdos];
P.SourcePath.Add('src');
P.IncludePath.Add('src');

2
packages/fcl-js/fpmake.pp
View File

@ -22,7 +22,7 @@ begin
P.HomepageURL := 'www.freepascal.org';
P.Email := 'michael@freepascal.org';
P.Description := 'Javascript scanner/parser/syntax tree units';
P.OSes:=AllOSes-[embedded];
P.OSes:=AllOSes-[embedded,msdos];
P.SourcePath.Add('src');
P.IncludePath.Add('src');

2
packages/fcl-json/fpmake.pp
View File

@ -24,7 +24,7 @@ begin
P.Email := '';
P.Description := 'Json interfacing, part of Free Component Libraries (FCL), FPC''s OOP library.';
P.NeedLibC:= false;
P.OSes:=AllOSes-[embedded];
P.OSes:=AllOSes-[embedded,msdos];
P.SourcePath.Add('src');

2
packages/fcl-net/fpmake.pp
View File

@ -28,7 +28,7 @@ begin
P.Email := '';
P.Description := 'Network related parts of Free Component Libraries (FCL), FPC''s OOP library.';
P.NeedLibC:= false;
P.OSes:=P.OSes-[embedded];
P.OSes:=P.OSes-[embedded,msdos];
P.SourcePath.Add('src');
P.IncludePath.Add('src/unix',AllUnixOSes);

2
packages/fcl-passrc/fpmake.pp
View File

@ -24,7 +24,7 @@ begin
P.Email := '';
P.Description := 'Pascal parsing parts of Free Component Libraries (FCL), FPC''s OOP library.';
P.NeedLibC:= false;
P.OSes:=AllOSes-[embedded];
P.OSes:=AllOSes-[embedded,msdos];
P.SourcePath.Add('src');

2
packages/fcl-process/fpmake.pp
View File

@ -24,7 +24,7 @@ begin
P.Description := 'Process (execution) related parts of Free Component Libraries (FCL), FPC''s OOP library.';
P.Options.Add('-S2h');
P.NeedLibC:= false;
P.OSes:=AllOSes-[embedded];
P.OSes:=AllOSes-[embedded,msdos];
P.SourcePath.Add('src');
P.IncludePath.Add('src/unix',AllUnixOSes);

2
packages/fcl-registry/fpmake.pp
View File

@ -26,7 +26,7 @@ begin
P.Email := '';
P.Description := 'Windows registry + emulation parts of Free Component Libraries (FCL), FPC''s OOP library.';
P.NeedLibC:= false;
P.OSes:=AllOSes-[embedded];
P.OSes:=AllOSes-[embedded,msdos];
P.SourcePath.Add('src');
P.IncludePath.Add('src');

2
packages/fcl-sdo/fpmake.pp
View File

@ -24,7 +24,7 @@ begin
P.HomepageURL := 'www.freepascal.org';
P.Email := 'inoussa12@gmail.com';
P.Description := 'Free Pascal implementation of Service Data Objects';
P.OSes:=AllOSes-[embedded];
P.OSes:=AllOSes-[embedded,msdos];
// P.NeedLibC:= false;
P.SourcePath.Add('src/base');

2
packages/fcl-xml/fpmake.pp
View File

@ -29,7 +29,7 @@ begin
P.Email := '';
P.Description := 'XML and DOM parts of Free Component Libraries (FCL), FPC''s OOP library.';
P.NeedLibC:= false;
P.OSes:=AllOSes-[embedded];
P.OSes:=AllOSes-[embedded,msdos];
P.SourcePath.Add('src');
P.IncludePath.Add('src');

20
packages/fcl-xml/src/dom.pp
View File

@ -3,7 +3,7 @@
Implementation of DOM interfaces
Copyright (c) 1999-2000 by Sebastian Guenther, sg@freepascal.org
Modified in 2006 by Sergei Gorelkin, sergei_gorelkin@mail.ru
Modified in 2006 by Sergei Gorelkin, sergei_gorelkin@mail.ru
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -100,7 +100,11 @@ type
TNodePool = class;
PNodePoolArray = ^TNodePoolArray;
{$ifdef CPU16}
TNodePoolArray = array[0..MaxSmallInt div sizeof(Pointer)-1] of TNodePool;
{$else CPU16}
TNodePoolArray = array[0..MaxInt div sizeof(Pointer)-1] of TNodePool;
{$endif CPU16}
{$ifndef fpc}
TFPList = TList;
@ -1164,7 +1168,7 @@ begin
while Assigned(parent) and (parent.NodeType <> ELEMENT_NODE) do
parent := parent.ParentNode;
Result := TDOMElement(parent);
end;
end;
end;
// TODO: specs prescribe to return default namespace if APrefix=null,
@ -1201,7 +1205,7 @@ begin
end;
end
end;
end;
end;
result := GetAncestorElement(Self).LookupNamespaceURI(APrefix);
end;
@ -1231,7 +1235,7 @@ begin
begin
result := (nsURI = namespaceURI);
Exit;
end
end
else if HasAttributes then
begin
Map := Attributes;
@ -1384,7 +1388,7 @@ begin
if Assigned(RefChild) and (RefChild.ParentNode <> Self) then
raise EDOMNotFound.Create('NodeWC.InsertBefore');
// TODO: skip checking Fragments as well? (Fragment itself cannot be in the tree)
// TODO: skip checking Fragments as well? (Fragment itself cannot be in the tree)
if not (NewChildType in [TEXT_NODE, CDATA_SECTION_NODE, COMMENT_NODE, PROCESSING_INSTRUCTION_NODE]) and (NewChild.FirstChild <> nil) then
begin
Tmp := Self;
@ -1411,7 +1415,7 @@ begin
raise EDOMHierarchyRequest.Create('NodeWC.InsertBefore');
Tmp := Tmp.NextSibling;
end;
while Assigned(TDOMDocumentFragment(NewChild).FFirstChild) do
InsertBefore(TDOMDocumentFragment(NewChild).FFirstChild, RefChild);
end;
@ -2132,7 +2136,7 @@ begin
Result := -NAMESPACE_ERR;
Exit;
end;
// Name validity has already been checked by IsXmlName() call above.
// Name validity has already been checked by IsXmlName() call above.
// So just check that colon isn't first or last char, and that it is follwed by NameStartChar.
if ((Result = 1) or (Result = L) or not IsXmlName(@QName[Result+1], 1)) then
begin
@ -3021,7 +3025,7 @@ begin
if Assigned(FAttributes) then
for I := 0 to FAttributes.Length - 1 do
FAttributes[I].Normalize;
inherited Normalize;
inherited Normalize;
end;
function TDOMElement.GetAttributes: TDOMNamedNodeMap;

14
packages/fcl-xml/src/xmlutils.pp
View File

@ -80,7 +80,7 @@ type
{$ifndef fpc}
PtrInt = LongInt;
TFPList = TList;
{$endif}
{$endif}
PPHashItem = ^PHashItem;
PHashItem = ^THashItem;
@ -90,7 +90,11 @@ type
Next: PHashItem;
Data: TObject;
end;
{$ifdef CPU16}
THashItemArray = array[0..MaxSmallInt div sizeof(Pointer)-1] of PHashItem;
{$else CPU16}
THashItemArray = array[0..MaxInt div sizeof(Pointer)-1] of PHashItem;
{$endif CPU16}
PHashItemArray = ^THashItemArray;
THashForEach = function(Entry: PHashItem; arg: Pointer): Boolean;
@ -127,7 +131,11 @@ type
lname: PWideChar;
lnameLen: Integer;
end;
{$ifdef CPU16}
TExpHashEntryArray = array[0..MaxSmallInt div sizeof(TExpHashEntry)-1] of TExpHashEntry;
{$else CPU16}
TExpHashEntryArray = array[0..MaxInt div sizeof(TExpHashEntry)-1] of TExpHashEntry;
{$endif CPU16}
PExpHashEntryArray = ^TExpHashEntryArray;
TDblHashArray = class(TObject)
@ -135,7 +143,7 @@ type
FSizeLog: Integer;
FRevision: LongWord;
FData: PExpHashEntryArray;
public
public
procedure Init(NumSlots: Integer);
function Locate(uri: Pointer; localName: PWideChar; localLength: Integer): Boolean;
destructor Destroy; override;
@ -533,7 +541,7 @@ begin
if Assigned(e) then
Result := e^.Data
else
Result := nil;
Result := nil;
end;
function THashTable.Lookup(Key: PWideChar; KeyLength: Integer;

2
packages/fpmkunit/fpmake.pp
View File

@ -24,7 +24,7 @@ begin
P.Email := '';
P.Description := 'Basic library of the fpmake/fppkg build system.';
P.NeedLibC:= false; // true for headers that indirectly link to libc?
P.OSes := P.OSes - [embedded,nativent];
P.OSes := P.OSes - [embedded,nativent,msdos];
// All dependencies (including implicit) are listed
// here to be able to update all requirements to

2
packages/fppkg/fpmake.pp
View File

@ -43,7 +43,7 @@ begin
P.Email := '';
P.Description := 'Libraries to create fppkg package managers.';
P.NeedLibC:= false;
P.OSes := P.OSes - [embedded,nativent];
P.OSes := P.OSes - [embedded,nativent,msdos];
P.SourcePath.Add('src');

2
packages/hermes/fpmake.pp
View File

@ -24,7 +24,7 @@ begin
P.Email := '';
P.Description := 'Library for pixel graphics conversion';
P.NeedLibC := false;
P.OSes:=AllOSes-[embedded];
P.OSes:=AllOSes-[embedded,msdos];
P.SourcePath.Add('src');
P.IncludePath.Add('src');

2
packages/libgd/fpmake.pp
View File

@ -18,7 +18,7 @@ begin
{$endif ALLPACKAGES}
P.Version:='2.7.1';
P.SourcePath.Add('src');
P.OSes := P.OSes - [embedded,nativent];
P.OSes := P.OSes - [embedded,nativent,msdos];
T:=P.Targets.AddUnit('gd.pas');

2
packages/pasjpeg/fpmake.pp
View File

@ -17,7 +17,7 @@ begin
P.Directory:=ADirectory;
{$endif ALLPACKAGES}
P.Version:='2.7.1';
P.OSes:=P.OSes-[embedded];
P.OSes:=P.OSes-[embedded,msdos];
P.SourcePath.Add('src');
P.IncludePath.Add('src');

2
packages/paszlib/fpmake.pp
View File

@ -18,7 +18,7 @@ begin
P.Directory:=ADirectory;
{$endif ALLPACKAGES}
P.Version:='2.7.1';
P.OSes := P.OSes - [embedded,nativent];
P.OSes := P.OSes - [embedded,nativent,msdos];
D:=P.Dependencies.Add('hash');
D.Version:='2.7.1';

2
packages/sdl/fpmake.pp
View File

@ -23,7 +23,7 @@ begin
P.Dependencies.Add('pthreads',AllUnixOSes);
if Defaults.CPU=arm then
P.OSes := P.OSes - [darwin];
P.OSes := P.OSes - [iphonesim,os2,emx,go32v2,watcom,nativent,embedded,android,amiga];
P.OSes := P.OSes - [iphonesim,os2,emx,go32v2,watcom,nativent,embedded,android,amiga,msdos];
T:=P.Targets.AddUnit('logger.pas');
with T.Dependencies do

2
packages/symbolic/fpmake.pp
View File

@ -22,7 +22,7 @@ begin
P.Email := '';
P.Description := 'Expression parser with support for fast evaluation';
P.NeedLibC:= false;
P.OSes:=P.OSes-[embedded];
P.OSes:=P.OSes-[embedded,msdos];
P.SourcePath.Add('src');
P.IncludePath.Add('src');

2
packages/unzip/fpmake.pp
View File

@ -18,7 +18,7 @@ begin
{$endif ALLPACKAGES}
P.Version:='2.7.1';
P.SourcePath.Add('src');
P.OSes := P.OSes - [embedded,nativent];
P.OSes := P.OSes - [embedded,nativent,msdos];
T:=P.Targets.AddUnit('unzip51g.pp');
with T.Dependencies do