paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 08:50:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed pchar2ansi

Browse Source
This commit is contained in:
michael 1998-11-18 10:56:46 +00:00
parent 8ac31273f5
commit 7c71c739bc
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/inc/astrings.inc
View File

@ -32,7 +32,6 @@
Constants should be assigned a reference count of -1 Constants should be assigned a reference count of -1
Meaning that they can't be disposed of. Meaning that they can't be disposed of.
} }
@ -280,12 +279,21 @@ end;
Procedure PChar2Ansi(var a : ansistring;p : pchar);[Public,Alias : 'FPC_PCHAR_TO_ANSISTR']; Procedure PChar2Ansi(var a : ansistring;p : pchar);[Public,Alias : 'FPC_PCHAR_TO_ANSISTR'];
Var L : Longint;
begin begin
{ !!!!!!!!! needs to be fixed (FK) }
if p[0]=#0 Then if p[0]=#0 Then
Pointer(a):=nil Pointer(a):=nil
else else
Pointer(a):=p; begin
//!! Horribly inneficient, but I see no other way...
L:=1;
While P[l]<>#0 do inc (l);
Pointer(a):=NewAnsistring(L);
SetLength(A,L);
Move (P[0],Pointer(A)^,L)
end;
end; end;
{ the compiler generates inline code for that { the compiler generates inline code for that
@ -714,7 +722,10 @@ end;
{ {
$Log$ $Log$
Revision 1.3 1998-11-17 12:16:07 michael Revision 1.4 1998-11-18 10:56:46 michael
+ Fixed pchar2ansi
Revision 1.3 1998/11/17 12:16:07 michael
+ Fixed copy. Now reference count is correct + Fixed copy. Now reference count is correct
Revision 1.2 1998/11/17 11:33:22 peter Revision 1.2 1998/11/17 11:33:22 peter