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

MG: fixed memcheck output

Browse Source 
git-svn-id: trunk@3331 -
This commit is contained in:
lazarus 2002-09-13 08:11:46 +00:00
parent 703feb0314
commit a8acebb11a
3 changed files with 18 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
components/codetools/memcheck.pas
View File

@ -158,47 +158,10 @@ begin
QuickTrace:=true;
end;
function IntToStr(i: longint): string;
var
NewLen, p: integer;
Negated: boolean;
j: integer;
begin
if i<>0 then begin
NewLen:=0;
if i<0 then begin
Negated:=true;
i:=-i;
inc(NewLen);
end else begin
Negated:=false;
end;
j:=i;
while (j>0) do begin
j:=j div 10;
inc(NewLen);
end;
SetLength(IntToStr,NewLen);
p:=1;
if Negated then begin
IntToStr[p]:='-';
inc(p);
end;
j:=i;
while (j>0) do begin
IntToStr[p]:=chr(ord('0')+(j mod 10));
j:=j div 10;
inc(p);
end;
end else begin
IntToStr:='0';
end;
end;
procedure CheckHeapWrtMemCnt(const txt: ansistring);
var p: pointer;
begin
writeln('>>> memcheck.pp - CheckHeap "',txt,'" ',IntToStr(MemCheck_getmem_cnt));
writeln('>>> memcheck.pp - CheckHeap2 "',txt,'" ',MemCheck_getmem_cnt);
QuickTrace:=false;
GetMem(p,4);
FreeMem(p);
@ -1165,6 +1128,9 @@ finalization
end.
{
$Log$
Revision 1.9 2002/09/13 08:11:46 lazarus
MG: fixed memcheck output
Revision 1.8 2002/09/13 07:01:20 lazarus
MG: fixed memcheck

26
ide/lazarusidestrconsts.pas
View File

@ -254,19 +254,19 @@ ResourceString
lisHintStepOver = 'Step Over';
lisGPLNotice =
'This program is free software; you can redistribute it and/or modify'#13
+'it under the terms of the GNU General Public License as published by'#13
+'the Free Software Foundation; either version 2 of the License, or'#13
+'(at your option) any later version.'#13
+''#13
+'This program is distributed in the hope that it will be useful,'#13
+'but WITHOUT ANY WARRANTY; without even the implied warranty of'#13
+'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the'#13
+'GNU Library General Public License for more details.'#13
+''#13
+'You should have received a copy of the GNU General Public License'#13
+'along with this program; if not, write to the Free Software'#13
+'Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.'#13;
'This program is free software; you can redistribute it and/or modify '
+'it under the terms of the GNU General Public License as published by '
+'the Free Software Foundation; either version 2 of the License, or '
+'(at your option) any later version. '
+'%s'
+'This program is distributed in the hope that it will be useful, '
+'but WITHOUT ANY WARRANTY; without even the implied warranty of '
+'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '
+'GNU Library General Public License for more details. '
+'%s'
+'You should have received a copy of the GNU General Public License '
+'along with this program; if not, write to the Free Software '
+'Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ';
implementation

2
languages/lazaruside.po
View File

@ -627,6 +627,6 @@ msgid "Step Over"
msgstr ""
#: lazarusidestrconsts:lisgplnotice
msgid "This program is free software; you can redistribute it and/or modify\015it under the terms of the GNU General Public License as published by\015the Free Software Foundation; either version 2 of the License, or\015(at your option) any later version.\015\015This program is distributed in the hope that it will be useful,\015but WITHOUT ANY WARRANTY; without even the implied warranty of\015MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\015GNU Library General Public License for more details.\015\015You should have received a copy of the GNU General Public License\015along with this program; if not, write to the Free Software\015Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.\015"
msgid "This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. %sThis program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. %sYou should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. "
msgstr ""