pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Typo correction(WriteDocumetation > WriteDocumentation).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1384 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2010-11-26 09:50:16 +00:00
parent 4a8d99b73b
commit 4d54efd4e7
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
wst/trunk/ws_helper/generator.pas
View File

@ -162,7 +162,7 @@ type
FImpLastStream : ISourceStream; FImpLastStream : ISourceStream;
FRttiFunc : ISourceStream; FRttiFunc : ISourceStream;
private private
procedure WriteDocumetation(AElement : TPasElement); procedure WriteDocumentation(AElement : TPasElement);
procedure WriteDocIfEnabled(AElement : TPasElement);{$IFDEF USE_INLINE}inline;{$ENDIF} procedure WriteDocIfEnabled(AElement : TPasElement);{$IFDEF USE_INLINE}inline;{$ENDIF}
// Array handling helper routines // Array handling helper routines
procedure WriteObjectArray(ASymbol : TPasArrayType); procedure WriteObjectArray(ASymbol : TPasArrayType);
@ -1914,7 +1914,7 @@ end;
{ TInftGenerator } { TInftGenerator }
procedure TInftGenerator.WriteDocumetation(AElement : TPasElement); procedure TInftGenerator.WriteDocumentation(AElement : TPasElement);
var var
pl : TStrings; pl : TStrings;
docString : string; docString : string;
@ -1937,7 +1937,7 @@ end;
procedure TInftGenerator.WriteDocIfEnabled(AElement : TPasElement); procedure TInftGenerator.WriteDocIfEnabled(AElement : TPasElement);
begin begin
if ( goGenerateDocAsComments in Options ) then if ( goGenerateDocAsComments in Options ) then
WriteDocumetation(AElement); WriteDocumentation(AElement);
end; end;
procedure TInftGenerator.WriteObjectArray(ASymbol : TPasArrayType); procedure TInftGenerator.WriteObjectArray(ASymbol : TPasArrayType);