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

* fpc_shortstr_assign as compilerproc, forgot to commit

Browse Source 
git-svn-id: trunk@21701 -
This commit is contained in:
Jonas Maebe 2012-06-25 05:06:41 +00:00
parent aee68923e8
commit b42d204514
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/inc/compproc.inc
View File

@ -40,6 +40,7 @@ procedure fpc_zeromem(p:pointer;len:ptruint);compilerproc;
procedure fpc_fillmem(out data;len:ptruint;b : byte);compilerproc; procedure fpc_fillmem(out data;len:ptruint;b : byte);compilerproc;
procedure fpc_Shortstr_SetLength(var s:shortstring;len:SizeInt); compilerproc; procedure fpc_Shortstr_SetLength(var s:shortstring;len:SizeInt); compilerproc;
procedure fpc_shortstr_assign(len:longint;sstr,dstr:pointer); compilerproc;
procedure fpc_shortstr_to_shortstr(out res:shortstring; const sstr: shortstring); compilerproc; procedure fpc_shortstr_to_shortstr(out res:shortstring; const sstr: shortstring); compilerproc;
procedure fpc_shortstr_concat(var dests:shortstring;const s1,s2:shortstring);compilerproc; procedure fpc_shortstr_concat(var dests:shortstring;const s1,s2:shortstring);compilerproc;

2
rtl/inc/generic.inc
View File

@ -892,7 +892,7 @@ begin
res[0]:=chr(slen); res[0]:=chr(slen);
end; end;
procedure fpc_shortstr_assign(len:longint;sstr,dstr:pointer);[public,alias:'FPC_SHORTSTR_ASSIGN']; procedure fpc_shortstr_assign(len:longint;sstr,dstr:pointer);[public,alias:'FPC_SHORTSTR_ASSIGN']; compilerproc;
var var
slen : byte; slen : byte;
begin begin