paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 11:59:30 +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

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 ReadChars(buf: Pointer; num: LongInt): LongInt; 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;
@ -2120,9 +2120,9 @@ begin
dosReadLn:=FGets(dosInput,buf,num);
end;
function WriteStr(str: PChar): LongInt; Inline;
function dosWriteStr(str: PChar): LongInt; Inline;
begin
WriteStr:=FPuts(dosOutput,str);
dosWriteStr:=FPuts(dosOutput,str);
end;
procedure VWritef(format: PChar; argv: Pointer); Inline;