paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@34421 -
This commit is contained in:
Károly Balogh 2016-09-04 05:12:21 +00:00
parent f216c359bd
commit 54ac4c91c8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/syscinfo.pas
View File

@ -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