paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-21 09:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: fixed compile

Browse Source
This commit is contained in:
mattias 2018-11-13 19:03:24 +00:00
parent 67afd2d765
commit 6b98060678
2 changed files with 19 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
packages/rtl/browserconsole.pas
View File

@ -8,20 +8,21 @@ uses
js,web;
Const
BrowserLineBreak = #10;
DefaultMaxConsoleLines = 25;
DefaultConsoleStyle = '.pasconsole { '+sLineBreak+
'font-family: courier;'+sLineBreak+
'font-size: 14px;'+sLineBreak+
'background: #FFFFFF;'+sLineBreak+
'color: #000000;'+sLineBreak+
'display: block;'+sLineBreak+
DefaultConsoleStyle = '.pasconsole { '+BrowserLineBreak+
'font-family: courier;'+BrowserLineBreak+
'font-size: 14px;'+BrowserLineBreak+
'background: #FFFFFF;'+BrowserLineBreak+
'color: #000000;'+BrowserLineBreak+
'display: block;'+BrowserLineBreak+
'}';
DefaultCRTConsoleStyle = '.pasconsole { '+sLineBreak+
'font-family: courier;'+sLineBreak+
'font-size: 14px;'+sLineBreak+
'background: #000;'+sLineBreak+
'color: #14fdce;'+sLineBreak+
'display: block;'+sLineBreak+
DefaultCRTConsoleStyle = '.pasconsole { '+BrowserLineBreak+
'font-family: courier;'+BrowserLineBreak+
'font-size: 14px;'+BrowserLineBreak+
'background: #000;'+BrowserLineBreak+
'color: #14fdce;'+BrowserLineBreak+
'display: block;'+BrowserLineBreak+
'}';
Var

6
packages/rtl/system.pas
View File

@ -17,9 +17,15 @@ unit System;
interface
{$IFDEF NodeJS}
var
LineEnding: string = #10;
sLineBreak: string = #10;
{$ELSE}
const
LineEnding = #10;
sLineBreak = LineEnding;
{$ENDIF}
const
MaxSmallint = 32767;
MinSmallint = -32768;