mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-07 18:40:43 +01:00
a567be76ff
* ifdef linux -> ifdef unix for cthreads/cwstring (although that doesn't
really matter here, the test doesn't depend on them)
git-svn-id: trunk@19966 -
33 lines
557 B
ObjectPascal
33 lines
557 B
ObjectPascal
{ %opt=-gh }
|
|
|
|
program outpar;
|
|
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
|
|
{$ifdef mswindows}{$apptype console}{$endif}
|
|
uses
|
|
{$ifdef FPC}{$ifdef unix}cthreads,cwstring,{$endif}{$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 psizeint(pchar(pointer(str1))-2*sizeof(sizeint))^ <> 1 then
|
|
Halt(1);
|
|
if str1<>'abcde' then
|
|
Halt(2);
|
|
end.
|