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

* fixed test for big endian 64 bit targets

Browse Source 
* 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 -
This commit is contained in:
Jonas Maebe 2012-01-04 16:09:04 +00:00
parent eb680bcc5b
commit a567be76ff
1 changed files with 4 additions and 4 deletions

8
tests/webtbs/tw20962.pp
View File

@ -4,14 +4,14 @@ program outpar;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
{$ifdef mswindows}{$apptype console}{$endif}
uses
{$ifdef FPC}{$ifdef linux}cthreads,cwstring,{$endif}{$endif}
{$ifdef FPC}{$ifdef unix}cthreads,cwstring,{$endif}{$endif}
sysutils;
{$ifndef FPC}
type
sizeint = integer;
psizeint = ^sizeint;
{$endif}
type
pinteger = ^integer;
procedure testproc(out str);
begin
ansistring(str):= '';
@ -25,7 +25,7 @@ begin
move('abcde',str1[1],5);
str2:= str1;
testproc(str2);
if pinteger(pchar(pointer(str1))-2*sizeof(sizeint))^ <> 1 then
if psizeint(pchar(pointer(str1))-2*sizeof(sizeint))^ <> 1 then
Halt(1);
if str1<>'abcde' then
Halt(2);