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

* Changes for new symtable.

Browse Source
This commit is contained in:
daniel 1999-08-05 20:54:19 +00:00
parent 3d7fe41229
commit 3ec16374ab
1 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/globals.pas
View File

@ -190,6 +190,11 @@ unit globals;
function upper(const s : string) : string; function upper(const s : string) : string;
function lower(const s : string) : string; function lower(const s : string) : string;
function trimspace(const s:string):string; function trimspace(const s:string):string;
{$ifdef FPC}
function tostru(i:cardinal) : string;
{$else}
function tostru(i:longint) : string;
{$endif}
procedure uppervar(var s : string); procedure uppervar(var s : string);
function tostr(i : longint) : string; function tostr(i : longint) : string;
function tostr_with_plus(i : longint) : string; function tostr_with_plus(i : longint) : string;
@ -469,6 +474,26 @@ unit globals;
end; end;
{$ifdef FPC}
function tostru(i:cardinal):string;
{
return string of value i, but for cardinals
}
var hs:string;
begin
str(i,hs);
tostru:=hs;
end;
{$else FPC}
function tostru(i:longint):string;
begin
tostru:=tostr(i);
end;
{$endif FPC}
function trimspace(const s:string):string; function trimspace(const s:string):string;
{ {
return s with all leading and ending spaces and tabs removed return s with all leading and ending spaces and tabs removed
@ -1206,7 +1231,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.15 1999-08-03 17:09:35 florian Revision 1.16 1999-08-05 20:54:19 daniel
* Changes for new symtable.
Revision 1.15 1999/08/03 17:09:35 florian
* the alpha compiler can be compiled now * the alpha compiler can be compiled now
Revision 1.14 1999/07/23 16:05:19 peter Revision 1.14 1999/07/23 16:05:19 peter