瀏覽代碼

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

git-svn-id: trunk@34421 -
Károly Balogh 9 年之前
父節點
當前提交
54ac4c91c8
共有 1 個文件被更改,包括 3 次插入3 次删除
  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;
 function get_syscall_by_token(const token: ttoken): psyscallinfo;
 var
 var
-  i: aint;
+  i: longint;
 begin
 begin
   result:=nil;
   result:=nil;
   for i:=low(syscall_conventions) to high(syscall_conventions) do
   for i:=low(syscall_conventions) to high(syscall_conventions) do
@@ -93,7 +93,7 @@ end;
 
 
 function get_syscall_by_name(const name: string): psyscallinfo;
 function get_syscall_by_name(const name: string): psyscallinfo;
 var
 var
-  i: aint;
+  i: longint;
 begin
 begin
   result:=nil;
   result:=nil;
   for i:=low(syscall_conventions) to high(syscall_conventions) do
   for i:=low(syscall_conventions) to high(syscall_conventions) do
@@ -106,7 +106,7 @@ end;
 
 
 function get_default_syscall: tprocoption;
 function get_default_syscall: tprocoption;
 var
 var
-  i: aint;
+  i: longint;
 begin
 begin
   if not (default_syscall_convention in syscall_conventions_po) then
   if not (default_syscall_convention in syscall_conventions_po) then
     begin
     begin