* Remove debug statement

packages/fcl-passrc/src/pscanner.pp

@@ -3977,8 +3977,6 @@ begin
     MValue:=Param;
     MName:=UpperCase(Trim(Copy(MValue,1,Index-1)));
     Delete(MValue,1,Index+1);
-    if SameText(MName,'TGenericStringBuilder') then
-        Writeln('TGenericStringBuilder = ',MValue);
     AddMacro(MName,Trim(MValue));
     end;
 end;