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

* elesize of g_copyvaluepara_openarray changed

Browse Source 
+ g_releaesvaluepara_openarray added
This commit is contained in:
florian 2003-11-05 23:05:13 +00:00
parent 3561b1e55a
commit 788339336a
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/cgobj.pas
View File

@ -373,7 +373,8 @@ unit cgobj;
{# Generates overflow checking code for a node }
procedure g_overflowcheck(list: taasmoutput; const l:tlocation; def:tdef); virtual; abstract;
procedure g_copyvaluepara_openarray(list : taasmoutput;const ref, lenref:treference;elesize:integer);virtual;abstract;
procedure g_copyvaluepara_openarray(list : taasmoutput;const ref, lenref:treference;elesize:aword);virtual;abstract;
procedure g_releasevaluepara_openarray(list : taasmoutput;const ref:treference);virtual;
{# Emits instructions which should be emitted when entering
a routine declared as @var(interrupt). The default
behavior does nothing, should be overriden as required.
@ -1655,6 +1656,11 @@ implementation
Entry/Exit Code Functions
*****************************************************************************}
procedure tcg.g_releasevaluepara_openarray(list : taasmoutput;const ref:treference);
begin
end;
procedure tcg.g_interrupt_stackframe_entry(list : taasmoutput);
begin
end;
@ -1811,7 +1817,11 @@ finalization
end.
{
$Log$
Revision 1.133 2003-10-19 01:34:30 florian
Revision 1.134 2003-11-05 23:05:13 florian
* elesize of g_copyvaluepara_openarray changed
+ g_releaesvaluepara_openarray added
Revision 1.133 2003/10/19 01:34:30 florian
* some ppc stuff fixed
* memory leak fixed