Browse Source

fixed builds on 32bit hosts to 64bit targets (broken by r34416)

git-svn-id: trunk@34421 -
Károly Balogh 9 years ago
parent
commit
54ac4c91c8
1 changed files with 3 additions and 3 deletions
  1. 3 3
      compiler/syscinfo.pas

+ 3 - 3
compiler/syscinfo.pas

@@ -80,7 +80,7 @@ var
 
 function get_syscall_by_token(const token: ttoken): psyscallinfo;
 var
-  i: aint;
+  i: longint;
 begin
   result:=nil;
   for i:=low(syscall_conventions) to high(syscall_conventions) do
@@ -93,7 +93,7 @@ end;
 
 function get_syscall_by_name(const name: string): psyscallinfo;
 var
-  i: aint;
+  i: longint;
 begin
   result:=nil;
   for i:=low(syscall_conventions) to high(syscall_conventions) do
@@ -106,7 +106,7 @@ end;
 
 function get_default_syscall: tprocoption;
 var
-  i: aint;
+  i: longint;
 begin
   if not (default_syscall_convention in syscall_conventions_po) then
     begin