paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 16:00:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

h2pas wizard: fixed fpc 2.1 compilation

Browse Source 
git-svn-id: trunk@9991 -
This commit is contained in:
vincents 2006-09-26 23:48:08 +00:00
parent 1aa2de4f39
commit 7be493c4d7
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/h2pas/h2pasconvert.pas
View File

@ -1409,7 +1409,7 @@ end;
{ TRemoveCPlusPlusExternCTool }
function TRemoveCPlusPlusExternCTool.ClassDescription: string;
class function TRemoveCPlusPlusExternCTool.ClassDescription: string;
begin
Result:='Remove C++ ''extern "C"'' lines';
end;
@ -1441,7 +1441,7 @@ end;
{ TRemoveEmptyCMacrosTool }
function TRemoveEmptyCMacrosTool.ClassDescription: string;
class function TRemoveEmptyCMacrosTool.ClassDescription: string;
begin
Result:='Remove empty C macros';
end;
@ -1560,7 +1560,7 @@ end;
{ TReplaceMacro0PointerWithNULL }
function TReplaceMacro0PointerWithNULL.ClassDescription: string;
class function TReplaceMacro0PointerWithNULL.ClassDescription: string;
begin
Result:='Replace macro values 0 pointer like (char *)0 with NULL';
end;
@ -1593,7 +1593,7 @@ end;
{ TReplaceEdgedBracketPairWithStar }
function TReplaceEdgedBracketPairWithStar.ClassDescription: string;
class function TReplaceEdgedBracketPairWithStar.ClassDescription: string;
begin
Result:='Replace [] with *';
end;
@ -1607,7 +1607,7 @@ end;
{ TReplaceUnitFilenameWithUnitName }
function TReplaceUnitFilenameWithUnitName.ClassDescription: string;
class function TReplaceUnitFilenameWithUnitName.ClassDescription: string;
begin
Result:='Replace "unit filename;" with "unit name;"';
end;
@ -1622,7 +1622,7 @@ end;
{ TRemoveSystemTypes }
function TRemoveSystemTypes.ClassDescription: string;
class function TRemoveSystemTypes.ClassDescription: string;
begin
Result:='Remove type redefinitons like PLongint';
end;
@ -1655,7 +1655,7 @@ end;
{ TRemoveRedefinedPointerTypes }
function TRemoveRedefinedPointerTypes.ClassDescription: string;
class function TRemoveRedefinedPointerTypes.ClassDescription: string;
begin
Result:='Remove redefined pointer types';
end;
@ -1700,7 +1700,7 @@ end;
{ TRemoveEmptyTypeVarConstSections }
function TRemoveEmptyTypeVarConstSections.ClassDescription: string;
class function TRemoveEmptyTypeVarConstSections.ClassDescription: string;
begin
Result:='Remove empty type/var/const sections';
end;