paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-25 13:38:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed string argument of tppufile.putstring into a constant

Browse Source 
git-svn-id: trunk@10852 -
This commit is contained in:
Jonas Maebe 2008-05-01 12:34:47 +00:00
parent 6851c958e7
commit 0fb87b67b6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ppu.pas
View File

@ -260,7 +260,7 @@ type
procedure putint64(i:int64); procedure putint64(i:int64);
procedure putaint(i:aint); procedure putaint(i:aint);
procedure putreal(d:ppureal); procedure putreal(d:ppureal);
procedure putstring(s:string); procedure putstring(const s:string);
procedure putnormalset(const b); procedure putnormalset(const b);
procedure putsmallset(const b); procedure putsmallset(const b);
procedure tempclose; procedure tempclose;
@ -1025,7 +1025,7 @@ begin
end; end;
procedure tppufile.putstring(s:string); procedure tppufile.putstring(const s:string);
begin begin
putdata(s,length(s)+1); putdata(s,length(s)+1);
end; end;