mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 19:08:18 +02:00
ee10850a57
For CPU64, the size of record TAnsiRec and TUnicodeRec is 16 bytes instead of 24.
Which is very good also because of the alignment. when allocating memory, the address
of the first character of the string will be aligned on the 16-byte boundary.
At the same time, the useless Dummy field, which is needed in CPU64 for exactly alignment, has been removed.
For CPU32 (and CPU16), the record size has not changed, so procedures such as
fpc_AnsiStr_Decr_Ref, implemented in assembler (see i386, arm), remained working correctly.
* tests adapted
58 lines
1008 B
ObjectPascal
58 lines
1008 B
ObjectPascal
{ %opt=-gh }
|
|
{$ifdef go32v2}
|
|
{$define USE_INTERNAL_UNICODE}
|
|
{$endif}
|
|
|
|
{$ifdef USE_INTERNAL_UNICODE}
|
|
{$define USE_FPWIDESTRING_UNIT}
|
|
{$define USE_UNICODEDUCET_UNIT}
|
|
{$define USE_CPALL_UNIT}
|
|
{$endif}
|
|
|
|
program outpar;
|
|
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
|
|
{$ifdef mswindows}{$apptype console}{$endif}
|
|
uses
|
|
{$ifdef FPC}
|
|
{$ifdef unix}
|
|
cthreads,
|
|
{$ifndef USE_INTERNAL_UNICODE}
|
|
{$ifdef darwin}iosxwstr{$else}cwstring{$endif},
|
|
{$endif ndef USE_INTERNAL_UNICODE}
|
|
{$endif}
|
|
{$endif}
|
|
{$ifdef USE_UNICODEDUCET_UNIT}
|
|
unicodeducet,
|
|
{$endif}
|
|
{$ifdef USE_FPWIDESTRING_UNIT}
|
|
fpwidestring,
|
|
{$endif}
|
|
{$ifdef USE_CPALL_UNIT}
|
|
cpall,
|
|
{$endif}
|
|
sysutils;
|
|
{$ifndef FPC}
|
|
type
|
|
sizeint = integer;
|
|
psizeint = ^sizeint;
|
|
{$endif}
|
|
|
|
procedure testproc(out str);
|
|
begin
|
|
ansistring(str):= '';
|
|
end;
|
|
|
|
var
|
|
str1,str2: ansistring;
|
|
|
|
begin
|
|
setlength(str1,5);
|
|
move('abcde',str1[1],5);
|
|
str2:= str1;
|
|
testproc(str2);
|
|
if StringRefCount(str1) <> 1 then
|
|
Halt(1);
|
|
if str1<>'abcde' then
|
|
Halt(2);
|
|
end.
|