View Issue Details

IDProjectCategoryView StatusLast Update
0030258LazarusPatchpublic2016-06-12 18:09
ReporterPaul GeversAssigned ToBart Broersma 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionfixed 
Product Version1.6Product Build 
Target Version1.6.2Fixed in Version1.6.2 
Summary0030258: Spelling errors in lazarus
DescriptionPlease find attached a patch with spelling error fixes that I apply in Debian to the 1.6 tree.
TagsNo tags attached.
Fixed in Revisionr52489
LazTarget1.6.2
Widgetset
Attached Files
  • lintian_detected_spelling_errors.patch (4,405 bytes)
    Description: Spelling issues found by lintian
    Author: Paul Gevers <elbrus@debian.org>
    
    Index: lazarus/components/ideintf/propedits.pp
    ===================================================================
    --- lazarus.orig/components/ideintf/propedits.pp
    +++ lazarus/components/ideintf/propedits.pp
    @@ -3949,7 +3949,7 @@ begin
       if obj is TPersistent then
         Result:=TPersistent(obj)
       else
    -    raise EInvalidOperation.CreateFmt('List element %d is not a TPersistent decendant', [Index]);
    +    raise EInvalidOperation.CreateFmt('List element %d is not a TPersistent descendant', [Index]);
     end;
     
     function TListPropertyEditor.CreateElementPropEditor(Index: integer
    Index: lazarus/components/lazdebuggergdbmi/cmdlinedebugger.pp
    ===================================================================
    --- lazarus.orig/components/lazdebuggergdbmi/cmdlinedebugger.pp
    +++ lazarus/components/lazdebuggergdbmi/cmdlinedebugger.pp
    @@ -360,7 +360,7 @@ begin
         except
           on E: Exception do begin
             FOutputBuf := E.Message;
    -        DebugLn('Exeption while executing debugger: ', FOutputBuf);
    +        DebugLn('Exception while executing debugger: ', FOutputBuf);
           end;
         end;
       end;
    @@ -376,7 +376,7 @@ begin
       try
         FreeAndNil(FDbgProcess);
       except
    -    on E: Exception do DebugLn('Exeption while freeing debugger: ', E.Message);
    +    on E: Exception do DebugLn('Exception while freeing debugger: ', E.Message);
       end;
     end;
     
    Index: lazarus/components/jcf2/Parse/BuildParseTree.pas
    ===================================================================
    --- lazarus.orig/components/jcf2/Parse/BuildParseTree.pas
    +++ lazarus/components/jcf2/Parse/BuildParseTree.pas
    @@ -4837,7 +4837,7 @@ begin
       lc := fcTokenList.FirstSolidToken;
     
       if not IdentifierNext(peStrictness) then
    -    raise TEParseError.Create('Expected identifer', lc);
    +    raise TEParseError.Create('Expected identifier', lc);
     
       PushNode(nIdentifier);
       Recognise(IdentiferTokens);
    @@ -4868,7 +4868,7 @@ var
       lbMore: boolean;
     begin
       if not (IdentifierNext(idAllowDirectives)) then
    -    raise TEParseError.Create('Expected identifer', fcTokenList.FirstSolidToken);
    +    raise TEParseError.Create('Expected identifier', fcTokenList.FirstSolidToken);
     
       // a method name is an identifier
       PushNode(nIdentifier);
    @@ -5080,7 +5080,7 @@ begin
       lc := fcTokenList.FirstSolidToken;
     
       if not (lc.TokenType in IdentiferTokens + [ttAtSign]) then
    -    raise TEParseError.Create('Expected asm identifer', lc);
    +    raise TEParseError.Create('Expected asm identifier', lc);
     
       while (lc.TokenType in IdentiferTokens + [ttAtSign]) do
       begin
    Index: lazarus/docs/xml/lcl/lresources.xml
    ===================================================================
    --- lazarus.orig/docs/xml/lcl/lresources.xml
    +++ lazarus/docs/xml/lcl/lresources.xml
    @@ -2074,7 +2074,7 @@
           </element>
           <!-- function Visibility: public -->
           <element name="TUTF8Parser.TokenComponentIdent">
    -        <short>Parses an (possibly) qualified identifer, after a symbol has been parsed.</short>
    +        <short>Parses an (possibly) qualified identifier, after a symbol has been parsed.</short>
             <descr/>
             <seealso/>
             <errors>EParserError when Token is not toSymbol.
    Index: lazarus/ide/codehelp.pas
    ===================================================================
    --- lazarus.orig/ide/codehelp.pas
    +++ lazarus/ide/codehelp.pas
    @@ -2992,7 +2992,7 @@ function TCodeHelpManager.SourceToFPDocH
       begin
         case TokenID of
         tkComment: Result:='comment';
    -    tkIdentifier: Result:='identifer';
    +    tkIdentifier: Result:='identifier';
         tkKey: Result:='keyword';
         tkNumber: Result:='number';
         tkString: Result:='string';
    Index: lazarus/components/lazutils/laz2_xmlread.pas
    ===================================================================
    --- lazarus.orig/components/lazutils/laz2_xmlread.pas
    +++ lazarus/components/lazutils/laz2_xmlread.pas
    @@ -2792,7 +2792,7 @@ begin
               SkipWhitespace;
               CheckName([cnToken]);
               if not AttDef.AddEnumToken(FName.Buffer, FName.Length) then
    -            ValidationError('Duplicate token in enumerated attibute declaration', [], FName.Length);
    +            ValidationError('Duplicate token in enumerated attribute declaration', [], FName.Length);
               SkipWhitespace;
             until not CheckForChar('|');
             ExpectChar(')');
    

Activities

Paul Gevers

2016-06-10 20:24

reporter  

lintian_detected_spelling_errors.patch (4,405 bytes)
Description: Spelling issues found by lintian
Author: Paul Gevers <elbrus@debian.org>

Index: lazarus/components/ideintf/propedits.pp
===================================================================
--- lazarus.orig/components/ideintf/propedits.pp
+++ lazarus/components/ideintf/propedits.pp
@@ -3949,7 +3949,7 @@ begin
   if obj is TPersistent then
     Result:=TPersistent(obj)
   else
-    raise EInvalidOperation.CreateFmt('List element %d is not a TPersistent decendant', [Index]);
+    raise EInvalidOperation.CreateFmt('List element %d is not a TPersistent descendant', [Index]);
 end;
 
 function TListPropertyEditor.CreateElementPropEditor(Index: integer
Index: lazarus/components/lazdebuggergdbmi/cmdlinedebugger.pp
===================================================================
--- lazarus.orig/components/lazdebuggergdbmi/cmdlinedebugger.pp
+++ lazarus/components/lazdebuggergdbmi/cmdlinedebugger.pp
@@ -360,7 +360,7 @@ begin
     except
       on E: Exception do begin
         FOutputBuf := E.Message;
-        DebugLn('Exeption while executing debugger: ', FOutputBuf);
+        DebugLn('Exception while executing debugger: ', FOutputBuf);
       end;
     end;
   end;
@@ -376,7 +376,7 @@ begin
   try
     FreeAndNil(FDbgProcess);
   except
-    on E: Exception do DebugLn('Exeption while freeing debugger: ', E.Message);
+    on E: Exception do DebugLn('Exception while freeing debugger: ', E.Message);
   end;
 end;
 
Index: lazarus/components/jcf2/Parse/BuildParseTree.pas
===================================================================
--- lazarus.orig/components/jcf2/Parse/BuildParseTree.pas
+++ lazarus/components/jcf2/Parse/BuildParseTree.pas
@@ -4837,7 +4837,7 @@ begin
   lc := fcTokenList.FirstSolidToken;
 
   if not IdentifierNext(peStrictness) then
-    raise TEParseError.Create('Expected identifer', lc);
+    raise TEParseError.Create('Expected identifier', lc);
 
   PushNode(nIdentifier);
   Recognise(IdentiferTokens);
@@ -4868,7 +4868,7 @@ var
   lbMore: boolean;
 begin
   if not (IdentifierNext(idAllowDirectives)) then
-    raise TEParseError.Create('Expected identifer', fcTokenList.FirstSolidToken);
+    raise TEParseError.Create('Expected identifier', fcTokenList.FirstSolidToken);
 
   // a method name is an identifier
   PushNode(nIdentifier);
@@ -5080,7 +5080,7 @@ begin
   lc := fcTokenList.FirstSolidToken;
 
   if not (lc.TokenType in IdentiferTokens + [ttAtSign]) then
-    raise TEParseError.Create('Expected asm identifer', lc);
+    raise TEParseError.Create('Expected asm identifier', lc);
 
   while (lc.TokenType in IdentiferTokens + [ttAtSign]) do
   begin
Index: lazarus/docs/xml/lcl/lresources.xml
===================================================================
--- lazarus.orig/docs/xml/lcl/lresources.xml
+++ lazarus/docs/xml/lcl/lresources.xml
@@ -2074,7 +2074,7 @@
       </element>
       <!-- function Visibility: public -->
       <element name="TUTF8Parser.TokenComponentIdent">
-        <short>Parses an (possibly) qualified identifer, after a symbol has been parsed.</short>
+        <short>Parses an (possibly) qualified identifier, after a symbol has been parsed.</short>
         <descr/>
         <seealso/>
         <errors>EParserError when Token is not toSymbol.
Index: lazarus/ide/codehelp.pas
===================================================================
--- lazarus.orig/ide/codehelp.pas
+++ lazarus/ide/codehelp.pas
@@ -2992,7 +2992,7 @@ function TCodeHelpManager.SourceToFPDocH
   begin
     case TokenID of
     tkComment: Result:='comment';
-    tkIdentifier: Result:='identifer';
+    tkIdentifier: Result:='identifier';
     tkKey: Result:='keyword';
     tkNumber: Result:='number';
     tkString: Result:='string';
Index: lazarus/components/lazutils/laz2_xmlread.pas
===================================================================
--- lazarus.orig/components/lazutils/laz2_xmlread.pas
+++ lazarus/components/lazutils/laz2_xmlread.pas
@@ -2792,7 +2792,7 @@ begin
           SkipWhitespace;
           CheckName([cnToken]);
           if not AttDef.AddEnumToken(FName.Buffer, FName.Length) then
-            ValidationError('Duplicate token in enumerated attibute declaration', [], FName.Length);
+            ValidationError('Duplicate token in enumerated attribute declaration', [], FName.Length);
           SkipWhitespace;
         until not CheckForChar('|');
         ExpectChar(')');

Bart Broersma

2016-06-12 18:09

developer   ~0093147

Thanks for the patch.
Applied to trunk, will be merged to 1.6 fixes.

Issue History

Date Modified Username Field Change
2016-06-10 20:24 Paul Gevers New Issue
2016-06-10 20:24 Paul Gevers File Added: lintian_detected_spelling_errors.patch
2016-06-10 23:01 Bart Broersma Assigned To => Bart Broersma
2016-06-10 23:01 Bart Broersma Status new => assigned
2016-06-12 18:09 Bart Broersma Fixed in Revision => r52489
2016-06-12 18:09 Bart Broersma LazTarget => 1.6.2
2016-06-12 18:09 Bart Broersma Note Added: 0093147
2016-06-12 18:09 Bart Broersma Status assigned => resolved
2016-06-12 18:09 Bart Broersma Fixed in Version => 1.6.2
2016-06-12 18:09 Bart Broersma Resolution open => fixed
2016-06-12 18:09 Bart Broersma Target Version => 1.6.2