+ more types

+ objpas unit

rtl/fakertl/objpas.pp

@@ -0,0 +1,4 @@
+unit objpas;
+interface
+implementation
+end.

rtl/fakertl/system.pp

@@ -1,9 +1,18 @@
-{ This is a fake system unit to allow testing of the new code generator }
-
 unit system;
+interface
 
-  interface
+type
+  integer=-32768..32767;
+  byte=0..255;
+  word=0..65535;
+  longint=$80000000..$7fffffff;
+  pchar=^char;
 
-  implementation
+implementation
 
+procedure do_exit;[public,alias:'FPC_DO_EXIT'];
+begin
+end;
+
+begin
 end.