Ver código fonte

* fixed test for big endian 64 bit targets
* 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 -

Jonas Maebe 13 anos atrás
pai
commit
a567be76ff
1 arquivos alterados com 4 adições e 4 exclusões
  1. 4 4
      tests/webtbs/tw20962.pp

+ 4 - 4
tests/webtbs/tw20962.pp

@@ -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);