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

* some fixes for 8 Bit CPUs

Browse Source
This commit is contained in:
florian 2022-01-19 22:03:09 +01:00
parent bd104270ae
commit 02abad58d8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/sstrings.inc
View File

@ -1509,12 +1509,12 @@ end;
end;
If (u>=base) or
(ValUInt(UpperLimit-u) div ValUInt(Base)<fpc_val_longword_shortstr) then
(LongWord(UpperLimit-u) div LongWord(Base)<fpc_val_longword_shortstr) then
begin
fpc_val_longword_shortstr:=0;
exit;
end;
fpc_val_longword_shortstr:=fpc_val_longword_shortstr*ValUInt(base) + u;
fpc_val_longword_shortstr:=fpc_val_longword_shortstr*base + u;
inc(code);
end;
code := 0;
@ -1607,12 +1607,12 @@ end;
end;
If (u>=base) or
(ValUInt(UpperLimit-u) div ValUInt(Base)<fpc_val_word_shortstr) then
(Word(UpperLimit-u) div Word(Base)<fpc_val_word_shortstr) then
begin
fpc_val_word_shortstr:=0;
exit;
end;
fpc_val_word_shortstr:=fpc_val_word_shortstr*ValUInt(base) + u;
fpc_val_word_shortstr:=fpc_val_word_shortstr*base + u;
inc(code);
end;
code := 0;