浏览代码

* 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 年之前
父节点
当前提交
a567be76ff
共有 1 个文件被更改,包括 4 次插入4 次删除
  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 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);