mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 00:59:08 +02:00
* removed warnings/notes
This commit is contained in:
peter
parent
7b226fcd19
commit
66ea55dd7c
@ -140,10 +140,8 @@ Var
|
||||
OptionsSet : Array[1..NrOptions] Of Boolean;
|
||||
FileName : String;
|
||||
Infile,outfile : Text;
|
||||
Magic : String[20];
|
||||
LineNr : Longint;
|
||||
NrForms,NrControls : Longint;
|
||||
UnitOfMeasure : string;
|
||||
FormRoot : PFormRec;
|
||||
cbroot : pcbrec;
|
||||
{ Default properties emitters }
|
||||
@ -299,12 +297,12 @@ begin
|
||||
EmitLineError('Unknown keyword : '+Key)
|
||||
else
|
||||
Case K of
|
||||
PPMagic : Magic:=key;
|
||||
PPMagic,
|
||||
PPunitofmeasure: ;
|
||||
PPnrforms: begin
|
||||
val(value,NrForms,code);
|
||||
if code<>0 then EmitLineError('Invalid number of forms');
|
||||
end;
|
||||
PPunitofmeasure: UnitOfMeasure:=Value;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -338,7 +336,7 @@ Procedure ProcessControlLine (PC : PControl; const S : String);
|
||||
|
||||
Var Key,Value : String;
|
||||
i,k : ContProps;
|
||||
ppos,code : word;
|
||||
ppos : word;
|
||||
|
||||
begin
|
||||
if s='' then exit;
|
||||
@ -461,7 +459,7 @@ end;
|
||||
|
||||
Procedure DoForms;
|
||||
|
||||
Var Line : String;
|
||||
Var
|
||||
i : Longint;
|
||||
CurrentForm: PformRec;
|
||||
|
||||
@ -586,7 +584,6 @@ end;
|
||||
Procedure EmitHeader;
|
||||
|
||||
var fp : PFormRec;
|
||||
cp : PControl;
|
||||
|
||||
begin
|
||||
if OptionsSet[2] then
|
||||
@ -685,9 +682,6 @@ begin
|
||||
end;
|
||||
|
||||
Procedure EmitAlternateMain;
|
||||
|
||||
var fp : PFormRec;
|
||||
|
||||
begin
|
||||
{ Alternate format, we just call creatallforms to create all forms}
|
||||
writeln (OutFile,'Create_The_Forms;');
|
||||
@ -716,9 +710,6 @@ begin
|
||||
end;
|
||||
|
||||
Procedure EmitFooter;
|
||||
|
||||
var fp : PFormRec;
|
||||
|
||||
begin
|
||||
if OptionsSet[3] then {Alternate format.}
|
||||
EmitCreateForms;
|
||||
@ -856,7 +847,6 @@ end;
|
||||
Procedure EmitObject(cp : PControl);
|
||||
|
||||
var temp : string;
|
||||
Corners : array[1..4] of string[5];
|
||||
I : Longint;
|
||||
j,k : ObjClasses;
|
||||
|
||||
@ -989,10 +979,7 @@ end;
|
||||
Procedure EmitForms;
|
||||
|
||||
var
|
||||
|
||||
fp : PformRec;
|
||||
cp : PControl;
|
||||
|
||||
fp : PformRec;
|
||||
begin
|
||||
{ Start emitting forms }
|
||||
fp:=Formroot;
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -742,7 +742,6 @@ End;
|
||||
function Keypressed : boolean;
|
||||
var
|
||||
l : longint;
|
||||
fd : fdSet;
|
||||
Begin
|
||||
Keypressed := FALSE;
|
||||
nodelay(ActiveWn,bool(TRUE));
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -46,7 +46,7 @@ type
|
||||
var
|
||||
nActive, nNextEdge : Longint;
|
||||
p0, p1 : pointtype;
|
||||
endy, i, j, gap, x0, x1, y, nEdges : Longint;
|
||||
i, j, gap, x0, x1, y, nEdges : Longint;
|
||||
ET : pedgearray;
|
||||
GET, AET : ppedgearray;
|
||||
t : pedge;
|
||||
@ -368,7 +368,6 @@ var
|
||||
Cont : Boolean;
|
||||
BackupColor : Word;
|
||||
x1, x2, prevy: smallint;
|
||||
Index : smallint;
|
||||
Begin
|
||||
FillChar(DrawnList,sizeof(DrawnList),0);
|
||||
{ init prevy }
|
||||
@ -387,8 +386,6 @@ var
|
||||
end;
|
||||
If (x<0) Or (y<0) Or
|
||||
(x>ViewWidth) Or (y>ViewHeight) then Exit;
|
||||
{ Some internal variables }
|
||||
Index := 0;
|
||||
{ Index of points to check }
|
||||
Buffer.WordIndex:=0;
|
||||
PushPoint (x,y);
|
||||
@ -482,7 +479,10 @@ var
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.17 2000-02-12 13:39:19 jonas
|
||||
Revision 1.18 2000-02-27 14:41:25 peter
|
||||
* removed warnings/notes
|
||||
|
||||
Revision 1.17 2000/02/12 13:39:19 jonas
|
||||
+ new, faster fillpoly from Thomas Schatzl
|
||||
* some logging commands in vesa.inc disabled
|
||||
|
||||
|
||||
@ -2099,55 +2099,28 @@ end;
|
||||
Begin
|
||||
{ All default hooks procedures }
|
||||
|
||||
{$ifdef fpc}
|
||||
{ required...}
|
||||
DirectPutPixel := @DirectPutPixelDefault;
|
||||
PutPixel := @PutPixelDefault;
|
||||
GetPixel := @GetPixelDefault;
|
||||
SetRGBPalette := @SetRGBPaletteDefault;
|
||||
GetRGBPalette := @GetRGBPaletteDefault;
|
||||
|
||||
DirectPutPixel := {$ifdef fpc}@{$endif}DirectPutPixelDefault;
|
||||
PutPixel := {$ifdef fpc}@{$endif}PutPixelDefault;
|
||||
GetPixel := {$ifdef fpc}@{$endif}GetPixelDefault;
|
||||
SetRGBPalette := {$ifdef fpc}@{$endif}SetRGBPaletteDefault;
|
||||
GetRGBPalette := {$ifdef fpc}@{$endif}GetRGBPaletteDefault;
|
||||
|
||||
{ optional...}
|
||||
SetActivePage := @SetActivePageDefault;
|
||||
SetVisualPage := @SetVisualPageDefault;
|
||||
ClearViewPort := @ClearViewportDefault;
|
||||
PutImage := @DefaultPutImage;
|
||||
GetImage := @DefaultGetImage;
|
||||
ImageSize := @DefaultImageSize;
|
||||
{$else fpc}
|
||||
{ required...}
|
||||
DirectPutPixel := DirectPutPixelDefault;
|
||||
PutPixel := PutPixelDefault;
|
||||
GetPixel := GetPixelDefault;
|
||||
SetRGBPalette := SetRGBPaletteDefault;
|
||||
GetRGBPalette := GetRGBPaletteDefault;
|
||||
|
||||
{ optional...}
|
||||
SetActivePage := SetActivePageDefault;
|
||||
SetVisualPage := SetVisualPageDefault;
|
||||
ClearViewPort := ClearViewportDefault;
|
||||
PutImage := DefaultPutImage;
|
||||
GetImage := DefaultGetImage;
|
||||
ImageSize := DefaultImageSize;
|
||||
{$endif fpc}
|
||||
SetActivePage := {$ifdef fpc}@{$endif}SetActivePageDefault;
|
||||
SetVisualPage := {$ifdef fpc}@{$endif}SetVisualPageDefault;
|
||||
ClearViewPort := {$ifdef fpc}@{$endif}ClearViewportDefault;
|
||||
PutImage := {$ifdef fpc}@{$endif}DefaultPutImage;
|
||||
GetImage := {$ifdef fpc}@{$endif}DefaultGetImage;
|
||||
ImageSize := {$ifdef fpc}@{$endif}DefaultImageSize;
|
||||
GraphFreeMemPtr := nil;
|
||||
GraphGetMemPtr := nil;
|
||||
{$ifdef fpc}
|
||||
GetScanLine := @GetScanLineDefault;
|
||||
Line := @LineDefault;
|
||||
InternalEllipse := @InternalEllipseDefault;
|
||||
PatternLine := @PatternLineDefault;
|
||||
HLine := @HLineDefault;
|
||||
VLine := @VLineDefault;
|
||||
{$else fpc}
|
||||
GetScanLine := GetScanLineDefault;
|
||||
Line := LineDefault;
|
||||
InternalEllipse := InternalEllipseDefault;
|
||||
PatternLine := PatternLineDefault;
|
||||
HLine := HLineDefault;
|
||||
VLine := VLineDefault;
|
||||
{$endif fpc}
|
||||
GetScanLine := {$ifdef fpc}@{$endif}GetScanLineDefault;
|
||||
Line := {$ifdef fpc}@{$endif}LineDefault;
|
||||
InternalEllipse := {$ifdef fpc}@{$endif}InternalEllipseDefault;
|
||||
PatternLine := {$ifdef fpc}@{$endif}PatternLineDefault;
|
||||
HLine := {$ifdef fpc}@{$endif}HLineDefault;
|
||||
VLine := {$ifdef fpc}@{$endif}VLineDefault;
|
||||
end;
|
||||
|
||||
Procedure InitVars;
|
||||
@ -2176,6 +2149,7 @@ end;
|
||||
PaletteSize := 0;
|
||||
DirectColor := FALSE;
|
||||
HardwarePages := 0;
|
||||
if hardwarepages=0 then; { remove note }
|
||||
DefaultHooks;
|
||||
end;
|
||||
|
||||
@ -2212,22 +2186,14 @@ end;
|
||||
{ OldWriteMode := CurrentWriteMode;
|
||||
if (LineInfo.Thickness = NormWidth) then
|
||||
CurrentWriteMode := NormalPut;}
|
||||
{$ifdef fpc}
|
||||
InternalEllipse(X,Y,Radius,Radius,StAngle,Endangle,@DummyPatternLine);
|
||||
{$else fpc}
|
||||
InternalEllipse(X,Y,Radius,Radius,StAngle,Endangle,DummyPatternLine);
|
||||
{$endif fpc}
|
||||
InternalEllipse(X,Y,Radius,Radius,StAngle,Endangle,{$ifdef fpc}@{$endif}DummyPatternLine);
|
||||
{ CurrentWriteMode := OldWriteMode;}
|
||||
end;
|
||||
|
||||
|
||||
procedure Ellipse(X,Y : smallint; stAngle, EndAngle: word; XRadius,YRadius: word);
|
||||
Begin
|
||||
{$ifdef fpc}
|
||||
InternalEllipse(X,Y,XRadius,YRadius,StAngle,Endangle,@DummyPatternLine);
|
||||
{$else fpc}
|
||||
InternalEllipse(X,Y,XRadius,YRadius,StAngle,Endangle,DummyPatternLine);
|
||||
{$endif fpc}
|
||||
InternalEllipse(X,Y,XRadius,YRadius,StAngle,Endangle,{$ifdef fpc}@{$endif}DummyPatternLine);
|
||||
end;
|
||||
|
||||
|
||||
@ -2278,11 +2244,7 @@ end;
|
||||
OldWriteMode := CurrentWriteMode;
|
||||
CurrentWriteMode := CopyPut;
|
||||
end;
|
||||
{$ifdef fpc}
|
||||
InternalEllipse(X,Y,Radius,Radius,0,360,@DummyPatternLine);
|
||||
{$else fpc}
|
||||
InternalEllipse(X,Y,Radius,Radius,0,360,DummyPatternLine);
|
||||
{$endif fpc}
|
||||
InternalEllipse(X,Y,Radius,Radius,0,360,{$ifdef fpc}@{$endif}DummyPatternLine);
|
||||
if LineInfo.Thickness = Normwidth then
|
||||
CurrentWriteMode := OldWriteMode;
|
||||
{ restore arc information }
|
||||
@ -2455,14 +2417,8 @@ end;
|
||||
end;
|
||||
|
||||
procedure Sector(x, y: smallint; StAngle,EndAngle, XRadius, YRadius: Word);
|
||||
(* var angle : graph_float;
|
||||
writemode : word; *)
|
||||
begin
|
||||
{$ifdef fpc}
|
||||
internalellipse(x,y,XRadius, YRadius, StAngle, EndAngle, @SectorPL);
|
||||
{$else fpc}
|
||||
internalellipse(x,y,XRadius, YRadius, StAngle, EndAngle, SectorPL);
|
||||
{$endif fpc}
|
||||
internalellipse(x,y,XRadius, YRadius, StAngle, EndAngle, {$ifdef fpc}@{$endif}SectorPL);
|
||||
Line(ArcCall.XStart, ArcCall.YStart, x,y);
|
||||
Line(x,y,ArcCall.Xend,ArcCall.YEnd);
|
||||
end;
|
||||
@ -3010,7 +2966,6 @@ begin
|
||||
ModeList := nil;
|
||||
SaveVideoState := nil;
|
||||
RestoreVideoState := nil;
|
||||
SavePtr := Nil;
|
||||
{$ifdef oldfont}
|
||||
{$ifdef go32v2}
|
||||
LoadFont8x8;
|
||||
@ -3045,14 +3000,12 @@ begin
|
||||
charmessagehandler:=nil;
|
||||
{$endif win32}
|
||||
end.
|
||||
|
||||
|
||||
SetGraphBufSize
|
||||
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.56 2000-02-06 01:47:15 sg
|
||||
Revision 1.57 2000-02-27 14:41:25 peter
|
||||
* removed warnings/notes
|
||||
|
||||
Revision 1.56 2000/02/06 01:47:15 sg
|
||||
* For Linux, "/" is added to the bgipath instead of "\" if this character
|
||||
isn't already there.
|
||||
|
||||
|
||||
@ -368,7 +368,6 @@
|
||||
cnt3,cnt4 : smallint;
|
||||
charsize : word;
|
||||
WriteMode : word;
|
||||
CurX, CurY : smallint;
|
||||
curX2, curY2, xpos2, ypos2, x2, y2: graph_float;
|
||||
oldvalues : linesettingstype;
|
||||
chr : char;
|
||||
@ -591,7 +590,6 @@
|
||||
Prefix: array[0..Prefix_Size-1] of char; {* File Prefix Holder *}
|
||||
Length, Current: longint;
|
||||
FontData: Pchar;
|
||||
Base: longint;
|
||||
hp : pchar;
|
||||
i : longint;
|
||||
begin
|
||||
@ -685,22 +683,14 @@
|
||||
move(hp[i+1],fonts[font].PHeader,sizeof(TFHeader));
|
||||
(* Read in the Header file *)
|
||||
BlockRead(F,fonts[font].Header,Sizeof(THeader));
|
||||
Base := FilePos(F); {* Remember the address of table*}
|
||||
|
||||
BlockRead(F,Fonts[font].Offsets[Fonts[font].Header.First_Char],Fonts[font].Header.Nr_chars*sizeof(smallint));
|
||||
|
||||
{* Load the character width table into memory. *}
|
||||
|
||||
base := filePos( f );
|
||||
BlockRead(F,Fonts[font].Widths[Fonts[font].Header.First_Char],Fonts[font].Header.Nr_chars*sizeof(byte));
|
||||
|
||||
{* Determine the length of the stroke database. *}
|
||||
|
||||
current := FilePos( f ); {* Current file location *}
|
||||
Seek( f, FileSize(F)); {* Go to the end of the file *}
|
||||
length := FilePos( f ); {* Get the file length *}
|
||||
Seek( f, current); {* Restore old file location *}
|
||||
|
||||
{* Load the stroke database. *}
|
||||
{ also allocate space for Null character }
|
||||
Getmem(FontData, Length+1); {* Create space for font data *}
|
||||
@ -737,7 +727,10 @@
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.14 2000-01-07 16:41:38 daniel
|
||||
Revision 1.15 2000-02-27 14:41:25 peter
|
||||
* removed warnings/notes
|
||||
|
||||
Revision 1.14 2000/01/07 16:41:38 daniel
|
||||
* copyright 2000
|
||||
|
||||
Revision 1.13 2000/01/07 16:32:26 daniel
|
||||
|
||||
@ -89,7 +89,7 @@ var
|
||||
procedure getIntPart(d: extended);
|
||||
var
|
||||
intPartStack: TIntPartStack;
|
||||
count, stackPtr, endStackPtr, digits: longint;
|
||||
stackPtr, endStackPtr, digits: longint;
|
||||
overflow: boolean;
|
||||
begin
|
||||
{ position in the stack (gets increased before first write) }
|
||||
@ -376,7 +376,10 @@ end;
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.24 2000-02-26 18:53:11 jonas
|
||||
Revision 1.25 2000-02-27 14:41:25 peter
|
||||
* removed warnings/notes
|
||||
|
||||
Revision 1.24 2000/02/26 18:53:11 jonas
|
||||
* fix for lost precision because sometimes the correction value was
|
||||
larger than the number to be corrected
|
||||
* incompatibility with TP's output fixed
|
||||
|
||||
@ -20,9 +20,6 @@
|
||||
const
|
||||
InternalDriverName = 'LinuxGGI';
|
||||
|
||||
var
|
||||
SavePtr: Pointer;
|
||||
|
||||
{ ---------------------------------------------------------------------
|
||||
GGI bindings [(c) 1999 Sebastian Guenther]
|
||||
---------------------------------------------------------------------}
|
||||
@ -433,18 +430,19 @@ begin
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.8 2000-01-07 16:41:40 daniel
|
||||
$Log$
|
||||
Revision 1.9 2000-02-27 14:41:25 peter
|
||||
* removed warnings/notes
|
||||
|
||||
Revision 1.8 2000/01/07 16:41:40 daniel
|
||||
* copyright 2000
|
||||
|
||||
Revision 1.7 1999/12/20 11:22:38 peter
|
||||
Revision 1.7 1999/12/20 11:22:38 peter
|
||||
* modes moved to interface
|
||||
* integer -> smallint
|
||||
|
||||
Revision 1.6 1999/12/11 23:41:39 jonas
|
||||
Revision 1.6 1999/12/11 23:41:39 jonas
|
||||
* changed definition of getscanlineproc to "getscanline(x1,x2,y:
|
||||
smallint; var data);" so it can be used by getimage too
|
||||
* changed getimage so it uses getscanline
|
||||
@ -452,24 +450,23 @@ Revision 1.6 1999/12/11 23:41:39 jonas
|
||||
include files so they use this new format
|
||||
+ getscanlineVESA256 for 256 color VESA modes (banked)
|
||||
|
||||
Revision 1.5 1999/11/12 02:13:01 carl
|
||||
Revision 1.5 1999/11/12 02:13:01 carl
|
||||
* Bugfix if getimage / putimage, format was not standard with FPC
|
||||
graph.
|
||||
|
||||
Revision 1.4 1999/11/10 10:54:24 sg
|
||||
* Fixed a LOT of bugs:
|
||||
* - Default mode should be determined by GGI now
|
||||
* - Colors are working (only the 16 standard VGA colors, though)
|
||||
Revision 1.4 1999/11/10 10:54:24 sg
|
||||
* Fixed a LOT of bugs:
|
||||
* - Default mode should be determined by GGI now
|
||||
* - Colors are working (only the 16 standard VGA colors, though)
|
||||
|
||||
Revision 1.3 1999/11/08 20:04:55 sg
|
||||
* GGI programs must link to libc, or ggiOpen will fail!
|
||||
* Changed max length of ModeNames string from 18 to 20 chars
|
||||
Revision 1.3 1999/11/08 20:04:55 sg
|
||||
* GGI programs must link to libc, or ggiOpen will fail!
|
||||
* Changed max length of ModeNames string from 18 to 20 chars
|
||||
|
||||
Revision 1.2 1999/11/08 00:08:43 michael
|
||||
* Fist working version of svgalib new graph unit
|
||||
* Initial implementation of ggi new graph unit
|
||||
|
||||
Revision 1.1 1999/11/07 16:57:26 michael
|
||||
+ Start of common graph implementation
|
||||
Revision 1.2 1999/11/08 00:08:43 michael
|
||||
* Fist working version of svgalib new graph unit
|
||||
* Initial implementation of ggi new graph unit
|
||||
|
||||
Revision 1.1 1999/11/07 16:57:26 michael
|
||||
+ Start of common graph implementation
|
||||
}
|
||||
|
||||
@ -17,8 +17,6 @@
|
||||
const
|
||||
InternalDriverName = 'LinuxVGA';
|
||||
|
||||
var SavePtr : Pointer;
|
||||
|
||||
{ ---------------------------------------------------------------------
|
||||
SVGA bindings.
|
||||
|
||||
@ -161,12 +159,10 @@ var
|
||||
---------------------------------------------------------------------}
|
||||
|
||||
procedure libvga_savevideostate;
|
||||
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure libvga_restorevideostate;
|
||||
|
||||
begin
|
||||
vga_setmode(0);
|
||||
end;
|
||||
@ -449,26 +445,29 @@ end;
|
||||
end;
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.8 2000-02-06 11:26:45 sg
|
||||
* Fixed SetRGBPalette and GetRGBPalette (hopefully; not tested)
|
||||
$Log$
|
||||
Revision 1.9 2000-02-27 14:41:25 peter
|
||||
* removed warnings/notes
|
||||
|
||||
Revision 1.7 2000/02/06 01:48:55 sg
|
||||
* Fixed the default palette. libsvga works with a RGB range from 0-63, not
|
||||
Revision 1.8 2000/02/06 11:26:45 sg
|
||||
* Fixed SetRGBPalette and GetRGBPalette (hopefully; not tested)
|
||||
|
||||
Revision 1.7 2000/02/06 01:48:55 sg
|
||||
* Fixed the default palette. libsvga works with a RGB range from 0-63, not
|
||||
0-255!
|
||||
* PutPixel fixed (pixels didn't get drawn before)
|
||||
* PutPixel fixed (pixels didn't get drawn before)
|
||||
|
||||
Revision 1.6 2000/02/03 20:39:58 michael
|
||||
+ Version using only vgalib
|
||||
Revision 1.6 2000/02/03 20:39:58 michael
|
||||
+ Version using only vgalib
|
||||
|
||||
Revision 1.5 2000/01/07 16:41:42 daniel
|
||||
Revision 1.5 2000/01/07 16:41:42 daniel
|
||||
* copyright 2000
|
||||
|
||||
Revision 1.4 1999/12/20 11:22:38 peter
|
||||
Revision 1.4 1999/12/20 11:22:38 peter
|
||||
* modes moved to interface
|
||||
* integer -> smallint
|
||||
|
||||
Revision 1.3 1999/12/11 23:41:39 jonas
|
||||
Revision 1.3 1999/12/11 23:41:39 jonas
|
||||
* changed definition of getscanlineproc to "getscanline(x1,x2,y:
|
||||
integer; var data);" so it can be used by getimage too
|
||||
* changed getimage so it uses getscanline
|
||||
@ -476,11 +475,10 @@ Revision 1.3 1999/12/11 23:41:39 jonas
|
||||
include files so they use this new format
|
||||
+ getscanlineVESA256 for 256 color VESA modes (banked)
|
||||
|
||||
Revision 1.2 1999/11/08 00:08:43 michael
|
||||
* Fist working version of svgalib new graph unit
|
||||
* Initial implementation of ggi new graph unit
|
||||
|
||||
Revision 1.1 1999/11/07 16:57:26 michael
|
||||
+ Start of common graph implementation
|
||||
Revision 1.2 1999/11/08 00:08:43 michael
|
||||
* Fist working version of svgalib new graph unit
|
||||
* Initial implementation of ggi new graph unit
|
||||
|
||||
Revision 1.1 1999/11/07 16:57:26 michael
|
||||
+ Start of common graph implementation
|
||||
}
|
||||
|
||||
@ -87,7 +87,7 @@ end ;
|
||||
function MSecsToTimeStamp(MSecs: comp): TTimeStamp;
|
||||
begin
|
||||
result.Date := trunc(msecs / msecsperday);
|
||||
msecs:= msecs - comp(result.date) * comp(msecsperday);
|
||||
msecs:= comp(msecs-result.date*msecsperday);
|
||||
result.Time := Trunc(MSecs);
|
||||
end ;
|
||||
|
||||
@ -680,7 +680,10 @@ end;
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.20 2000-02-09 16:59:32 peter
|
||||
Revision 1.21 2000-02-27 14:41:25 peter
|
||||
* removed warnings/notes
|
||||
|
||||
Revision 1.20 2000/02/09 16:59:32 peter
|
||||
* truncated log
|
||||
|
||||
Revision 1.19 1999/11/29 16:59:27 pierre
|
||||
|
||||
Loading…
Reference in New Issue
Block a user