Pchar->Shortstring
Original Reporter info from Mantis: FPCCore
-
Reporter name: FPC core team
Original Reporter info from Mantis: FPCCore
- Reporter name: FPC core team
Description:
There is an Internal Error 200107271 when i
compile this procedure :
function strpas(p:pchar):shortstring;[public,alias:'FPC_PCHAR_TO_SHORTSTR'];
begin
strpas:='';
while (p^<>#0) and (byte(strpas[0])<255) do
begin
strpas:=strpas+p^; <-internal error is here !
inc(p);
end;
end;
The same thing happens in several other procedures. This Source is out of the old rtl !
Additional information:
Reporter:
EMail:
Mantis conversion info:
- Mantis ID: 5559
- OS: GO32V2
- Version: 1.9.6