瀏覽代碼

* getu32bit() now has a longword result instead of a longint

Jonas Maebe 23 年之前
父節點
當前提交
b787f0ceec
共有 1 個文件被更改,包括 7 次插入2 次删除
  1. 7 2
      tests/test/cg/tcnvint3.pp

+ 7 - 2
tests/test/cg/tcnvint3.pp

@@ -81,10 +81,12 @@ const
     end;
 
 
-   function getu32bit : longint;
+{$ifndef tp}
+   function getu32bit : longword;
     begin
       getu32bit := GETU32BIT_RESULT;
     end;
+{$endif tp}
 
 var
  s8bit : shortint;
@@ -413,7 +415,10 @@ end.
 {
 
  $Log$
- Revision 1.3  2002-09-07 15:40:55  peter
+ Revision 1.4  2002-09-08 20:27:37  jonas
+   * getu32bit() now has a longword result instead of a longint
+
+ Revision 1.3  2002/09/07 15:40:55  peter
    * old logs removed and tabs fixed
 
  Revision 1.2  2002/05/13 13:45:38  peter