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

* commited.

Browse Source
This commit is contained in:
marco 2003-09-06 21:52:24 +00:00
parent 8245f51217
commit 03690abe3b
3 changed files with 40 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/objpas/dati.inc
View File

@ -78,7 +78,11 @@ end ;
function MSecsToTimeStamp(MSecs: comp): TTimeStamp; function MSecsToTimeStamp(MSecs: comp): TTimeStamp;
begin begin
result.Date := Round(msecs / msecsperday); result.Date := Round(msecs / msecsperday);
{$IFDEF VIRTUALPASCAL}
msecs:= msecs-result.date*msecsperday;
{$ELSE}
msecs:= comp(msecs-result.date*msecsperday); msecs:= comp(msecs-result.date*msecsperday);
{$ENDIF}
result.Time := Round(MSecs); result.Time := Round(MSecs);
end ; end ;
@ -311,7 +315,11 @@ var
df:string; df:string;
d,m,y:word; d,m,y:word;
n,i:longint; n,i:longint;
c:word; {$IFDEF VIRTUALPASCAL}
c:longint;
{$ELSE}
c:word;
{$ENDIF}
dp,mp,yp,which : Byte; dp,mp,yp,which : Byte;
s1:string[4]; s1:string[4];
values:array[1..3] of longint; values:array[1..3] of longint;
@ -414,7 +422,12 @@ var
function GetElement: integer; function GetElement: integer;
var var
j: integer; c: word; j: integer;
{$IFDEF VIRTUALPASCAL}
c: longint;
{$ELSE}
c: word;
{$ENDIF}
begin begin
result := -1; result := -1;
Inc(Current); Inc(Current);
@ -715,7 +728,10 @@ end;
{ {
$Log$ $Log$
Revision 1.9 2003-01-18 23:45:37 michael Revision 1.10 2003-09-06 21:52:24 marco
* commited.
Revision 1.9 2003/01/18 23:45:37 michael
+ Fixed EncodeDate/Time so they use TryEncodeDate/Time + Fixed EncodeDate/Time so they use TryEncodeDate/Time
Revision 1.8 2002/12/25 01:03:48 peter Revision 1.8 2002/12/25 01:03:48 peter

13
rtl/objpas/fina.inc
View File

@ -21,6 +21,10 @@
System Utilities For Free Pascal System Utilities For Free Pascal
} }
{$IFDEF VIRTUALPASCAL}
{$J+}
{$ENDIF}
function ChangeFileExt(const FileName, Extension: string): string; function ChangeFileExt(const FileName, Extension: string): string;
var i: longint; var i: longint;
begin begin
@ -94,7 +98,9 @@ Var S : String;
Begin Begin
S:=FileName; S:=FileName;
{$IFNDEF VIRTUALPASCAL}
DoDirSeparators(S); DoDirSeparators(S);
{$ENDIF}
{$ifdef HasUnix} {$ifdef HasUnix}
Result:=Unix.fexpand(S); Result:=Unix.fexpand(S);
{$else} {$else}
@ -119,7 +125,7 @@ Var Source, Dest : String;
Const OneLevelBack = '..'+PathDelim; Const OneLevelBack = '..'+PathDelim;
begin begin
If Upcase(ExtractFileDrive(BaseName))<>Upcase(ExtractFileDrive(DestName)) Then If Uppercase(ExtractFileDrive(BaseName))<>Uppercase(ExtractFileDrive(DestName)) Then
begin begin
Result:=DestName; Result:=DestName;
exit; exit;
@ -232,7 +238,10 @@ end;
{ {
$Log$ $Log$
Revision 1.9 2003-01-10 21:02:13 marco Revision 1.10 2003-09-06 21:52:24 marco
* commited.
Revision 1.9 2003/01/10 21:02:13 marco
* hasunix fix for beos * hasunix fix for beos
Revision 1.8 2002/10/22 21:57:54 michael Revision 1.8 2002/10/22 21:57:54 michael

15
rtl/objpas/syspch.inc
View File

@ -28,7 +28,9 @@ type
CharArray = array[0..0] of char; CharArray = array[0..0] of char;
{ Processor dependent part, shared withs strings unit } { Processor dependent part, shared withs strings unit }
{$IFNDEF VIRTUALPASCAL} // in system there
{$i strings.inc } {$i strings.inc }
{$ENDIF}
{ Read generic string functions that are not implemented for the processor } { Read generic string functions that are not implemented for the processor }
{$i genstr.inc} {$i genstr.inc}
@ -63,13 +65,13 @@ function strnew(p : pchar) : pchar;
var var
len : longint; len : longint;
begin begin
strnew:=nil; Result:=nil;
if (p=nil) or (p^=#0) then if (p=nil) or (p^=#0) then
exit; exit;
len:=strlen(p)+1; len:=strlen(p)+1;
StrNew:=StrAlloc(Len); Result:=StrAlloc(Len);
if strnew<>nil then if Result<>nil then
strmove(strnew,p,len); strmove(Result,p,len);
end; end;
@ -120,7 +122,10 @@ end ;
{ {
$Log$ $Log$
Revision 1.7 2003-09-01 20:46:59 peter Revision 1.8 2003-09-06 21:52:24 marco
* commited.
Revision 1.7 2003/09/01 20:46:59 peter
* small fixes for sparc * small fixes for sparc
Revision 1.6 2002/09/07 16:01:22 peter Revision 1.6 2002/09/07 16:01:22 peter