Browse Source

* make NativeInt and NativeUInt unique types, resolves #29444

git-svn-id: trunk@33234 -
florian 9 years ago
parent
commit
bb1f2b8062
3 changed files with 19 additions and 2 deletions
  1. 1 0
      .gitattributes
  2. 2 2
      rtl/inc/systemh.inc
  3. 16 0
      tests/webtbs/tw29444.pp

+ 1 - 0
.gitattributes

@@ -14962,6 +14962,7 @@ tests/webtbs/tw2942a.pp svneol=native#text/plain
 tests/webtbs/tw2942b.pp svneol=native#text/plain
 tests/webtbs/tw2943.pp svneol=native#text/plain
 tests/webtbs/tw2944.pp svneol=native#text/plain
+tests/webtbs/tw29444.pp svneol=native#text/pascal
 tests/webtbs/tw2946.pp svneol=native#text/plain
 tests/webtbs/tw29471.pp svneol=native#text/plain
 tests/webtbs/tw2949.pp svneol=native#text/plain

+ 2 - 2
rtl/inc/systemh.inc

@@ -433,8 +433,8 @@ Type
     used in the FPC RTL. Note that on i8086 their size changes between 16-bit
     and 32-bit according to the memory model, so they're not really a 'native
     int' type there at all. }
-  NativeInt  = PtrInt;
-  NativeUInt = PtrUInt;
+  NativeInt  = Type PtrInt;
+  NativeUInt = Type PtrUInt;
 
   Int8    = ShortInt;
   Int16   = SmallInt;

+ 16 - 0
tests/webtbs/tw29444.pp

@@ -0,0 +1,16 @@
+{$mode delphi}
+
+procedure proc(a: Integer); overload;
+  begin
+  end;
+
+
+procedure proc(a : NativeInt); overload;
+  begin
+  end;
+
+
+
+begin
+end.
+