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

Added length checking for string reading

Browse Source
This commit is contained in:
michael 1998-07-06 15:51:15 +00:00
parent c76f66e7f1
commit 9c5e9c2189
2 changed files with 30 additions and 7 deletions

9
compiler/cg386cal.pas
View File

@ -1565,12 +1565,16 @@ implementation
case pararesult^.deftype of
stringdef : begin
if doread then
begin
{ push maximum string length }
push_int(pstringdef(pararesult)^.len);
case pstringdef(pararesult)^.string_typ of
shortstring: emitcall ('READ_TEXT_STRING',true);
ansistring : emitcall ('READ_TEXT_ANSISTRING',true);
longstring : emitcall ('READ_TEXT_LONGSTRING',true);
widestring : emitcall ('READ_TEXT_ANSISTRING',true);
end
end
else
Case pstringdef(Pararesult)^.string_typ of
shortstring: emitcall ('WRITE_TEXT_STRING',true);
@ -2264,7 +2268,10 @@ implementation
end.
{
$Log$
Revision 1.7 1998-07-06 14:19:51 michael
Revision 1.8 1998-07-06 15:51:15 michael
Added length checking for string reading
Revision 1.7 1998/07/06 14:19:51 michael
+ Added calls for reading/writing ansistrings
Revision 1.6 1998/07/01 15:28:48 peter

28
compiler/cg68k.pas
View File

@ -3553,11 +3553,24 @@ implementation
end;
case pararesult^.deftype of
stringdef : begin
if doread then
emitcall('READ_TEXT_STRING',true)
else
begin
emitcall('WRITE_TEXT_STRING',true);
if doread then
begin
{ push maximum string length }
push_int(pstringdef(pararesult)^.len);
case pstringdef(pararesult)^.string_typ of
shortstring: emitcall ('READ_TEXT_STRING',true);
ansistring : emitcall ('READ_TEXT_ANSISTRING',true);
longstring : emitcall ('READ_TEXT_LONGSTRING',true);
widestring : emitcall ('READ_TEXT_ANSISTRING',true);
end
end
else
Case pstringdef(Pararesult)^.string_typ of
shortstring: emitcall ('WRITE_TEXT_STRING',true);
ansistring : emitcall ('WRITE_TEXT_ANSISTRING',true);
longstring : emitcall ('WRITE_TEXT_LONGSTRING',true);
widestring : emitcall ('WRITE_TEXT_ANSISTRING',true);
end;
{ungetiftemp(hp^.left^.location.reference);}
end;
end;
@ -5135,7 +5148,10 @@ end.
{
$Log$
Revision 1.8 1998-06-12 10:32:22 pierre
Revision 1.9 1998-07-06 15:51:16 michael
Added length checking for string reading
Revision 1.8 1998/06/12 10:32:22 pierre
* column problem hopefully solved
+ C vars declaration changed