diff options
| author | daniel <daniel@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-06-14 08:33:19 +0000 |
|---|---|---|
| committer | daniel <daniel@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-06-14 08:33:19 +0000 |
| commit | 34f882b7514d9b0e46b75ad9e924a09c7fe69b74 (patch) | |
| tree | 2278ef30343f50fb4ccaefefc6c174784aad7c19 /compiler/browcol.pas | |
| parent | af73fd05b041d2078dd79d65b34224030fd492ac (diff) | |
| download | fpc-34f882b7514d9b0e46b75ad9e924a09c7fe69b74.tar.gz | |
* Fix browcol.
- Remove another obsolete uint64 test.
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@7659 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/browcol.pas')
| -rw-r--r-- | compiler/browcol.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/browcol.pas b/compiler/browcol.pas index 37d6d67e9f..32905c9c01 100644 --- a/compiler/browcol.pas +++ b/compiler/browcol.pas @@ -1456,16 +1456,16 @@ end; constord : begin if sym.constdef.typ=enumdef then - Name:=sym.constdef.typesym.name+'('+IntToStr(sym.value.valueord)+')' + Name:=sym.constdef.typesym.name+'('+tostr(sym.value.valueord)+')' else if is_boolean(sym.constdef) then - Name:='Longbool('+IntToStr(sym.value.valueord)+')' + Name:='Longbool('+tostr(sym.value.valueord)+')' else if is_char(sym.constdef) or is_widechar(sym.constdef) then - Name:=''''+chr(sym.value.valueord)+'''' + Name:=''''+chr(sym.value.valueord.svalue)+'''' else - Name:=IntToStr(sym.value.valueord); + Name:=tostr(sym.value.valueord); end; constresourcestring, conststring : |