paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 19:46:02 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/webtbs/tw20962.pp
View File

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