paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 18:29:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cur_stack_offset changed to longint

Browse Source 
git-svn-id: branches/z80@44962 -
This commit is contained in:
nickysn 2020-04-21 16:31:15 +00:00
parent c67fa28d7c
commit 0332a60cb8
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/z80/cpupara.pas
View File

@ -42,9 +42,9 @@ unit cpupara;
function create_varargs_paraloc_info(p : tabstractprocdef; side: tcallercallee; varargspara:tvarargsparalist):longint;override; function create_varargs_paraloc_info(p : tabstractprocdef; side: tcallercallee; varargspara:tvarargsparalist):longint;override;
function get_funcretloc(p : tabstractprocdef; side: tcallercallee; forcetempdef: tdef): tcgpara;override; function get_funcretloc(p : tabstractprocdef; side: tcallercallee; forcetempdef: tdef): tcgpara;override;
private private
procedure init_values(var curintreg, curfloatreg, curmmreg: tsuperregister; var cur_stack_offset: aword); procedure init_values(var curintreg, curfloatreg, curmmreg: tsuperregister; var cur_stack_offset: longint);
function create_paraloc_info_intern(p : tabstractprocdef; side: tcallercallee; paras: tparalist; function create_paraloc_info_intern(p : tabstractprocdef; side: tcallercallee; paras: tparalist;
var curintreg, curfloatreg, curmmreg: tsuperregister; var cur_stack_offset: aword):longint; var curintreg, curfloatreg, curmmreg: tsuperregister; var cur_stack_offset: longint):longint;
end; end;
implementation implementation
@ -175,7 +175,7 @@ unit cpupara;
end; end;
procedure tcpuparamanager.init_values(var curintreg, curfloatreg, curmmreg: tsuperregister; var cur_stack_offset: aword); procedure tcpuparamanager.init_values(var curintreg, curfloatreg, curmmreg: tsuperregister; var cur_stack_offset: longint);
begin begin
curintreg:=RS_HL; curintreg:=RS_HL;
curfloatreg:=RS_INVALID; curfloatreg:=RS_INVALID;
@ -186,7 +186,7 @@ unit cpupara;
{ TODO : fix tcpuparamanager.create_paraloc_info_intern } { TODO : fix tcpuparamanager.create_paraloc_info_intern }
function tcpuparamanager.create_paraloc_info_intern(p : tabstractprocdef; side: tcallercallee; paras: tparalist; function tcpuparamanager.create_paraloc_info_intern(p : tabstractprocdef; side: tcallercallee; paras: tparalist;
var curintreg, curfloatreg, curmmreg: tsuperregister; var cur_stack_offset: aword):longint; var curintreg, curfloatreg, curmmreg: tsuperregister; var cur_stack_offset: longint):longint;
var var
nextintreg,nextfloatreg,nextmmreg : tsuperregister; nextintreg,nextfloatreg,nextmmreg : tsuperregister;
@ -391,7 +391,7 @@ unit cpupara;
function tcpuparamanager.create_paraloc_info(p : tabstractprocdef; side: tcallercallee):longint; function tcpuparamanager.create_paraloc_info(p : tabstractprocdef; side: tcallercallee):longint;
var var
cur_stack_offset: aword; cur_stack_offset: longint;
curintreg, curfloatreg, curmmreg: tsuperregister; curintreg, curfloatreg, curmmreg: tsuperregister;
retcgsize : tcgsize; retcgsize : tcgsize;
begin begin
@ -531,7 +531,7 @@ unit cpupara;
function tcpuparamanager.create_varargs_paraloc_info(p : tabstractprocdef; side: tcallercallee; varargspara:tvarargsparalist):longint; function tcpuparamanager.create_varargs_paraloc_info(p : tabstractprocdef; side: tcallercallee; varargspara:tvarargsparalist):longint;
var var
cur_stack_offset: aword; cur_stack_offset: longint;
curintreg, curfloatreg, curmmreg: tsuperregister; curintreg, curfloatreg, curmmreg: tsuperregister;
begin begin
init_values(curintreg,curfloatreg,curmmreg,cur_stack_offset); init_values(curintreg,curfloatreg,curmmreg,cur_stack_offset);