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

* reverted partially r11598 because it breaks delphi compatibility and e.g. tw3721.pp

Browse Source 
git-svn-id: trunk@13398 -
This commit is contained in:
florian 2009-07-16 21:01:27 +00:00
parent 3f98f6a5d0
commit 87df99a53d
2 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/sysutils/sysstr.inc
View File

@ -35,6 +35,7 @@ begin
end;
end;
{ declaring this breaks delphi compatibility and e.g. tw3721.pp
FUNCTION NewStr (Const S: ShortString): PShortString;
VAR P: PShortString;
BEGIN
@ -47,6 +48,7 @@ BEGIN
End;
NewStr := P; { Return result }
END;
}
{ DisposeStr frees the memory occupied by S }

3
rtl/objpas/sysutils/sysstrh.inc
View File

@ -67,7 +67,8 @@ Const
Var TrueBoolStrs,
FalseBoolStrs : Array of String;
function NewStr(Const S: ShortString): PShortString; overload;
// declaring this breaks delphi compatibility and e.g. tw3721.pp
// function NewStr(Const S: ShortString): PShortString; overload;
function NewStr(const S: string): PString; overload;
procedure DisposeStr(S: PString); overload;
procedure DisposeStr(S: PShortString); overload;