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

* ts010021.pp problem solved for ag386bin !

Browse Source
This commit is contained in:
pierre 1999-06-01 10:24:09 +00:00
parent 42c7a976cb
commit f95fe26921
1 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/ag386bin.pas
View File

@ -107,6 +107,7 @@ unit ag386bin;
begin
hp:=nil;
s:=StrPas(P);
i:=-2; {needed below (PM) }
end;
{ When in pass 1 then only alloc and leave }
if currpass=1 then
@ -125,6 +126,7 @@ unit ag386bin;
Val(Copy(s,1,j-1),nidx,code);
if code<>0 then
internalerror(33002);
i:=i+2+j;
Delete(s,1,j);
j:=pos(',',s);
if (j=0) then
@ -132,6 +134,7 @@ unit ag386bin;
Val(Copy(s,1,j-1),nother,code);
if code<>0 then
internalerror(33004);
i:=i+j;
Delete(s,1,j);
j:=pos(',',s);
if j=0 then
@ -142,16 +145,17 @@ unit ag386bin;
Val(Copy(s,1,j-1),line,code);
if code<>0 then
internalerror(33005);
if ofs=0 then
Delete(s,1,j);
if ofs=0 then
begin
Delete(s,1,j);
i:=i+j;
Val(s,ofs,code);
if code=0 then
reloc:=false
else
begin
ofs:=0;
s:=strpas(@p[i]);
{ handle asmsymbol or
asmsymbol - asmsymbol }
j:=pos(' ',s);
@ -171,9 +175,16 @@ unit ag386bin;
end;
if j<256 then
begin
delete(s,1,j);
while (s<>'') and (s[1]=' ') do
delete(s,1,1);
i:=i+j;
s:=strpas(@p[i]);
if (s<>'') and (s[1]=' ') then
begin
j:=0;
while (s[j+1]=' ') do
inc(j);
i:=i+j;
s:=strpas(@p[i]);
end;
ps:=getasmsymbol(s);
if not assigned(ps) then
internalerror(33007)
@ -801,7 +812,10 @@ unit ag386bin;
end.
{
$Log$
Revision 1.12 1999-05-27 19:43:59 peter
Revision 1.13 1999-06-01 10:24:09 pierre
* ts010021.pp problem solved for ag386bin !
Revision 1.12 1999/05/27 19:43:59 peter
* removed oldasm
* plabel -> pasmlabel
* -a switches to source writing automaticly