Browse Source

rtl: fixed compile

mattias 6 years ago
parent
commit
6b98060678
2 changed files with 19 additions and 12 deletions
  1. 13 12
      packages/rtl/browserconsole.pas
  2. 6 0
      packages/rtl/system.pas

+ 13 - 12
packages/rtl/browserconsole.pas

@@ -8,20 +8,21 @@ uses
   js,web;
   js,web;
 
 
 Const
 Const
+  BrowserLineBreak = #10;
   DefaultMaxConsoleLines = 25;
   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
 Var

+ 6 - 0
packages/rtl/system.pas

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