paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-31 08:22:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* merged patches name generation in lib and asm constant eval

Browse Source
This commit is contained in:
peter 2000-08-06 10:42:29 +00:00
parent 7fbf34e60d
commit ec3f05fe39
2 changed files with 39 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/og386.pas
View File

@ -208,7 +208,7 @@ unit og386;
cut_end :
s:=s+tostr(smarthcount)+'t';
end;
ObjFile:=Path+FixFileName(s+tostr(SmartLinkFilesCnt)+target_info.objext)
ObjFile:=FixFileName(s+tostr(SmartLinkFilesCnt)+target_info.objext);
end;
@ -279,7 +279,10 @@ unit og386;
end.
{
$Log$
Revision 1.3 2000-07-13 12:08:26 michael
Revision 1.4 2000-08-06 10:42:29 peter
* merged patches name generation in lib and asm constant eval
Revision 1.3 2000/07/13 12:08:26 michael
+ patched to 1.1.0 with former 1.09patch from peter
Revision 1.2 2000/07/13 11:32:43 michael

40
compiler/rautils.pas
View File

@ -249,6 +249,7 @@ end;
Procedure TExprParse.RPNCalc(Token : String15; prefix:boolean); { RPN Calculator }
Var
Temp : longint;
n1,n2 : longint;
LocalError : Integer;
begin
{ Handle operators }
@ -264,14 +265,38 @@ begin
if prefix then
RPNPush(-(RPNPop))
else
RPNPush(RPNPop - RPNPop);
begin
n1:=RPNPop;
n2:=RPNPop;
RPNPush(n2 - n1);
end;
end;
'*' : RPNPush(RPNPop * RPNPop);
'&' : RPNPush(RPNPop AND RPNPop);
'|' : RPNPush(RPNPop OR RPNPop);
'&' :
begin
n1:=RPNPop;
n2:=RPNPop;
RPNPush(n2 and n1);
end;
'|' :
begin
n1:=RPNPop;
n2:=RPNPop;
RPNPush(n2 or n1);
end;
'~' : RPNPush(NOT RPNPop);
'<' : RPNPush(RPNPop SHL RPNPop);
'>' : RPNPush(RPNPop SHR RPNPop);
'<' :
begin
n1:=RPNPop;
n2:=RPNPop;
RPNPush(n2 SHL n1);
end;
'>' :
begin
n1:=RPNPop;
n2:=RPNPop;
RPNPush(n2 SHR n1);
end;
'%' :
begin
Temp:=RPNPop;
@ -1540,7 +1565,10 @@ end;
end.
{
$Log$
Revision 1.2 2000-07-13 11:32:48 michael
Revision 1.3 2000-08-06 10:42:29 peter
* merged patches name generation in lib and asm constant eval
Revision 1.2 2000/07/13 11:32:48 michael
+ removed logs
}