paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 01:17:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: h2p: implemented recognizing (void*)0

Browse Source 
git-svn-id: trunk@14651 -
This commit is contained in:
mattias 2008-03-26 13:44:43 +00:00
parent 74426aae84
commit 3b57267fa1
2 changed files with 54 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/h2pastool.pas
View File

@ -1437,6 +1437,13 @@ begin
Result:=false;
PasType:='';
PasExpression:=TrimBrackets(Node.Expression);
// check for special constants
if ExtractCCode(PasExpression)='(void*)0' then begin
PasExpression:='nil';
exit(true);
end;
p:=1;
repeat
ReadRawNextCAtom(PasExpression,p,AtomStart);
@ -1445,6 +1452,7 @@ begin
if IsIdentStartChar[PasExpression[AtomStart]] then begin
CurAtom:=copy(PasExpression,AtomStart,p-AtomStart);
if CurAtom='sizeof' then begin
// the sizeof(type) function is a C compiler built in function
// read (
ReadRawNextCAtom(PasExpression,p,AtomStart);
if (AtomStart>length(PasExpression))

48
components/codetools/nonpascalcodetools.pas
View File

@ -33,6 +33,7 @@ interface
uses
Classes, SysUtils, AVL_Tree, KeywordFuncLists, FileProcs;
// C
function CompareCIdentifiers(Identifier1, Identifier2: PChar): integer;
procedure ReadTilCLineEnd(const Source: string;
var Position: integer);
@ -45,11 +46,16 @@ procedure ReadRawNextCAtom(const Source: string;
function IsCDecimalNumber(const Source: string; Position: integer): boolean;
function IsCHexNumber(const Source: string; Position: integer): boolean;
function IsCOctalNumber(const Source: string; Position: integer): boolean;
function ExtractCodeFromMakefile(const Source: string): string;
function ExtractCCode(const Source: string;
StartPos: integer = 1; EndPos: integer = -1): string;
function CConstantToInt64(const s: string; out i: int64): boolean;
// Makefile
function ExtractCodeFromMakefile(const Source: string): string;
implementation
function CompareCIdentifiers(Identifier1, Identifier2: PChar): integer;
@ -393,6 +399,44 @@ begin
and (Source[Position]='0') and (Source[Position+1] in ['0'..'7']);
end;
function ExtractCCode(const Source: string; StartPos: integer;
EndPos: integer): string;
var
DstPos: Integer;
SrcPos: Integer;
SrcLen: Integer;
AtomStart: integer;
begin
{$IFOPT R+}{$DEFINE RangeChecking}{$ENDIF}
{$R-}
Result:=Source;
DstPos:=1;
SrcPos:=1;
SrcLen:=length(Source);
if EndPos<1 then EndPos:=SrcLen+1;
if SrcLen>EndPos then SrcLen:=EndPos;
repeat
ReadRawNextCAtom(Source,SrcPos,AtomStart);
if AtomStart>=EndPos then break;
if not (Source[AtomStart] in [#10,#13]) then begin
if IsIdentChar[Source[AtomStart]]
and ((DstPos=1) or (IsIdentChar[Result[DstPos-1]])) then begin
// space needed between words/numbers
Result[DstPos]:=' ';
inc(DstPos);
end;
// copy word
while AtomStart<SrcPos do begin
Result[DstPos]:=Source[AtomStart];
inc(AtomStart);
inc(DstPos);
end;
end;
until false;
SetLength(Result,DstPos-1);
{$IFDEF RangeChecking}{$R+}{$UNDEF RangeChecking}{$ENDIF}
end;
function ExtractCodeFromMakefile(const Source: string): string;
// remove comments, empty lines, double spaces, replace newline chars with #10