paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

morphunits: renamed WriteStr macro to dosWriteStr, to avoid clash with WriteStr in system unit

Browse Source 
git-svn-id: trunk@32709 -
This commit is contained in:
Károly Balogh 2015-12-24 17:43:18 +00:00
parent 1f88db0bd3
commit 336e054bb0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/morphunits/src/amigados.pas
View File

@ -2076,7 +2076,7 @@ function WriteChar(ch: Char): LongInt; Inline;
function UnReadChar(ch: Char): LongInt; Inline; function UnReadChar(ch: Char): LongInt; Inline;
function ReadChars(buf: Pointer; num: LongInt): LongInt; Inline; function ReadChars(buf: Pointer; num: LongInt): LongInt; Inline;
function dosReadLn(buf: PChar; num: LongInt): PChar; Inline; function dosReadLn(buf: PChar; num: LongInt): PChar; Inline;
function WriteStr(str: PChar): LongInt; Inline; function dosWriteStr(str: PChar): LongInt; Inline;
procedure VWritef(format: PChar; argv: Pointer); Inline; procedure VWritef(format: PChar; argv: Pointer); Inline;
@ -2120,9 +2120,9 @@ begin
dosReadLn:=FGets(dosInput,buf,num); dosReadLn:=FGets(dosInput,buf,num);
end; end;
function WriteStr(str: PChar): LongInt; Inline; function dosWriteStr(str: PChar): LongInt; Inline;
begin begin
WriteStr:=FPuts(dosOutput,str); dosWriteStr:=FPuts(dosOutput,str);
end; end;
procedure VWritef(format: PChar; argv: Pointer); Inline; procedure VWritef(format: PChar; argv: Pointer); Inline;