paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 20:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* who uses C style operators in the heart of FPC ;)? fixed

Browse Source 
git-svn-id: trunk@12764 -
This commit is contained in:
florian 2009-02-21 22:59:10 +00:00
parent a10de0a71f
commit 344ccfce72
2 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/morphos/system.pp
View File

@ -266,11 +266,13 @@ begin
FillDWord(tmpbuf,256 div 4,0); FillDWord(tmpbuf,256 div 4,0);
if NameFromLock(dlock,@tmpbuf[1],255) then begin if NameFromLock(dlock,@tmpbuf[1],255) then begin
counter:=1; counter:=1;
while tmpbuf[counter]<>#0 do counter+=1; while tmpbuf[counter]<>#0 do
inc(counter);
tmpbuf[0]:=Char(counter-1); tmpbuf[0]:=Char(counter-1);
GetArgv0Ambient:=tmpbuf; GetArgv0Ambient:=tmpbuf;
{ Append slash,if we're not in root directory of a volume } { Append slash,if we're not in root directory of a volume }
if tmpbuf[counter-1]<>':' then GetArgv0Ambient+='/'; if tmpbuf[counter-1]<>':' then
GetArgv0Ambient:=GetArgv0Ambient+'/';
end; end;
end; end;
@ -281,10 +283,10 @@ begin
counter:=0; counter:=0;
while (progname[counter]<>#0) do begin while (progname[counter]<>#0) do begin
tmpbuf[counter+1]:=progname[counter]; tmpbuf[counter+1]:=progname[counter];
counter+=1; inc(counter);
end; end;
tmpbuf[0]:=Char(counter); tmpbuf[0]:=Char(counter);
GetArgv0Ambient+=tmpbuf; GetArgv0Ambient:=GetArgv0Ambient+tmpbuf;
end; end;
end; end;
end; end;

2
rtl/morphos/video.pp
View File

@ -195,7 +195,7 @@ begin
counter:=0; counter:=0;
while not smallforce and (counter<(VideoBufSize div 4)-1) do begin while not smallforce and (counter<(VideoBufSize div 4)-1) do begin
if PDWord(VideoBuf)[counter]<>PDWord(OldVideoBuf)[counter] then smallforce:=true; if PDWord(VideoBuf)[counter]<>PDWord(OldVideoBuf)[counter] then smallforce:=true;
counter+=1; inc(counter);
end; end;
end; end;