paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 01:51:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support type()

Browse Source
This commit is contained in:
peter 2003-11-29 14:41:02 +00:00
parent 353219a928
commit bc762e9af4
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/i386/ra386int.pas
View File

@ -720,6 +720,7 @@ Unit Ra386int;
var var
tempstr,expr,hs : string; tempstr,expr,hs : string;
parenlevel,l,k : longint; parenlevel,l,k : longint;
hasparen,
errorflag : boolean; errorflag : boolean;
prevtok : tasmtoken; prevtok : tasmtoken;
hl : tasmlabel; hl : tasmlabel;
@ -827,7 +828,13 @@ Unit Ra386int;
AS_TYPE: AS_TYPE:
begin begin
l:=0; l:=0;
hasparen:=false;
Consume(AS_TYPE); Consume(AS_TYPE);
if actasmtoken=AS_LPAREN then
begin
hasparen:=true;
Consume(AS_LPAREN);
end;
if actasmtoken<>AS_ID then if actasmtoken<>AS_ID then
Message(asmr_e_type_without_identifier) Message(asmr_e_type_without_identifier)
else else
@ -858,6 +865,8 @@ Unit Ra386int;
end; end;
str(l, tempstr); str(l, tempstr);
expr:=expr + tempstr; expr:=expr + tempstr;
if hasparen then
Consume(AS_RPAREN);
end; end;
AS_STRING: AS_STRING:
Begin Begin
@ -1966,7 +1975,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.65 2003-11-12 16:05:39 florian Revision 1.66 2003-11-29 14:41:02 peter
* support type()
Revision 1.65 2003/11/12 16:05:39 florian
* assembler readers OOPed * assembler readers OOPed
+ typed currency constants + typed currency constants
+ typed 128 bit float constants if the CPU supports it + typed 128 bit float constants if the CPU supports it